一种增强的md5加密算法

2008-06-04 16:26:48

一种增强的md5加密算法

陈小兵

<%
Function GetRandomizeCode(digit)
Randomize
Dim m_strRandArray,m_intRandlen,m_strRandomize,i
m_strRandArray = Array(0,1,2,3,4,5,6,7,8,9,"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
m_intRandlen = digit ''定义随机码的长度
for i = 1 to m_intRandlen
m_strRandomize = m_strRandomize & m_strRandArray(Int((21*Rnd)))
next
GetRandomizeCode = lcase(m_strRandomize)
End Function

Function encrypt_password(beginnumber,number,password,md5_digit)
A=left(md5(password),beginnumber-1)
B=Right(md5(password),md5_digit-(beginnumber+number-1))
C=GetRandomizeCode(number)
D=A&C&B
encrypt_password=d
response.write "生成的随机数为："&C&"<br>"
End Function

response.write "修改后的密码为encrypt_password(3,6,12345678,16)："&encrypt_password(3,6,12345678,16)&"<br>"
response.write "原密码为："&md5(12345678)&"<br>"
%>

本文出自 “simeon的技术专栏” 博客，谢绝转载！

上一篇书上有路勤为径，学海无涯苦做舟　　下一篇浅谈MD5和SHA-1被破解和应用改进策略

类别：技术研究 ┆ 技术圈() ┆ 阅读() ┆ 评论() ┆推送到技术圈 ┆返回首页

相关文章

文章评论

昵称：
验证码：		点击图片可刷新验证码　　博客过2级，无需填写验证码
内容：