base des registre pour sauvegarder le mot de passeRésolu

Question

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;

f0xi · Accepted Answer

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%" />

jackalunion · Answer

OK, et merci encore

Base des registre pour sauvegarder le mot de passe

2 réponses

Votre réponse

Discussions similaires