一个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个好像就出问题了！不知道是不是ASP和VB不能这一转。

这里是解密函数。大家可以自己测试一下

Function DeCrypt(c As String)