有加密解密的高手吗？帮我把一ASP函数转为PHP函数！

gowto

1. 
   
2. <%
   
3. mainKey = "u67(%#@d^J(>;HTtdi"
   
4. 'keyGeN 加密长度暂时为 8
   
5. Function XOR_ENS(Source, Key) '加密函数
   
6.    Dim i, iKey, iKeyLen
   
7.    Dim SSA, SSB, SSS
   
8.    Dim XOR_STR_A
   
9.    Select Case Len(Source)
   
10.       Case 1
    
11.           Source = Source & Chr(32) & Chr(32) & Chr(32) & Chr(32)
    
12.       Case 2
    
13.           Source = Source & Chr(32) & Chr(32) & Chr(32)
    
14.       Case 3
    
15.           Source = Source & Chr(32) & Chr(32)
    
16.       Case 4
    
17.           Source = Source & Chr(32)
    
18.     End Select
    
19.     XOR_STR_A = ""
    
20.     iKeyLen = Len(Key)
    
21.     iKey = 1
    
22.     'Source = StrConv(Source, vbFromUnicode)
    
23.     For i = 1 To LenB(Source)
    
24.         SSA = CInt(AscB(MidB(Source, i, 1)))
    
25.         SSB = CInt(Asc(Mid(Key, iKey, 1)))
    
26.         iKey = iKey + 1
    
27.         If iKey >; iKeyLen Then
    
28.             iKey = 1
    
29.         End If
    
30.         SSS = SSA Xor SSB
    
31.         XOR_STR_A = XOR_STR_A & Right("0" & Hex(SSS), 2)
    
32.     Next
    
33.     XOR_ENS = XOR_STR_A
    
34.     XOR_ENS = Replace(XOR_ENS, "1", "*")
    
35.     XOR_ENS = Replace(XOR_ENS, "9", "1")
    
36.     XOR_ENS = Replace(XOR_ENS, "*", "9")
    
37.     XOR_ENS = Replace(XOR_ENS, "8", "#")
    
38.     XOR_ENS = Replace(XOR_ENS, "2", "8")
    
39.     XOR_ENS = Replace(XOR_ENS, "#", "2")
    
40.     XOR_ENS = Replace(XOR_ENS, "4", "#")
    
41.     XOR_ENS = Replace(XOR_ENS, "7", "4")
    
42.     XOR_ENS = Replace(XOR_ENS, "#", "7")
    
43.     XOR_ENS = Replace(XOR_ENS, "3", "#")
    
44.     XOR_ENS = Replace(XOR_ENS, "6", "3")
    
45.     XOR_ENS = Replace(XOR_ENS, "#", "6")
    
46.     XOR_ENS = Replace(XOR_ENS, "D", "#")
    
47.     XOR_ENS = Replace(XOR_ENS, "F", "D")
    
48.     XOR_ENS = Replace(XOR_ENS, "#", "F")
    
49.     XOR_ENS = Replace(XOR_ENS, "A", "#")
    
50.     XOR_ENS = Replace(XOR_ENS, "B", "A")
    
51.     XOR_ENS = Replace(XOR_ENS, "#", "B")
    
52. End Function
    
53. Function XOR_DES(Source, Key)  ' 解密函数
    
54.     Dim i, iKey, iKeyLen
    
55.     Dim SSA, SSB, SSS
    
56.     Dim XOR_STR_A
    
57.     XOR_STR_A = ""
    
58.     iKeyLen = Len(Key)
    
59.     iKey = 1
    
60.     XOR_STR_A = ""
    
61.     Source = Replace(Source, "1", "*")
    
62.     Source = Replace(Source, "9", "1")
    
63.     Source = Replace(Source, "*", "9")
    
64.     Source = Replace(Source, "8", "#")
    
65.     Source = Replace(Source, "2", "8")
    
66.     Source = Replace(Source, "#", "2")
    
67.     Source = Replace(Source, "4", "#")
    
68.     Source = Replace(Source, "7", "4")
    
69.     Source = Replace(Source, "#", "7")
    
70.     Source = Replace(Source, "3", "#")
    
71.     Source = Replace(Source, "6", "3")
    
72.     Source = Replace(Source, "#", "6")
    
73.     Source = Replace(Source, "D", "#")
    
74.     Source = Replace(Source, "F", "D")
    
75.     Source = Replace(Source, "#", "F")
    
76.     Source = Replace(Source, "A", "#")
    
77.     Source = Replace(Source, "B", "A")
    
78.     Source = Replace(Source, "#", "B")
    
79.    
    
80.     For i = 1 To Len(Source) Step 2
    
81.         SSA = CInt("&H" & (Mid(Source, i, 2)))
    
82.         SSB = (Asc(Mid(Key, iKey, 1)))
    
83.         iKey = iKey + 1
    
84.         If iKey >; iKeyLen Then
    
85.             iKey = 1
    
86.         End If
    
87.         SSS = SSA Xor SSB
    
88.         XOR_STR_A = XOR_STR_A & ChrB(SSS)
    
89.     Next
    
90.   '  XOR_DES = StrConv(XOR_STR_A, vbUnicode)
    
91.    ' XOR_DES = replace(XOR_STR_A,vbcrlf,"",lenB(XOR_STR_A)-4)
    
92.     xor_des=trim(XOR_STR_A)
    
93.     xor_des=cstr(xor_des)
    
94. End Function
    
95.                                         '产生密钥算法
    
96. Function KeyGeN(iKeyLength)
    
97.     Dim k, iCount, strMyKey
    
98.     lowerbound = 35
    
99.     upperbound = 96
    
100.     Randomize
     
101.     For i = 1 To iKeyLength
     
102.         k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
     
103.         strMyKey = strMyKey & Chr(k) & ""
     
104.     Next
     
105.     KeyGeN = strMyKey
     
106. End Function
     
107. %>;

复制代码

我想把这几个ASP函数转为PHP的加密解密，有没有办法？

zyme

md5，取一部分...

gowto

老大，我是要把ASP的这几个转成PHP的！我这个可以加密整篇文章，解密函数还可以还原整篇文章，MD5是搞不了的！

geel

把每个语句换成相应的php不行吗。

gowto

就是不会转才来这儿贴的嘛，呵呵

gowto

有一个软件叫 asp2php  你可以试一下

试了，转过来的不能用！

gowto

顶一下！！