MD5-krypterings komponent!

Ganske utestet: http://www.fichtner.net/delphi/md5.delphi.phtml :o)

Synes ikke jeg kan få den til at virke!
Har hentet testen man kan køre ned, og den kører fint. Så det fungerer fint.

Men f.eks. dette virker ikke:

procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Caption := MD5String(Edit1.Text);
end;

Den siger incompatiple type 'String' and MD5Digest.

Jeg har kun hurtigt kigget på koden (MD5-uniten), men prøv:

procedure TForm1.Label1Click(Sender: TObject);
begin
  Label1.Caption := MD5Print(MD5String(Edit1.Text));
end;

:o)

:-D Lav et svar .... Hæhæ...!

Svar :o)

hvordan dekryptere man så sin tekst igen?

stefmeister -> MD5 er _ikke_ kryptering.
MD5 giver derimod unikke (sikkert ikke helt 100% unikke) værdier på 32 (mener jeg) tegn, som ikke bare kan laves om til den oprindelige streng.

Det benyttes til mange ting, bl.a. til download af store filer via internettet, hvor man efter endt download nogle gange så kan finde filens MD5-sum, og sammenligne med en på det website man har hentet filen fra, for at være sikker på, at filen ikke er beskadiget :o)

Tænk, hvis man kunne tage en fil på 75 MB, og så kunne lægge dens MD5-sum på 32 Byte på internettet - og folk så kunne "dekryptere" den MD5-sum og få den oprindelige fil på 75 MB - det ville jo være umuligt...

nå ja... det kan jeg da egentlig godt se nu da du forklarer det... Undrede mig også lidt over at den Demo jeg downloade kunne klare at man lagde en .exe fil ind i den.