Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

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

Sintaxe

RC4Crypt( < cBase >, < cChave >, [ lAscii ] )

Parâmetros

Nome	Tipo	Descrição	Obrigatório
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

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

Veja também

Criptografia