一种增强的md5加密算法-阿里云开发者社区

开发者社区> 安全> 正文
登录阅读全文

一种增强的md5加密算法

简介:
一种增强的md5加密算法
陈小兵
<!--#include file="md5.asp"-->
<%
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>"
 %>

 本文转自 simeon2005 51CTO博客,原文链接:http://blog.51cto.com/simeon/80312

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享:
+ 订阅

云安全开发者的大本营

其他文章