Verschlüsselporgramm!

[Christian Seehase]

Moin Maximi,

ich hab' das mal etwas zusammengestrichen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var  s: String;
     i: Integer;
begin
  s:=Edit1.Text;
  for i:=1 to length(s) do begin
    s[i]:=char(nummer_buchstaben[i mod high(nummer_buchstaben)] Xor Ord(s[i]));
  end;
  Edit2.text := s;
end;

procedure TForm1.Button2Click(Sender: TObject);
var  s: String;
     i: Integer;
begin
  s:=Edit2.Text;
  for i:=1 to length(s) do begin
    s[i]:=char(nummer_buchstaben[i mod high(nummer_buchstaben)] Xor Ord(s[i]));
  end;
  Edit1.text := s;
end;

das array buchstaben kann komplett entfallen.

Wenn Du mit XOR verschlüsselst, brauchst Du nur den Schlüssel, weil zweimalige Verknüpfung mit dem selben Wert den Ursprungswert zurückliefert.
Beim ersten Durchlauf wird ver- beim zweiten entschlüsselt.

Verallgemeinert könnte man das so sagen:
s = Schlüssel eines Zeichens
z = Das Zeichen selber
v = Das Ergebnis der Verknüpfung

(s,z und v sind als Platzhalter, nicht als Werte anzusehen)

z xor s = v
v xor s = z

Du musst halt nur berücksichtigen, dass der Schlüssel immer wieder von Vorne verwendet wird, wenn die Schlüssellänge kleiner als die Textlänge ist (deshalb das i mod high(...) )

Leg einfach noch einmal ein Edit Feld und einen Button auf das Formular und als OnClick für den Button nimm mal folgendes:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var  s: String;
     i: Integer;
begin
  s:=Edit3.Text;
  for i:=1 to length(s) do begin
    s[i]:=char(nummer_buchstaben[i mod high(nummer_buchstaben)] Xor Ord(s[i]));
  end;
  Edit3.text := s;
end;

Gibst Du jetzt einen Wert in Edit3 ein, und klickst den Button wird ver- bei nochmaligem anklicken entschlüsselt usw.
Es könnte nur Probleme geben, wenn das Ergebnis der Verschlüsselung ein Steuerzeichen ergibt, dass nicht im Edit angezeigt werden kann.