TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 6 Próxima »

Função: ARC4

Cria uma sequência de caracteres criptografada, utilizando o algoritmo de criptografia de fluxo ARC4, a partir de uma sequência de caracteres que compõe o dado a ser criptografado e uma sequência de caracteres adicional usada como base para a criptografia, chamada de chave. Para descriptografar é necessário converter o retorno em ASCII para string e chamar a função ARC4 novamente com a mesma chave que foi usada na criptografia.
Sintaxe

ARC4 ( < cBase>, < cChave> ) --> cStringArc4

Parâmetros/Elementos

 

NomeTipoDescriçãoObrigatórioReferência
cBaseCaracterIndica a sequência de caracteres que serão criptografadas.X 
cChaveCaracterIndica a sequência de caracteres a serem utilizados como chave para o algoritmo de criptografia.X 

 

Retorno
cStringArc4
    (caracter)
  • Retorna uma string criptografada contento os caracteres em ASCII separados por hífen (-).
Exemplos
user function arc4_exemplo

local cRet
local cOriginal

// resultado ASCII em hex: "55-AB-39-45-24"
cRet = arc4( "abcde" ,"123456789")
conout("Criptografado em ascii = " + cRet)

// converte de ASCII em hex para string
cRet = chr(CTON('55', 16))
cRet += chr(CTON('AB', 16))
cRet += chr(CTON('39', 16))
cRet += chr(CTON('45', 16))
cRet += chr(CTON('24', 16))

// processo inverso
cOriginal = arc4(cRet, "123456789")
conout("Original em ascii = " + cOriginal)

// converte de ASCII em hex para string
cRet = chr(CTON('61', 16))
cRet += chr(CTON('62', 16))
cRet += chr(CTON('63', 16))
cRet += chr(CTON('64', 16))
cRet += chr(CTON('65', 16))
conout ("String original = " + cRet)

return

Abrangência

Microsiga Protheus 8.11 , Protheus 10

 

  • Sem rótulos