Crack-wifi.com FORUM

LE FORUM DU SITE

Wifi, Backtrack, crack WEP et WPA...

Vous n'êtes pas identifié(e).  

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

#1 05-04-2011 15:06:16

tiobap
Nouveau membre
Inscription : 31-03-2011
Messages : 5

question sur la modif de dico

bonjour j'ai trouver sur un des posts le script:

#!/usr/bin/perl
use strict;
use warnings;
my $i;
my $j;
for ($i = 0;$i < 800000000;$i++) {
     my $pass = "";
     my @liste = ("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z");
     my $nombre = int(rand(20));
     for ($j = 0;$j < 20;$j++) {
          if ($j == $nombre) {
               $pass .= int(rand(10));
          }
          else {
               $pass .= $liste[int(rand(26))];
          }
     }

     open my $logfile, ">>", "pass.lst" or die "Could not open pass.lst: $!";
     print $logfile $pass."\n";
     print $i."\n";
}

qui permet de générer des dicos pour les neufbox

seulement je voudrais que le chiffre utiliser avec les 19 lettres soi ciblé en 20ème position
je ne connais rien au script alors si quelqu'un sai quel modification je dois faire pour cela
merci d'avance
(ps j'ai réussi grace à vos tutos et conseils à aller jusqu'au bout du tuto pour cracker clé wpa et meme si elle n'étais pas dans le dico je suis content de m'en sortir avec mes connaissances 0 en informatiques, merci pour votre boulot)

Hors Ligne

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

#2 05-04-2011 21:52:36

antares145
Membre d'honneur
Inscription : 29-09-2009
Messages : 5 199
Site Web

Re : question sur la modif de dico

Salut !

Adapte simplement la boucle FOR comme ceci :

     for ($j = 0;$j < 20;$j++) {
          if ($j == 19) {                                  ##J'ai changé cette ligne
               $pass .= int(rand(10));
          }
          else {
               $pass .= $liste[int(rand(26))];
          }
     }

Ca devrait suffire wink

Hors Ligne

#3 06-04-2011 07:16:03

tiobap
Nouveau membre
Inscription : 31-03-2011
Messages : 5

Re : question sur la modif de dico

merci j'essaye ce soir et je vous dirais si ca marche:)

Hors Ligne

Annonce

Visitez la boutique Wifi-highpower.com, votre revendeur agr Alfa Network: du matriel Wifi slectionn, cartes Wifi USB Awus036h et Awus036nh, antennes omnis, yagis, panel, amplis wifi, accessoires...

Pied de page des forums


Le coin des bonnes affaires, achats informatiques:


|   Alfa 1000 mW AWUS036H   |    Linksys WRT54GL   |    Misco, informatique   |   
 |    Ebay   |    PC portables   |    PC Gamers & Tuning   |    Cles USB   |   
|   Disques durs externes 2 To   |   
|   Wifi-highpower.com   |   


Server Stats - [ Generated in 0.02 seconds ]   Forum Stat - [ Most users ever online on the forum was : 150 on 20-09-2009 17:06:59 ]