System.Hash a System.NetEncoding

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.