<scriptLanguage = "vBscript">
'AOTHER: 奔腾的心
'QQ: 7180001
'Fecha: 2008-01-17
Desplazamiento de clase
PrivateM_LPower2 (31)
PublicFunctionRshift (byvallThis, byvallbits)
OnerrorResumEnext
Inicio
If (lbits <= 0) entonces
Rshift = lthis
Elseif (lbits> 63) entonces
'..error...
Elseif (lbits> 31) entonces
Rshift = 0
Demás
If (lthisandm_lpower2 (31-lbits)) = m_lpower2 (31 lbits) entonces
Rshift = (lthisand (m_lpower2 (31 lbits) -1))*m_lpower2 (lbits) o
m_lpower2 (31)
Demás
Rshift = (lthisand (m_lpower2 (31 lbits) -1))*m_lpower2 (lbits)
Endif
Endif
Función final
PublicFunctionLShift (byvallThis, byvallbits)
OnerrorResumEnext
Inicio
If (lbits <= 0) entonces
Lshift = lthis
Elseif (lbits> 63) entonces
'...error...
Elseif (lbits> 31) entonces
Lshift = 0
Demás
If (lthisandm_lpower2 (31)) = m_lpower2 (31) entonces