[Program]Account Creator (NON WEBBASED ACCOUNT CREATOR!)

[kolklik]

Account Creator

download link removed for the next hour or 2 as the program is undergoing changes which will greatly affect the programs over-all performance and stability. PLease be patient, thank you

This tool is like a launcher, except it allows people to make accounts!
Changes

Changed some coding around to make sure it doesnt bug up your data if you insert a "null" (nothing) into fx the password changer
More small bugs fixed
New icon (Thank you Savell Martin)
Changed the admin control panel since there was a little error i bet non noticed :P
Reset admin button will now ask you if your sure you want to, it also resets it if the password was nothing, which could cause a error before
more small fixes...

[SIZE="5"]Features

Build in Admin panel that allows you to change
ip/dns
port
database
table
mysql user details
admin control panel login details
Added 8:31Pm gmt +1 ability to reset admin account incase someone manage to fuck it up (like Jewel)


What is all this for?

I'll tell you! It's for changing the settings in the Account Creator. By doing so, you can make it connect to YOUR SQL that way, people will registrate to your server when they use this tool!


What about my password? You could easily obtain them and hack me!

That is correct, i could do that, but why would I? This program doesnt not forward information of any kind, you have my word!




I take full credit for this, and when downloading you agree to pay 10.000.000$ within the next year or you can be prosecuted for piracy!
Sorry for that lame joke :) Enjoy my program, but if you share it somewhere, give credit to me for creating it. Readme inside the installer[/CENTER]

[Jewel]

First post :P

Nice Work, Kolklik!

Going to publish the Source?
You know some Free .Icon converter programs :p?


And Ac-Updater beta (http://home.graffiti.net/Jewel_AC/Beta.exe) is available.
Coded in Visual Basic .Net :p

[kolklik]

thank you mate, worked on it since 9 am this morning, and all of yesterday too, + some days before that lol! pew pew im hyper cos its released!

[Jewel]

Lol Nice :p

[kolklik]

hehe sorry to say i dont know any icon converters, but if you find one, LET ME KNOW! :D

The source (well some of it anyway, cos its really massive)

Imports MySql.Data.MySqlClient
Imports MySql.Data
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Accountname As String
Dim Password As String
Dim Accountdetails As String
Dim cbstat As String
Dim RandomClass As New Random()
Dim conn As New MySqlConnection
Dim myCommand As New MySqlCommand
Dim myAdapter As New MySqlDataAdapter
Dim myData As New DataTable
Dim RandomNumber As Integer
Accountname = Accname.Text
Password = Pwd.Text
Accountdetails = " Accountname: '" & Accountname & "' Password: '" & Password & "')"
If CheckBox1.CheckState = CheckState.Checked Then
cbstat = "8"
Else
cbstat = "0"
End If
RandomNumber = RandomClass.Next(10, 2000)
conn.ConnectionString = "Server='" & My.Settings.serverip & "'; Database='" & My.Settings.serverdatabase & "'; Port=" & My.Settings.serverport & "; Uid='" & My.Settings.serveruser & "'; Password='" & My.Settings.serverpassword & "';"
conn.Open()
Try
If conn.State = ConnectionState.Open Then
myCommand.CommandText = "INSERT INTO accounts(acct, login, password, gm, banned, lastlogin, lastip, email, flags)" _
& " VALUES(" & RandomNumber + 1 & ",'" & Accountname & "','" & Password & "', 0, 0, 1/2/2007,'',''," & cbstat & ")"
myCommand.Connection = conn
myCommand.ExecuteNonQuery()
MsgBox("Your account has been created your details is as following:" & Accountdetails)
End If
Catch exp As Exception
Debug.Print(myCommand.CommandText)
MsgBox(exp.Message)
Finally
conn.Close()
End Try
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
wflogin.Visible = true
End Sub


Public Class Form2

Private Sub AdminAccountToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdminAccountToolStripMenuItem.Click

End Sub

Private Sub SetPasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetPasswordToolStripMenuItem.Click
changeusername.visible = True
End Sub

Private Sub SetUsernameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetUsernameToolStripMenuItem.Click
changepassword.Visible = True
End Sub

Private Sub ChangeIpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeIpToolStripMenuItem.Click
serverip.Visible = True
End Sub

Private Sub ChangePortToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangePortToolStripMenuItem.Click
serverport.Visible = True
End Sub

Private Sub ChangeDatabaseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeDatabaseToolStripMenuItem.Click
serverdatabase.Visible = True
End Sub

Private Sub ChangeMysqlUsernameToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeMysqlUsernameToolStripMenuItem.Click
mysqlusername.Visible = True
End Sub

Private Sub ChangeMysqlPasswordToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeMysqlPasswordToolStripMenuItem.Click
mysqlpassword.Visible = True
End Sub

Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs ) Handles MenuStrip1.ItemClicked

End Sub
End Class


Public Class wflogin

Private Sub wflogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim username As String

Dim password As String
username = TextBox1.Text

password = TextBox2.Text

If username = "" & My.Settings.adminusername And password = "" & My.Settings.adminpassword Then

MsgBox("Thank you for logging in " & username & ".")
Form2.Visible = True
Me.Close()
Else
MsgBox("Invalid Username and Password combination.")
TextBox1.Clear()
TextBox2.Clear()


End If
End Sub
End Class


[Public Class serverip

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Settings.serverip.Remove(0)
My.Settings.serverip = TextBox1.Text
My.Settings.Save()
MsgBox("Account Creator will now generate accounts for the following ip '" & TextBox1.Text & "'.")
Me.Close()
End Sub

Private Sub changeusername_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub
End Class


jewel, your updater doesnt work rofl, it gives error on download hahaha nice try tho mate :) make sure if you import some dll's that you distribute them with the software

[Jewel]

Great job :p
but one thing
Admin can change the MySQL ip to nothing like null or whatever :p
And when i want to change the "Nothing" to something i get this error

System.ArgumentOutOfRangeException: startIndex must be less than length of string.
Parameter name: startIndex

[kolklik]

ye he can, but why would he :P? it gives more sence to have your "real" or in there so people actually can connect to your mysql server and make the account ;P

[Jewel]

Just hunting some mistakes :p

And could you do some Password reset thing >_> :P

I did something baad..

Even Uninstall won't work and when i re-download it won't work >_>

lol
Crap lol...
lol...

Could you help?

[kolklik]

ROFL! ye ye, ill make you an reset app lol. 2 sec

here lol Filebeam - Free Fast File Hosting (http://filebeam.com/7e822145acff8fc5418d2c5b6ec79c9a)

[Jewel]

Thanks! :p

That's why i'm still 'Newbie' :p I can break everything... Even the simplest thing on the whole planet...

Where does the Password save when you have change it?

Omg... It doesn't work....

[kolklik]

hehehe *laughts* i bet :D well, we all can mess up, btw the password and login name is case sensitive ;P

did the reset app work Jewel?

[Jewel]

Not really :P

Icon Converter (http://www.freedownloadscenter.com/Multimedia_and_Graphics/Misc__Graphics_Tools/Imagicon.html)

[kolklik]

did you click the big button on it? then re installed the other version (v2 (the real one))?

Jewel add me on msn and ill help you reset the settings :) Kolklik_frozen@hotmail.com ;)

[docrst]

Not working for me, no matter how i put in my login or pass for admin, other progs work with my log and pass

[kolklik]

docrst, the default admin login is admin admin and its not your wow admin account :)

[Jewel]

Added.

[kolklik]

New version 3.0.0 Released fixed some errors. if you find any bugs, spelling mistakes, anything, let me know by posting here, also, tell me what you think of the program

[cooly125]

Il try this later

[kolklik]

sounds good :)

[Clain]

Seems very nice...Gief dl link now...Gief it lol

[kolklik]

lol clain its currently under reconstruction as i found some problems with it after changing some code, im having a bit of problem saving the setting values in a safe way too, so that is a problem im currently trying to solve, it will be back to night or tomorrow