<criptLanguage = "vbscript">
'Autre: 奔腾的心
'QQ: 7180001
'Date: 2008-01-17
ClassMShift
Privatem_lpower2 (31)
PublicFonctionrshift (ByVallshis, byVallBits)
Onerrorresumenext
Init
If (lbits <= 0) alors
Rshift = lthis
Elseif (lbits> 63) puis
'..erreur...
Elseif (lbits> 31) puis
Rshift = 0
Autre
If (lthisandm_lpower2 (31 lbits)) = m_lpower2 (31 lbts) puis
RShift = (lthisand (m_lpower2 (31 lbits) -1)) * m_lpower2 (lbits) ou
m_lpower2 (31)
Autre
Rshift = (lthisand (m_lpower2 (31 lbits) -1)) * m_lpower2 (lbits)
Endire
Endire
Finition de fin
PublicFunctionlShift (parvallthis, byvallbits)
Onerrorresumenext
Init
If (lbits <= 0) alors
LSHIFT = LTHIS
Elseif (lbits> 63) puis
'...erreur...
Elseif (lbits> 31) puis
LShift = 0
Autre
If (lthisandm_lpower2 (31)) = m_lpower2 (31) alors