📄 md5不可逆加密算法的asp实现实例.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0046)http://www.aspsky.net/article/list.asp?id=2599 -->
<HTML><HEAD><TITLE>MD5不可逆加密算法的ASP实现实例|http://www.aspsky.net</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/style.css" rel=stylesheet>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff topMargin=2 marginheight="4">
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD class=p2 width=466><LINK
href="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/style.css" rel=stylesheet>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD height=54 width=181><IMG border=0 height=60
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/LOGO.gif"
width=181></TD>
<TD align=middle class=p2 height=70 width=492>
<DIV id=flash2 style="VISIBILITY: visible; Z-INDEX: -1"><A
href="http://www.ruixun.net/index.htm" target=_blank><IMG border=0
height=60 src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/ad1.gif"
width=468></A></DIV></TD>
<TD align=middle class=p2 style="LINE-HEIGHT: 150%" width=82><BR><A
href="http://www.aspsky.net/tell.asp">联系方法</A></TD></TR>
<TR>
<TD height=8 width=181></TD>
<TD class=p2 width=492></TD>
<TD class=p2 width=82></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD colSpan=3 height=22>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=738>
<TBODY>
<TR>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top01.gif
height=30 width=81><B><FONT color=#ffffff><IMG height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1><A class=lb
href="http://www.aspsky.net/">动网首页</A></FONT></B></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1></FONT><A class=lb
href="http://www.dvbbs.net/">动网论坛</A></B></FONT></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15 src="" width=1></FONT><A class=lb
href="http://www.aspsky.net/article/index.asp?classid=2">ASP技术</A></B></FONT></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1></FONT><A class=lb
href="http://www.aspsky.net/article/index.asp?classid=1">.NET专区</A></B></FONT></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1></FONT><A class=lb
href="http://www.aspsky.net/article/index.asp?classid=5">数据库</A></B></FONT></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1></FONT><A class=lb
href="http://www.aspsky.net/article/index.asp?classid=3">PHP技术</A></B></FONT></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1></FONT><A class=lb
href="http://www.aspsky.net/article/index.asp?classid=4">JAVA技术</A></B></FONT></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1></FONT><A class=lb
href="http://www.aspsky.net/download/index.asp">下载中心</A></B></FONT></TD>
<TD align=middle
background=MD5不可逆加密算法的ASP例http--www_aspsky_net.files/top02.gif
width=82><FONT color=#719bc1><B><FONT color=#ffffff><IMG
height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/dstop.gif"
width=1></FONT><A class=lb
href="http://www.aspsky.net/itrade/index.asp">项目交易</A></B></FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR bgColor=#2b7eff>
<TD bgColor=#2b7eff width=64><IMG height=23 src="" width=5></TD>
<TD bgColor=#2b7eff width=343><FONT color=#0000ff><FONT
color=#3399ff><FONT color=#ccffff>
<SCRIPT language=JavaScript>
var today = new Date();
var strDate = (today.getFullYear() + "年" +
(today.getMonth() + 1) + "月" + today.getDate() + "日 ");
var n_day = today.getDay();
switch (n_day)
{
case 0:{
strDate = strDate + "星期日"
}break;
case 1:{
strDate = strDate + "星期一"
}break;
case 2:{
strDate = strDate + "星期二"
}break;
case 3:{
strDate = strDate + "星期三"
}break;
case 4:{
strDate = strDate + "星期四"
}break;
case 5:{
strDate = strDate + "星期五"
}break;
case 6:{
strDate = strDate + "星期六"
}break;
case 7:{
strDate = strDate + "星期日"
}break;
}
document.write(strDate);
</SCRIPT>
</FONT></FONT></FONT></TD>
<TD align=middle width=385><FONT color=#ccffff><IMG align=absMiddle
height=15 src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/home.gif"
width=15> </FONT><A href="http://www.aspsky.net/#"
onclick='this.style.behavior="url(#default#homepage)";this.setHomePage("http://www.aspsky.net")'
target=_self><FONT color=#ccffff>设为首页</FONT></A><FONT color=#ccffff>
<IMG align=absMiddle height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/favorite.gif"
width=15> </FONT><A
href="javascript:window.external.AddFavorite('http://www.aspsky.net','动网先锋（www.aspsky.net）')"
target=_self><FONT color=#ccffff>加入收藏</FONT></A><FONT color=#ccffff>
<IMG align=absMiddle height=15
src="MD5不可逆加密算法的ASP例http--www_aspsky_net.files/email.gif"
width=15><A href="http://www.dvbbs.net/" target=_top><FONT
color=#ccffff>会员中心</A></FONT></FONT></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR bgColor=#3366ff>
<TD height=2></TD></TR></TBODY></TABLE>
<CENTER></CENTER></TD>
<TD class=p2 width=102></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD height=1></TD></TR>
<TR bgColor=#ffcc00>
<TD align=right height=23 width=355>
<CENTER></CENTER>
<P align=center>中国动感资源交流，网络动感资源荟萃</P></TD>
<TD align=middle>
<P align=center><A href="http://www.moonet.com/edu/">教育网</A>
英文版</P></TD></TR></TBODY></TABLE>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753></TD>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#297dff colSpan=2 height=20><FONT color=#ceffff> →
<A href="http://www.aspsky.net/article/index.asp?classid=2"><FONT
color=#ceffff>ASP技术</FONT></A> >> <A
href="http://www.aspsky.net/article/index.asp?classid=2&Nclassid=5"><FONT
color=#ceffff>安全加密</FONT></A> >>
《MD5不可逆加密算法的ASP实现实例》</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD align=middle class=p4
colSpan=2><B>MD5不可逆加密算法的ASP实现实例</B></FONT><BR>2002-2-6 动网先锋
</TD></TR>
<TR>
<TD class=p4 colSpan=2>
<BLOCKQUOTE><BR>此为国外转载函数，可将任意字符转换为md5
16为字符加密形式，而且为不可逆转换。<BR><%<BR>Private Const BITS_TO_A_BYTE =
8<BR>Private Const BYTES_TO_A_WORD = 4<BR>Private Const
BITS_TO_A_WORD = 32
<P></P>
<P>Private m_lOnBits(30)<BR>Private m_l2Power(30)</P>
<P>Private Function LShift(lValue, iShiftBits)<BR>If iShiftBits =
0 Then<BR>LShift = lValue<BR>Exit Function<BR>ElseIf iShiftBits =
31 Then<BR>If lValue And 1 Then<BR>LShift =
&H80000000<BR>Else<BR>LShift = 0<BR>End If<BR>Exit
Function<BR>ElseIf iShiftBits < 0 Or iShiftBits > 31
Then<BR>Err.Raise 6<BR>End If</P>
<P>If (lValue And m_l2Power(31 - iShiftBits)) Then<BR>LShift =
((lValue And m_lOnBits(31 - (iShiftBits + 1))) *
m_l2Power(iShiftBits)) Or &H80000000<BR>Else<BR>LShift =
((lValue And m_lOnBits(31 - iShiftBits)) *
m_l2Power(iShiftBits))<BR>End If<BR>End Function</P>
<P>Private Function RShift(lValue, iShiftBits)<BR>If iShiftBits =
0 Then<BR>RShift = lValue<BR>Exit Function<BR>ElseIf iShiftBits =
31 Then<BR>If lValue And &H80000000 Then<BR>RShift =
1<BR>Else<BR>RShift = 0<BR>End If<BR>Exit Function<BR>ElseIf
iShiftBits < 0 Or iShiftBits > 31 Then<BR>Err.Raise 6<BR>End
If<BR><BR>RShift = (lValue And &H7FFFFFFE) \
m_l2Power(iShiftBits)</P>
<P>If (lValue And &H80000000) Then<BR>RShift = (RShift Or
(&H40000000 \ m_l2Power(iShiftBits - 1)))<BR>End If<BR>End
Function</P>
<P>Private Function RotateLeft(lValue, iShiftBits)<BR>RotateLeft =
LShift(lValue, iShiftBits) Or RShift(lValue, (32 -
iShiftBits))<BR>End Function</P>
<P>Private Function AddUnsigned(lX, lY)<BR>Dim lX4<BR>Dim
lY4<BR>Dim lX8<BR>Dim lY8<BR>Dim lResult</P>
<P>lX8 = lX And &H80000000<BR>lY8 = lY And
&H80000000<BR>lX4 = lX And &H40000000<BR>lY4 = lY And
&H40000000</P>
<P>lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)</P>
<P>If lX4 And lY4 Then<BR>lResult = lResult Xor &H80000000 Xor
lX8 Xor lY8<BR>ElseIf lX4 Or lY4 Then<BR>If lResult And
&H40000000 Then<BR>lResult = lResult Xor &HC0000000 Xor
lX8 Xor lY8<BR>Else<BR>lResult = lResult Xor &H40000000 Xor
lX8 Xor lY8<BR>End If<BR>Else<BR>lResult = lResult Xor lX8 Xor
lY8<BR>End If</P>
<P>AddUnsigned = lResult<BR>End Function</P>
<P>Private Function md5_F(x, y, z)<BR>md5_F = (x And y) Or ((Not
x) And z)<BR>End Function</P>
<P>Private Function md5_G(x, y, z)<BR>md5_G = (x And z) Or (y And
(Not z))<BR>End Function</P>
<P>Private Function md5_H(x, y, z)<BR>md5_H = (x Xor y Xor
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -