2.8w+
社区成员
给出一个口令加密函数,谁能帮忙一下,编一个反加密的函数!望各位进来发表意见!!
'功能：对口令进行加密
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
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
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
wzhnet 2004-08-12
你的 函数 没法逆过来 除了 穷举 算出 seed 然后 可以解密
或者 你干脆 把 seed设成 常量 然后 自己写函数用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
加密解密都用我的这个吧
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），在校验密码时，加密后去校验就可以了。 这样对于存储在数据库中的密码是安全的。 一般无需解密口令。
原因： 对口令加密一般出于安全考虑都使用不可逆加密（如md5），在校验密码时，加密后去校验就可以了。 这样对于存储在数据库中的密码是安全的。 一般无需解密口令。
- 打赏
- 举报
cdsun 2004-08-10
哈哈
没弄过阿
没弄过阿
- 打赏
- 举报
davs 2004-08-10
当然不是自己做的啦,是自己做的话,还可以想想,反编一下,我看了头痛,不知道怎么去编写他了!!WWW
- 打赏
- 举报
bananasmiling 2004-08-10
我晕..你这个加密程序从哪里来的..不是你做的吗?
自己也可以顺差它的意思..自己编啊..
望楼主自食其力..那获得的回报一定不小.
自己也可以顺差它的意思..自己编啊..
望楼主自食其力..那获得的回报一定不小.
- 打赏
- 举报
未公开的SQL Server口令的加密函数 如果对MSSQL的用户信息有兴趣的，可能会发现master.dbo.sysxlogins里面存放着用户的口令，可是呢，password字段如果不是null就是一堆看不懂的binary，这个口令是怎么加密的呢？ 其实只要仔细看看master.dbo.sp_...
论文研究-基于hash函数和公钥算法的一次性口令方案.pdf 在分析现有基于挑战／应答一次性口令方案不足的基础上，设计了一种新的基于hash函数和公开密钥加密算法的一次性口令身份认证方案。该方案不仅能够提供通信双方的相互认证、避免各种攻击，而且克服了传统挑战/应答...
基于生物特征识别和一次性口令的电子商务安全交易方案 针对电子商务中信用卡交易的安全性问题，提出一种基于生物特征识别和一次性口令的电子商务安全交易方案。根据用户交易的敏感度，分别采用2种方案。第一种方案中，采用安全套接层（SSL）协议和指纹特征相结合。第二种...
mysql加密函数 MySQL的加密和解密函数个人分为两类： 1.只支持正向加密不支持反向解密的函数： MD5()、SHA1()|SHA()、SHA2() 针对此类加密的算法MySQL不提供解密， 但是我们可以通过网站 http://www.cmd5.com/ 反向解密。 改网站...
！！！！！！php函数crypt()的加密用法总结 ！！！！！！ 在php函数中，有不少加密的函数，其中一个可以实现数据加密功能的函数叫crypt()函数。crypt() 函数使用一种单向算法，没有相应的解密函数。它返回使用 DES、Blowfish 或 MD5 算法加密的字符串。从表面上看，crypt()...
论文研究-云存储中加密数据的自适应重复删除方法.pdf 利用完美散列函数检查数据的流行度，使用口令认证密钥交换协议与同态加密安全传递数据的加密密钥，在保证用户数据隐私的前提下进行安全的重复数据删除。与现有其他方案相比，安全性与实用性更强。实验和仿真证明了...
Python基于hashlib模块的文件MD5一致性加密验证示例 本文实例讲述了Python基于hashlib模块的...#简单的测试一个字符串的MD5值 def GetStrMd5(src): m0=hashlib.md5() m0.update(src) print m0.hexdigest() pass #大文件的MD5值 def GetFileMd5(filename): if not os
PHP代码安全【PHP弱口令、加密函数、绕过函数】/CTF代码审计题 注：结合现在所学，把以前的一些很散的博客给汇总起来方便利用【删了黑历史，哈哈哈】 1、判等类型 1.1、”==”与”===”比较漏洞/switch 如果你认为“==”和"==="最大的区别在于...
Postgresql数据加密函数介绍 业务需求需要对一些敏感数据进行加密处理，说到加密，分为非对称加密和对称加密，稍微解释一下这两个名词1.对称加密方法，指加密和解密使用同一把密钥的方法。优势是加密速度快，缺陷是密钥只有一把，安全性较低。2....
PKCS#5研究——第一部分 基于口令的密钥导出函数 PKCS5 v2.1主要讲述了三个方面的内容： 基于口令的密钥导出函数PBKDF。 PBKDF1：仅兼容PKCS5 v1.5用，使用HASH（MD2、MD5、SHA-1），导出密钥≤ hLen。 PBKDF2：推荐使用，使用HMAC，导出密钥可很长。方案同...
基于hash函数和公钥算法的一次性口令方案* (2009年) 在分析现有基于挑战/应答一次性口令方案不足的基础上，设计了一种新的基于hash函数和公开密钥加密算法的一次性口令身份认证方案。该方案不仅能够提供通信双方的相互认证、避免各种攻击，而且克服了传统挑战/应答方案...
python破解zip加密文件的方法 首先我们先来桌面创建一个文件 我们创建了一个名为q的txt文件然后我们将它压缩，压缩的时候记得设置上密码 我这边将密码设置为123456, 接下来我们打开我们的编写工具，开始写代码，我这里用的是pycharm,推荐...
用python实现一个简单的加密认证通信系统 用python实现一个简单的加密认证通信系统 ** 要求：设计实现一个通信系统，双方可以通过消息通信，用户可选择一种加密算法和认证算法，对消息进行加密通信和完整性验证。 实现方案： 客户端与服务器端建立连接，发送...
PKCS#5研究——第二部分 基于口令的加密方案 有两个基于口令的加密PBES方案，如下表。 表5.1 基于口令的加密方案PBES1和PBES2对比 （hLen为HASH函数的输出长度） 项目 PBES1 PBES2 使用的PBKDF PBKDF1 ...
利用MSSQL sp自制未公开的加密函数 如果对MSSQL的用户信息有兴趣的，可能会发现master.dbo.sysxlogins里面存放着用户的口令，可是password字段如果不是null就是一堆看不懂的binary，这个口令是怎么加密的呢？其实只要仔细看看master.dbo.sp_addlogin就...
