Discussion :

[cincap]

Bonjour à toutes et à tous,

J'ouvre un new topic concernant le cryptage car j'essaye d'utiliser l'unité Md5.

Avec ce code, je crypte le texte mais je ne trouve pas comment le décrypter !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
uses Md5;
 
procedure TForm1.Button1Click(Sender: TObject);
var StACrypt,StCrypt:String;
Digest:MD5Digest;
begin
StACrypt:=Edit1.Text; //Texte à crypter
Digest:=MD5String(StACrypt);
StCrypt:=MD5Print(Digest);
Edit2.Text:=StCrypt; //Texte crypté
end;

Merci d'une aide éventuelle.

@+,

cincap

[foetus]

je ne trouve pas comment le décrypter !

Le résultat de l'algo MD5 est une empreinte numérique ou hash en anglais.
Et cette empreinte est censée être unique pour chaque "entrée", parce que ce n'est plus le cas avec le MD5.
C'est pour cela qu'on est passé à l'algo SHA-256 ou bcrypt

Et une empreinte numérique ne peut pas être déchiffrée.
Le seul moyen, c'est de tester 2 empreintes pour savoir si les 2 entrées sont identiques.

Si tu veux déchiffrer, il faut utiliser un algo symétrique comme AES ou Blowfish

[cincap]

@ foetus, merci de ta réaction, je vais en terminer avec ce code car c'est plutôt pour mon usage personnel et mon enrichissement bien entendu.

@+,

cincap