Prüfsummen erstellen (DEC)

[Neutral General]

Hallo,

Wie wärs damit?

Delphi-Quellcode:

var S : String;
begin
  case Combobox1.ItemIndex of 
    0 : S := THash_MD5.CalcFile('Dateiname', TFormat_HEX);
    1 : S := THash_SHA1.CalcFile('Dateiname', TFormat_HEX);
  end;
  ShowMessage(S);
end;

Alternativ:

Delphi-Quellcode:

var S : String;
    Hash: THash;
begin
  case Combobox1.ItemIndex of 
    0 : Hash := THash_MD5.Create;
    1 : Hash := THash_SHA1.Create;
  end;
  S := Hash.CalcFile('Dateiname', TFormat_HEX);
  ShowMessage(S);
end;