国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

不錯的主要用于加密的vbs(asp)位移運算類

2024-05-04 11:00:54
字體：大 中 小
來源：轉載
供稿：網友
<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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 临泽县| 神池县| 堆龙德庆县| 兴仁县| 淳安县| 龙口市| 新绛县| 贵州省| 东宁县| 青神县| 罗甸县| 隆林| 蒲城县| 鸡西市| 贵阳市| 太和县| 鄢陵县| 凤山县| 从化市| 翼城县| 阿瓦提县| 蓬安县| 黑龙江省| 伽师县| 秭归县| 洛南县| 金平| 宁安市| 合肥市| 隆德县| 四子王旗| 剑川县| 阳山县| 无为县| 策勒县| 汤阴县| 陆丰市| 宽甸| 化德县| 新蔡县| 新蔡县|