Share Whazzert Tool Source

$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