, source code voorbeeld van hoe de encryptie kraken met behulp van Delphi () of functie en exclusieve of encryptie kraken,] [,,, knop, in de vorm van Edit, in tekstvak moet ten minste acht karakter van de tekst.Als je echt om de encryptie te kraken... En vul de [0, 7] en [0 - gecodeerde gegevens in te vullen, 7] en de encryptie (denk je dat het makkelijk is, je gebruikersnaam, dit soort dingen),,,,, en ik dank de duur (in dat delphi3000. COM ik Bel de tekst van een rand langzaam [I].Ik opnieuw de algoritme sleutel 2 longwords, nu testen.Als gevolg van dit herstel nu scannen, 100 miljoen sleutels in m 'n draak 600 15!Waaahooooo!Bedankt voor het delen,, Cheng.,,,. TForm1.Button1Click (Sender: TObject);,, var I, j:longword;,, thistime, lasttime:longword;,,,, buffer:array[0..7]of byte; b:array[0..1]of longword absolute buffer[0];,, plaintext:array [0..7]of byte;,, p:array[0..1]of longword absolute plaintext[0];,,,, key:array[0..7]of byte; k:array[0..1]of longword absolute key[0] beginnen;,,, lasttime:=gettickcount;,,,,, randomize; als de lengte (edit1.text) < 8 dan verlaten, voor i:=0 tot 7;,.,,, ", plaintext[i]: =byte (edit1.text[i+1]);,, buffer[i]: =plaintext[i] teksten random (256); //encrypt, einde van i:=0;,,,,,,, herhaal. J:=0 te doen, voor 1 miljoen //loop is unrolled door zullen beginnen, maar,,,Dseed:=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);,, als b[0] teksten k[0]=p[0] dan //test sleutel in blokken van 4, als b[1] teksten k[1]=p[1], dan beginnen thistime:=gettickcount;,,,,, caption:='The sleutel:'+inttostr (i) + (.,, inttostr ((thistime-lasttime) di 1000), +'sec) "; uitgang;,,,,,,, Inc (I, 1);,,,,,,,, caption:=inttostr (i); application.processmessages;,, tot i> longword (MaxInt);,,,,,,,