<scriptuanguage = "vbscript">
'Aother: 奔腾的心
'QQ: 7180001
'Datum: 2008-01-17
ClassmShift
Privatem_lpower2 (31)
PublicFunctionRShift (Byvallthis, Byvallbits)
OnErrorresumeNext
Init
If (lbits <= 0) dann
RShift = lthis
Elseif (lbit> 63) dann
'..Fehler...
Elseif (lbit> 31) dann
RShift = 0
Anders
If (lthisandm_lpower2 (31-lbit)) = m_lpower2 (31-lbit) dann
RShift = (lthisand (m_lpower2 (31-lbit) -1))*m_lpower2 (lbits) oder
m_lpower2 (31)
Anders
RShift = (lthisand (m_lpower2 (31-lbit) -1))*m_lpower2 (lbit)
Endif
Endif
Endfunktion
PublicFunctionLShift (Byvallthis, Byvallbits)
OnErrorresumeNext
Init
If (lbits <= 0) dann
LShift = lthis
Elseif (lbit> 63) dann
'...Fehler...
Elseif (lbit> 31) dann
LSHIFT = 0
Anders
If (lthisandm_lpower2 (31)) = m_lpower2 (31) dann