Encryption and decryption classes _asp class class written in ASP

Class Base64class
REM Const
Dim sbase_64_characters ' Conversion Code
Dim lenstring ' Computes the length of a string
Dim icount ' Counter
Dim ReturnValue ' return Value
Dim Tempchar ' Cached characters
Dim tempstring ' Cached String
Dim paramstring ' Parameter String
Dim Temhex ' Cache Cache hex
Dim Templow ' Cache Low
Dim Temphigh ' Cache High
Dim mod3string '
Dim mod4string '
Dim Tempbinary '
Dim Tempbyteone '
Dim Tempbytetwo '
Dim Tempbytethree '
Dim Tempbytefour '
Dim Tempsavebitsone '
Dim Tempsavebitstwo '
'********************************************
' Begin initializing Class
'********************************************
Private Sub Class_Initialize ()
Sbase_64_characters = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" End Sub
'********************************************
' End Initialization class '
********************************************
'********************************************
' Begin destroying class
'********************************************
Private Sub Class_Terminate ()
Sbase_64_characters= "" End Sub
'********************************************
' End Destroy class
'********************************************
'********************************************
' Begin BASE64 encoding an ANSI-encoded string
'********************************************
Public Function Encode (paramstring)
Tempstring= ""
Returnvalue= ""
Lenstring=len (paramstring)
If Lenstring<1 Then
Encode=returnvalue
Else
Mod3string=lenstring MoD 3
' The number of complements is for ease of calculation.
If Mod3string>0 Then
Lenstring=lenstring+3-mod3string
Lenstring=lenstring-3
End If