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

[romber]

Hallo!

Ich übertrage String-Daten (300 - 1.500 Zeichen) vom Server zum Client - bisher als Plain-Text. Die Übetragung ist absolut zeitkritisch. Nun bin ich auf der Suche nach einem schnellen einfachen Verschlüsselunsalgorithmus. Ich brauche keine besondere Sicherheit, mir ist nur wichtig, dass die Daten nicht Plain-Text übertragen werden und möglichst schnell ver- und entschlüsselt werden. Was könnt Ihr mir empfehlen?

[Aphton]

Xor Verschlüsselung (Bit Arithmetik)?!

[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]

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?

[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?

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