Base des registre pour sauvegarder le mot de passe [Résolu]

Messages postés
129
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
- - Dernière réponse : jackalunion
Messages postés
129
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
- 18 juin 2008 à 13:31
 J ai utiliser la base des registre pour sauvegarder le mot de pass, et je me demander si il ya une autre solution ???

USES
Registry

Procedure TForm1.ValiderClick(sender:TObject);
 Var
      Reg:TRegInifile;
      Pass:string;
Begin
        // Pour verifier le mot de pass
    Reg:= TRegIniFile.Create;
    Reg.RootKey:=HKEY_CLASSES_ROOT;
    Pass:=reg.ReadString('Jackal','Pass4',");
    Reg.CloseKey;
   Reg.Free;

If edit1.text =pass then
        begin
               Messagedlg('Le mot de pass est valide',Mtinformation,[MBok],0) else
              Messagedlg('Mot de pass Invalide', Mtinformation, [MBok], 0);
        end;
        
Pour changer le mot de pass j'ai mis

Procedure TForm1.ChangerpassClick(Sender:TOblect);
Var
Reg:TRegIniFile;
Begin
 If Confirmpass.text = Confirmpass2.text then
 Begin
 Messagedlg('Le mot de pass est valide',MTinformation, [MBok],0);
Reg:=TReginifile.Create;
Reg:=Rootkey:=HKEY_CLASSES_ROOT;
Reg.WriteString ('Jackal','Pass',Confirmpass2.text);
Reg.Closekey;
Reg.Free;
End
Else ShowMessage('Le mot de pass Ne correspond pas a la confirmation');
end;
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
26
3
Merci
exemple a la noix :

uses registry, tinyhash;

procedure TForm2.FormCreate(Sender: TObject);
var Reg : TRegistry;
    Pss : TSHA1Digest;
    Pass: String;
begin
  Pass:= 'HelloWorld!';

  Pss := SHA1(Pass);

  (...)

  Reg.WriteBinaryData('PSS', Pss, SizeOf(TSHA1Digest));

  (...)

  Reg.ReadBinaryData('PSS', Pss, SizeOf(TSHA1Digest));

  (...)
  if SHA1Compare(SHA1(Pass), PSS) then
    (...)
  else
    (...)
end;








<hr size="2" width="100%" />

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 194 internautes nous ont dit merci ce mois-ci

Commenter la réponse de f0xi
Messages postés
129
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
3
Merci
OK, et merci encore

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 194 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jackalunion