asp_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 _ASP_MD5

    Public AspToAspX_Host_Class_Object As Object

Public Const ASP_BITS_TO_A_BYTE = 8
Public Const ASP_BYTES_TO_A_WORD = 4
Public Const ASP_BITS_TO_A_WORD = 32
Public ASP_m_lOnBits(30)
Public ASP_m_l2Power(30)
Dim _aspx_ASP_m_lOnBits,_aspx_ASP_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 ("asp_md5_aspx Page_Init:" & Err.Description)
        Resume Next
        End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Sub ASP_md5_FF(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = ASP_AddUnsigned ( a , ASP_AddUnsigned ( ASP_AddUnsigned ( ASP_md5_F ( b , c , d ) , x ) , ac ) ) '135
    a = ASP_RotateLeft ( a , s ) '136
    a = ASP_AddUnsigned ( a , b ) '137
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_md5_FF:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Sub ASP_md5_GG(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = ASP_AddUnsigned ( a , ASP_AddUnsigned ( ASP_AddUnsigned ( ASP_md5_G ( b , c , d ) , x ) , ac ) ) '141
    a = ASP_RotateLeft ( a , s ) '142
    a = ASP_AddUnsigned ( a , b ) '143
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_md5_GG:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Sub ASP_md5_HH(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = ASP_AddUnsigned ( a , ASP_AddUnsigned ( ASP_AddUnsigned ( ASP_md5_H ( b , c , d ) , x ) , ac ) ) '147
    a = ASP_RotateLeft ( a , s ) '148
    a = ASP_AddUnsigned ( a , b ) '149
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_md5_HH:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Sub ASP_md5_II(ByRef  a,ByRef b,ByRef c,ByRef d,ByRef x,ByRef s,ByRef ac )
On Error Goto _AspToAspX_Err
    a = ASP_AddUnsigned ( a , ASP_AddUnsigned ( ASP_AddUnsigned ( ASP_md5_I ( b , c , d ) , x ) , ac ) ) '153
    a = ASP_RotateLeft ( a , s ) '154
    a = ASP_AddUnsigned ( a , b ) '155
    Exit Sub
_AspToAspX_Err:
    AspToAspX_WriteLog ("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_md5_II:" & Err.Description)
    Resume Next
End Sub
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_LShift(ByRef  lValue,ByRef iShiftBits )
On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( iShiftBits ) = 0 Then '10
        ASP_LShift = lValue '11
        Exit Function '12
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) = 31 Then '13
        If lValue And 1 Then '14
            ASP_LShift = &H80000000 '15
        Else '16
            ASP_LShift = 0 '17
        End If '18
        Exit Function '19
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) < 0 Or AspToAspX_CheckDBNull ( iShiftBits ) > 31 Then '20
        Err.Raise ( 6 ) '21
    End If '22
    If ( lValue And ASP_m_l2Power ( 31 - iShiftBits ) ) Then '24
    ASP_LShift = ( ( lValue And ASP_m_lOnBits ( 31 - ( iShiftBits + 1 ) ) ) * ASP_m_l2Power ( iShiftBits ) ) Or &H80000000 '25
    Else '26
        ASP_LShift = ( ( lValue And ASP_m_lOnBits ( 31 - iShiftBits ) ) * ASP_m_l2Power ( iShiftBits ) ) '27
    End If '28
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_LShift:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_Str2binold(ByRef  varstr )
On Error GoTo _AspToAspX_Err
    Dim i
    Dim varchar
    Dim varasc
    Dim varlow
    Dim varhigh
    ASP_Str2binold = "" '32
    For i = 1 To Val ( AspToAspX_Len ( varstr ) ) '33
        varchar = mid ( varstr , i , 1 ) '34
        varasc = Asc ( varchar ) '35
        If AspToAspX_CheckDBNull ( varasc ) < 0 Then '36
            varasc = varasc + 65535 '37
        End If '38
        If AspToAspX_CheckDBNull ( varasc ) > 255 Then '39
            varlow = Left ( Hex ( Asc ( varchar ) ) , 2 ) '40
            varhigh = right ( Hex ( Asc ( varchar ) ) , 2 ) '41
            ASP_Str2binold = ASP_Str2binold & Chr ( "&H" & varlow ) & Chr ( "&H" & varhigh ) '42
        Else '43
            ASP_Str2binold = ASP_Str2binold & Chr ( Asc ( varchar ) ) '44
        End If '45
    Next '46
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_Str2binold:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_Str2bin(ByRef  varstr )
On Error GoTo _AspToAspX_Err
    Dim i
    Dim varchar
    Dim code
    Dim codearr
    Dim j
    ASP_Str2bin = "" '49
    For i = 1 To Val ( AspToAspX_Len ( varstr ) ) '50
        varchar = mid ( varstr , i , 1 ) '51
        code = Server.URLEncode ( varchar ) '52
        If AspToAspX_Len ( code ) = 1 Then '53
            ASP_Str2bin = ASP_Str2bin & Chr ( Asc ( code ) ) '54
        Else '55
            codearr = AspToAspX_Split ( code , "%" ) '56
            For j = 1 To Val ( UBound ( codearr ) ) '57
                ASP_Str2bin = ASP_Str2bin & Chr ( "&H" & codearr ( j ) ) '58
            Next '59
        End If '60
    Next '61
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_Str2bin:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_RShift(ByRef  lValue,ByRef iShiftBits )
On Error GoTo _AspToAspX_Err
    If AspToAspX_CheckDBNull ( iShiftBits ) = 0 Then '64
        ASP_RShift = lValue '65
        Exit Function '66
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) = 31 Then '67
        If lValue And &H80000000 Then '68
            ASP_RShift = 1 '69
        Else '70
            ASP_RShift = 0 '71
        End If '72
        Exit Function '73
    ElseIf AspToAspX_CheckDBNull ( iShiftBits ) < 0 Or AspToAspX_CheckDBNull ( iShiftBits ) > 31 Then '74
        Err.Raise ( 6 ) '75
    End If '76
    ASP_RShift = ( lValue And &H7FFFFFFE ) \ ASP_m_l2Power ( iShiftBits ) '78
    If ( lValue And &H80000000 ) Then '80
    ASP_RShift = ( ASP_RShift Or ( &H40000000 \ ASP_m_l2Power ( iShiftBits - 1 ) ) ) '81
    End If '82
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_RShift:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_RotateLeft(ByRef  lValue,ByRef iShiftBits )
On Error GoTo _AspToAspX_Err
    ASP_RotateLeft = ASP_LShift ( lValue , iShiftBits ) Or ASP_RShift ( lValue , ( 32 - iShiftBits ) ) '86
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_RotateLeft:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_AddUnsigned(ByRef  lX,ByRef lY )
On Error GoTo _AspToAspX_Err
    Dim lX4
    Dim lY4
    Dim lX8
    Dim lY8
    Dim lResult
    lX8 = lX And &H80000000 '96
    lY8 = lY And &H80000000 '97
    lX4 = lX And &H40000000 '98
    lY4 = lY And &H40000000 '99
    lResult = ( lX And &H3FFFFFFF ) + ( lY And &H3FFFFFFF ) '101
    If lX4 And lY4 Then '103
        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8 '104
    ElseIf lX4 Or lY4 Then '105
        If lResult And &H40000000 Then '106
            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8 '107
        Else '108
            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8 '109
        End If '110
    Else '111
        lResult = lResult Xor lX8 Xor lY8 '112
    End If '113
    ASP_AddUnsigned = lResult '115
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_AddUnsigned:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_md5_F(ByRef  x,ByRef y,ByRef z )
On Error GoTo _AspToAspX_Err
    ASP_md5_F = ( x And y ) Or ( ( Not x ) And z ) '119
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_md5_F:" & Err.Description)
    Resume Next
End Function
'E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP
Public Function ASP_md5_G(ByRef  x,ByRef y,ByRef z )
On Error GoTo _AspToAspX_Err
    ASP_md5_G = ( x And z ) Or ( y And ( Not z ) ) '123
    Exit Function
_AspToAspX_Err:
    AspToAspX_WriteLog("E:\FTBBS_UTF8_7.0\UPLOAD\ASP_MD5.ASP ASP_md5_G:" & Err.Description)
    Resume Next