Demande d'aide et présentation de projet .
Publié : mer. 11/nov./2009 2:13
Bonjour a tous,
je vient vous demandez de l'aide pour optimiser mon code mais également vous présentez mon projet.
Vous avez surement déjà vue des messages dans ce style :
Et avoir le mot de passe, bien sûr c'est un gros fake en vrai l'utilisateur ce retrouvera avec un chaine de 25 caractères qu'il ne veulent strictement rien dire. En lui faisant croire que c'est le mot de passe en crypté.
Mais mon code a un problème car pendant que le logiciel est en exécution si ou bouge la fenêtre ou si d'autre aplis sont lancer il plante pendant les pauses et affiche tout d'un coup
.
Voici le code en question:
Si vous voulez un .zip avec les sources et les images n'hésitais pas a demander.
Voila ça sera tout, a plus .
Lien pour télécharger
je vient vous demandez de l'aide pour optimiser mon code mais également vous présentez mon projet.
Vous avez surement déjà vue des messages dans ce style :
Le but de mon logiciel est en faite de faire croire a celui qui va le télécharger qu'il pourras pirater n'importe quelle adresse msn, hotmail, live etc ...bouley a écrit : Slt on la piraté mon msn et je ve faire pareil. Vous pouver m'aprendre a pirater msn svp c super URGENT merci.
Et avoir le mot de passe, bien sûr c'est un gros fake en vrai l'utilisateur ce retrouvera avec un chaine de 25 caractères qu'il ne veulent strictement rien dire. En lui faisant croire que c'est le mot de passe en crypté.
Mais mon code a un problème car pendant que le logiciel est en exécution si ou bouge la fenêtre ou si d'autre aplis sont lancer il plante pendant les pauses et affiche tout d'un coup
.Voici le code en question:
Code : Tout sélectionner
Enumeration
#fenetre
#header
#onglet
#general
#adresse
#compte
#exemple
#mail
#envoi
#log
EndEnumeration
UsePNGImageDecoder()
OpenWindow(#fenetre,0,0,530,300,"Hack Tools Window Live Messenger", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
CreateImage(#header,500,100)
LoadImage(#header,"images/header.png")
ImageGadget(#header,0,0,500,100,ImageID(#header))
PanelGadget(#onglet,0,100,530,200)
AddGadgetItem(#onglet,0,"Attaque")
StringGadget(#adresse,28,50,350,20,"")
TextGadget(#compte,30,33,200,30,"Adresse de messagerie du compte : ")
TextGadget(#exemple,203,33,300,30,"Exemple : moncompte@hotmail.fr")
SetGadgetColor(#exemple, #PB_Gadget_FrontColor, RGB(128,128,128))
ButtonGadget(#envoi,400,50,100,20,"Commencer")
TextGadget(#log,5,80,512,90,"")
SetGadgetColor(#log, #PB_Gadget_BackColor,RGB(70,70,70))
SetGadgetColor(#log,#PB_Gadget_FrontColor,RGB(255,255,255))
CreateImage(#mail,20,20)
LoadImage(#mail,"images/mail.png")
ImageGadget(#mail,5,50,20,20,ImageID(#mail))
AddGadgetItem(#onglet,1,"Information")
Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
clicgadget = EventGadget();
Else
clicgadget = 0;
EndIf
If clicgadget = #adresse
SetGadgetColor(#adresse, #PB_Gadget_BackColor,RGB(220,220,220))
EndIf
If clicgadget = #envoi
adresse$ = GetGadgetText(#adresse)
CreateRegularExpression(0,"[\w.-]+@[\w.-]+\.[a-z]{2,6}")
If adresse$ = ""
MessageRequester("Erreur n°1","Vous n'avez renseignez aucune adresse e-mail celle -ci est obligatoire",#PB_MessageRequester_Ok)
ElseIf Not MatchRegularExpression(0, adresse$)
MessageRequester("Erreur n°2","L'adresse e-mail na pas un format valide .",#PB_MessageRequester_Ok)
Else
space$ = " "
Delay(1000)
SetGadgetText(#log,space$+"Initialisation de la brute de force .");
Delay(2000)
log$ = GetGadgetText(#log)
SetGadgetText(#log,log$+Chr(10)+space$+"Connexion serveur Window Live Messenger .")
Delay(4000)
log$ = GetGadgetText(#log)
SetGadgetText(#log,log$+Chr(10)+space$+"Chargement des fichiers dictionnaire .")
Delay(1000)
log$ = GetGadgetText(#log)
SetGadgetText(#log,log$+Chr(10)+space$+"Vérification validité du compte Window Live Messenger .")
Delay(2000)
log$ = GetGadgetText(#log)
SetGadgetText(#log,log$+Chr(10)+space$+"Vérification des ressources disponnible .")
Delay(1500)
log$ = GetGadgetText(#log)
SetGadgetText(#log,log$+Chr(10)+space$+"Configuration de Hack Tools Window Live Messenger pour l'attaque .")
Delay(2000)
log$ = ""
SetGadgetText(#log,log$+Chr(10)+space$+"Brute de force en cour ...")
Delay(50000)
log$ = GetGadgetText(#log)
SetGadgetText(#log,log$+Chr(10)+space$+"Attaque par dictionnaire en cour ... ")
Delay(20000)
log$ = GetGadgetText(#log)
SetGadgetText(#log,log$+Chr(10)+space$+"Attaque par connexion multiple ...")
EndIf
EndIf
Until event = #PB_Event_CloseWindow XOr close = 1
CloseWindow(#fenetre)
Voila ça sera tout, a plus .
Lien pour télécharger
