我现在调用的MD5加密后是32位的,怎样让它是16位的呢?

Posted 2023-03-22

我现在调用的MD5加密后是32位的,怎样让它是16位的呢?

PassWord=md5(request("password"),16)

我这样直接改最后还是32位的?高手请教!
问题解决了,

把此问题解决方法留下来,方便以后用到此方法的人
直接修改MD5文件,我在以下作标注

Next

'MD5 = UCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) '此语句是32位的,如要16位把此句注视掉
'以下是16位的应用
if stype=32 then
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
else
MD5=LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D
end if

End Function

参考技术A 可以.16位变32位不知道，32位变16位倒是可以。

所谓的16位只是32位中取出了其中的一半而已，所以，直接就可以对二者进行匹配。

function ComparePassword(str1, str2)
'这里自己写吧.......一点都不难
end function

用此函数来代替传统的相等比较匹配即可。