Hi,

ich hab mal ne Frage, da ich letztens im Intenet nach Verschlüsselungssoftware gesucht habe bin ich auf die Idee gekommen selbst ein kleines Prog zu programmieren. Da bin ich dann auf diesen Code gestoßen :

markieren

Delphi-Quellcode:

 procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
i : integer;
begin
  s:=Memo1.Text;
  for i:=1 to length(s) do
    s[i]:=char(22 Xor Ord(s[i]));
    Memo2.text := s;
end;

Kann mir vielleicht jemand sagen, was er aussagt ?

Zitat von Freak1993:

Hi,

ich hab mal ne Frage, da ich letztens im Intenet nach Verschlüsselungssoftware gesucht habe bin ich auf die Idee gekommen selbst ein kleines Prog zu programmieren. Da bin ich dann auf diesen Code gestoßen :

markieren

Delphi-Quellcode:

 procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
i : integer;
begin
  s:=Memo1.Text;
  for i:=1 to length(s) do
    s[i]:=char(22 Xor Ord(s[i]));
    Memo2.text := s;
end;

Kann mir vielleicht jemand sagen, was er aussagt ?

XOR...Wikipedia...aber nebenbei...Du verschluesselst die Datei(jedes einzelne Byte) mit "22"..beim entschluesseln musst Du dann nur wieder mit "XOR 22" die Datei herstellen.
damit ist der Inhalt ueber einen Texteditor nicht lesbar und somit nur mit Programm sichtbar zu machen.

Du nimmst eine XOR-Verschlüsselung vor. Es wird dabei von jedem Zeichen der Character-Wert genommen (-> ASCII-Tabelle) und mit 22 verschlüsselt. 22 ist somit der Schlüssel zum Ver- und Entschlüsseln.

Wenn du den selben Vorgang mit dem verschlüsselten Wort machst, so kommt wieder dein ursprünglicher Text heraus.

-> sehr einfach Verschlüsselung.

Edit: Der rote Kasten mag mich wohl nicht... oO