Histórico da Página
...
Portuguese | ||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Função: Encode64
Converte uma string ASCII para uma nova na base 64 bytes. Encode64 ( < cToConvert> ) --> cRet
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") Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas