FaTaLiST
10-05-2007, 04:59 PM
Function PostKontrol(yazi)
yazi = Replace(yazi, "<", "<")
yazi = Replace(yazi, ">", ">")
yazi = Replace(yazi, "script", "script", 1, -1, 0)
yazi = Replace(yazi, "SCRIPT", "SCRIPT", 1, -1, 0)
yazi = Replace(yazi, "Script", "Script", 1, -1, 0)
yazi = Replace(yazi, "script", "Script", 1, -1, 1)
yazi = Replace(yazi, "object", "object", 1, -1, 0)
yazi = Replace(yazi, "OBJECT", "OBJECT", 1, -1, 0)
yazi = Replace(yazi, "Object", "Object", 1, -1, 0)
yazi = Replace(yazi, "object", "Object", 1, -1, 1)
yazi = Replace(yazi, "applet", "applet", 1, -1, 0)
yazi = Replace(yazi, "APPLET", "APPLET", 1, -1, 0)
yazi = Replace(yazi, "Applet", "Applet", 1, -1, 0)
yazi = Replace(yazi, "applet", "Applet", 1, -1, 1)
yazi = Replace(yazi, "embed", "embed", 1, -1, 0)
yazi = Replace(yazi, "EMBED", "EMBED", 1, -1, 0)
yazi = Replace(yazi, "Embed", "Embed", 1, -1, 0)
yazi = Replace(yazi, "embed", "Embed", 1, -1, 1)
yazi = Replace(yazi, "event", "event", 1, -1, 0)
yazi = Replace(yazi, "EVENT", "EVENT", 1, -1, 0)
yazi = Replace(yazi, "Event", "Event", 1, -1, 0)
yazi = Replace(yazi, "event", "Event", 1, -1, 1)
yazi = Replace(yazi, "document", "document", 1, -1, 0)
yazi = Replace(yazi, "DOCUMENT", "DOCUMENT", 1, -1, 0)
yazi = Replace(yazi, "Document", "Document", 1, -1, 0)
yazi = Replace(yazi, "document", "Document", 1, -1, 1)
yazi = Replace(yazi, "cookie", "cookie", 1, -1, 0)
yazi = Replace(yazi, "COOKIE", "COOKIE", 1, -1, 0)
yazi = Replace(yazi, "Cookie", "Cookie", 1, -1, 0)
yazi = Replace(yazi, "cookie", "Cookie", 1, -1, 1)
yazi = Replace(yazi, "form", "form", 1, -1, 0)
yazi = Replace(yazi, "FORM", "FORM", 1, -1, 0)
yazi = Replace(yazi, "Form", "Form", 1, -1, 0)
yazi = Replace(yazi, "form", "Form", 1, -1, 1)
yazi = Replace(yazi, "on", "on", 1, -1, 0)
yazi = Replace(yazi, "ON", "ON", 1, -1, 0)
yazi = Replace(yazi, "On", "On", 1, -1, 0)
yazi = Replace(yazi, "on", "on", 1, -1, 1)
yazi = Replace(yazi, "document.cookie", "Document.cookie", 1, -1, 1)
yazi = Replace(yazi, "javascript:", "javascript ", 1, -1, 1)
yazi = Replace(yazi, "vbscript:", "vbscript ", 1, -1, 1)
yazi = Replace(yazi, "'", "")
yazi = Replace(yazi, vbCrLf, "
")
PostKontrol = yazi
End Function
kullanmak için ise requestin başına PostKontrol yapın yeter.
Örneğin;
kadi = PostKontrol(Reques.Form("UserName"))
gibi. Şifre içinde herzaman kripto yapın. MD5 en iyisi.
yazi = Replace(yazi, "<", "<")
yazi = Replace(yazi, ">", ">")
yazi = Replace(yazi, "script", "script", 1, -1, 0)
yazi = Replace(yazi, "SCRIPT", "SCRIPT", 1, -1, 0)
yazi = Replace(yazi, "Script", "Script", 1, -1, 0)
yazi = Replace(yazi, "script", "Script", 1, -1, 1)
yazi = Replace(yazi, "object", "object", 1, -1, 0)
yazi = Replace(yazi, "OBJECT", "OBJECT", 1, -1, 0)
yazi = Replace(yazi, "Object", "Object", 1, -1, 0)
yazi = Replace(yazi, "object", "Object", 1, -1, 1)
yazi = Replace(yazi, "applet", "applet", 1, -1, 0)
yazi = Replace(yazi, "APPLET", "APPLET", 1, -1, 0)
yazi = Replace(yazi, "Applet", "Applet", 1, -1, 0)
yazi = Replace(yazi, "applet", "Applet", 1, -1, 1)
yazi = Replace(yazi, "embed", "embed", 1, -1, 0)
yazi = Replace(yazi, "EMBED", "EMBED", 1, -1, 0)
yazi = Replace(yazi, "Embed", "Embed", 1, -1, 0)
yazi = Replace(yazi, "embed", "Embed", 1, -1, 1)
yazi = Replace(yazi, "event", "event", 1, -1, 0)
yazi = Replace(yazi, "EVENT", "EVENT", 1, -1, 0)
yazi = Replace(yazi, "Event", "Event", 1, -1, 0)
yazi = Replace(yazi, "event", "Event", 1, -1, 1)
yazi = Replace(yazi, "document", "document", 1, -1, 0)
yazi = Replace(yazi, "DOCUMENT", "DOCUMENT", 1, -1, 0)
yazi = Replace(yazi, "Document", "Document", 1, -1, 0)
yazi = Replace(yazi, "document", "Document", 1, -1, 1)
yazi = Replace(yazi, "cookie", "cookie", 1, -1, 0)
yazi = Replace(yazi, "COOKIE", "COOKIE", 1, -1, 0)
yazi = Replace(yazi, "Cookie", "Cookie", 1, -1, 0)
yazi = Replace(yazi, "cookie", "Cookie", 1, -1, 1)
yazi = Replace(yazi, "form", "form", 1, -1, 0)
yazi = Replace(yazi, "FORM", "FORM", 1, -1, 0)
yazi = Replace(yazi, "Form", "Form", 1, -1, 0)
yazi = Replace(yazi, "form", "Form", 1, -1, 1)
yazi = Replace(yazi, "on", "on", 1, -1, 0)
yazi = Replace(yazi, "ON", "ON", 1, -1, 0)
yazi = Replace(yazi, "On", "On", 1, -1, 0)
yazi = Replace(yazi, "on", "on", 1, -1, 1)
yazi = Replace(yazi, "document.cookie", "Document.cookie", 1, -1, 1)
yazi = Replace(yazi, "javascript:", "javascript ", 1, -1, 1)
yazi = Replace(yazi, "vbscript:", "vbscript ", 1, -1, 1)
yazi = Replace(yazi, "'", "")
yazi = Replace(yazi, vbCrLf, "
")
PostKontrol = yazi
End Function
kullanmak için ise requestin başına PostKontrol yapın yeter.
Örneğin;
kadi = PostKontrol(Reques.Form("UserName"))
gibi. Şifre içinde herzaman kripto yapın. MD5 en iyisi.