XOR Verschlüsselung

[Sharky]

Hier mal ein mini-Demo:

Delphi-Quellcode:

var
 verschluesselt : String;

procedure TForm1.Button1Click(Sender: TObject);
var
 ndx : Integer;
begin
 verschluesselt := '';
 if (Length(Edit1.Text) > Length(Edit2.Text)) then
  begin
   ShowMessage ('Der Schlüssel muss länger als der Text sein');
  end
 else
  begin
   Label1.Caption := Edit1.Text;
   for ndx := 1 to Length (Edit1.Text) do
    begin
     verschluesselt := verschluesselt + Char (((ORD (Edit1.Text[ndx])) XOR (ORD (Edit2.Text[ndx]))));
    end;
   Edit3.Text := verschluesselt;
  end;
end;

In Edit1 einen Text eingeben. In Edit2 deinen Schlüssel. Dann auf den Button klicken. Jetzt hast Du in Edit3 den verschlüsselten Text.

Wenn Du nun diesen in das Edit1 kopierst und mit dem selben Schlüssel auf Button 1 klickst sollte jetzt in Edit 3 der original Text stehen.