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.
ARC4 ( < cBase>, < cChave> ) --> cStringArc4
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cBase | Caracter | Indica a sequência de caracteres que serão criptografadas. | X | |
| cChave | Caracter | Indica a sequência de caracteres a serem utilizados como chave para o algoritmo de criptografia. | X |
cStringArc4
- (caracter)
- Retorna uma string criptografada.
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