Encode64

Encode64 ( < cToConvert> ) --> cRet

cRet(caracter)
• Retorna a string na base 64 bytes.

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")