RC4 - mini Demoprogramm

[Coder]

Hi, ich bin gerade dabei RC4 in eine meiner Appliaktionen einzubauen.
Darum hab ich erstmal ein extraprojekt angelegt.
Doch das ist gar nicht so einfach.

ich krieg das nicht hin.

Der hakt an allen Ecken und Enden.

Ich muß doch erst einen Datenarray und Keyarray aus dem Texxt von Memo nud Edit herstelln und dann aufgeteilt [weil Datenarray ist ja nicht so groß vorgegeben] an die Prozeduren senden.

außerdem dachte ich auch, daß bei RC4 mehr als 7 byte , nämlich bis 2048 bit = 256 Byte möglich sind.
Wie kann ich das anpassen?

hab mal mein komplettes Projekt hochgeladen.

[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

[Harry M.]

Luckie hat ein schönes RC4-Demo auf seiner HP.

[Coder]

Zitat von Harry M.:

Luckie hat ein schönes RC4-Demo auf seiner HP.

ja, hab das probiert.
leider läuft Overload aus
procedure RC4Code(var RC4: TRC4Context; const Source; var Dest; Count: Integer); overload;

sowie

4Context; const Value: [String): String;

und mehr nicht unter Delphi 3

Darum hatte ich mich nach einer anderen Unit umgesehn.