jdmoura Posted February 17, 2009 Report Share Posted February 17, 2009 Ola Galera! Estou com um probleminha eu fiz um castro de usuario do qual eu uso a função encrypt() do FW para encriptar a senha porem qndo o usuario vai entrar no sistema em vez de descriptar a senha eu encripto a senha digita pelo usuario e comparo com a que esta no dbf já encriptada. Com os dois primeiros blz ma agora apartir do terceiro usuario cadastrado ela da senha erra. Alguem pode me ajudar. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 18/02/2009 10:55:40 Quote Link to comment Share on other sites More sharing options...
jdmoura Posted February 17, 2009 Author Report Share Posted February 17, 2009 Ola Galera! Estou com um probleminha eu fiz um castro de usuario do qual eu uso a função encrypt() do FW para encriptar a senha porem qndo o usuario vai entrar no sistema em vez de descriptar a senha eu encripto a senha digita pelo usuario e comparo com a que esta no dbf já encriptada. Com os dois primeiros blz ma agora apartir do terceiro usuario cadastrado ela da senha erra. Alguem pode me ajudar. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Editado por - jdmoura on 18/02/2009 10:55:40 Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted February 17, 2009 Report Share Posted February 17, 2009 Qual o tamanho do campo no DBF e o tamanho da senha encriptada?? Será que não está faltando espaço?? Quote Link to comment Share on other sites More sharing options...
jdmoura Posted February 17, 2009 Author Report Share Posted February 17, 2009 Ola Anderson Tem o mesmo tamanho caracter de 12 os dois primeiros usuario não tem problema algum mas do terceiro usuario para frente ele da senha erra. xUser := space(20) do while .T. xSenha := space(12) DEFINE DIALOG oDlg RESOURCE 'Senha4' oDlg:Cargo:=.f. Redefine get oGet VAR xUser pict "@!" ID 101 of oDlg Redefine get oGet VAR xSenha pict "@!" ID 102 of oDlg valid !empty(xSenha) Redefine ButtonBMP obtn Prompt " &Aceitar" BITMAP "Aceita" TEXTRIGHT id 701 of oDlg Action (oDlg:Cargo := .T.,oDlg:End(Beep(5))) Redefine ButtonBMP obtn Prompt " &Rejeitar" BITMAP "Cancel" TEXTRIGHT id 702 of oDlg Action odlg:end(beep(5)) ACTIVATE DIALOG oDlg CENTERED ON PAINT GradioDlg( oDlg,"Senha Acesso", 'SAO - JmS',,'Tecmar1' ) if !odlg:cargo exit endif vUser := left(xUser,2) vSenha := encrypt(xSenha+vUser) sele 100 set order to tag Sen_SHA seek vsenha if alltrim(vSenha) != alltrim(Senha->Pass) beep(5) MsgAlert(OemToAnsi("Acesso Negado. Senha Invalida !!!"),OemToAnsi("Aten‡Æo")) loop else ......... endif .... enddo id=code>id=code>Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Quote Link to comment Share on other sites More sharing options...
Guest n/a Posted February 17, 2009 Report Share Posted February 17, 2009 Uma dica coloque um alert exibindo o resultado do que esta sendo inserido e o do qual esta comparando ai vc vai saber se o erro [X]Harbour 1.1.0|Fwh 8.5|Bcc55|Pelles|MySQL ^^ http://www.redstarsoft.net Quote Link to comment Share on other sites More sharing options...
jdmoura Posted February 17, 2009 Author Report Share Posted February 17, 2009 Ola Lainton! Eu coloquei, porém eu percebi que a senha encriptada no DBF, não é a mesma que o usuario digita. Sendo que eu usei a mesma função para encriptar as duas tanto a do DBF de Usuarios como ao que o usuario digita. a função é encrypt(cVariavel). Observei que quando ele encripta e salva no dbf de usuarios, fica diferente quando ele digita a mesma senha para ser localizada no dbf de usuarios. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Quote Link to comment Share on other sites More sharing options...
Guest n/a Posted February 18, 2009 Report Share Posted February 18, 2009 Cara eu uso funcao do xharbour algumas pessoas me falou que tem problema nela "eu uso a mais de ano nunca tive nenhum" segue abaixo caso queira usar citação: PROCEDURE Main LOCAL cText := "Hello world" LOCAL cKey := "chavedacryptografia" LOCAL cCipher cCipher := HB_Crypt( cText, cKey ) ? cCipher ? HB_Decrypt( cCipher, cKey ) RETURN id=quote>id=quote>[X]Harbour 1.1.0|Fwh 8.5|Bcc55|Pelles|MySQL ^^ http://www.redstarsoft.net Quote Link to comment Share on other sites More sharing options...
sambomb Posted February 18, 2009 Report Share Posted February 18, 2009 1 caracter encriptado ocupa mais espaço que um normal... tente aumentar o campo para 50 ou 100.... MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 Quote Link to comment Share on other sites More sharing options...
jdmoura Posted February 18, 2009 Author Report Share Posted February 18, 2009 Ola Galera! Funcionou agora funcionou legarl usei o HB_Crypt( cText, cKey ) Deu certo, muito obrigado mesmo. Um clipperAbraço jdmoura Jdemourasilva@yahoo.com.br Londrina - Paraná Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.