<scriptlanguage = "vbscript">
'他の人：奔腾的心
'QQ：7180001
'日付：2008-01-17
ClassMshift
privatem_lpower2（31）
publicFunctionRshift（byvallthis、byvallbits）
onerrorresumenext
init
if（lbits <= 0）then
rshift = lthis
elseif（lbits> 63）次に
'..エラー...
elseif（lbits> 31）次に
rshift = 0
それ以外
if（lthisandm_lpower2（31-lbits））= m_lpower2（31-lbits）then
rshift =（lthisand（m_lpower2（31-lbits）-1））*m_lpower2（lbits）または
m_lpower2（31）
それ以外
rshift =（lthisand（m_lpower2（31-lbits）-1））*m_lpower2（lbits）
endif
endif
エンド機能
publicFunctionlshift（byvallthis、byvallbits）
onerrorresumenext
init
if（lbits <= 0）then
lshift = lthis
elseif（lbits> 63）次に
'...エラー...
elseif（lbits> 31）次に
lshift = 0
それ以外
if（lthisandm_lpower2（31））= m_lpower2（31）then