好的VBS（ASP）位移计算类，主要用于加密
一：奔腾的心
QQ：7180001
日期：2008-01-17
类mshift
私人m_lpower2（31）
公共函数的RShift（ByVal lThis，一个lbits）
下次继续出错
初始化
如果（lbits 0）然后
rshift = l
（lbits > 63）然后
..误差…
（lbits > 31）然后
rshift = 0
其他的
如果（这和m_lpower2（31 lbits））= m_lpower2（31 lbits）然后
rshift =（这和（m_lpower2（31 lbits）- 1））* m_lpower2（lbits）或
（31）m_lpower2
其他的
rshift =（这和（m_lpower2（31 lbits）- 1））* m_lpower2（lbits）
最后如果
最后如果
端功能
公共函数的LShift（ByVal lThis，一个lbits）
下次继续出错
初始化
如果（lbits 0）然后
LShift = l
（lbits > 63）然后
'…误差…
（lbits > 31）然后
LShift = 0
其他的
如果（这和m_lpower2（31））=（31）然后m_lpower2
LShift =（这和h7fffffff） m_lpower2（lbits）或m_lpower2（31 lbits）
其他的
LShift = l m_lpower2（lbits）
最后如果
最后如果
端功能
私人Sub Init（）
下次继续出错
m_lpower2（0）= H1
m_lpower2（1）= H2
m_lpower2（2）= H4
m_lpower2（3）= H8
m_lpower2（4）= H10
m_lpower2（5）=水
m_lpower2（6）= H40
m_lpower2（7）= H80
m_lpower2（8）= H100
m_lpower2（9）= H200
m_lpower2（10）= H400
m_lpower2（11）= H800
m_lpower2（12）= H1000
m_lpower2（13）= H2000
m_lpower2（14）= h4000
m_lpower2（15）= H8000
m_lpower2（16）= H10000
m_lpower2（17）= H20000
m_lpower2（18）= H40000
m_lpower2（19）= H80000
m_lpower2（20）= h100000
m_lpower2（21）= h200000
m_lpower2（22）= h400000
m_lpower2（23）= h800000
m_lpower2（24）= h1000000
m_lpower2（25）= h2000000
m_lpower2（26）= h4000000
m_lpower2（27）= h8000000
m_lpower2（28）= h10000000
m_lpower2（29）= h20000000
m_lpower2（30）= h40000000
m_lpower2（31）= h80000000
端子
类的结束
暗淡的星
设置新的mshift SFT =
本sft.rshift（200, 4）
本sft.lshift（200, 4）
集SFT =没有
警戒（200＜4）；
警报（200 > 4）；