Delphide Patatesli Md5 Oturtma

Gerekli malzemeler: 1 adet delphi 1 adet calisan bilgisayar 1 adet md5 uniti 1 kilo patates Yapilisi: Delphi calistirilir ve yeni bir proje olusturulur. Yeni projenin ici hafifce yaglanir ki md5 imiz delphiye yapismasin. md5 üniti library path'e eklenir. (Tools\Environment Options\Library\Library Path) ve iyice cirpilir. Form üzerine bir adet tbutton, bir adet tedit ve bir adet tmemo yerlestirilir. Button1'e çift tiklanarak asagidaki yazilar copy/paste yoluyla ilgili yere aktarilir.

procedure TForm1.Button1Click(Sender: TObject); begin with Memo1.Lines do begin if Count > 0 then Add(''); Add(Format('%s(''%s'') =' + #13#10 +' %s', ['MD5String', Edit1.Text, MD5Print(MD5String(Edit1.Text))])); end; end;

Mutfagimiz biraz kotu oldugundan kodlarimiz biraz kotu gozukuyor olabilir kusura bakilmasin artik. Her neyse Uses satirina md5'i eklemeyi unutmuyoruz yoksa patateslerin pismesi uzun surebilir. :)

F9 ile Run Neo Run diyelim. Edit1'e birseyler yazalim. Sonra Button1'e tiklayalim. Memo1 de asagidakine benzer bise goruyor olmalisniz.

MD5String('md5') = 1bc29b36f623ba82aaf6724fd3b16718

goremiyorsan bi yerde hata yapmissindir. neyse onemli degil. benim yaptigim kaynak kodlari burdan indiriver..

orjinal ornek dosyasini indirmek icin buraya tiklayin.

yemegimiz hazir. afiyet olsun... allah orucunuzu kabul etsin. gelecek programda gorusmek uzere...

------------ Delphi ile md5 nasıl kullanılır ? bu da google icin :)