Sign in to follow this  
Followers 0
Encryption

Someone Can Learn/Finish Off this Code

3 posts in this topic

#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?

Share this post


Link to post
Share on other sites



Eh, it's very sloppy :lmao:

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0