Text in bestimmte Zahlen umwandeln

[Nicolai1234]

Nochmal ein Auszug aus dem EDH:

Zitat:

Einfach Text verschlüsseln


Wie kann ich einfach Text verschlüssen, so dass er nicht auf Anhieb gelesen werden kann?

Das kannst Du mit der XOR-Methode machen. Sie ist nicht sonderlich sicher, aber ist einfach anzuwenden:

In S steht dann der verschlüsselte String drin:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Kodieren
  s:=Edit1.Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor Ord(s[i]));
end;

Entschlüsseln. Der verschlüsselte Text muss zuvor in S drinstehen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Dekodieren
  for i:=1 to length(s) do
    s[i]:=char(23 Xor ord(s[i]));
  Edit1.Text:=s;
end;

Für 23 kann eine beliebige Zahl zwischen 1 und 31 eingesetzt werden, wenn man eine Textdatei erstellen möchte. Man brauch also kaum 255 Versuche um diesen String zu entschlüsseln. Du kannst die Methode verbessern, indem Du für jeden Buchstaben eine andere Zahl nimmst. Lege eine Zahl per Random fest speichere sie als Header in der Datei und berechne aus dieser Zahl die nächsten.

--
Name: Simon Reinhardt
E-Mail : [e-mail]