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个好像就出问题了！不知道是不是ASP和VB不能这一转。
这里是解密函数。大家可以自己测试一下
Function DeCrypt(c As String)
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
