Encryption Posted February 16, 2005 Share Posted February 16, 2005 expandcollapse popup#include <GUIConstants.au3> #include <File.au3> #NoTrayIcon HotKeySet("{ESC}", "Terminate") $InternetDefaultSetting = IniRead("settings.ini", "settings", "internetsettings", "Dial-Up") $AIMDirectory = IniRead("settings.ini", "settings", "aimpath", "C:\Program Files\AIM\aim.exe") $MSNDirectory = IniRead("settings.ini", "settings", "msnpath", "C:\Program Files\MSN Messenger\msnmsgr.exe") $YahooDirectory = IniRead("settings.ini", "settings", "yahoopath", "C:\Program Files\") $createmain = GUICreate("Messenger Bruter Beta", 300, 300) $filemenu = GUICtrlCreateMenu("File") $fileabout = GUICtrlCreateMenuItem("About", $filemenu) $fileclose = GUICtrlCreateMenuItem("Close", $filemenu) $editmenu = GUICtrlCreateMenu("Edit") $Wordlistedit = GUICtrlCreateMenuitem("Word List", $editmenu) $internetedit = GUICtrlCreateMenuItem("Internet Settings", $editmenu) $proxylist = GUICtrlCreateMenuItem("Proxy List", $editmenu) $helpmenu = GUICtrlCreateMenu("Help") $easyconfigmenu = GUICtrlCreateMenuItem("Easy Config", $helpmenu) $FAQmenu = GUICtrlCreateMenuItem("FAQ", $helpmenu) $titlelabel = GUICtrlCreateLabel("Messenger Bruter Beta", 90, 25) $StartBrutingButton = GUICtrlCreateButton("Start Bruting", 40, 230, 100, 30) $ClearButton = GUICtrlCreateButton("Clear", 160, 230, 100, 30) $usernameinput = GUICtrlCreateInput("", 150, 60, 100, 20) $usernamelabel = GUICtrlCreateLabel("Screen Name :", 60, 65) $maxchars = GUICtrlCreateInput("", 150, 90, 30, 20) $maxcharslabel = GUICtrlCreateLabel("Max Characters :", 50, 95) $minchars = GUICtrlCreateInput("", 150, 120, 30, 20) $mincharslabel = GUICtrlCreateLabel("Min Characters :", 52, 125) $messengertype = GUICtrlCreateCombo("AOL Instant Messenger", 150, 150, 150) GUICtrlSetData($messengertype, "MSN Instant Messenger|Yahoo Instant Messenger", "AOL Instant Messenger") $messengertypelabel = GUICtrlCreateLabel("Messenger Type :", 44, 155) $footlabel = GUICtrlCreateLabel("Thank You For Using Messenger Bruter", 55, 200) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $fileabout Then AboutBox() EndIf If $msg = $proxylist Then $proxylistfile = FileOpen("proxy.txt", 1) AddProxy() FileClose("proxy.txt") EndIf If $msg = $internetedit Then InternetEdit() EndIf If $msg = $clearbutton Then GUICtrlSetData($usernameinput, "") GUICtrlSetData($usernameinput, "") GUICtrlSetData($maxchars, "") GUICtrlSetData($minchars, "") EndIf If $msg = $startbrutingbutton Then CheckInput() If CheckInput() = 1 Then Brute() EndIf EndIf If $msg = $faqmenu Then FAQ() EndIf If $msg = $easyconfigmenu Then easyconfigcreate() EndIf If $msg = $fileclose Then GUIDelete($createmain) EndIf If $msg = $GUI_EVENT_CLOSE Then GUIDelete($createmain) EndIf WEnd Func AboutBox() $createabout = GUICreate("About Messenger Bruter Beta", 200, 200) $buttonOK = GUICtrlCreateButton("OK", 80, 160, 40, 30) $labelcredits = GUICtrlCreateLabel("Credits:", 80, 25) $labelmason = GUICtrlCreateLabel("Mason - Lead Scripter", 45, 45) $labeldavo = GUICtrlCreateLabel("Davo - Lead Scripter", 49, 65) GUISetState() While 1 $msgabout = GUIGetMsg() If $msgabout = $buttonOK Then return GUIDelete($createabout) EndIf If $msgabout = $GUI_EVENT_CLOSE Then return GUIDelete($createabout) EndIf WEnd EndFunc Func FAQ() $createfaq = GUICreate("FAQ - Messenger Bruter Beta", 300, 300, 400, 500) $buttonOkfaq = GUICtrlCreateButton("OK", 130, 260, 40, 30) $labelfaq = GUICtrlCreateLabel("FAQ", 140, 25) $labelq1 = GUICtrlCreateLabel("What is the Max and Min characters for?", 45, 60) $labela1 = GUICtrlCreateLabel("The min. chars is the smallest password you want to have.", 12, 80) $labela11 = GUICtrlCreateLabel("The max chars is the biggest password you want to have.", 12, 95) $labelq2 = GUICtrlCreateLabel("Why doesn't my AIM, Yahoo, or MSN messenger show up", 15, 120) $labelq22 = GUICtrlCreateLabel("when I start Bruting?", 95, 135) $labela2 = GUICtrlCreateLabel("Your messenger is not in the right folder. Specify it to", 23, 155) $labela22 = GuiCtrlCreateLabel("the right folder by using Easy Config.", 55, 170) GUISetState() While 1 $msgfaq = GUIGetMsg() If $msgfaq = $buttonokfaq Then Return GUIDelete($createfaq) EndIf If $msgfaq = $GUI_EVENT_CLOSE Then Return GUIDelete($createfaq) EndIf WEnd EndFunc Func easyconfigcreate() $createeasyconfig = GUICreate("Easy Config - Messenger Bruter Beta", 200, 200) GUISetState() While 1 $msgeasyconfig = GUIGetMsg() If $msgeasyconfig = $GUI_EVENT_CLOSE Then $quiteasyconfig1 = MsgBox(1, "Quit Easy Config", "Are You Sure You Want to Leave Easy Config, All of Your Current Data Will Be Lost") If $quiteasyconfig1 = 1 Then return GUIDelete($createeasyconfig) EndIf EndIf WEnd EndFunc Func Terminate() EndFunc Func CheckInput() $checkusername = String(GUICtrlRead($usernameinput)) If $checkusername = "" Then MsgBox(0, "Error", "Username Field Was Empty") Return 0 Else $checkmaxchars = String(GUICtrlRead($maxchars)) $checkmaxchars2 = StringIsDigit($checkmaxchars) If $checkmaxchars = "" Then MsgBox(0, "Error", "The Max Characters Field was Empty") Return -1 ElseIf $checkmaxchars2 = 0 Then MsgBox(0, "Error", "The Max Characters Field was Not an Integar") Return 0 Else $checkminchars = String(GUICtrlRead($minchars)) $checkminchars2 = StringIsDigit($checkminchars) If $checkminchars = "" Then MsgBox(0, "Error", "The Min Characters Field was Empty") Return 0 ElseIf $checkminchars2 = 0 Then MsgBox(0, "Error", "The Min Characters Field was Not an Integar") Return 0 Else Return 1 EndIf EndIf EndIf EndFunc Func Brute() $messengertypeselected = GUICtrlRead($messengertype) BruteInfo() If BruteInfo() = 1 Then If $messengertypeselected = "AOL Instant Messenger" Then Run($AIMDirectory) ElseIf $messengertypeselected = "MSN Instant Messenger" Then Run($MSNDirectory) ElseIf $messengertypeselected = "Yahoo Instant Messenger" Then Run($YahooDirectory) EndIf EndIf EndFunc Func AddProxy() $createproxybox = GUICreate("Edit Proxy List", 200, 100) $proxyadd = GUICtrlCreateButton("Add", 30, 60, 40, 20) $proxydone = GUICtrlCreateButton("Done", 130, 60, 40, 20) $proxylabel = GUICtrlCreateLabel("Proxy", 85, 10) $proxyinput = GUICtrlCreateInput("Proxy", 50, 25, 100, 20) GUISetState() While 1 $msgproxylist = GUIGetMsg() $proxystring = String(GUICtrlRead($proxyinput)) If $msgproxylist = $proxyadd Then If $proxystring = "" Then MsgBox(0, "Error", "The Proxy Input Box was Empty") Else FileWriteLine($proxylistfile, $proxystring) EndIf EndIf If $msgproxylist = $proxydone Then Return GUIDelete($createproxybox) EndIf If $msgproxylist = $GUI_EVENT_CLOSE Then Return GUIDelete($createproxybox) EndIf WEnd EndFunc Func BruteInfo() $createBruteInfo = GUICreate("Messenger Bruter Beta Info", 300, 300, 500, 300) GUISetState() While 1 $msgbruteinfo = GUIGetMsg() If $msgbruteinfo = $GUI_EVENT_CLOSE Then Return GUIDelete($createbruteinfo) EndIf WEnd EndFunc Func InternetEdit() $createInternetEdit = GUICreate("Messenger Bruter Internet Info", 200, 200) $dslcableradio = GUICtrlCreateRadio("DSL/Cable", 70, 90) $labelinternetsettings = GUICtrlCreateLabel("What Type of Internet Connection", 20, 20) $labelinternetsettings2 = GUICtrlCreateLabel("Do You Have?", 60, 35) $dialupradio = GUICtrlCreateRadio("Dial-Up", 70, 60) $T1T3radio = GuiCtrlCreateRadio("T1 - T3", 70, 120) $buttonsavesettings = GUICtrlCreateButton("Save Settings", 50, 150, 100, 30) If $InternetDefaultSetting = "Dial-Up" Then GUICtrlSetState($dialupradio, $GUI_CHECKED) ElseIf $InternetDefaultSetting = "Cable/DSL" Then GUICtrlSetState($dslcableradio, $GUI_CHECKED) ElseIf $InternetDefaultSetting = "T1-T3" Then GUICtrlSetState($T1T3radio, $GUI_CHECKED) EndIf $button1 = GUICtrlGetState($dialupradio) $button2 = GUICtrlGetState($dslcableradio) $button3 = GUICtrlGetState($t1t3radio) GUISetState() While 1 $msginternetedit = GUIGetMsg() If $msginternetedit = $buttonsavesettings Then If $button1 = $GUI_CHECKED Then Return Button1() ElseIf $button2 = $GUI_CHECKED Then Return Button2() ElseIf $button3 = $GUI_CHECKED Then Return Button3() EndIf EndIf If $msginternetedit = $GUI_EVENT_CLOSE Then $internetsettingsmsbox = MsgBox(1, "Quit", "Are You Sure You Want to Quit? Your Settings Will Not Be Saved") If $internetsettingsmsbox = 1 Then Return GUIDelete($createinternetedit) EndIf EndIf WEnd EndFunc Func Button1() IniDelete("settings.ini", "settings", "internetsettings") IniWrite("settings.ini", "settings", "internetsettings", "Dial-Up") Return GUIDelete($createinternetedit) EndFunc Func Button2() IniDelete("settings.ini", "settings", "internetsettings") IniWrite("settings.ini", "settings", "internetsettings", "Cable/DSL") Return GUIDelete($createinternetedit) EndFunc Func Button3() IniDelete("settings.ini", "settings", "internetsettings") IniWrite("settings.ini", "settings", "internetsettings", "T1-T3") Return GUIDelete($createinternetedit) EndFunc After I got tired of teaching my friend GUI and writing code that I know would be useless to me in the long run, I released in here, in hopes that others would learn, or finish it. It is suppose to be a Messenger Brute Forcer, but I never got around to doing the bruting part. Just the settings, and making sure their settings were right, and saving their settings from the last time, and the GUI. Overall, it looks pretty good, some bad coding habits here and there, but I am not worried, its just AutoIt. Anyways, here you are? Link to comment Share on other sites More sharing options...
Insolence Posted February 16, 2005 Share Posted February 16, 2005 Eh, it's very sloppy Looks kind of like the Alarm Clock thing I wrote recently, overall it's decent. It'd be nice to learn from if you commented it at all -.- "I thoroughly disapprove of duels. If a man should challenge me, I would take him kindly and forgivingly by the hand and lead him to a quiet place and kill him." - Mark TwainPatient: "It hurts when I do $var_"Doctor: "Don't do $var_" - Lar. Link to comment Share on other sites More sharing options...
layer Posted February 16, 2005 Share Posted February 16, 2005 no offense, but you are still working on it right? because whats the point of it if the whole point of the program isn't even like, scripted yet? and it's a gonna be preeeeeeeetty hard unless im thinking wrong.. FootbaG Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now