Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
Portuguese |
Pagetitle |
---|
...
...
|
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.
...
Essa função é obsoleta, e deve ser substituída pela função RC4Crypt.
Sintaxe
Bloco de código | ||
---|---|---|
| ||
Arc4( < cBase >, < cChave > )
|
Parâmetros
ARC4 ( < cBase>, < cChave> ) --> cStringArc4
...
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cBase |
...
caractere | Indica a sequência de caracteres que serão criptografadas. | X |
|
cChave |
...
caractere | Indica a sequência de caracteres a serem utilizados como chave para o algoritmo de criptografia. | X |
|
Retorno
Nome |
---|
...
Tipo |
---|
...
Descrição |
---|
cStringArc4 |
...
caractere | Retorna uma string criptografada |
...
contendo os caracteres ASCII em |
...
hexadecimal separados por hífen (-). |
Observações
A função ARC4() possui uma falha na implementação do algoritmo de chaveamento, que pode ocasionar falha na reversão da informação gerada. Por esta razão, esta função é considerada obsoleta desde 2011, e poderá ser removida de futuras versões do Application Server. Em seu lugar, deve ser utilizada a função em seu lugar deve ser usada a função RC4Crypt
Exemplos
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
User Function exemplo()
local cRet
user function arc4_exemplolocal 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 conout("Criptografado em ascii = " +cOriginal) // converte de ASCII em hex para stringcRet = 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 )
Return
|
Abrangência
Microsiga Protheus 8.11 , Protheus 10
Veja também
...