<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