Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by gammatester,
9. Feb 2012
Hier der schnell zusammengehackte Proof-of-Concept:
program fcrypt;
{$ifdef VER70}
type ansichar = char;
{$else}
{$apptype console}
{$endif}
{----------------------------------------------------}
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by gammatester,
9. Feb 2012
Die eigentliche Funktion ist doch trivial:
procedure crypt(var data: array of word; datalen: integer);
var
i: integer;
begin
testrandom;
for i:=0 to datalen div 2 do data := data xor nextrand;
end;
Ohne die Funktionen testrandom und nextrand wird Dir das aber wahrscheinlich nicht viel weiterhelfen.:(