Vielen Dank Hagen!
Also ich benutze, wie du schon treffend vermutet hast, ein Memo.
Zitat:
Ursachen sind unterschiedlich.
Und genau deswegen ist es nicht so leicht, herauszufinden, wie man dieses Problem umgeht.
Also ich nutze die ganz normale RC 4
Unit.
Diese wird dann so weiterverarbeitet.
Delphi-Quellcode:
procedure TForm1.hatVerschluesselnClick(Sender: TObject);
begin
zText1:=hatMplain.Text;
setLength(zText2,length(zText1));
hatRC4.RC4Init(hatRC4, hatEschluessel.Text);
hatRC4.RC4Code(hatRC4, zText1[1], zText2[1], Length(zText1));
hatMcipher.Text:=zText2;
end;
Delphi-Quellcode:
procedure TForm1.hatEntschluesselnClick(Sender: TObject);
begin
zText1:=hatMcipher.Text;
setLength(zText2,length(zText1));
hatRC4.RC4Init(hatRC4, hatEschluessel.Text);
hatRC4.RC4Code(hatRC4, zText1[1], zText2[1], Length(zText1));
hatMplain.Text:=zText2;
end;