Xor-Verschlüsselung knacken

Xor-Verschlüsselung knacken

Xor-Verschlüsselung knacken : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Quelle Codebeispiel mit Delphi random() Funktion und XOR Verschlüsselung zu brechen.
[XOR Verschlüsselung knacken]
Löschen einer Schaltfläche und Edit Box auf dem Formular, Text in das Eingabefeld ein muss sein, dass mindestens 8 Zeichen. Wenn du, um tatsächlich verwendest eine verschlüsselte Zeichenfolge brechen, füllen einfach die Puffer [0.. 7] mit verschlüsselten Daten und Füllung [0.. 7] mit den Klartext, den Sie übernehmen ist verschlüsselte (ziemlich einfach, Sie Username von etwas dergleichen).

Ich möchte Cheng Wei (Delphi3000.com aus) Danke für den Hinweis auf meine Lobhudelei langsam Anrufe zu Edit1.text[i]. Ich habe den Algorithmus, überdacht und es testet jetzt Schlüssel als 2 Longwords. infolge dieser Fix überprüft es jetzt 100.000.000 Schlüssel in 15sec auf mein Duron 600! WAAAHOOOOO! Vielen Dank Zut
Cheng!
Prozedur TForm1.Button1Click(Sender: TObject);
Var i, J:longword;
Beichtgeheimnis, Lasttime:longword;
Puffer: Byte-Array [0.. 7];
B:Array [0.. 1] Longword absolute Puffer [0];
Klartext: Byte-Array [0.. 7];
P:Array [0.. 1] von Longword absolute Klartext [0];
Schlüssel: Byte-Array [0.. 7];
K:Array [0.. 1] Longword absolute Schlüssel [0];
beginnen
LastTime: = Gettickcount;
Randomize;
Wenn length(edit1.text) < 8 dann Ausfahrt;
für i: = 0 bis 7 tun
beginnen
Plaintext[i]:=Byte(Edit1.Text[i+1]);
Puffer [i]: = Klartext [i] Xor zufällige (256); //encrypt
Ende;
Ich: = 0;
Wiederholen Sie die

für j: = 0 bis 1000000 tun //loop wird vom Compiler entrollte
beginnen
Randseed: = i;
Key[0]:=Random(256);
Key[1]:=Random(256);
Key[2]:=Random(256);
Key[3]:=Random(256);
Key[4]:=Random(256);
Key[5]:=Random(256);
Key[6]:=Random(256);
Key[7]:=Random(256);
Wenn b [0] Xor k [0] = p [0] dann //test Schlüssel in Blöcken von 4
Wenn b [1] Xor k [1] = p [1] dann
beginnen
Beichtgeheimnis: = Gettickcount;
Bildunterschrift: = 'der Schlüssel ist: '+ inttostr(i) +' ('+
IntToStr ((thistime-lasttime) Div 1000) +'sec)';
Ausfahrt;
Ende;
Inc(i,1);
Ende;
Caption:=IntToStr(i);
Application.ProcessMessages;
bis ich > longword(MaxInt);
Ende;