说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

编辑:说三道四文库 发布时间:2018-06-22 11:10
HTML文档下载 WORD文档下载 PDF文档下载
'功能:对口令进行加密
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 
我晕..你这个加密程序从哪里来的..不是你做的吗?
自己也可以顺差它的意思..自己编啊..
望楼主自食其力..那获得的回报一定不小.
当然不是自己做的啦,是自己做的话,还可以想想,反编一下,我看了头痛,不知道怎么去编写他了!!WWW
哈哈
没弄过阿
不同意楼上的做法。 

  原因: 对口令加密一般出于安全考虑都使用不可逆加密(如md5),在校验密码时,加密后去校验就可以了。  这样对于存储在数据库中的密码是安全的。 一般无需解密口令。
这样的做法有其原因,本人想在原来的数据库中把用户的信息转到新的表中,在这过程中会出错,因其有乱符或在SQL语句中会出错,故才有此想法,先还原再加密!
并不是每一种加密都可以写出解的。
个人观点:看了最后几句我觉得这个是不可逆的,原因是它把两种不同的字符替换成了一种,这样说什么也不能还原回去的。所以我感觉这是不可逆的。
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 解
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘