funktionen & procedures en&decrypten

[Neutral General]

Hi,

Ich meine das so:

Delphi-Quellcode:

type
  TCryptFunc = function(x: Integer): String;

var
  x: Pointer;

begin
  x := Pointer($ABCDEF); // Die Adresse wo die verschlüsselte Funktion steht
  Decrypt(x); // Entschlüsseln
  TCryptFunc(x)(20); // Aufruf
end;