求助！！！挺难，不能想当然。。

feist1

求助！！！挺难，不能想当然。。求助！！！挺难，不能想当然。。求助！！！挺难，不能想当然。。

[ 本帖最后由 feist1 于 2008-12-25 19:47 编辑 ]

dolphins

将As String、As Long、As Integer都删掉
差不多就可以了

dolphins

晕，有什么难的，你有IIS么？没IIS当然难了
打开浏览器看调试信息，错什么就改什么

1. 
   
2. <%
   
3. response.write cipher("aaaaaaaaaaaaa")'加密测试
   
4. response.write "<br>"
   
5. response.write decipher("NbE4>hr)y>*u5")'解密测试
   
6. Function cipher(stext)    '密码加密程序
   
7.     Const min_asc = 32
   
8.     Const max_asc = 126
   
9.     Dim num_asc
   
10.     num_asc = max_asc - min_asc + 1
    
11.     Dim offset
    
12.     Dim strlen
    
13.     Dim i
    
14.     Dim ch
    
15.     Dim ptext
    
16.     offset = 123
    
17.     Rnd (-1)
    
18.     Randomize (offset)
    
19.     strlen = Len(stext)
    
20.     For i = 1 To strlen
    
21.        ch = Asc(Mid(stext, i, 1))
    
22.        If ch >= min_asc And ch <= max_asc Then
    
23.            ch = ch - min_asc
    
24.            offset = Int((num_asc + 1) * Rnd())
    
25.            ch = ((ch + offset) Mod num_asc)
    
26.            ch = ch + min_asc
    
27.            ptext = ptext & Chr(ch)
    
28.        End If
    
29.     Next
    
30.     cipher = ptext
    
31. End Function
    
32. Function decipher(stext)      '密码解密程序
    
33.     Const min_asc = 32  '最小ASCII码
    
34.     Const max_asc = 126 '最大ASCII码  字符
    
35.     Dim num_asc
    
36.     num_asc = max_asc - min_asc + 1
    
37.     Dim offset
    
38.     Dim strlen
    
39.     Dim i
    
40.     Dim ch
    
41.     Dim ptext
    
42.     offset = 123
    
43.     Rnd (-1)
    
44.     Randomize (offset)
    
45.     strlen = Len(stext)
    
46.     For i = 1 To strlen
    
47.        ch = Asc(Mid(stext, i, 1))  '取字母转变成ASCII码
    
48.        If ch >= min_asc And ch <= max_asc Then
    
49.            ch = ch - min_asc
    
50.            offset = Int((num_asc + 1) * Rnd())
    
51.            ch = ((ch - offset) Mod num_asc)
    
52.            If ch < 0 Then
    
53.                ch = ch + num_asc
    
54.            End If
    
55.            ch = ch + min_asc
    
56.            ptext = ptext & Chr(ch)
    
57.        End If
    
58.     Next
    
59.     decipher = ptext
    
60. End Function
    
61. %>
    

复制代码