La fissuration de cryptage xor

La fissuration de cryptage xor

La fissuration de cryptage xor : Plusieurs milliers de conseils pour vous faciliter la vie.

exemple de code Source de façon a casser le cryptage a l'aide de Delphi random() et la fonction XOR.
[Fissuration XOR Cryptage]]
deposez un bouton et la zone d'edition sur la forme, le texte dans la zone d'edition doit etre d'au moins 8 caracteres. si vous utilisez actuellement a briser une chaîne cryptee, il vous suffit de remplir tampon [0..7] avec des donnees chiffrees et de remplissage [0..7] le texte en clair vous assumez est crypte (ce qui est assez facile, vous nom d'utilisateur de quelque chose de la sorte).

je tiens a remercier Cheng Wei (sur Delphi3000.com) pour souligner mon rediculously lent appels a Edit1.texte[i]. J'ai repense a l'algorithme, et maintenant les tests de cles, de 2 longwords. la suite de cette correction, il scanne maintenant 100,000,000 cles dans 15seconds sur mon duron 600! WAAAHOOOOO! Grace attribuer
Cheng!
procedure TForm1.Button1Click(Sender: TObject)
var i,j:longword
& ! & ! & ! & nbsp thistime,lasttime:longword
& ! & ! & ! & nbsp tampon:array[0..7]of byte
& ! & ! & ! & nbsp b:array[0..1]de longword absolue tampon[0]
& ! & ! & ! & nbsp clair:array[0..7]of byte
& ! & ! & ! & nbsp p:array[0..1]de longword absolu en clair[0]
& ! & ! & ! & nbsp cles:array[0..7]of byte
& ! & ! & ! & nbsp k:array[0..1]de longword absolue touche[0]
begin
& nbsp & nbsp & nbsp lasttime:=gettickcount
& nbsp & nbsp & nbsp aleatoire
& nbsp & nbsp & nbsp si la longueur(edit1.texte)<8 puis la sortie
& nbsp & nbsp & nbsp for i:=0 to 7 do
& nbsp & nbsp & nbsp commencer
& ! & ! & ! & ! & ! & nbsp clair[i]:=octet(edit1.texte[i 1])
& ! & ! & ! & ! & ! & nbsp tampon[i]:=plaintext[i] xor aleatoire(256) //crypter
& nbsp & nbsp & nbsp fin
& ! & ! & ! i:=0
& nbsp & nbsp & nbsp repeat

& ! & ! & ! & ! & ! & nbsp pour j:=De 0 a 1000000 do //boucle est deroule par le compilateur
& ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp randseed:=i
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[0]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[1]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[2]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[3]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[4]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[5]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[6]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp touche[7]:=random(256)
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp si b[0] xor k[0]=p[0] puis //test de la cle en blocs de 4
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp si b[1] xor k[1]=p[1], puis
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp commencer
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp thistime:=gettickcount
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp caption:='La cle est:' inttostr(i) ' ('
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp inttostr((thistime-lasttime)div 1000) 'sec)'
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Sortie
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp inc(i,1)
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & ! & ! & nbsp caption:=inttostr(i)
& ! & ! & ! & ! & ! & nbsp application.processmessages
& nbsp & nbsp & nbsp jusqu'a ce que je>longword(exemple maxint)
fin