Sehr kleines Programm für eine RC4 Verschlüsselung

[gammatester]

Zitat von BigT:

also ich habe ja das folgende problem:
ich gebe einen string z.B "ababa" ein.
Wenn ich dann auf den Button klicke, soll dieser String mithilfe von dem RC4 Algoirthmus verschlüsselt werden.

Jetzt ist eben meine Frage, wie ich das in die Procedure init, code und done eintragen muss??

Nett wäre, wenn ihr mir sagt was ich wo reinschreiben muss oder es direkt selber abändert...


Vielen Dank im Voraus

Du must im wesentlich das tun, was auskommentiert ist. Bau noch ein Label ein und verwende

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x: TRC4Context; str1, str2, str3: string;
  i: integer;
begin
  str1:=edit1.text;
  RC4Init(x,'Passwort');
  setlength(str2,Length(str1));
  RC4Code(x, str1[1], str2[1], Length(str1)); // verschlüsseln
  RC4Done(x);
  str3 := '$';
  for i:=1 to length(str2) do begin
    str3 := str3 + inttohex(ord(str2[i]),2)
  end;
  label1.Caption := str3;
  {'ababa' -> $FCE0599566}
end;

Gammatester