Funktion Rückgängig Machen

[sirius]

Ja klar, teste es einfach aus funktioniert wunderbar:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const pw='Hallo';  //Passwort
      l=10; //Länge des zu verschlüsselnden Textes
var a:array[1..l+1] of byte;
    i,p:integer;
    z:pchar;
begin
  a[l+1]:=0; //Ende von PChar
  z:=addr(a[1]); //z zeigt auf das Array um die Zahlen als Buchstaben zu lesen
  memo1.clear;

  //Wort erzeugen
  memo1.lines.add('Original (Zufallswerte)');
  for i:=1 to l do begin
    a[i]:=random(26)+65; //zufällig einen Buchstaben erstellen
    memo1.lines.add(inttostr(a[i]));
  end;
  memo1.lines.add(z);

  //Encrypten
  memo1.lines.add('');
  memo1.lines.add('Codiert');
  p:=1;
  for i:=1 to l do begin
    if p>length(pw) then p:=1;
    a[i]:=a[i] xor ord(pw[p]);
    inc(p);
  end;
  for i:=1 to l do memo1.lines.add(inttostr(a[i]));
  memo1.lines.add(z);

  //Decrypten
  memo1.lines.add('');
  memo1.lines.add('Zurückgerechnet');
  p:=1;
  for i:=1 to l do begin
    if p>length(pw) then p:=1;
    a[i]:=a[i] xor ord(pw[p]);
    inc(p);
  end;
  for i:=1 to l do memo1.lines.add(inttostr(a[i]));
  memo1.lines.add(z);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

end.

Edit: Das Verschlüsseln und Entschlüsseln sieht bei mir auch total identisch aus. Musst dir einfach nur mal im binären aufschreiben, was da passiert. wenn du zweimal ein Xor hintereinander machst, kommt der Anfangswert wieder heraus.

Anfangswert: 0101 =5
Passwort: 1100 =12

codierte Zahl: 0101 xor 1100 = 1001 =9

und jetzt nochmal xor: 1001 xor 1100 = 0101 =5

Also aus 5 mach 9 und wieder 5 (Mit dem Passwort 12)
Und auch wenn dein Passwort x Stellen hat, du nimmst ja bei jeder Stelle des Textes auch wieder dieselbe Stelle des Passwortes.