TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Daniel Otto Bolognani

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (ailton.lichman)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Adicionado novo parâmetro e exemplo; revisão do texto dos parâmetros.

...

Bloco de código
collapsefalse
RC4Crypt( < cBasecInput >, < cChavecKey >, [ lAsciilIsReturnASCII ], [ lIsInputASCII ] )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cBasecInput

caractere

Indica a sequência de caracteres que serão criptografadascriptografados.

X

 

cChavecKey

caractere

Indica a sequência de caracteres a serem utilizados como chave para o algoritmo de criptografia.

X

 

lAsciilIsReturnASCII

lógico

Formato do retorno. Se .T., indica que o retorno será em código ASCII hexadecimal, onde cada código corresponde a dois caracteres, sem "0x" inicial; caso contrário, se .F., o retorno será em texto plano. Por padrão é assumido .T..

 

 

lIsInputASCII

lógico

Formato da entrada. Se .T., indica que a entrada está em código ASCII hexadecimal, onde cada código corresponde a dois caracteres, sem "0x" inicial; caso contrário, se .F., a entrada está em texto plano. Por padrão é assumido .F..

 

 

Retorno

Nome

Tipo

Descrição

cStringArc4cRet

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.

Observações

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
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

User Function input_ascii_test()
  local cRet
  local cOriginal
  // resultado ASCII em hex: "55AB394524"
  cRet = rc4crypt( "abcde" ,"123456789", .T.)
  conout("Criptografado em ascii = " + cRet)
  cOriginal = rc4crypt(cRet, "123456789", .F., .T.)
  conout("String original = " + cOriginal)
Return

Veja também