Dizionario WPA

[maxdd]

Sinc nn ho capito molto il ragionamento..

[dpmika]

qualche anima pia potrebbe darmi il link del torrent per le tables di alice? ho fatto una ricerca su internet e ho trovato solo un torrent ma va troppo lento, mi scarica a malappena a 10k. ad arrivare a 1,78giga ci starà una vita.....

[brigante]

ma scusa i link sopra cos' hanno che non va ??

[dpmika]

in effetti facendo un po di attenzione ho trovato le tables (33giga) anche se stavo cercando quelle di Alice_Wlan.
Ma cmq sto gia scaricando quelle di 33 giga, grazie ancora brigante

[m7x.m7x]

Se vuoi ce l'ho io Alice_wlan.wpa e Alice-wlan.wpa.. ma no workano bene...

[m7x.m7x]

Salve a tutti

per rimanere in tema su come testare la sicurezza della nostra wpa sopratutto quella di alice, vi consiglio di utilizzare questo script in autoit3 che ho trovato su internet, che genera key wpa in formato .txt di 24 caratteri esadecimali. Il problema che è difficile trovare la key giusta fra miliardi di keys e in più ci vorrebbe un potente processore!!!

Se siete interessati ecco l'algoritmo:

dim $p[25]
dim $n
dim $nq[7]
dim $x
dim $num
dim $let
FileDelete("WpaKeys*.txt")
for $f=1 to 3
   $file = FileOpen("WpaKeys" & $f & ".txt", 1)
   For $n=1 to 40000000
      For $q=1 to 6
         Do
            $ver=0
            $nq[$q]=Random(1,6,1)
            for $v=1 to $q
               if $nq[$q]=$nq[$q-$v] then $ver=1
            Next
         until $ver=0
         if $nq[$q]<4 then
            $nummax=2
            $letmax=2
         ElseIf $nq[$q]>3 then
            $nummax=1
            $letmax=3
         EndIf
         If $nq[$q]=1 then
            $nummax=0
            $letmax=4   
         EndIf      
         for $qq=1 to 4   
            $x=$x+1
            if $num=$nummax then
               $a=Random(97,118,1)
            ElseIf $let=$letmax then
               $a=Random(48,57,1)
            Else
               $a=Random(87,118,1)
               if $a<97 then
                  $a=Random(48,57,1)
                  $num=$num+1
               Else   
                  $let=$let+1
               EndIf
            EndIf
            $p[$x]=Chr($a)
         Next   
      $num=0
      $let=0
      Next
      $x=0
      $k=$p[1]&$p[2]&$p[3]&$p[4]&$p[5]&$p[6]&$p[7]&$p[8]&$p[9]&$p[10]&$p[11]&$p[12]&$p[13]&$p[14]&$p[15]&$p[16]&$p[17]&$p[18]&$p[19]&$p[20]&$p[21]&$p[22]&$p[23]&$p[24]
      ToolTip("File no:"& $f & "- " & $n & " Keys Generated",0,0)
      FileWrite($file,$k & @CRLF)
   $x=0
   Next
   FileClose("WpaKeys" & $f & ".txt")
Next
ToolTip("Done!",0,0)
Sleep(5000)   
Exit

Ma l'hai testato???

[dpmika]

Se vuoi ce l'ho io Alice_wlan.wpa e Alice-wlan.wpa.. ma no workano bene...

quello che ancora non ho capito è se queste rainbow tables servono per trovare le password di default dei router di alice o trovano le pass che sono state cambiate sul router.

Per esempio cn la rainbow tables riesco a trovare la mia wpa del modem alice che non ho cambiato ? quindi quella di default??


m7x.m7x hai modo di passarmi queste tables di alice? il torrent mi si è piantato di brutto..

grazie mille

[m7x.m7x]

Prova dal mulo...

[dpmika]

Prova dal mulo...

grazie mille

[morfes]

Si l'ho testato genera tre file di wordlist wpa alice 24 caratteri esadecimali di circa 1 gb ciascuno. Ma non avendo un potente processore non sono riuscito a verificare tutte le password dei tre file.