Generador de Vodafone & LiveBox by C0dex

Codex · Mensaje por **Codex** » 11 Ene 2013, 06:18

Hola Gente os presento a mi programa Generador de Diccionarios wpa LiveBox & VODAFONE

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <TabConstants.au3>

FileInstall ("Vodafone.ico",1)

$Form1 = GUICreate("Vodafone Wpa Generador |C0dex|", 363, 359, 192, 124)
$MenuItem1 = GUICtrlCreateMenu("Menu")
$MenuItem2 = GUICtrlCreateMenuItem("Info", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenu("About")
$MenuItem5 = GUICtrlCreateMenuItem("C0dex", $MenuItem4)
GUISetBkColor(0xFF0000)
$Group1 = GUICtrlCreateGroup("Propiedades", 8, 8, 345, 161)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$Label1 = GUICtrlCreateLabel("Longitud de Diccionario :", 16, 32, 182, 25)
GUICtrlSetFont(-1, 11, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$Nombre_Cles_LiveBox = GUICtrlCreateInput("99999", 16, 64, 329, 26, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Nombre de Diccionario :", 16, 96, 175, 25)
GUICtrlSetFont(-1, 11, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFFFFFF)
$Fichier_LiveBox = GUICtrlCreateInput("worldlist.txt", 16, 128, 329, 26, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0x000000)
$Icon1 = GUICtrlCreateIcon("Vodafone.ico", -1, 312, 24, 32, 32)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Selectar :", 8, 176, 345, 153)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Generar Diccionario", 32, 200, 299, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Generar Longitud Grande", 32, 232, 299, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
$Button3 = GUICtrlCreateButton("Exit", 32, 264, 299, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Palatino Linotype")
$Input3 = GUICtrlCreateInput(_GetIP(), 16, 296, 145, 25, -1)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
$Input4 = GUICtrlCreateInput("", 200, 296, 145, 25)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")

GUISetState(@SW_SHOW)





Global $AvancementGUI = GUICreate("Advanced", 242, 122, 378, 180)
Global $Group1 = GUICtrlCreateGroup("Advanced", 8, 8, 225, 49)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
Global $Texte5 = GUICtrlCreateLabel("/", 120, 32, 9, 17)
Global $Avancement = GUICtrlCreateLabel("0", 16, 32, 98, 17)
Global $Total = GUICtrlCreateLabel("0", 136, 32, 90, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Generando Wpa...", 8, 64, 225, 49)
GUICtrlSetFont(-1, 9, 800, 0, "Palatino Linotype")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $CleActuelle = GUICtrlCreateLabel("", 16, 88, 212, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)




While 1
	$nMsg = GUIGetMsg()
	GUICtrlSetData($Input4,@HOUR&":"&@MIN&":"&@SEC)
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


		Case $Button1
			GUISetState (@SW_SHOW, $AvancementGUI)
			$nombre_cles = GUICtrlRead ($Nombre_Cles_LiveBox)
			$fichier = GUICtrlRead ($Fichier_LiveBox)
			 Global $charset[16] = ["A", "B", "C", "D", "E", "F", 0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
			 GUICtrlSetData ($Avancement,0)
			 For $i = 1 To $nombre_cles - 1
				 $cle = ""
				 For $j = 0 To 13
					 $random = Random (0, 15, 1)
					 $cle = $cle & $charset[$random]
				 Next
				 FileWriteLine ($fichier, $cle)
				 GUICtrlSetData ($Avancement, $i)
				 GUICtrlSetData ($CleActuelle, $cle)
			 Next
			 GUISetState (@SW_HIDE, $AvancementGUI)
			 MsgBox (0, "Generator Wpa", "Generator Terminat, Lungimea Dictionarului este : " &$i)


		 Case $Button2
			GUISetState (@SW_SHOW, $AvancementGUI)
        $nombre_cles = GUICtrlRead ($Nombre_Cles_LiveBox)
        $fichier = GUICtrlRead ($Nombre_Cles_LiveBox)
        GUICtrlSetData ($Total, $nombre_cles)
        GUICtrlSetData ($Avancement,0)
        For $i = 0 To $nombre_cles -1
            $cle = ""
            $nombre = Random (0, 19, 1)
            For $j = 0 To 19
                If $j = $nombre Then
                    $cle&=Random (0, 9, 1)
                Else
                    $cle&=chr(Random (65, 90, 1))
                EndIf
            Next
            FileWriteLine ($fichier, $cle)
            GUICtrlSetData ($Avancement, $i)
            GUICtrlSetData ($CleActuelle, $cle)
        Next
        GUISetState (@SW_HIDE, $AvancementGUI)
        MsgBox (0, "Générateur WPA", "Génération finie! Nombre de clés générés : " &$i)

	Case $Button3
		Exit(-1)



		Case $MenuItem2
	;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Warning
	MsgBox(48,"Info","Created by C0dex" & @CRLF & "Email = [email protected]")

	Case $MenuItem3
		Exit(-1)

	Case $MenuItem5
	;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Question
	MsgBox(32,"About","C0dex Programmer :)" & @CRLF)






	EndSwitch
WEnd

SALUDOS !

Mensaje por **BasicOs** » 23 Ene 2013, 11:41

No me hables de VODAFONE!!!.
No entiendo como hay todavía usuarios de Vodafone.

Con las nuevas tarifas del plan FUSIÓN de movistar, o las de Jazztel, Orange no tienen nada que ver mucho menos o igual precio y más calidad...

Y del servicio de atención al cliente Vodafone parece hecho para no dar soluciones, según lo que he visto.

Ahora según los sindicatos están LIQUIDANDO al personal (900) que les queda de manera rozando lo ILEGAL enlace.

Salu22:)

PD: Cobran por servicios de más que no están en las facturas Y no los devuelven.Cuidado con las facturas.
Si NO te quieres ir de Vodafone: Más info de porqué pasarse a PepePhone que tiene las mismas lineas y cobra la cuarta parte: http://www.adslzone.net/postt329736.html
EDIT: 01.02.2013
EL FINAL DE LA historia, despues de que los teleoperadores de VODAFONE me mintieran y ME cobraran de buena fe. Me vuelven a reactivar la linea para seguir cobrando. Lo hicieron dos veces. Desde JUNIO 2012 A FEBRERO 2013 Intentando dejar de ser cliente de VODAFONE, DESPUES de hablar con cientos de personas, enviar fax, recibir promesas de baja, etc...... Al fin el LUNES 5 feb dejaré de ser cliente.
Como darte de BAJA:
LA MANERA MÁS RAPIDA DE dejar de ser cliente de vodafone es no dar la baja con ningún sistema o no comunicarte con VODAFONE, si no es HACER la PORTABILIDAD a otra operador SIN PERMANENCIA y cogiendo la tarifa más económica e.g.: (6€mes), o Simyo 0€/mes.
Luego en un operador de confianza como Orange/Movistar, darte de baja directamente SIN PROBLEMAS mejor si ya eres cliente.
Siento esta información pero es que me parece increible que en el AÑO 2012, se permita que empresas como VODAFONE campen a sus anchas pisoteando a usuarios legales y serios.

Autoit.ES

Generador de Vodafone & LiveBox by C0dex

Generador de Vodafone & LiveBox by C0dex

Re: Generador de Vodafone & LiveBox by C0dex