首页 > 开发 > Asp > 正文

不错的主要用于加密的vbs(asp)位移运算类

2020-06-20 13:09:46

字体：大中小

来源：转载

供稿：网友

<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

上一篇：asp中使用mysql数据库的注意实现

下一篇：asp 的中文分词

学习交流

robots.txt详细介绍

robots.txt详细介绍...

热门图片

猜你喜欢的新闻

猜你喜欢的关注

新闻热点

字节跳动公司一季度营收约为400亿元人民币同比增长130%

2020-06-17 22:26:00

电脑WinXP、Win7和Win10，哪个操作系统最好用？

2020-06-13 23:36:46

海信电视U7正式发布支持130％BT709色域

2020-06-13 23:31:38

小米Mi Mix4曝光：看起来更完美了

2020-06-13 23:29:55

新浪微博：6月12日22时起用户发布评论须关注博主7天以上

2020-06-13 23:26:25

中国联通宣布公用电话全面停止服务：IC卡、校园卡再见！

2020-06-12 23:14:50

疑难解答

图片精选

网友关注