Schnelle Verschlüsselung/Entschlüsselung von Strings???

[shmia]

Hier eine Funktion für die XOR-Verschlüsselung.
Das Ergebnis ist ein String mit binären Daten (auch Hex $0).
Ruft man die Funktion ein 2. Mal auf entsteht wieder der Orginaltext (was im Prinzip der Umkehrbarkeit von XOR liegt).

Für die Übertragung per TCP/IP muss dem Empfänger über ein Längenwort
mitgeteilt werden wie lange die verschlüsselten Daten sind.

Delphi-Quellcode:

function StringXorCrypt(const text, key:Ansistring):Ansistring;
var
   i, j, keylen : Integer;
begin
   SetLength(Result, length(text));
   j := 1;
   keylen := Length(key);
   for i := 1 to Length(text) do
   begin
      Result[i] := AnsiChr(ord(text[i]) xor ord(key[j]));
      Inc(j);
      if j > keylen then j := 1;
   end;
end;

[Popov]

Wenn es dir nur um einen Sichtschutz geht, wie wäre es mit ROT13 Verschlüsselung? Hierbei werden die Buchstaben des Alphabets um 13 Stellen rotiert. Diese Verschlüsselungsart ist alt, bekannt, aber nicht unbedingt sicher, denn sie kann zu Not wieder leicht dekodiert werden. Aber sie ist schnell und bietet einen guten Sichtschutz.

[romber]

Zitat von Popov:

Wenn es dir nur um einen Sichtschutz geht, wie wäre es mit ROT13 Verschlüsselung? Hierbei werden die Buchstaben des Alphabets um 13 Stellen rotiert. Diese Verschlüsselungsart ist alt, bekannt, aber nicht unbedingt sicher, denn sie kann zu Not wieder leicht dekodiert werden. Aber sie ist schnell und bietet einen guten Sichtschutz.

Und wie sieht es dann aus mit den Sonderzeichen?

[Popov]

Zitat von romber:

Und wie sieht es dann aus mit den Sonderzeichen?

Hier kannst du ein wenig zu dem Thema lesen: http://de.wikipedia.org/wiki/ROT13

Das "besondere" an ROT13 ist, dass es nur eine Prozedur für Ver- und Entschlüsselung gibt. Eigentlich gilt das nur für das reine 26 Zeichen Alphabet. Der Gag dabei ist, dass ein mal rotieren den Text verschlüsselt, noch mal rotieren wieder entschlüsselt. Wenn du noch weitere Zeichen Verschlüsseln willst, mußt du eine Anwandlung von ROT13 schreiben.

[romber]

Vielen Dank für die schnelle Reaktionen!

@shmia
Muss der Key genauso lang sein wie der zu verschlüsselnde String (so wie es bei XOR vorgeschrieben ist) oder kann ich ein beliebig langes Key verwenden?

[shmia]

Zitat von romber:

Muss der Key genauso lang sein wie der zu verschlüsselnde String (so wie es bei XOR vorgeschrieben ist) oder kann ich ein beliebig langes Key verwenden?

Der Key darf beliebig lang sein. Sollte der Key kürzer als die Nutzdaten sein, wird er wieder beginnend mit dem 1. Zeichen verwendet.
Wenn der Key nur ein Zeichen lang ist, wird jedes Zeichen mit dem gleichen Wert "verXodert".

[romber]

Kann ich AnsiString durch PAnsiChar ersetzen? Sollte dadurch perfomanter werden...

[shmia]

Zitat von romber:

Kann ich AnsiString durch PAnsiChar ersetzen? Sollte dadurch perfomanter werden...

Na klar, allerdings würde ich nur innerhalb der Funktion mit Zeigern arbeiten.
Ich empfehle vor der Änderung einen kleinen Test schreiben.
Dann kannst du danach sicher sein, dass alles noch in Ordnung ist.

Delphi-Quellcode:

var
  text, key, ctext : Ansistring;
begin
  text := 'das ist der Text, der verschlüssel werden soll'#0#13#10'....1234567890';
  key := 'geheimer key';

  ctext := StringXorCrypt(text, key);

  if StringXorCrypt(ctext, key) <> text then
     raise Exception.Create('Funktion StringXorCrypt() ist defekt');
end;

PS: die Delphi Funktion ist um Welten schneller als der Datentransport über das Netzwerk.
Du fängst jetzt an zu optimieren ohne zu wissen ob das überhaupt notwendig ist.
Man nennt das "premature optimization". siehe auch: http://www.clean-code-developer.de/V...mierungen.ashx

[romber]

Result[i] := chr(ord(Text[i]) xor ord(Key[j]));

Vielleicht noch chr direkt durch AnsiChar ersetzen, ansonsten "Inkompatible Typen: 'AnsiChar' und 'Char'"

Zitat von shmia:

Du fängst jetzt an zu optimieren ohne zu wissen ob das überhaupt notwendig ist.

Stimmt, ich probiere es erstmal so aus. Im monent wird der String zwar verschlüsselt, aber nur teilweise wieder entschlüsselt.

[himitsu]

Ich würde noch empfehlen den String vorher in allgemeingültiges und stabiles Format zu konvertieren.
UTF-8 bietet sich da besonders an.
Und erst danach zu verschlüsseln.

Somit kann man die Funktion für ANSI und Unicode verwenden und für beide Codierungen wäre alles sogar kompatibel untereinander.

Ansonsten muß man sich eben auf einen Typen festlegen (meistens AnsiString), aber zukunftssicher wäre es dann nicht unbedingt.