给出一个口令加密函数,谁能帮忙一下,编一个反加密的函数!望各位进来发表意见!!

[davs]

'功能：对口令进行加密
function encodepwd(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(88*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(88*rnd(-seed)+32))
next

texts = Replace(texts,"'","")
texts = Replace(texts,"""","")

encodepwd = texts
end function

[bananasmiling]

我晕..你这个加密程序从哪里来的..不是你做的吗?
自己也可以顺差它的意思..自己编啊..
望楼主自食其力..那获得的回报一定不小.

[davs]

当然不是自己做的啦,是自己做的话,还可以想想,反编一下,我看了头痛,不知道怎么去编写他了!!WWW

[cdsun]

哈哈
没弄过阿

[celerylhl]

不同意楼上的做法。

原因： 对口令加密一般出于安全考虑都使用不可逆加密（如md5），在校验密码时，加密后去校验就可以了。 这样对于存储在数据库中的密码是安全的。 一般无需解密口令。

[davs]

这样的做法有其原因,本人想在原来的数据库中把用户的信息转到新的表中,在这过程中会出错,因其有乱符或在SQL语句中会出错,故才有此想法,先还原再加密!

[lonkil]

并不是每一种加密都可以写出解的。

[lordwudee]

个人观点：看了最后几句我觉得这个是不可逆的，原因是它把两种不同的字符替换成了一种，这样说什么也不能还原回去的。所以我感觉这是不可逆的。

[sunjiujiu]

function Encrypt(sStr,sFlag)
on error resume next
Dim objC2G,strPwd
if sStr = "" or isnull(sStr) then
Encrypt = ""
else
if sFlag then '动态Key加密
strPwd = FormatDate(date,"yyyymmdd","-") & Session("uYGBH")
else
strPwd = "B@K%LK" '默认Key
end if
Set objC2G = server.CreateObject("C2G.XOR.1")
Encrypt=objC2G.EncryptStringHex(sStr,strPwd)
Set objC2G = Nothing
end if
end function

function Decrypt(sStr,sFlag)
on error resume next
Dim objC2G,strPwd
if sStr = "" or isnull(sStr) then
Decrypt = ""
else
if sFlag then '动态Key加密
strPwd = FormatDate(date,"yyyymmdd","-") & Session("uYGBH")
else
strPwd = "B@K%LK" '默认Key
end if
Set objC2G = server.CreateObject("C2G.XOR.1")
Decrypt=objC2G.decryptStringHex(sStr,strPwd)
Set objC2G = Nothing
end if
end function

加密解密都用我的这个吧

[lordwudee]

请问楼上Set objC2G = server.CreateObject("C2G.XOR.1")是什么意思，是你自己做的组件么？我以前没见过。如果是的话，那还需要到服务器上注册的。你倒是可你把你的组件拿出来大家下载...

[davs]

我这里是原有的系统上数据,不会再把把些数据再编译吧,现有的系统上都是用这个函数加密的,改不了啦,

[davs]

怎么没人理我呢

[davs]

呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜

[wzhnet]

你的 函数 没法逆过来 除了 穷举 算出 seed 然后 可以解密

或者 你干脆 把 seed设成 常量 然后 自己写函数用seed 解