Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/6062824/tecnologia.css
|
Pagetitle | ||||
---|---|---|---|---|
|
Encripta e decripta uma determinada cadeia de caracteres usando o algoritmo RC4.
Sintaxe
Bloco de código |
---|
...
|
...
|
...
RC4Crypt( < |
...
cBase >, < |
...
cChave >, [ lAscii ] )
|
Parâmetros
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 |
|
...
lAscii |
...
lógico | Se .T., indica que o retorno será em código ASCII hexadecimal, caso contrário em texto plano. Por padrão é assumido .T. |
|
|
Retorno
Nome | Tipo | Descrição |
---|---|---|
cStringArc4 | caractere |
...
Retorna uma cadeia de caracteres criptografada. O formato depende do parâmetro lAscII. Caso .T., o resultado será em código ASCII hexadecimal sem nenhuma separação. Cada código corresponde a dois caracteres. Ex: |
...
EB1816B28FADA6D81A. |
Exemplos
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
User Function |
...
rc4crypt_exemplo |
...
() local cRet |
...
local cOriginal |
...
// resultado ASCII em hex: "55AB394524" |
...
cRet = rc4crypt( "abcde" ,"123456789", .T.) |
...
conout("Criptografado em ascii = " + cRet) |
...
cRet = rc4crypt( "abcde" ,"123456789", .F.) |
...
conout("Criptografado em string = " + cRet) |
...
// processo inverso |
...
cOriginal = rc4crypt(cRet, "123456789", .F.) |
...
conout("String original = " + cOriginal) |
...
// 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)) |
...
conout ("resultado em hex convertido = " +cRet) |
...
cOriginal = rc4crypt(cRet, "123456789", .F.) |
...
conout("String original = " + cOriginal) Return |
return
...