Textdatei Md5

[capo]

Hallo...ja habe ich gerade im Moment getestet, es kommt leider auch ein anderes Ergebnis dabei raus.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to memo1.lines.count do begin
    Memo2.lines.Add(LowerCase(gethashstr(Memo1.lines[i])))
  end;
end;