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

davs 2004-08-10 05:31:33
'功能:对口令进行加密
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
...全文
197 13 点赞 打赏 收藏 举报
写回复
13 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wzhnet 2004-08-12
你的 函数 没法逆过来 除了 穷举 算出 seed 然后 可以解密

或者 你干脆 把 seed设成 常量 然后 自己写函数用seed 解
  • 打赏
  • 举报
回复
davs 2004-08-12
呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜呜
  • 打赏
  • 举报
回复
davs 2004-08-12
怎么没人理我呢
  • 打赏
  • 举报
回复
davs 2004-08-12
我这里是原有的系统上数据,不会再把把些数据再编译吧,现有的系统上都是用这个函数加密的,改不了啦,
  • 打赏
  • 举报
回复
lordwudee 2004-08-10
请问楼上Set objC2G = server.CreateObject("C2G.XOR.1")是什么意思,是你自己做的组件么?我以前没见过。如果是的话,那还需要到服务器上注册的。你倒是可你把你的组件拿出来大家下载...
  • 打赏
  • 举报
回复
sunjiujiu 2004-08-10
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 2004-08-10
个人观点:看了最后几句我觉得这个是不可逆的,原因是它把两种不同的字符替换成了一种,这样说什么也不能还原回去的。所以我感觉这是不可逆的。
  • 打赏
  • 举报
回复
lonkil 2004-08-10
并不是每一种加密都可以写出解的。
  • 打赏
  • 举报
回复
davs 2004-08-10
这样的做法有其原因,本人想在原来的数据库中把用户的信息转到新的表中,在这过程中会出错,因其有乱符或在SQL语句中会出错,故才有此想法,先还原再加密!
  • 打赏
  • 举报
回复
celerylhl 2004-08-10
不同意楼上的做法。

原因: 对口令加密一般出于安全考虑都使用不可逆加密(如md5),在校验密码时,加密后去校验就可以了。 这样对于存储在数据库中的密码是安全的。 一般无需解密口令。
  • 打赏
  • 举报
回复
cdsun 2004-08-10
哈哈
没弄过阿
  • 打赏
  • 举报
回复
davs 2004-08-10
当然不是自己做的啦,是自己做的话,还可以想想,反编一下,我看了头痛,不知道怎么去编写他了!!WWW
  • 打赏
  • 举报
回复
bananasmiling 2004-08-10
我晕..你这个加密程序从哪里来的..不是你做的吗?
自己也可以顺差它的意思..自己编啊..
望楼主自食其力..那获得的回报一定不小.
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-10 05:31
社区公告
暂无公告