Verschlüsselung mit Masterkey

[NoGAD]

Nur der Vollständigkeit halber habe ich das Ganze mal in eine Unit gekapselt, eventuell ist es ja doch für jemanden nützlich.


Testprojekt ist dabei.


Aufruf:

Delphi-Quellcode:

uses
Unit_UUIDKey_01;

var
  t: Unit_UUIDKey_01.TUUIDKeyResult;
begin
  t := Unit_UUIDKey_01.createKey('test_notazip', 500);

In t ist der Key und die benötigten Offsets.

LG Mathias