0514-86177077

9:00-17:00（工作日）

主页 > 知识库 > 不错的主要用于加密的vbs(asp)位移运算类

不错的主要用于加密的vbs(asp)位移运算类
热门标签：地图标注还可以做吗 宿州防封外呼系统平台 电销机器人采购 硅基电话机器人加盟 友邦互联电销机器人违法吗 无营业执照地图标注教学 滴滴地图标注上车点 高质量的电销外呼系统 外呼系统怎么话费
script language="vbscript">
' Aother: 奔腾的心
'     QQ: 7180001
'   Date: 2008-01-17

Class mShift

    Private m_lPower2(31)

    Public Function RShift(ByVal lThis, ByVal lBits)
        On Error Resume Next
        Init
        If (lBits = 0) Then
           RShift = lThis
        ElseIf (lBits > 63) Then
           ' .. error ...
        ElseIf (lBits > 31) Then
           RShift = 0
        Else
           If (lThis And m_lPower2(31 - lBits)) = m_lPower2(31 - lBits) Then
              RShift = (lThis And (m_lPower2(31 - lBits) - 1)) * m_lPower2(lBits) Or 
m_lPower2(31)
           Else
              RShift = (lThis And (m_lPower2(31 - lBits) - 1)) * m_lPower2(lBits)
           End If
        End If
    End Function

    Public Function LShift(ByVal lThis, ByVal lBits)
        On Error Resume Next
        Init
        If (lBits = 0) Then
           LShift = lThis
        ElseIf (lBits > 63) Then
           ' ... error ...
        ElseIf (lBits > 31) Then
           LShift = 0
        Else
           If (lThis And m_lPower2(31)) = m_lPower2(31) Then
              LShift = (lThis And H7FFFFFFF) \&;m_lPower2(lBits) Or m_lPower2(31 - lBits)
           Else
              LShift = lThis \&;m_lPower2(lBits)
           End If
        End If
    End Function

    Private Sub Init()
        On Error Resume Next
        m_lPower2(0) = H1
        m_lPower2(1) = H2
        m_lPower2(2) = H4
        m_lPower2(3) = H8
        m_lPower2(4) = H10
        m_lPower2(5) = H20
        m_lPower2(6) = H40
        m_lPower2(7) = H80
        m_lPower2(8) = H100
        m_lPower2(9) = H200
        m_lPower2(10) = H400
        m_lPower2(11) = H800
        m_lPower2(12) = H1000
        m_lPower2(13) = H2000
        m_lPower2(14) = H4000
        m_lPower2(15) = H8000
        m_lPower2(16) = H10000
        m_lPower2(17) = H20000
        m_lPower2(18) = H40000
        m_lPower2(19) = H80000
        m_lPower2(20) = H100000
        m_lPower2(21) = H200000
        m_lPower2(22) = H400000
        m_lPower2(23) = H800000
        m_lPower2(24) = H1000000
        m_lPower2(25) = H2000000
        m_lPower2(26) = H4000000
        m_lPower2(27) = H8000000
        m_lPower2(28) = H10000000
        m_lPower2(29) = H20000000
        m_lPower2(30) = H40000000
        m_lPower2(31) = H80000000
    End Sub

End Class

Dim sft
Set sft = New mShift
MsgBox sft.RShift(200, 4)
MsgBox sft.LShift(200, 4)
Set sft = Nothing
/script>


script language="javascript">
alert(2004);
alert(200>>4);
/script>

标签：雅安 七台河 江门 广元 宣城 新余 锡林郭勒盟 儋州

巨人网络通讯声明：本文标题《不错的主要用于加密的vbs(asp)位移运算类》，本文关键词  不,错的,主要,用于,加密,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《不错的主要用于加密的vbs(asp)位移运算类》相关的同类信息！
  • 本页收集关于不错的主要用于加密的vbs(asp)位移运算类的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：根据日期得到生肖的ASP函数

    下一篇：Script.VBS.Agent.ai juan.vbs专杀

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： 不错的主要用于加密的vbs(asp)位移运算类 不,错的,主要,用于,加密,