<scriptLanguage = "vBScript">
'AOTH: 奔腾的心
'QQ: 7180001
Data: 2008-01-17
ClassMshift
Privatem_lpower2 (31)
PublicFunctionRShift (ByVallThis, ByVallbits)
OnErrorReSumenext
Init
If (lbits <= 0) então
Rshift = lthis
Elseif (lbits> 63) então
'..erro...
Elseif (lbits> 31) então
Rshift = 0
Outro
If (lThisandm_lPower2 (31-lbits)) = m_lPower2 (31 lbits) então
Rshift = (lTHisand (m_lPower2 (31-lbits) -1))*m_lPower2 (lbits) ou
m_lPower2 (31)
Outro
Rshift = (lTHisand (m_lPower2 (31 lbits) -1))*m_lPower2 (lbits)
Endif
Endif
Função final
PublicFunctionLshift (ByVallThis, ByVallbits)
OnErrorReSumenext
Init
If (lbits <= 0) então
Lshift = lthis
Elseif (lbits> 63) então
'...erro...
Elseif (lbits> 31) então
Lshift = 0
Outro
If (lthisandm_lpower2 (31)) = m_lPower2 (31) então