求一字符串解密.(加密程序已经给出)

[karykwan]

加密程序:
function encrypt(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
encrypt= dist
end function

得到字符串为:Lu5b-2o a3kKw&F8U
求原串,请大家帮忙了

[ljydomybest]

我站岗。。。

[dj3141592653]

你用不着解密,将得到字符串Lu5b-2o a3kKw&F8U 换成一个你知道原字符串的密码.比如,123456的加密码是Nqo(&FZV|ixr .你把Lu5b-2o a3kKw&F8U 换成 Nqo(&FZV|ixr不就可以了。

[wuyi8808]

seed = length
Randomize(length)

-----------------------

除非知道Randomize()的算法，否则无法计算原串。

[hunshihaichong]

up

[wanghui0380]

seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))


解啥解啊，这个东西没解 是用的随机函数加的密，这是一个单向算法

[karykwan]

这是个可逆的.网上有过方法.但没有公布

[什么都不能]

搂主你是不是看错了
<% function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,1))+i)
next
encrypt = texts
end function
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,1))-i)
next
decrypt=texts
end function
function mistake(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
mistake = dist
end function
%>
我上面的代码中encrypt和decrypt是互逆算法，第三个mistake 是多对一的算法，123456和223456的结果一样
引自 http://zhidao.baidu.com/question/22202431.html

[zihui0625]

代码具体没看 这种密码都能解吗,不可能吧 .你就是弄流量分析都不可能
你干脆去网上弄个RSA 或者DES 算法得了 即安全又有效果

不然的话你就把每次的随即数 弄出来 告诉你对家
还有就是 让你对家按照你的确定变量 用个FOR循环把你的随即数算出来 得不尝市啊,也没什么意义
个人见解 不专业

[xfxlc521]

顶。