<scriptLanguage = "vbscript">
'Aother: 奔腾的心
QQ: 7180001
"التاريخ: 2008-01-17
ClassMshift
privatem_lpower2 (31)
PublicFunctionRshift (Byvallthis ، byvallbits)
onerrorresumenext
init
إذا (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)
Endif
Endif
الوظيفية
PublicFunctionLshift (Byvallthis ، byvallbits)
onerrorresumenext
init
إذا (lbits <= 0) ثم
lshift = lthis
elseif (lbits> 63) ثم
'...خطأ...
elseif (lbits> 31) ثم
lshift = 0
آخر
if (lthisandm_lpower2 (31)) = m_lpower2 (31) ثم