Encryption and decryption classes written in ASP

Class base64class
Rem const
Dim sbase_64_characters 'conversion code
Dim lenstring 'calculates the length of the string.
Dim icount' counter
Dim returnvalue returned value
Dim tempchar 'cached characters
Dim tempstring 'cache string
Dim paramstring 'parameter string
Dim temhex 'cache hex
Dim templow
Dim temphigh 'high Cache
Dim mod3string'
Dim mod4string'
Dim tempbinary'
Dim tempbyteone'
Dim tempbytetwo'
Dim tempbytethree'
Dim tempbytefour'
Dim tempsavebitsone'
Dim tempsavebitstwo'
'*************************************** *****
'Begin' initialization class
'*************************************** *****
Private sub class_initialize ()
Sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789 +/" End sub
'*************************************** *****
'End initialization class'
**************************************** ****
'*************************************** *****
'Begint' destruction class
'*************************************** *****
Private sub class_terminate ()
Sbase_64_characters = "" End sub
'*************************************** *****
'End destruction class
'*************************************** *****
'*************************************** *****
'Begin' encodes ANSI-encoded strings in base64 format.
'*************************************** *****
Public Function encode (paramstring)
Tempstring = ""
Returnvalue = ""
Lenstring = Len (paramstring)
If lenstring <1 then
Encode = returnvalue
Else
Mod3string = lenstring mod 3
'The complement BITs are used to facilitate computation.
If mod3string> 0 then
Lenstring = lenstring + 3-mod3string
Lenstring = lenString-3
End if