Ò»¸öASP¼ÓÃܺ¯ÊýµÄÆæ¹ÖÎÊÌ⣡¡¾100·Ö¡¿

Function EnCrypt(m) 
Dim str
Dim c
Dim strChar,iKeyChar,iStringChar,I 
str="17£¬43£¬43£¬23"
A_Key=split(str,",")
k=0 
for I = 1 to Len(m) 
iKeyChar =Cint(A_Key(k)) 
iStringChar = Asc(mid(m,I,1))
iCryptChar = iKeyChar Xor iStringChar
If k <3 Then 
k=k+1 
Else 
k=0 
End If 
c = c & Chr(iCryptChar) 
next 
EnCrypt = c 
End Function 

Õâ¸ö¼ÓÃܺ¯ÊýÎÒ·ÅÔÚASPÖеõ½µÄ¼ÓÃÜ´®ºÍÎҷŵ½VBÖеõ½µÄ¼ÓÃÜ´®²»Ò»Ñù£¿²»ÖªµÀÊÇʲôÎÊÌâ

Õâ¸öÊÇÎÒÔÚvbÖÐÓõÄ
Function EnCrypt(m As String) As String
Dim str
Dim c
Dim strChar, iKeyChar, iStringChar, I
str = "17," & Month(Now) & "," & Day(Now) & "," & Hour(Now)
A_Key = Split(str, ",")
k = 0
For I = 1 To Len(m)
iKeyChar = CInt(A_Key(k))
iStringChar = Asc(Mid(m, I, 1))
iCryptChar = iKeyChar Xor iStringChar
If k < 3 Then
k = k + 1
Else
k = 0
End If
c = c & Chr(iCryptChar)
Next
EnCrypt = c
End Function

´ó¼Ò¿ÉÒÔÊÔÊÔ¡£×Ö·û´®³¬¹ý300¸öºÃÏñ¾Í³öÎÊÌâÁË£¡²»ÖªµÀÊDz»ÊÇASPºÍVB²»ÄÜÕâһת¡£

ÕâÀïÊǽâÃܺ¯Êý¡£´ó¼Ò¿ÉÒÔ×Ô¼º²âÊÔÒ»ÏÂ

Function DeCrypt(c As String)