不错的主要用于加密的vbs(asp)位移运算类
' Aother: 奔腾的心 'QQ: 7180001 'Date: 2008-01-17 Class mShiftPrivate m_lPower2(31)Public Function RShift(ByVal lThis, ByVal lBits)On Error Resume NextIn
' Aother: 奔腾的心 'QQ: 7180001 'Date: 2008-01-17 Class mShiftPrivate m_lPower2(31)Public Function RShift(ByVal lThis, ByVal lBits)On Error Resume NextIn