<scriptLanguage = "vbscript">
'Aother: 奔腾的心
'QQ: 7180001
'Tanggal: 2008-01-17
Classmshift
Privatem_lpower2 (31)
PublicFunctionrshift (Byvallthis, Byvallbits)
OnerrorresumeNext
Init
If (lbits <= 0) lalu
Rshift = lthis
Elseif (lbit> 63) Lalu
'..kesalahan...
Elseif (lbit> 31) Lalu
Rshift = 0
Kalau tidak
If (lthisandm_lpower2 (31-lbits)) = m_lpower2 (31-lbits) kemudian
Rshift = (lThisand (m_lpower2 (31-lbits) -1))*m_lpower2 (lbits) atau
m_lpower2 (31)
Kalau tidak
Rshift = (lthisand (m_lpower2 (31-lbits) -1))*m_lpower2 (lbits)
Endif
Endif
Fungsi endfungsi
PublicFunctionlshift (byvallthis, byvallbits)
OnerrorresumeNext
Init
If (lbits <= 0) lalu
Lshift = lthis
Elseif (lbit> 63) Lalu
'...kesalahan...
Elseif (lbit> 31) Lalu
Lshift = 0
Kalau tidak
If (lthisandm_lpower2 (31)) = m_lpower2 (31) lalu