Accountname-Creator

[Shadow992]

Dir fällt kein Name für dein Account ein ?
Du willst mal einen etwas anderen Benutzernamen ?
Du hast mal wieder Lust etwas total langweiliges und sinnloses zu machen ?

Dann habe ich hier genau das Richtige !
Einen Benutzernamen , Namen und Email Creator .
Soetwas braucht man eigentlich nicht , aber es ist doch lustig was so für
Benutzernamen herauskommen .
Ein paar Beispiele :

Unbelieveable_Chicken
Dark_Egg
Y-Secret_Kick
Orania_The_Frog
Nice_Stick
Kind_Of_Frog
Toilet_of_Death

Wobei aber auch teilweise sehr interessante Benutzernamen bei rauskommen .
Bsp :

Immortal_Robin
Q-DeadBringer
Cold_Execution
Paper_Choas

Wie alle Skripts , die von mir veröffentlich werden , ist dieses Skript von mir gemacht und nicht geleecht

Skript :

 Spoiler

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 


Da ich gestern darüber knapp eine halbe Stunde gelacht habe und den Tränen schon nahe war ,
dachte ich mir , dass ich es in epvpers hochladen sollte
Ich hoffe ihr könnt auch etwas damit anfangen bzw hoffentlich könnt ihr darüber auch soviel lachen wie ich

[| Moep |]

hmmm... schonmal drüber nachgedacht die vorlage nicks aus ner .txt datei auslesen zu lassen? Du kannst auch nur ne Liste von Silben machen, der User kann sich dann aussuchen aus wieviel Silben der Nick besteht, ob er weiblich oder mänlich klingen soll usw...
Denn mit den par Hard coded namen hast nicht gerade ne große vielfalt

[Shadow992]

Originally Posted by | Moep |

hmmm... schonmal drüber nachgedacht die vorlage nicks aus ner .txt datei auslesen zu lassen? Du kannst auch nur ne Liste von Silben machen, der User kann sich dann aussuchen aus wieviel Silben der Nick besteht, ob er weiblich oder mänlich klingen soll usw...
Denn mit den par Hard coded namen hast nicht gerade ne große vielfalt

Naja das sind doch genug Kombinationsmöglichkeiten und wenn es nicht reicht macht man noch die Zahlen hinzu

Man kann ja sehr leicht neue Namen hinzufügen , einfach die Arraygröße anpassen und Namen hinzufügen , mehr muss nicht beachtet werden

Das mit den Silben kann man ja noch hinzufügen .
Ich wollte das Skript schon seit langen hochladen , aber ich war mir nie sicher , ob das überhaupt jemand braucht .

Edit :
Nach meiner Rechnung und wenn man die Zahlen weglässt , kommt man auf

40*54+54*54+40*104+54*104+25*54+25*40*54=70.202

Accountnamen , das sollten doch mehr als genug sein .
Wenn man jetzt noch Zahlen ans Ende des Accounts anhängt(von 1 bis 999)
Dann komme ich auf

((40 * 54) + (54 * 54) + (40 * 104) + (54 * 104) + (25 * 54) + (25 * 40 * 54)) * 999 = 70.131.798

Wenn ich jetzt noch mehr Zahlen benutzen will , komme ich auf ungefähr .
(Dieses Ergebnis kann stark abweichen , da ich mich dem Ergebnis nur annähern will)
Wir nehmen einfach mal den Fall für das kürzeste Wort , das kürzeste Wort , das generiert werden kann ist 5 Buchstaben lang .

(40*54+54*54+40*104+54*104+25*54+25*40*54)*999*5*9=3.155.930.910

Das sind die Benutzernamen , die minimal hergestellt werden können .
Es können also mindestens 3,1 Milliarden verschiedene Benutzernamen generiert werden , das reicht doch vollkommen ...

[muse-]

gefällt mir echt gut
am besten email gen!

[FrEakY.]

8D .. dann test mal meinen E-Mail Creator
->

[Shadow992]

Originally Posted by coladose

8D .. dann test mal meinen E-Mail Creator
->

Musst du schon Werbung für deinen Email Creator machen ?
So schlecht gehts dir also ?
(Bestimmt auch geleecht ...)

[FrEakY.]

Shad du bist fieß und Der Modder von diesem Teil is im Knast... Aber echt sehr saubere Arbeit
€dit: Und bissl Werbung ist nie schlecht

[Shadow992]

Originally Posted by coladose

Shad du bist fieß und Der Modder von diesem Teil is im Knast... Aber echt sehr saubere Arbeit
€dit: Und bissl Werbung ist nie schlecht

Eine Werbung für eine fremde Sache zu machen und für dessen Arbeit auch noch Thxs zu kassieren , ist das Letzte ...
Es gibt nichts , was ich mehr hasse als Leecher ...

[eXcalibur93]

Hi, also das is wirklich funny muss ich dir lassen
ABER kann man das nicht auch sehr leicht zum Knacken von Passwörtern etc. benutzen?
Also ich mein einfach statt Wörtern nur Buchstaben / Zahlen einsetzen und schon erstellt es mir alle möglichen Passwörter aus 5, 6 , .... Ziffern oder?
Mfg eXcalibur

[.nAno]

theoretisch ja,
aber dafür müsstest du das Programm modifzieren und das könntest du auch mit jedem anderen Code machen