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

davs davs 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
'功能:对口令进行加密
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
...全文

相关推荐

评论 13
收藏 已收藏
分享
返回顶部
davs
ASP 28,401 成员 356,940 内容