asp下的一个很简单的验证码程序第1/3页

主程序共三个 

我的调用方式 <script language="javascript" src="/verify/num.asp"></script> 
验证方式 if trim(Loginnum)<>trim(session("Loginnum")) then 
Response.Write Error("验证码错误！") 
Response.End 
end if 


num.asp 

<% 
'### To encrypt/decrypt include this code in your page 
'### strMyEncryptedString = EncryptString(strString) 
'### strMyDecryptedString = DeCryptString(strMyEncryptedString) 
'### You are free to use this code as long as credits remain in place 
'### also if you improve this code let me know. 

Private Function EncryptString(strString) 
'#################################################################### 
'### Crypt Function ? 2001 by Slavic Kozyuk grindkore@yahoo.com ### 
'### Arguments: strString <--- String you wish to encrypt ### 
'### Output: Encrypted HEX string ### 
'#################################################################### 

Dim CharHexSet, intStringLen, strTemp, strRAW, I, intKey, intOffSet 
Randomize Timer 

intKey = Round((RND * 1000000) + 1000000) '##### Key Bitsize 
intOffSet = Round((RND * 1000000) + 1000000) '##### KeyOffSet Bitsize 

If IsNull(strString) = False Then 
strRAW = strString 
intStringLen = Len(strRAW) 

For i = 0 to intStringLen - 1 
strTemp = Left(strRAW, 1) 
strRAW = Right(strRAW, Len(strRAW) - 1) 
CharHexSet = CharHexSet & Hex(Asc(strTemp) * intKey)& Hex(intKey) 
Next 

EncryptString = CharHexSet & "|" & Hex(intOffSet + intKey) & "|" & Hex(intOffSet) 
Else 
EncryptString = "" 
End If 
End Function 



Private Function DeCryptString(strCryptString) 
'#################################################################### 
'### Crypt Function ? 2001 by Slavic Kozyuk grindkore@yahoo.com ### 
'### Arguments: Encrypted HEX stringt ### 
'### Output: Decrypted ASCII string ### 
'####################################################################