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
I:=0;
in der RC4
Unit.
Wie kann ich das beheben?
Vielen Dank.