classbase64 Clase
remconst
Código de conversión de DIMSBASE_64_CHARACTERS
Dimlenstring 'calcula la longitud de la cadena
dimicount 'mostrador
Valor de DimReturnue'Return
Caracteres de caché de DimtempHarchar
Cadena de caché DimTempstring '
Cadena de parámetros DimparamString '
dimtemhex 'caché caché hexadecimal
DimTemplow 'Cache bajo
Dimtemphigh 'Cache High Bit
dimmod3string '
dimmod4string '
dimtempbinary '
dimtempbyteeNe '
dimtempbytetwo '
dimtempbytethree '
dimtempbytefour '
dimtempsavebitsone '
dimtempsavebitstwo '
'**************************************************
'Comenzar la clase de inicialización
'**************************************************
privatesubclass_initialize ()
sbase_64_characters = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/" ENDSUB
'**************************************************
'final de inicialización de inicialización'
********************************************************
'**************************************************
'Comenzar la clase de destrucción
'**************************************************
Privatesubclass_merminate ()
sbase_64_characters = "" extremos
'**************************************************
'final de destruir la clase
'**************************************************
'**************************************************
'Comenzar la codificación de la cadena codificada con ANSI
'**************************************************
PublicFunctionEncode (Paramstring)
tempttring = ""
returnValue = ""
lenstring = len (paramstring)
iflenstring <1
Codificar = returnValue
demás
mod3String = LenstringMod3
'El número de dígitos es facilitar el cálculo
ifmod3string> 0then
Lenstring = Lenstring+3-Mod3String
Lenstring = Lenstring-3
endif