1，这是段解密数字字符串的函数，请高手逆向写下数字字符串的对应加密函数，学习使用，本人愚昧，只能看懂，但不会写。
VBScript code:
Public Function DeCode(x)
x=replace(x,"%","")
For i=1 To len(x)
If asc(mid(x,i,1))>=72 Then
x=replace(x,mid(x,i,1),"0")
End If
Next
For i=1 To len(x) Step 4
decode=decode& chr(int("&H" & mid(x,i,4)))
Next
End Function
要是觉得简单，我在贴上一段难的，考考大家。下面是加密的函数，那位高手能写出对应解密的。
VBScript code:
Function Encode(strPass)
Dim i, theStr, strTmp
For i = 1 To Len(strPass)
strTmp = Asc(Mid(strPass, i, 1))
theStr = theStr & Abs(strTmp)
Next
strPass = theStr
theStr = ""
Do While Len(strPass) > 16
strPass = JoinCutStr(strPass)
Loop
For i = 1 To Len(strPass)
strTmp = CInt(Mid(strPass, i, 1))
strTmp = IIf(strTmp > 6, Chr(strTmp + 60), strTmp)
theStr = theStr & strTmp
Next
Encode = theStr
End Function
JoinCutStr是什么?
我原本是学jsp的可找了一个ASP的公司！我要重新学习！ 学习ASP！ 希望大家推荐一本好书给我谢谢
<ASP3.0高级编程> 网上有电子版的
发现网上asp信息时最多的 比其他的都多好多
yun
找本有应用事例的A ......
