'功能：对口令进行加密
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(88rnd(-asc(mid(preString,i,1))-seedasc(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
---------------------------------------------------------------
我晕..你这个加密程序从哪里来的..不是你做的吗?
自己也可以顺差它的意思..自己编啊..
望楼主自食其力..那获得的回报一定不小.
---------------------------------------------------------------
哈哈
没弄过阿
---------------------------------------------------------------
不同意楼上的做法。
原因： 对口令加密一般出于安全考虑都使用不可逆加密（如md5），在校验密码时，加密后去校验就可以了。 这样对于存储在数据库中的密码是安全的。 一般无需解密口令。
---------------------------------------------------------------
并不是每一种加密都可以写出解的。
---------------------------------------------------------------
个人观点：看了最后几句我觉得这个是不可逆的，原因是它把两种不同的字符替换成了一种，这样说什么也不能还原回去的。所以我感觉这是不可逆的。
---------------------------------------------------------------
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
加密解密都用我的这个吧
---------------------------------------------------------------
请问楼上Set objC2G = server.CreateObject("C2G.XOR.1")是什么意思，是你自己做的组件么？我以前没见过。如果是的话，那还需要到服务器上注册的。你倒是可你把你的组件拿出来大家下载...
---------------------------------------------------------------
你的 函数 没法逆过来 除了 穷举 算出 seed 然后 可以解密
或者 你干脆 把 seed设成 常量 然后 自己写函数用seed 解