首页 > 网站 > 建站经验 > 正文

As!p加密函数的代码

2019-11-02 14:19:52
字体:
来源:转载
供稿:网友

 <%  

Private Const BITS_TO_A_BYTE = 8 

Private Const BYTES_TO_A_WORD = 4 

Private Const BITS_TO_A_WORD = 32 

 

Private m_lOnBits(30)  

Private m_l2Power(30)  

   

Private Function LShift(lValue, iShiftBits)  

    If iShiftBits = 0 Then  

        LShift = lValue 

        Exit Function  

    ElseIf iShiftBits = 31 Then  

        If lValue And 1 Then  

            LShift = &H80000000  

        Else  

            LShift = 0 

        End If  

        Exit Function  

    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then  

        Err.Raise 6  

    End If  

 

    If (lValue And m_l2Power(31 - iShiftBits)) Then  

        LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000  

    Else  

        LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))  

    End If  

End Function  

 

Private Function RShift(lValue, iShiftBits)  

    If iShiftBits = 0 Then  

        RShift = lValue 

        Exit Function  

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表