优秀的主体为VBS（ASP）位移算符加密类型
发布时间：2023-11-27 10:45:45 所属栏目：Asp教程 来源：
导读：<script language="vbscript">
' Aother: 奔腾的心
' QQ: 7180001
' Date: 2008-01-17
Class mShift
Private m_lPower2(31)
Public Function RShift(ByVal lThis, ByVal lBit
' Aother: 奔腾的心
' QQ: 7180001
' Date: 2008-01-17
Class mShift
Private m_lPower2(31)
Public Function RShift(ByVal lThis, ByVal lBit
|
<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 （编辑：汽车网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
推荐文章
站长推荐
