Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle
RC4Crypt
RC4Crypt

Encripta e decripta uma determinada cadeia de caracteres usando o algoritmo RC4.

Sintaxe

Bloco de código

...

collapse

...

false

...

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

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
languagecpp
themeEclipse
linenumberstrue
collapsefalse
User Function

Exemplo

...

 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

 

Abrangência

...

Veja também