vložil Radek Červinka
6. června 2017 00:17
Předpokládám, že ne všichni sledují všechny nové soubory v instalaci Delphi a tak bych rád upozornil na dvě jednotky z posledních verzí:
System.Hash a System.NetEncoding a chtělo by se říct konečně.
První tj. System.Hash přináší rozumné algoritmy (a pro jistotu i MD5): tj. THashMD5, THashSHA1 a THashSHA2 (no proto) a jako plus THashBobJenkins. Všechno je deklarované jako record a vstupem může být TBytes, string nebo TStream, případně přímo soubor (v poslední verzi).
Druhá jednotka pak třídu TNetEncoding kde jsou hlavní tři singletony:
TNetEncoding = class
…
class property Base64: TNetEncoding read GetBase64Encoding;
class property HTML: TNetEncoding read GetHTMLEncoding;
class property URL: TURLEncoding read GetURLEncoding;
end;
Použití je celkem přímočaré:
var
oSha2: THashSHA2; //< record
by: TBytes;
begin
oSha2 := THashSHA2.Create(SHA256);
by := oSha2.GetHashBytes(Memo1.Text);
Memo2.Text := TNetEncoding.Base64.EncodeBytesToString(by);
Snad to někomu zjednoduší kód.