一个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)
相关问答：
<%@language="vbscript"%>
<%option explicit%>
<html>
<head> <title>xxx </title> </head>
<script language=vbs>
'注意变量 ......
我们有一个网站模板，www.c111.com.cn,希望修改一些地方：
1）点击左侧“服务品牌”的其中一个小分类，如“足球”，界面的右侧就出现如www.c111.com.cn/1.jpg，点击1.jpg上方的其中一个品牌logo，下面就出现相关的� ......
我原本是学jsp的可找了一个ASP的公司！我要重新学习！ 学习ASP！ 希望大家推荐一本好书给我谢谢
<ASP3.0高级编程> 网上有电子版的
发现网上asp信息时最多的 比其他的都多好多
yun
找本有应用事例的A ......
我帮学校做了一个站．
在校园网的情况下，能够登陆成功，后台帐号都能通过，进入后台
但是在外网ＡＤ的情况下，能够登陆后台的页面，页面是ＡＳＰ文件．
但是输入帐号和密码的时候，网页运行很久都 ......
现在这社会基本上不需要ASP程序员了,一面试,都要.NET或者PHP,JSP的,哎,,,,ASP这么不值钱吗,学习ASP是个错误吗
没啥错误 一句话：技多不压身
靠ASP都混不到饭吃了 晕 晕
我的意思是多学一门技术没啥错误 ......
