MD5 с сайта!!!

[timyr1997]

Есть сайт http://md5-hash-online.waraxe.us/ на нем есть хэширование MD5!!! При вводе в edit1 текст и нажимая кнопку, в edit2 появится хэшированный MD5 !!!

Можете код написать? Заранее спасибо

[kangreon]

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:TStringList;
  i:Integer;
begin
  s:=TStringList.Create;
  s.Add('md5-calculate-hash-plaintext='+ Edit1.Text);
  s.Add('md5-calculate-hash=Calculate md5 hash');
  s.Text := IdHTTP1.Post('http://md5-hash-online.waraxe.us/',s);
  i := pos('<textarea',s.Text);
  Edit2.Text := Copy(s.Text,PosEx('>',s.Text,i)+1,PosEx('</',s.text,i)-PosEx('>',s.Text,i)-1);
  s.free;
end;

[timyr1997]

Спасибо!!! Работает

[Voody]

Зачем делать запрос для функции, которая есть в Инди))

[W0LF]

И правда, а если интернета небудет, а md5 нужен? Глупо вообщем получать хэш через сайт...

http://delphiworld.narod.ru/base/md5.html
Сохрани в pas, подключи в uses и пользуйся на здоровье.

[Voody]

uses IdHashMessageDigest

var IdHashMessageDigest5:TIdHashMessageDigest5;
     s:string;
begin
 IdHashMessageDigest5:=TIdHashMessageDigest5.create;
 s:=IdHashMessageDigest5.HashStringAsHex('qwerty');
end;