Encode64

Encode64 ( < cToConvert> ) --> cRet

(caracter)
• Retorna a string codificada em BASE64.

Essa função formatar o texto codificado, conforme as especificações RFC para base 64, para que cada linha da mensagem passada por parâmetro não ultrapasse 76 caracteres. Sendo assim, após os 76 caracteres, a mensagem terá uma quebra de linha inserida.

Para mais informações, acesse o endereço: http://www.faqs.org/rfcs/rfc1522.html.

#define CRLF Chr(13) + Chr(10)
//+----------------------------------------------------------------------------+
//|Exemplo de uso da função Encode64 e Decode64                                |
//+----------------------------------------------------------------------------+
User Function Exemplo()
Local cTexto := ""
Local cEncode64 := ""
Local cDecode64 := ""
Local cMensagem := ""	
cTexto := "à noite, vovô kowalsky vê o ímã cair no pé do pingüim "	
cTexto += "queixoso e vovó põe açúcar no chá de tâmaras do jabuti feliz."	
cEncode64 := Encode64(cTexto)	
cDecode64 := Decode64(cEncode64)	
cMensagem := "Pangrama origem: [" + cTexto + "]"	
cMensagem += CRLF + "Texto -> Texto64: [" + cEncode64 + "]"	
cMensagem += CRLF + "Texto64 -> Texto: [" + cDecode64 + "]"
Return MsgInfo(cMensagem, "Exemplo")