<scriptLanguage = "vbscript">
'아르 : 奔腾的心
'QQ : 7180001
'날짜 : 2008-01-17
ClassMshift
privatem_lpower2 (31)
PublicFunctionRshift (ByVallthis, ByVallbits)
onerrorresumenext
이니
if (lbits <= 0) 그러면
rshift = l this
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
이니
if (lbits <= 0) 그러면
lshift = l this
elseif (lbits> 63)
'...오류...
elseif (lbits> 31)
lshift = 0
또 다른
if (lthisandm_lpower2 (31)) = m_lpower2 (31)