UC知道求一段加密vb代码的解密程序
来源：百度知道 编辑：UC知道 时间：2024/06/28 19:49:00
之前问过一次，但是没有好的答复
真正加密的是后面的mistake函数！
这是加密后的密文
123456
Nqo(&FZV|ixr
1234567890
ZV=?d@D)|i3kBo(l/e>
<% 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)
真正加密的是后面的mistake函数！
这是加密后的密文
123456
Nqo(&FZV|ixr
1234567890
ZV=?d@D)|i3kBo(l/e>
<% 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)
看不懂,谁可以给我一些API的教程呀,最好有解释用法的
加密，解密的代码段这不是都有了吗？
直接把秘文代入运行代码段，就行了呀，不知道你想要什么
很简单的编程
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
光是这一段 就注定这个解密相当困难 这种有损变换 还原起来相当费力..
解密代码还在还原中..
看不懂,你可以在网上搜搜相关资料呀,