patch (SQL INJECTION ) pada ASP di halaman login admin
[code]
Function Amankan(strtemp)
strTemp = Replace(strTemp, "(", "[")
strTemp = Replace(strTemp, ")", "]")
strTemp = Replace(strTemp, chr(13), "")
strTemp = Replace(strTemp, chr(34), "'")
strTemp = Replace(strTemp, "<" , "<")
strTemp = Replace(strTemp, ">" , ">")
strTemp = Replace(strTemp, "script" , "s-c-r-i-p-t")
strTemp = Replace(strTemp, "=" , "samadengan")
Amankan = strTemp
End Function
Function Amankan1(strtemp)
strTemp = Replace(strTemp, "(", "")
strTemp = Replace(strTemp, ")", "")
strTemp = Replace(strTemp, chr(13), "")
strTemp = Replace(strTemp, chr(34), "")
strTemp = Replace(strTemp, "<" , "")
strTemp = Replace(strTemp, ">" , "")
strTemp = Replace(strTemp, "script" , "s-c-r-i-p-t")
strTemp = Replace(strTemp, ";" , "")
strTemp = Replace(strTemp, "'" , "")
strTemp = Replace(strTemp, "having" , "")
Amankan1 = strTemp
End Function
Function ChkEmail(strTemp)
If Len(strTemp) > 0 Then
If InStr(1, strTemp, "@") > 0 Then
If InStr(Len(strTemp) - 4, strTemp, ".") > 0 Then
ChkEmail = True
End If
End If
Else
ChkEmail = False
End If
End Function
Function ChkMessage(strTemp)
If Len(strTemp) > 20 and Len(strTemp) < 200 Then
ChkMessage = True
Else
ChkMessage = False
End IF
End Function
Function ChkName(strTemp)
If Len(strTemp) > 4 and Len(strTemp) < 30 Then
ChkName = True
Else
ChkName = False
End IF
End Function