md5.aspx.vb

本程序修改自飞天BBS 7.0 将原来的ASP语法迁移为ASP.NET并封装成DLL ASP.NET相对ASP有更快的执行效率以及更高的并发访问量 基于ASP.NET的DLL可以运行在支持ASP

' ***************************************************
' *        本程序由AspToAspX风火轮0.99转换生成      *
' *        http://Www.AspToAspX.Cn                  *
' *        Q Q :  139227536                         *
' *        QQ群:  17152722                          *
' *        MSN :  [e-mail]        *
' *        EMail  [e-mail]              *
' ***************************************************
Imports Microsoft.VisualBasic
Imports System.Web
Imports System.Math
Imports System.Web.SessionState


Public Class _INC_MD5

    Public AspToAspX_Host_Class_Object As Object

Public Const BITS_TO_A_BYTE = 8
Public Const BYTES_TO_A_WORD = 4
Public Const BITS_TO_A_WORD = 32
Public m_lOnBits(30)
Public m_l2Power(30)
Dim _aspx_m_lOnBits,_aspx_m_l2Power
#Region "..."
    Public Sub AspToAspX_InitIncludeFiles()
    End Sub

    Public Sub AspToAspX_UnloadIncludeFiles()
    End Sub

#End Region
    Public Sub AspToAspX_Page_Init()
    On Error GoTo _AspToAspX_Err
    Response.Write ( vbCrLf )

        Exit Sub
    _AspToAspX_Err:
        AspToAspX_WriteLog ("md5_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Sub md5_FF(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = AddUnsigned ( a , AddUnsigned ( AddUnsigned ( md5_F ( b , c , d ) , x ) , ac ) ) '92
    a = RotateLeft ( a , s ) '93
    a = AddUnsigned ( a , b ) '94
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_FF:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Sub md5_GG(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = AddUnsigned ( a , AddUnsigned ( AddUnsigned ( md5_G ( b , c , d ) , x ) , ac ) ) '97
    a = RotateLeft ( a , s ) '98
    a = AddUnsigned ( a , b ) '99
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_GG:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Sub md5_HH(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = AddUnsigned ( a , AddUnsigned ( AddUnsigned ( md5_H ( b , c , d ) , x ) , ac ) ) '102
    a = RotateLeft ( a , s ) '103
    a = AddUnsigned ( a , b ) '104
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_HH:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Sub md5_II(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = AddUnsigned ( a , AddUnsigned ( AddUnsigned ( md5_I ( b , c , d ) , x ) , ac ) ) '107
    a = RotateLeft ( a , s ) '108
    a = AddUnsigned ( a , b ) '109
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_II:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function LShift(ByRef  lValue,ByRef iShiftBits )
On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( iShiftBits ) = 0 Then '9
        LShift = lValue '10
        Exit Function '11
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) = 31 Then '12
        If lValue And 1 Then '13
            LShift = &H80000000 '14
        Else '15
            LShift = 0 '16
        End If '17
        Exit Function '18
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) < 0 Or AspToAspX_CheckDBNull ( iShiftBits ) > 31 Then '19
        Err.Raise ( 6 ) '20
    End If '21
    If ( lValue And m_l2Power ( 31 - iShiftBits ) ) Then '22
    LShift = ( ( lValue And m_lOnBits ( 31 - ( iShiftBits + 1 ) ) ) * m_l2Power ( iShiftBits ) ) Or &H80000000 '23
    Else '24
        LShift = ( ( lValue And m_lOnBits ( 31 - iShiftBits ) ) * m_l2Power ( iShiftBits ) ) '25
    End If '26
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP LShift:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function RShift(ByRef  lValue,ByRef iShiftBits )
On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( iShiftBits ) = 0 Then '29
        RShift = lValue '30
        Exit Function '31
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) = 31 Then '32
        If lValue And &H80000000 Then '33
            RShift = 1 '34
        Else '35
            RShift = 0 '36
        End If '37
        Exit Function '38
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) < 0 Or AspToAspX_CheckDBNull ( iShiftBits ) > 31 Then '39
        Err.Raise ( 6 ) '40
    End If '41
    RShift = ( lValue And &H7FFFFFFE ) \ m_l2Power ( iShiftBits ) '43
    If ( lValue And &H80000000 ) Then '44
    RShift = ( RShift Or ( &H40000000 \ m_l2Power ( iShiftBits - 1 ) ) ) '45
    End If '46
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP RShift:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function RotateLeft(ByRef  lValue,ByRef iShiftBits )
On Error GoTo _AspToAspX_Err
    RotateLeft = LShift ( lValue , iShiftBits ) Or RShift ( lValue , ( 32 - iShiftBits ) ) '49
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP RotateLeft:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function AddUnsigned(ByRef  lX,ByRef lY )
On Error GoTo _AspToAspX_Err
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult
    lX8 = lX And &H80000000 '58
    lY8 = lY And &H80000000 '59
    lX4 = lX And &H40000000 '60
    lY4 = lY And &H40000000 '61
    lResult = ( lX And &H3FFFFFFF ) + ( lY And &H3FFFFFFF ) '63
    If lX4 And lY4 Then '65
        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 '66
    ElseIf lX4 Or lY4 Then '67
        If lResult And &H40000000 Then '68
            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 '69
        Else '70
            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 '71
        End If '72
    Else '73
        lResult = lResult Xor lX8 Xor lY8 '74
    End If '75
    AddUnsigned = lResult '77
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP AddUnsigned:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function md5_F(ByRef  x,ByRef y,ByRef z )
On Error GoTo _AspToAspX_Err
    md5_F = ( x And y ) Or ( ( Not x ) And z ) '80
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_F:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function md5_G(ByRef  x,ByRef y,ByRef z )
On Error GoTo _AspToAspX_Err
    md5_G = ( x And z ) Or ( y And ( Not z ) ) '83
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_G:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function md5_H(ByRef  x,ByRef y,ByRef z )
On Error GoTo _AspToAspX_Err
    md5_H = ( x Xor y Xor z ) '86
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_H:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function md5_I(ByRef  x,ByRef y,ByRef z )
On Error GoTo _AspToAspX_Err
    md5_I = ( y Xor ( x Or ( Not z ) ) ) '89
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP md5_I:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\INC\MD5.ASP
Public Function ConvertToWordArray(ByRef  sMessage )
On Error GoTo _AspToAspX_Err
    Dim lMessageLength
    Dim lNumberOfWords
    Dim lWordArray
    Dim lBytePosition
    Dim lByteCount