Code for ASP Cryptographic functions

<%

Private Const Bits_to_a_byte = 8

Private Const Bytes_to_a_word = 4

Private Const Bits_to_a_word =

Private M_lonbits (30)

Private M_l2power (30)

Private Function LShift (LValue, Ishiftbits)

If ishiftbits = 0 Then

lshift = LValue

Exit Function

ElseIf ishiftbits = Then

If LValue and 1 Then

LShift = &h80000000

Else

lshift = 0

End If

Exit Function

ElseIf ishiftbits < 0 Or ishiftbits > Then

Err.Raise 6

End If

If (LValue and M_l2power (31-ishiftbits)) Then

LShift = ((LValue and M_lonbits ()-(ishiftbits + 1)) * M_l2power (ishiftbits)) Or &h80000000

Else

LShift = ((LValue and M_lonbits (31-ishiftbits)) * M_l2power (ishiftbits))

End If

End Function

Private Function rshift (LValue, Ishiftbits)

If ishiftbits = 0 Then

rshift = LValue

Exit Function

ElseIf ishiftbits = Then

If LValue and &h80000000 Then

Rshift = 1

Else

rshift = 0

End If

Exit Function

ElseIf ishiftbits < 0 Or ishiftbits > Then

Err.Raise 6

End If