PHP Code:
#include<String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Generator", 363, 148, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 16, 345, 21)
$Button1 = GUICtrlCreateButton("Benutzername generieren", 8, 48, 153, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Email generieren", 8, 80, 153, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Namen generieren", 8, 112, 153, 25, $WS_GROUP)
$Checkbox1 = GUICtrlCreateCheckbox("Zahlen verwenden", 176, 48, 169, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Noch mehr Zahlen verwenden", 192, 80, 169, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Buchstaben durch Zahlen erstezen", 176, 112, 185, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$zahl1=0
$zahl2=0
If GUICtrlRead($Checkbox1)=$GUI_CHECKED Then $zahl1=1
If GUICtrlRead($Checkbox2)=$GUI_CHECKED Then $zahl1=2
If GUICtrlRead($Checkbox3)=$GUI_CHECKED Then $zahl2=2
GUICtrlSetData($Input1,Generate(3,$zahl1,$zahl2))
Case $Button2
$zahl1=0
$zahl2=0
If GUICtrlRead($Checkbox1)=$GUI_CHECKED Then $zahl1=1
If GUICtrlRead($Checkbox2)=$GUI_CHECKED Then $zahl1=2
If GUICtrlRead($Checkbox3)=$GUI_CHECKED Then $zahl2=2
GUICtrlSetData($Input1,Generate(1,$zahl1,$zahl2))
Case $Button3
$zahl1=0
$zahl2=0
If GUICtrlRead($Checkbox1)=$GUI_CHECKED Then $zahl1=1
If GUICtrlRead($Checkbox2)=$GUI_CHECKED Then $zahl1=2
If GUICtrlRead($Checkbox3)=$GUI_CHECKED Then $zahl2=2
GUICtrlSetData($Input1,Generate(2,$zahl1,$zahl2))
EndSwitch
WEnd
;~ email 1
;~ name 2
;~ account 3
Func Generate($def,$zahl=0,$trans=0)
$oString=""
local $oVorsilben[40]=["Global_", _
"Super_", _
"Bubble_", _
"Secret_", _
"Heating_", _
"Holy_", _
"Cold_", _
"Blue_", _
"Red_", _
"Big_", _
"Tall_", _
"Small_", _
"Kind_Of_", _
"The_", _
"Fastest_", _
"Funky_", _
"Crazy_", _
"Unbelieveable_", _
"Fanatical_", _
"Unhitable_", _
"Green_", _
"Fair_" , _
"Unkillable_", _
"Undestroyable_" , _
"Nice_" , _
"Good_" , _
"Evil_" , _
"Neo_", _
"Paper_" , _
"Unstopable_" , _
"Dead_" , _
"Soft_" , _
"Deadly_" , _
"New_","Bad_","Immortal_","Bloody_","Wounded_","Ghost_","Dark_"]
Local $email[8]=["gmx.net","gmx.de","web.de","googlemail.de","free-mail.de","hotmail.de","xmail.de","yahoo.de"]
local $oAcc[54]=["Destroyer","Killer","Execution","Shadow","Choas","Knight","Magnifier", _
"Mouse","Murderer","Dragon","Fire","Fighter","Death","Warrior","Voice","Worm", _
"Loader","Pointer","King","Princess","Hero","Bird","Fish","Kick","Side","Egg", _
"Chicken","Ball","Fisher","Friend","Enemy","Jupiter","Mars","Vulcano","Gladius", _
"DeadBringer","Cat","Frie","Toilet","Frog","Angel","Bread","Shield","Ship","Stick","Bean","Mask", _
"Assasin","Kyrie","Werewolf","Thorn","Enemy","Rider","Fog"]
local $oName[104]=["Adrian", _
"Ali", _
"Benedikt", _
"Colin", _
"Cattivo", _
"Martin", _
"Eric", _
"Erik", _
"Jan", _
"Jannik", _
"Jayden", _
"Johann", _
"Kolja", _
"Linus", _
"Lorin", _
"Luca", _
"Mads", _
"Maik", _
"Marvin", _
"Max", _
"Marcel", _
"Philip", _
"Robin", _
"Tom", _
"Anna", _
"Charlotte", _
"Christina", _
"Claire", _
"Finja", _
"Isabella", _
"Janina", _
"Janne", _
"Johanna", _
"Julie", _
"Kim", _
"Laura", _
"Lena", _
"Leon", _
"Lara", _
"Anna", _
"Anne", _
"Lilian", _
"Marie", _
"Maria", _
"Julia", _
"Josefine", _
"Josephine", _
"Melina", _
"Vanessa", _
"Celine", _
"Lucy", _
"Zoe", _
"Elena", _
"Larissa", _
"Sina", _
"Sinah", _
"Ronja", _
"Helena", _
"Ontje" , _
"Onur" , _
"Onurcan" , _
"Onurhan" , _
"Oona" , _
"Opal" , _
"Ophrah" , _
"Ophelia" , _
"Oprah" , _
"Optatus" , _
"Ora" , _
"Orania" , _
"Oranna" , _
"Orell" , _
"Orella" , _
"Orest" , _
"Orhan" , _
"Orla", _
"Orlando", _
"Yagmur" , _
"Yahya" , _
"Yakub", _
"Zeno", _
"Zenobia", _
"Zenobie", _
"Lilly", _
"Mailin", _
"Majbritt", _
"Natalie", _
"Nele", _
"Nina", _
"Sophia", _
"Widukind", _
"Wiebke", _
"Wiegand" , _
"Wieka" , _
"Wieke" , _
"Wieland" , _
"Wienand" , _
"Wiete" , _
"Wig" , _
"Wigald" , _
"Wigand" , _
"Wigbald" , _
"Wigbert", _
"Wolfgerd"]
If $def=1 Then
local $ran=Random(0,3,1)
If $ran=0 Then
$oString=$oName[Random(0,UBound($oName)-1,1)]&"."&$oAcc[Random(0,UBound($oAcc)-1,1)]&"@"&$email[Random(0,UBound($email)-1,1)]
EndIf
If $ran=1 Then
$oString=$oVorsilben[Random(0,UBound($oVorsilben)-1,1)]&$oAcc[Random(0,UBound($oAcc)-1,1)]&"@"&$email[Random(0,UBound($email)-1,1)]
EndIf
If $ran=2 Then
$oString=$oVorsilben[Random(0,UBound($oVorsilben)-1,1)]&$oName[Random(0,UBound($oName)-1,1)]&"@"&$email[Random(0,UBound($email)-1,1)]
EndIf
If $ran=3 Then
$oString=$oName[Random(0,UBound($oName)-1,1)]&"."&$oVorsilben[Random(0,UBound($oVorsilben)-1,1)]&$oAcc[Random(0,UBound($oAcc)-1,1)]&"@web.de"
EndIf
EndIf
If $def=2 Then
$oString=$oName[Random(0,UBound($oName)-1,1)]
EndIf
If $def=3 Then
local $ran=Random(0,8,1)
If $ran=0 or $ran=4 Then
$oString=$oVorsilben[Random(0,UBound($oVorsilben)-1,1)]&$oName[Random(0,UBound($oName)-1,1)]
EndIf
If $ran=1 or $ran=5 Then
$oString=$oAcc[Random(0,UBound($oAcc)-1,1)]&"_of_"&$oAcc[Random(0,UBound($oAcc)-1,1)]
EndIf
If $ran=2 or $ran=6 Then
$oString=$oVorsilben[Random(0,UBound($oVorsilben)-1,1)]&$oAcc[Random(0,UBound($oAcc)-1,1)]
EndIf
If $ran=7 Then
$oString=$oName[Random(0,UBound($oName)-1,1)]&"_The_"&$oAcc[Random(0,UBound($oAcc)-1,1)]
EndIf
If $ran=8 Then
$oString=Chr(Random(65,90,1))&"-"&$oAcc[Random(0,UBound($oAcc)-1,1)]
EndIf
If $ran=3 Then
$oString=Chr(Random(65,90,1))&"-"&$oVorsilben[Random(0,UBound($oVorsilben)-1,1)]&$oAcc[Random(0,UBound($oAcc)-1,1)]
EndIf
EndIf
If $zahl=1 or $zahl=2 Then
$oString=$oString&Random(1,999,1)
EndIf
If $zahl=2 Then
For $hj=0 To Random(1,6,1)
$oString=_StringInsert($oString,Random(0,9,1),Random(1,StringLen($oString),1))
Next
EndIf
If $trans=1 Then
$oString=StringReplace($oString,"e","3","",0)
$oString=StringReplace($oString,"i","1","",0)
$oString=StringReplace($oString,"o","0","",0)
EndIf
Return $oString
EndFunc