Share Whazzert Tool Source

[WarmongerR23]

Really simple stuff written in autoit.

$FORM1 = GUICreate("MultiClient By Whazzert & SmoGG", 377, 248, 216, 177)
GUISetCursor(0)
GUISetBkColor(0)
$BUTTON1 = GUICtrlCreateButton("Run LC", 16, 176, 99, 41)
$BUTTON2 = GUICtrlCreateButton("Exit", 256, 176, 99, 41)
$BUTTON3 = GUICtrlCreateButton("About", 136, 176, 99, 41)
$BUTTON4 = GUICtrlCreateButton("2x", 16, 216, 43, 17)
$BUTTON5 = GUICtrlCreateButton("3x", 72, 216, 43, 17)
$LABEL1 = GUICtrlCreateLabel("www.whazzert.net", 248, 224, 113, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Georgia")
GUICtrlSetColor(-1, 16777215)
$LABEL2 = GUICtrlCreateLabel("MultiClient ", 16, 16, 356, 94)
GUICtrlSetFont(-1, 48, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 32768)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
        $NMSG = GUIGetMsg()
        Switch $NMSG
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $BUTTON1
                        Run(@ScriptDir & "\Bin\Nksp.exe 6574")
                Case $BUTTON4
                        Run(@ScriptDir & "\Bin\Nksp.exe 6574")
                        Run(@ScriptDir & "\Bin\Nksp.exe 6574")
                Case $BUTTON5
                        Run(@ScriptDir & "\Bin\Nksp.exe 6574")
                        Run(@ScriptDir & "\Bin\Nksp.exe 6574")
                        Run(@ScriptDir & "\Bin\Nksp.exe 6574")
                Case $BUTTON3
                        MsgBox(0, "About", "Thanks to use the MultiClient from Whazzert & SmoGG")
                Case $BUTTON2
                        Exit
        EndSwitch
WEnd

Global $TITLE = "Passwort-Generator v1.0 By Whazzert  "
If _Singleton($TITLE, 1) = 0 Then
        MsgBox(48, $TITLE, "Das Programm läuft bereits!")
        Exit
EndIf
Opt("TrayMenuMode", 1)
Opt("TrayAutoPause", 0)
Global $KEY[5]
$KEY[0] = "1234567890"
$KEY[1] = _StringRepeat($KEY[0], 4) & "abcdefghijklmnopqrstuvwxyz"
$KEY[2] = $KEY[1] & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
$KEY[3] = $KEY[2] & "öäüÖÄÜß"
$KEY[4] = $KEY[3] & "@€µ²³°!§$%&/()=<>|,.-;:_#+*~?\" & Chr(34) & Chr(39)
Global $GUI = GUICreate($TITLE, 800, 180, -1, -1)
GUISetIcon(@SystemDir & "\shell32.dll", -212)
Global $TRAYSHOW = TrayCreateItem("Passwort-Generator anzeigen")
Global $TRAYEXIT = TrayCreateItem("Beenden")
GUICtrlCreateGroup("Stärke", 10, 8, 130, 55)
Global $COMBO = GUICtrlCreateCombo("", 20, 30, 110, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "1 = Sehr Leicht|2 = Leicht|3 = Mittel|4 = Hoch|5 = Sehr Hoch", "3 = Mittel")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Passwortlänge (Anzahl der Zeichen)", 150, 8, 480, 55)
Global $SLIDER = GUICtrlCreateSlider(160, 25, 400, 30, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 64, 4)
_GUICtrlSlider_SetTicFreq($SLIDER, 4)
_GUICtrlSlider_SetPageSize($SLIDER, 4)
_GUICtrlSlider_SetPos($SLIDER, 16)
Global $RANGE = GUICtrlCreateLabel("16", 565, 30, 40, 22, BitOR($SS_CENTER, $SS_SUNKEN))
GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
GUICtrlSetColor(-1, 16711680)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $BUTTON = GUICtrlCreateButton("Erstellen", 30, 70, 90, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Global $WPABUTTON = GUICtrlCreateButton("WLAN-Passwort (WPA) Erstellen", 150, 70, 220, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetTip(-1, "63 Zeichen (Zahlen und Buchstaben mit Groß-/Kleinschreibung)")
GUICtrlCreateGroup("Passwort (wird automatisch in die Zwischenablage kopiert)", 10, 102, 780, 60)
Global $CODE = GUICtrlCreateInput("", 20, 125, 760, 25)
GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState($CODE, $GUI_FOCUS)
PASSWORT()
GUISetState()
While 1
        Switch GUIGetMsg()
                Case $COMBO
                        PASSWORT()
                Case $SLIDER
                        GUICtrlSetData($RANGE, GUICtrlRead($SLIDER))
                        PASSWORT()
                Case $BUTTON
                        PASSWORT()
                Case $WPABUTTON
                        PASSWORT(True)
                Case $GUI_EVENT_MINIMIZE
                        Opt("TrayIconHide", 0)
                        TraySetIcon(@SystemDir & "\shell32.dll", -212)
                        GUISetState(@SW_HIDE, $GUI)
                        While 2
                                Switch TrayGetMsg()
                                        Case $TRAYSHOW
                                                Opt("TrayIconHide", 1)
                                                GUISetState(@SW_SHOW, $GUI)
                                                GUISetState(@SW_RESTORE, $GUI)
                                                ExitLoop
                                        Case $TRAYEXIT
                                                Exit
                                EndSwitch
                        WEnd
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd
Func PASSWORT($BWPA = False)
        Local $CHOICE = Number(StringLeft(GUICtrlRead($COMBO), 1))
        Local $I, $PASS = ""
        Local $ILIMIT = Number(GUICtrlRead($RANGE))
        If $BWPA Then
                $CHOICE = 3
                $ILIMIT = 63
        EndIf
        For $I = 1 To $ILIMIT
                $PASS &= StringMid($KEY[$CHOICE - 1], Random(1, StringLen($KEY[$CHOICE - 1]), 1), 1)
        Next
        GUICtrlSetData($CODE, $PASS)
        ClipPut($PASS)
EndFunc

Password generator needs UDF written by Oscar.

[nekit3409]

AutoIT?

[NewGothic]

Originally Posted by nekit3409

AutoIT?

Ja

[Sersiston]

why u share source which is not from u? do u have the agreement from the coder/owner?

[lliyo123]

O.O.....

[WarmongerR23]

Originally Posted by Sersiston

why u share source which is not from u? do u have the agreement from the coder/owner?

pls, no call police

[Linoskoczek]

Rofl really advanced multiclient. If I were he I would add option to run client 4x XD

[NewGothic]

Originally Posted by WarmongerR23

pls, no call police

Sorry i was call the police,

[Kasus2008]

ist der Mutli Client für Offizeller Server ? Gamigo und Aeria ?
und wo für ist Passwort ding ?

[WarmongerR23]

Originally Posted by Linoskoczek

Rofl really advanced multiclient. If I were he I would add option to run client 4x XD

Indeed, if I was to make a multi-client tool it would have at least core leveling. So if you have multiple core processor it would automatically choose the least active core to support the next client. I won't bash on him for scripting in AutoIt as that's exactly where I started learning "programming concepts". But I will say he tries to pass these off as pretty "legit tools", but really they are not. 90% of the code for the password generator wasn't even written by him (especially the harder stuff).

[SânSalvador]

Originally Posted by Kasus2008

ist der Mutli Client für Offizeller Server ? Gamigo und Aeria ?
und wo für ist Passwort ding ?

Ist ein PW-Generator^^

[Chicken.ShooT]

Ja ein simples Tool für Leute die sich kein PW ausdenken können. Klingt nutzlos, ist es auch.

Originally Posted by NewGothic

 Spoiler

Sorry i was call the police,

Beste!

[destro1]

Nice , Haha.

FAP FAP FAP

[cyber33]

sollte nur auf ep1 funktionieren. durch ändern einer zahl wird der auch ep2 fähig

[-STORM-]

Originally Posted by MrBusiness™

ist der clean und geht der auch auf den offi servern? bitte um antworten, Gruß

Da steht doch der Source Code. Und ja, der ist clean.
Macht im Prinzip nichts anderes, als die Nksp mit dem Parameter 6574 auszuführen. Damit läuft es nur auf EP1.
Für neuere Server müsste man 4022 bzw. fkzktlfgod! für die aktuellen einsetzen.
Man kann sich aber auch das Script sparen und gleich ne Verknüpfung mit diesen Parametern erstellen.
Insgesamt ist es halt recht nutzlos. Böse Zungen könnten behaupten, das zeigt Whazzerts Fähigkeiten.
Achja, auf Servern mit xTrap funktioniert es natürlich nicht.