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)
我原本是学jsp的可找了一个ASP的公司！我要重新学习！ 学习ASP！ 希望大家推荐一本好书给我谢谢
<ASP3.0高级编程> 网上有电子版的
发现网上asp信息时最多的 比其他的都多好多
yun
找本有应用事例的A ......
