Olá pessoal.
Preciso saber se existe algum recurso do Fivewin/xHarbour que possa criptografar uma string sem caracteres especiais?
Grato.
Criptografia de Senhas!?!?!?!?!?!?!?
Moderador: Moderadores
8 Mensagens • Página 1 de 1
Criptografia de Senhas!?!?!?!?!?!?!?
por jc » 26 Dez 2006 19:18
Júlio César M. Ferreira
Diretor de Tecnologia
RS Consultores Ltda.
Fone: (81) 4009.5444
Fax: (81) 4009.5400
E-mail: julio.mferreira@gmail.com
MSN: julio_mferreira@hotmail.com
Recife - PE
FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113
Diretor de Tecnologia
RS Consultores Ltda.
Fone: (81) 4009.5444
Fax: (81) 4009.5400
E-mail: julio.mferreira@gmail.com
MSN: julio_mferreira@hotmail.com
Recife - PE
FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113
-
jc Usuário NÃvel 1 
- Mensagens: 16
- Data de registro: 13 Dez 2006 16:23
- Cidade/Estado: Recife - PE
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por MARCELOG » 27 Dez 2006 20:42
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.
CRYPT(cString,cChave)
Ela criptografa e descritografa.
Espero ter ajudado.
MarceloG
Ps: não se esqueça de eliminar espaços nos procedimentos.
-
MARCELOG Usuário NÃvel 4 
- Mensagens: 546
- Data de registro: 15 Mar 2005 16:54
- Cidade/Estado: Divinópolis/MG
- Curtiu: 0 vez
- Mens.Curtidas: 6 vezes
por jc » 27 Dez 2006 22:10
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.
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.
Júlio César M. Ferreira
Diretor de Tecnologia
RS Consultores Ltda.
Fone: (81) 4009.5444
Fax: (81) 4009.5400
E-mail: julio.mferreira@gmail.com
MSN: julio_mferreira@hotmail.com
Recife - PE
FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113
Diretor de Tecnologia
RS Consultores Ltda.
Fone: (81) 4009.5444
Fax: (81) 4009.5400
E-mail: julio.mferreira@gmail.com
MSN: julio_mferreira@hotmail.com
Recife - PE
FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113
-
jc Usuário NÃvel 1 - Mensagens: 16
- Data de registro: 13 Dez 2006 16:23
- Cidade/Estado: Recife - PE
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por Stanis Luksys » 28 Dez 2006 16:28
Olá,
Você pode tentar converter o final com HBOemToAnsi() para caracteres do Windows.
Algo assim:
HBOemToAnsi( Crypt( cString, cChave ) )
Quem sabe assim vai...
Falou!
Você pode tentar converter o final com HBOemToAnsi() para caracteres do Windows.
Algo assim:
HBOemToAnsi( Crypt( cString, cChave ) )
Quem sabe assim vai...
Falou!
Stanis Luksys
sites.google.com/hblibs
Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
sites.google.com/hblibs
Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
-
Stanis Luksys Colaborador 
- Mensagens: 1329
- Data de registro: 18 Jun 2005 03:04
- Cidade/Estado: São Paulo
- Curtiu: 0 vez
- Mens.Curtidas: 2 vezes
por vailton » 28 Dez 2006 18:05
Olá JC!
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:
É mais ou menos isto.
:^)
jc escreveu: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:
cNome := [In't see "Nothing"...]
cSQL := 'INSERT INTO comments VALUES (' + SQL_ANY2SEEK(cSQL) + ')'
É mais ou menos isto.
:^)
-
vailton Colaborador - Mensagens: 378
- Data de registro: 17 Nov 2005 18:08
- Cidade/Estado: Brasil
- Curtiu: 2 vezes
- Mens.Curtidas: 11 vezes
por jc » 03 Jan 2007 19:05
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!
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!
Júlio César M. Ferreira
Diretor de Tecnologia
RS Consultores Ltda.
Fone: (81) 4009.5444
Fax: (81) 4009.5400
E-mail: julio.mferreira@gmail.com
MSN: julio_mferreira@hotmail.com
Recife - PE
FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113
Diretor de Tecnologia
RS Consultores Ltda.
Fone: (81) 4009.5444
Fax: (81) 4009.5400
E-mail: julio.mferreira@gmail.com
MSN: julio_mferreira@hotmail.com
Recife - PE
FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113
-
jc Usuário NÃvel 1 - Mensagens: 16
- Data de registro: 13 Dez 2006 16:23
- Cidade/Estado: Recife - PE
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por Stanis Luksys » 14 Jul 2007 19:13
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!
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!
Stanis Luksys
sites.google.com/hblibs
Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
sites.google.com/hblibs
Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
-
Stanis Luksys Colaborador - Mensagens: 1329
- Data de registro: 18 Jun 2005 03:04
- Cidade/Estado: São Paulo
- Curtiu: 0 vez
- Mens.Curtidas: 2 vezes
por gvc » 16 Jul 2007 12:56
Vc já testou a função ENCRYPT do FiveWin?
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
{POG - Programação Orientada a Gambiarra}
-
gvc Colaborador - Mensagens: 1269
- Data de registro: 23 Ago 2005 10:57
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
Ver tópicos ativos •
8 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
