RC4 in ein Programm einbauen

[Sierra]

Hi!
Ich habe versucht mit RC4 einen Text aus einem Memo-Feld zu verschlüsseln.
Ich habe das folgendermaßen gelöst.

Delphi-Quellcode:

procedure TForm1.hatVerschluesselnClick(Sender: TObject);
var Str1, Str2: String;
begin
  Case hatCalgorithmen.ItemIndex of 0: begin
                                         Str1:=hatMplain.Text;
                                         Str2:=hatMcipher.Text;
                                         setLength(Str2,length(Str1));
                                         hatRC4.RC4Init(hatRC4,'Passwort');
                                         hatRC4.RC4Code(hatRC4, Str1[1], Str2[1], Length(Str1));
                                       end;
  end;
end;

Nun bekomme ich aber einen EAccessViolation Error an der Stelle

Delphi-Quellcode:

I:=0;

in der RC4 Unit.
Wie kann ich das beheben?

Vielen Dank.

[Sierra]

Hat sich erledigt.
Trotzdem vielen Dank.

[Phoenix]

Eigentlich wäre es ganz nett, wenn Du uns Deine Lösung auch noch mitteilen würdest. Wenn noch einer eine ähnliche Frage hat sieht er dann gleich, wie es hier gelöst wurde. :)

[Sierra]

Sorry, ich vergaß.
Na klar kann ich euch die Lösung mitteilen.
Es war eigentlich ein dummer Fehler, da ich die Variablen

Delphi-Quellcode:

var D: array[Byte] of Byte;
    I,J: Byte;

natürlich "public" deklarieren musste.
Somit hat sich das erledigt.

Jetzt habe ich aber ein neues Problem.
Der Schlüssel, der benutzt wird, wird hier definiert:

Delphi-Quellcode:

hatRC4.RC4Init(hatRC4,'Schluessel');

Nun habe ich ein neues Formblatt genommen und möchte nun, nachdem dort der Schlüssel in ein Edit-Feld eingegeben und auf einen Button geklickt wurde, den Schlüssel auslesen und an dieser Stelle einfügen.
Wie mache ich das am geschicktesten?

Vielen Dank.

[Luckie]

Zitat:

Zitat von Sierra

Jetzt habe ich aber ein neues Problem.

Für ein neues Problem erstell bitte einen neuen Thread, sonst geht hier alles drunter und drüber. Danke.