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

[removed] ‘ 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)