<٪
'*********************************
'الوظيفة: checkstr (byvalchkstr)
'المعلمة: chksstr ، حرف يتم التحقق منه
المؤلف: Alixi
"التاريخ: 2007/7/15
الوصف: إعادة ترميز أحرف SQL Injection الخطرة
"مثال: checkstr (" و 1 = 1orselect*من ")
'*********************************
FunctionChecstr (ByValChkstr)
DIMSTR: STR = chksstr
str = trim (str)
Ifisnull (str) ثم
checkstr = ""
exitfunction
Endif
Dimre
setre = newregexp
re.ignorecase = صحيح
re.global = صحيح
re.pattern = "(/r/n) {3 ،}"
str = re.replace (str ، "$ 1 $ 1 $ 1")
setre = لا شيء
str = استبدال (str ، "" "،" "")
STR = استبدال (STR ، "SELECT" ، "SELECT")
str = استبدال (str ، "Join" ، "Join")
str = استبدال (str ، "الاتحاد" ، "الاتحاد")
str = استبدال (str ، "أين" ، "أين")
str = استبدال (str ، "insert" ، "insert")
str = استبدال (str ، "delete" ، "delete")
str = استبدال (str ، "تحديث" ، "تحديث")
str = استبدال (str ، "مثل" ، "مثل")
str = استبدال (Str ، "Drop" ، "Drop")
str = استبدال (str ، "إنشاء" ، "إنشاء")
str = استبدال (str ، "تعديل" ، "تعديل")
str = استبدال (str ، "إعادة تسمية" ، "إعادة تسمية")
str = استبدال (str ، "Alter" ، "Alter")
str = استبدال (Str ، "Cast" ، "Cast")
checkstr = str
الوظيفية
قم بتدوين السلسلة التي تمت معالجتها بواسطة الوظيفة أعلاه
FunctionAnghecstr (STR)
STR = استبدال (STR ، "SELECT" ، "SELECT")
str = استبدال (str ، "Join" ، "Join")
str = استبدال (str ، "الاتحاد" ، "الاتحاد")
str = استبدال (str ، "أين" ، "أين")
str = استبدال (str ، "insert" ، "insert")
str = استبدال (str ، "delete" ، "delete")
str = استبدال (str ، "تحديث" ، "تحديث")
str = استبدال (str ، "مثل" ، "مثل")
str = استبدال (Str ، "Drop" ، "Drop")
str = استبدال (str ، "إنشاء" ، "إنشاء")
str = استبدال (str ، "تعديل" ، "تعديل")
str = استبدال (str ، "إعادة تسمية" ، "إعادة تسمية")
str = استبدال (str ، "Alter" ، "Alter")
str = استبدال (Str ، "Cast" ، "Cast")