急求一份易语言与ASP通用的加解密算法啊！_易语言吧

06月02日漏签0天

易语言吧关注：266,747贴子：1,666,368

7回复贴，共1页

<返回易语言吧

急求一份易语言与ASP通用的加解密算法啊！

只看楼主收藏回复

搜索了两天都没找到正在可以通用的

大家有的麻烦给一份啊！万分感谢！

AES、RC4什么的都可以，要有密匙的加解密方法！只要可以加密数字、英文就行，加密后的密文不要带有符号，最好加密后也只有数字、英文。
有的发我邮箱517703519@qq.com 非常感谢！

送TA礼物

1楼2013-11-04 18:48回复

2楼

IP属地:美国

来自Android客户端2楼2013-11-04 18:49

有的发一份谢谢啦

3楼2013-11-04 18:49

度娘抽了。- - 发不了

IP属地:广东

5楼2014-02-02 10:55

function RC4(data,key)
Dim s(256),k(256),outstr,Acii,j,tst,xre1,xre2,temp,x,t,y,qwe,zxc
for i = 1 To 256
s(i) = i - 1
Next
j = 1
for i = 1 To 256
dex = dex + 1
if j > len(key) Then
j = 1
End if
Acii = Asc(Mid(key,j,1))
if Acii < 0 Then
tst = Hex(Acii)
xre1 = Mid(tst,1,2)
xre2 = Mid(tst,3,2)
k(i) = Int("&H" & xre1)
k(i + 1) = Int("&H" & xre2)
i = i +1
else
k(i) = Acii
End if

IP属地:广东

6楼2014-02-02 10:58

j = j + 1
Next
j = 0
for i = 1 To 256
j = (j + s(i) + k(i)) Mod 256 + 1
temp = s(i)
s(i) = s(j)
s(j) = temp
Next
j = 0
for i = 1 To len(data)
x = (x + 1) Mod 256 + 1
j = (j + s(x)) Mod 256 + 1
temp = s(x)
s(x) = s(j)
s(j) = temp
t = (s(x) + s(j) Mod 256) Mod 256 + 1
y = s(t)
Acii = Asc(Mid(data,i,1))
if Acii < 0 Then
tst = Hex(Acii)
qwe = qwe + 1
if qwe >= 2 Then
zxc = Int("&H" & Mid(tst,3,2))
qwe = 0
else
zxc = Int("&H" & Mid(tst,1,2))
i = i -1
End if
else
zxc = Acii
End if
outstr = outstr & Bitsor(zxc,y)
Next
RC4 = outstr
End function
//---------------------位异或->到十六进制

IP属地:广东

7楼2014-02-02 10:59