Frage zu RC4 Verschlüsselung

[Larsi]

hi, was muss ich machen damit ich damit:

Delphi-Quellcode:

var
  x: TRC4Context;
  str1, str2, str3: string;
begin
  readLn(str1);
  setLength(str2,length(str1));
  writeLn('text: '+str1);

  RC4Init(x,'Passwort');
  RC4Code(x, str1[1], str2[1], Length(str1)); // verschlüsseln
  Rc4Done(x);

  writeLn('coded: '+str2);
  setLength(str3,length(str2));

  RC4Init(x,'Passwort');
  RC4Code(x, str2[1], str3[1], Length(str2)); // entschlüsseln
  Rc4Done(x);

  writeLn('encoded: '+str3);
  readLn;
end;

zb den inhalt eines edit felds verschlüsseln will?

[dominikkv]

versuch doch mal zu verstehen was du da oben kopiert hast.
der erste block kümmert sich um die eingabe, der zweite um die verschlüsselung, der dritte für die ausgebe des verschlüsselten texts, der vierte um die entschlüsselung und der letzte wieder um die ausgabe.