Criptografia de Senhas!?!?!?!?!?!?!?

[jc]

Olá pessoal.

Preciso saber se existe algum recurso do Fivewin/xHarbour que possa criptografar uma string sem caracteres especiais?

Grato.

[MARCELOG]

Veja a função CRYPT() do xHarbour.

CRYPT(cString,cChave)

Ela criptografa e descritografa.

Espero ter ajudado.

MarceloG

Ps: não se esqueça de eliminar espaços nos procedimentos.

[jc]

Caro Marcelo.

A função do xHarbour funciona sim, mas preciso de uma que me retorne uma string sem caracteres especiais.... pois estou gravando esse retorno no MySQL e ele não reconhece alguns caracteres especiais do DOS.

Grato pela resposta.

[Stanis Luksys]

Olá,

Você pode tentar converter o final com HBOemToAnsi() para caracteres do Windows.

Algo assim:

HBOemToAnsi( Crypt( cString, cChave ) )

Quem sabe assim vai...

Falou!

[vailton]

Olá JC!

A função do xHarbour funciona sim, mas preciso de uma que me retorne uma string sem caracteres especiais.... pois estou gravando esse retorno no MySQL e ele não reconhece alguns caracteres especiais do DOS.

Se estiver usando a SQL LIB (e eu acho que sim), use a função SQL_ANY2SEEK() passando para ela como argumento o valor que você deseja ajustar.

Esta função mascara os caracteres especiais do argumento passado de modo que ela possa ser incluida em um comando SQL sem problemas. Inclusive ela já lhe retorna a string processada envolta em aspas simples!

É só concatenar no comando e mandar executar, exemplo:

Código: Selecionar todos

cNome := [In't see "Nothing"...]
cSQL := 'INSERT INTO comments VALUES (' + SQL_ANY2SEEK(cSQL) + ')'

É mais ou menos isto.
:^)

[jc]

Obrigado Vailton. A função SQL_ANY2SEEK() é impressionante mesmo... mas terminei por utilizar a enconde() do proprio SGBD.

Inclusive ela existe tanto no MySQL quanto no PostgreSQL.

Mas ja estou utilizado a da SQLLIB em outras situações, que foi uma mão na roda.


Valeu Vailton!

[Stanis Luksys]

Ressucitando o tópico...

Eu estive um tempão com o algorítmo para implementar o MD5 no xHarbour, mas sem tempo... Esses dias lí em algum lugar que já existe, acredito que desde as últimas versões.

Portanto, se o negócio for senha ou outros dados que não se deseja descriptografar, é a melhor saída: hb_md5("texto")!

Falou!

[gvc]

Vc já testou a função ENCRYPT do FiveWin?