<scriptlanguage = "vbscript">
'Боже: 奔腾的心
QQ: 7180001
Дата: 2008-01-17
ClassMshift
Privatem_lpower2 (31)
Publicfunctionrshift (byvallthis, byvallbits)
OnerRorResumenext
Инициатор
If (lbits <= 0) тогда
Rshift = lthis
Elseif (lbits> 63) тогда
'..ошибка...
Elseif (lbits> 31) тогда
Rshift = 0
Еще
If (lthisandm_lpower2 (31-lbits)) = m_lpower2 (31-lbits)
Rshift = (lthisand (m_lpower2 (31-lbits) -1))*m_lpower2 (lbits) или
m_lpower2 (31)
Еще
Rshift = (lthisand (m_lpower2 (31-lbits) -1))*m_lpower2 (lbits)
Эндиф
Эндиф
Конечная функция
PublicfunctionLshift (byvallthis, byvallbits)
OnerRorResumenext
Инициатор
If (lbits <= 0) тогда
Lshift = lthis
Elseif (lbits> 63) тогда
'...ошибка...
Elseif (lbits> 31) тогда
Lshift = 0
Еще
If (LTHISANDM_LPOWER2 (31)) = M_LPOWER2 (31) Then