ceshi/demo/asp/asp_md5.asp

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

<%

	Private Const ASP_BITS_TO_A_BYTE = 8
	Private Const ASP_BYTES_TO_A_WORD = 4
	Private Const ASP_BITS_TO_A_WORD = 32
	
	Private ASP_m_lOnBits(30)
	Private ASP_m_l2Power(30)
	
	Private Function ASP_LShift(lValue, iShiftBits)
		If iShiftBits = 0 Then
			ASP_LShift = lValue
			Exit Function
		ElseIf iShiftBits = 31 Then
			If lValue And 1 Then
				ASP_LShift = &H80000000
			Else
				ASP_LShift = 0
			End If
			Exit Function
		ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
			Err.Raise 6
		End If
	
		If (lValue And ASP_m_l2Power(31 - iShiftBits)) Then
			ASP_LShift = ((lValue And ASP_m_lOnBits(31 - (iShiftBits + 1))) * ASP_m_l2Power(iShiftBits)) Or &H80000000
		Else
			ASP_LShift = ((lValue And ASP_m_lOnBits(31 - iShiftBits)) * ASP_m_l2Power(iShiftBits))
		End If
	End Function
	
	Private Function ASP_Str2binold(varstr) 
		ASP_Str2binold="" 
		 For i=1 To Len(varstr) 
			 varchar=mid(varstr,i,1) 
			 varasc = Asc(varchar) 
			 If varasc<0 Then 
				varasc = varasc + 65535 
			 End If 
			 If varasc>255 Then 
				varlow = Left(Hex(Asc(varchar)),2) 
				varhigh = right(Hex(Asc(varchar)),2) 
				ASP_Str2binold = ASP_Str2binold & chrB("&H" & varlow) & chrB("&H" & varhigh) 
			 Else 
				ASP_Str2binold = ASP_Str2binold & chrB(AscB(varchar)) 
			 End If 
		 Next 
	End Function 
	Private Function ASP_Str2bin(varstr) 
		ASP_Str2bin="" 
		 For i=1 To Len(varstr) 
			 varchar=mid(varstr,i,1) 
			 code = Server.UrlEncode(varchar)
			 if len(code) = 1 then
			    ASP_Str2bin = ASP_Str2bin & chrB(AscB(code))
			 else
				codearr = split(code,"%")
				for j=1 to ubound(codearr)
				   ASP_Str2bin = ASP_Str2bin & chrB("&H" & codearr(j))
				next