TOTVSTEC

Árvore de páginas

  • Criado por Usuário desconhecido (pedro.scarapicchia) em 16 out, 2012

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

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

 

Sintaxe

 RC4Crypt ( < cBase>, < cChave>, {lAscII} ) --> cStringArc4

 

Parâmetros

NomeTipoDescriçãoObrigatórioReferência
cBaseCaracterIndica a sequência de caracteres que serão criptografadas.X 
cChaveCaracterIndica a sequência de caracteres a serem utilizados como chave para o algoritmo de criptografia.X 
lAscIILó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

cStringArc4 (caracter)

  • 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.

Exemplo

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

 

Abrangência

 Builds do Protheus superiores a 7.00.120420A

  • Sem rótulos