RC4 - mini Demoprogramm

[Klaus01]

procedure RC4Init(var Data: TRC4Data; Key: pointer; Len: integer); Angenommen Dein Key ist in Edit1.Text
Dann ist der Aufruf so:

mit

Delphi-Quellcode:

var
  data: TRC4Data

RC4Init(data,@edit1.text[1],length(edit1.text));

procedure RC4Crypt(var Data: TRC4Data; InData, OutData: pointer; Len: integer); Aufruf:

RC4Crypt(data,@Memo1.text[1],<da wo es hin soll>,length(memo1.text)); <da wo es hin soll> kann ein dynamisches Array sein - dazu brauchst Du aber ein Delphi > 3
oder ein Speicherbereich der mit GetMem allokiert wurde (procedure GetMem(var P: Pointer; Size: Integer)).


Grüße
Klaus

[edit] etwas ergänzt