<scriptLanguage = "vbscript">
'Aother: 奔腾的心
'qq: 7180001
วันที่: 2008-01-17
ClassMshift
privateM_lpower2 (31)
Publicfunctionrshift (Byvallthis, byvallbits)
onerrorresumenext
การเริ่มต้น
ถ้า (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
endfunction
Publicfunctionlshift (Byvallthis, Byvallbits)
onerrorresumenext
การเริ่มต้น
ถ้า (lbits <= 0) จากนั้น
lshift = lthis
elseif (lbits> 63) จากนั้น
'...ข้อผิดพลาด...
elseif (lbits> 31) จากนั้น
lshift = 0
อื่น
if (lthisandm_lpower2 (31)) = m_lpower2 (31) แล้ว