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 :
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.