中国网络渗透测试联盟

标题: 对特殊字符的过滤代码 [打印本页]

作者: admin    时间: 2012-9-15 14:40
标题: 对特殊字符的过滤代码
public Function RSQL(strChar)
5 f7 o% U4 w) X0 f        If strChar = "" or IsNull(strChar) Then RSQL = "":Exit Function
" t0 {  z1 A3 f1 q. |% C2 r        Dim strBadChar, arrBadChar, tempChar, I
, I; Q6 r+ c1 n7 i- A        strBadChar = "$,#,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & ""’注意这里过滤的是特殊字符    ‘Chr(34)对应的ASCII码是双引号。Chr(0)其实就是我们上传改包把空格(20)改成的00
) r9 F  e2 P# U        arrBadChar = Split(strBadChar, ",")
! i4 f6 V; y. l        tempChar = strChar
" k1 I; l3 g7 J% q* q        For I = 0 To UBound(arrBadChar)# _% j5 C( B% J
                tempChar = Replace(tempChar, arrBadChar(I), "")  ‘将特殊字符过滤为空4 d  J$ m8 ^+ H$ _! k9 y% N
        Next
5 q; J7 l: S: f+ L; m        RSQL = tempChar0 H. M4 x; K( _; c6 i
End Function$ \* N# |3 T  K" a( l8 m





欢迎光临 中国网络渗透测试联盟 (https://cobjon.com/) Powered by Discuz! X3.2