ClassBase64Class
RemConst
DIMSBASE_64_CHARACTERS Código de conversão
Dimlenstring 'calcula o comprimento da corda
DiMicount 'contador
DIMRETURNVALUE'RETURN Valor
caracteres de cache dimtempchar
string de cache de dimtempstring
Dimparamstring 'String de parâmetro
Dimtemhex 'cache de cache hexadecimal
DimtemPLOW 'Cache Bit Bit
DimtEmphigh 'cache alto
Dimmod3String '
Dimmod4String '
dimtempbinary '
dimtempbyteone '
dimtempbytetwo '
DimtempbyTeethree '
dimtempbytefour '
dimtempsavebitsOne '
dimtempsavebitstwo '
'**************************************************
'Comece a classe de inicialização
'**************************************************
privatesubclass_initialize ()
sbase_64_characters = "abcdefghijklmnopqrststuvwxyzabcdefghijklmnopqrstuvwxyz0123456789+/" endsub
'**************************************************
'Classe de inicialização final'
*******************************************************
'**************************************************
'Begin Destroy Class
'**************************************************
Privatesubclass_terminate ()
sbase_64_characters = "" endsub
'**************************************************
'End Destroy Class
'**************************************************
'**************************************************
'Comece a codificação Base64 da corda codificada pela ANSI
'**************************************************
publicFunctionEncode (ParamString)
tempstring = ""
returnValue = ""
Lenstring = Len (Paramstring)
IFLENSTRING <1THEN
Encode = returnValue
outro
mod3string = lentetringmod3
'O número de dígitos é facilitar o cálculo
ifmod3String> 0Then
lentectring = lentestring+3-mod3String
Lenstring = Lenstring-3
endif