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