» Poradna » Ostatní
dobrý denpoužívám Delphi 7, potřebovala bych ověřovat u souborů kontrolní součty MD5, SHA apod. Existuje nějaký způsob, např. vzorec, kterým lze součty provádět?díky Káča
implementationuses IdHashMessageDigest, idHash;{$R *.dfm}function MD5(const fileName : string) : string;var idmd5 : TIdHashMessageDigest5; fs : TFileStream; hash : T4x4LongWordRecord;begin idmd5 := TIdHashMessageDigest5.Create; fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ; try result := idmd5.AsHex(idmd5.HashValue(fs)) ; finally fs.Free; idmd5.Free; end;end;procedure TForm1.HashBtnClick(Sender: TObject);begin if OpenDlg.Execute = True then begin HashResEdt.Text := MD5(OpenDlg.FileName); end;end;
Související témata: MD5
{{values.description}}
Jak zálohovat fotky z mobilu
Velký test levných chytrých hodinek
Test 16 powerbank s kapacitou 10 000 mAh
Ověřené aplikace pro vzdálenou podporu
Potvrďte prosím přezdívku, kterou jsme náhodně vygenerovali, nebo si zvolte jinou. Zajistí, že váš profil bude unikátní.
Tato přezdívka je už obsazená, zvolte prosím jinou.