ASP
求一字符串解密.(加密程序已经给出)
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区加密程序:
function encrypt(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(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
encrypt= dist
end function
得到字符串为:Lu5b-2o a3kKw&F8U
求原串,请大家帮忙了
function encrypt(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(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
dim dist
dist=""
for i = 1 to len(texts)
if mid(texts,i,1)<>"'" then
dist=dist+mid(texts,i,1)
end if
next
encrypt= dist
end function
得到字符串为:Lu5b-2o a3kKw&F8U
求原串,请大家帮忙了
...全文
相关推荐
Java对字符串进行加密解密
主要为大家详细介绍了Java字符串加密解密，对用户输入的每个字符的值进行加密解密，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
c++字符串加密解密
c++的des 加密解密代码，vs2017编译通过，可打开debug目录下的exe，查看效果，适合参考与学习
MFC 加密解密字符串
对MFC的CString 字符串进行加密，并可逆，对加密字符串解密，不用多说了吧，你懂的。
java字符串-用户名和密码-加密解密
java 用户名 密码 加密解密 可以用来邮箱加密。密码加密。 试过了。 非常好用。还可以自定义加密类。 可以动态化，多元化
字符串的加密解密
VS2012平台做的通用型字符串的加密解密程序，可以非常方便的应用到各种代码中。功能函数已经写好。
