PDA

View Full Version : Runescape Account Creator



[-jesus-]
12-25-2009, 10:08 PM
http://content.screencast.com/users/jesusspork/folders/Jing/media/30072475-8c41-4c1a-99ac-44ea90e0e819/2009-12-27_1908.png



Imports System.Net
Imports System.IO

Public Class Form1
Dim Cookies As New CookieContainer
Dim Referer As String
Dim Response As String
Dim WaitTime As Integer
Dim TimeX As Date
Dim Current As Integer
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliXseconds As Long)

Private Function SendData(ByVal PostData As String, ByVal Site As String) As String
Try
Dim Request As HttpWebRequest = DirectCast(WebRequest.Create(Site), HttpWebRequest)
Request.Method = "POST"
Request.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)"
Request.ContentType = "application/x-www-form-urlencoded"
Request.Referer = Referer
Request.AllowAutoRedirect = True
Request.ServicePoint.Expect100Continue = False
Request.CookieContainer = Cookies
Request.ContentLength = PostData.Length
Using ReqStream As Stream = Request.GetRequestStream()
Dim Encoding As New System.Text.UTF8Encoding()
Dim PostBytes As Byte() = Encoding.GetBytes(PostData)
ReqStream.Write(PostBytes, 0, PostBytes.Length)
End Using
Dim Result As String = String.Empty
Using Response As HttpWebResponse = Request.GetResponse()
Cookies.Add(Response.Cookies)
Using RespStream As Stream = Response.GetResponseStream()
Using Reader As New StreamReader(RespStream)
Result = Reader.ReadToEnd()
End Using
End Using
End Using
Return Result

Catch ex As Exception
MsgBox(ex.Message)
Return "Error sending"
End Try
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ToolStripStatusLabel1.Text = "Status: Creating Accounts"
Current = 0
ToolStripProgressBar1.Value = 0
If CheckContinuous.Checked Then
WaitTime = 0
Timer1.Interval = 1
BackgroundWorker1.RunWorkerAsync()
Else
TimeX = Date.Now.AddMinutes(NumericUpDown1.Value)
Timer1.Interval = NumericUpDown1.Value * 60000
Timer1.Start()
Timer2.Start()
End If
End Sub

Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
UserList.Items.Remove(UserList.SelectedItem)
End Sub

Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
UserList.Items.Clear()
End Sub

Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
ImpUsrList.PerformClick()
End Sub

Private Sub ImpUsrList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpUsrList.Click
OpenFileDialog1.Filter = "Text File|*.txt"
OpenFileDialog1.FileName = ""
OpenFileDialog1.Title = "Import Username List"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName = Nothing Then Exit Sub
Dim filepath As String = OpenFileDialog1.FileName
Dim inputstream As New StreamReader(filepath)
Do Until inputstream.EndOfStream
UserList.Items.Add(inputstream.ReadLine())
Loop
inputstream.Close()

If CheckAutoShort.Checked Then
For i = 0 To UserList.Items.Count - 1
If UserList.Items.Item(i).Length > 12 Then
UserList.Items.Item(i) = UserList.Items.Item(i).Remove(12)
End If
Next
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

SaveFileDialog1.Filter = "Text File|*.txt"
SaveFileDialog1.FileName = ""
SaveFileDialog1.Title = "Export Username List"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.FileName = Nothing Then Exit Sub
Dim filepath As String = SaveFileDialog1.FileName
Dim exportstream As New StreamWriter(filepath)
For i = 0 To ListBox1.Items.Count - 1
exportstream.WriteLine(ListBox1.Items.Item(i))
Next
exportstream.Close()
End Sub


Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
CheckForIllegalCrossThreadCalls = False
ToolStripProgressBar1.Maximum = UserList.Items.Count

If CheckContinuous.Checked Then
WaitTime = 0
Else
WaitTime = NumericUpDown1.Value * 60000
End If

For i = 0 To UserList.Items.Count - 1
If BackgroundWorker1.CancellationPending Then Exit Sub
Response = SendData("address1=&address2=&agree_privacy=on&agree_terms=on&java=1.6.0&username=" & UserList.Items.Item(i) & "&password1=" & TextPassword.Text & "&password2=" & TextPassword.Text & "&day=1&month=0&year=1990&country=225", "https://secure.runescape.com/m=create/email_preferences.ws")
If Response.Contains("has now been created") Then
ToolStripStatusLabel1.Text = "Status: Created account " & UserList.Items.Item(i)
ListBox1.Items.Add(UserList.Items.Item(i) & " : " & TextPassword.Text)
End If
If Response.Contains("blocked from creating") Then
If MsgBox("You have been blocked from creating too many accounts, please try again in a few minutes." & vbNewLine & "Press OK to make more accounts after waiting, or cancel to end account creation.", MsgBoxStyle.OkCancel, "Notice") = MsgBoxResult.Cancel Then
ToolStripStatusLabel1.Text = "Status: Temp. blocked from creating more accounts."
Timer1.Stop()
Exit Sub
End If
End If
If Response.Contains("supply a valid username") Then
ToolStripStatusLabel1.Text = "Status: Failed creating " & UserList.Items.Item(i) & ". Username in use/invalid"
End If
If Response.Contains("Error sending") Then
ToolStripStatusLabel1.Text = "Status: Error creating account"
End If
ToolStripProgressBar1.Increment(1)
Next
End Sub

Public Sub Wait(ByVal TimeOut As Long)
Dim TimeNow As Long
TimeNow = timeGetTime()
Do
Application.DoEvents()
Loop While TimeNow + TimeOut > timeGetTime()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ToolStripStatusLabel1.Text = "Status: Idle"
BackgroundWorker1.CancelAsync()
MsgBox("Stopping...")
End Sub

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckContinuous.CheckedChanged
If CheckContinuous.Checked Then
NumericUpDown1.Enabled = False
Else
NumericUpDown1.Enabled = True
End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If ComboBox1.SelectedIndex = -1 Then
MsgBox("Choose root name as either a prefix or suffix")
Exit Sub
End If
NameGen.Show()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ToolStripProgressBar1.Maximum = UserList.Items.Count

If Current > UserList.Items.Count - 1 Then
ToolStripStatusLabel1.Text = "Status: Completed accounts, Idle"
Timer1.Stop()
Timer2.Stop()
End If
Response = SendData("address1=&address2=&agree_privacy=on&agree_terms=on&java=1.6.0&username=" & UserList.Items.Item(Current) & "&password1=" & TextPassword.Text & "&password2=" & TextPassword.Text & "&day=1&month=0&year=1990&country=225", "https://secure.runescape.com/m=create/email_preferences.ws")
If Response.Contains("has now been created") Then
ToolStripStatusLabel1.Text = "Status: Created account " & UserList.Items.Item(Current)
ListBox1.Items.Add(UserList.Items.Item(Current) & " : " & TextPassword.Text)
End If
If Response.Contains("blocked from creating") Then
If MsgBox("You have been blocked from creating too many accounts, please try again in a few minutes." & vbNewLine & "Press OK to make more accounts after waiting, or cancel to end account creation.", MsgBoxStyle.OkCancel, "Notice") = MsgBoxResult.Cancel Then
ToolStripStatusLabel1.Text = "Status: Temp. blocked from creating more accounts."
Timer1.Stop()
Exit Sub
End If
End If
If Response.Contains("supply a valid username") Then
ToolStripStatusLabel1.Text = "Status: Failed creating " & UserList.Items.Item(Current) & ". Username in use/invalid"
End If
If Response.Contains("Error sending") Then
ToolStripStatusLabel1.Text = "Status: Error creating account"
End If
Current += 1
ToolStripProgressBar1.Increment(1)
TimeX = Date.Now.AddMinutes(NumericUpDown1.Value)
Timer2.Start()
' Next
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If TimeX < Date.Now Then
Timer1.Start()
Timer2.Stop()
Else
Dim remainingTime As TimeSpan = Me.TimeX.Subtract(Date.Now)
ToolStripStatusLabel2.Text = " - " & String.Format("{0}:{1:d2}:{2:d2}", remainingTime.Hours, remainingTime.Minutes, _
remainingTime.Seconds)
End If
End Sub
End Class


Public Class NameGen

Private Sub NameGen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
For i = 0 To Form1.NumericUpDown2.Value - 1
If Form1.ComboBox1.SelectedIndex = 0 Then
RichTextBox1.AppendText(Form1.TextRootName.Text & i & vbCrLf)
ElseIf Form1.ComboBox1.SelectedIndex = 1 Then
RichTextBox1.AppendText(i & Form1.TextRootName.Text & vbCrLf)
End If
Next
SendKeys.Send("{BACKSPACE}")
End Sub

Private Sub ImpUsrList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImpUsrList.Click
Dim SaveDialog As New SaveFileDialog
SaveDialog.Filter = "Text File|*.txt"
SaveDialog.FileName = ""
SaveDialog.Title = "Export Username List"
SaveDialog.ShowDialog()
If SaveDialog.FileName = Nothing Then Exit Sub
Dim filepath As String = SaveDialog.FileName
Dim exportstream As New IO.StreamWriter(filepath)
For i = 0 To RichTextBox1.Lines.Length - 1
exportstream.WriteLine(RichTextBox1.Lines(i))
Next
exportstream.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class


Download (attachments aren't working for me):
1.0
drop.io 37khlz0 (http://drop.io/37khlz0)

1.1
http://drop.io/rgwo7ay

1.2
http://drop.io/f5efhnr

Wanted
12-25-2009, 10:11 PM
Hey man, is it ok if I add this to POMS SVN?

I can add you to the group so you can update it when ever you want.

Just a suggestion, proxies :stirthepot: and something that checks the availability of the accounts in your list before you start creating accounts.

noidea
12-25-2009, 10:15 PM
Sexy! Nice Jesus

[-jesus-]
12-25-2009, 10:16 PM
POMS? Whats that? And I guess you can add it

tico2
12-25-2009, 10:23 PM
;669159']POMS? Whats that? And I guess you can add it

Publicly Owned and Maintained Scripts (http://srlpoms.googlecode.com/svn/trunk/)

Zyt3x
12-25-2009, 11:19 PM
Nice! :D
Would be even better if you used proxies! :)

EDIT2: Why does the notice about "You have been blocked..." pop up even though I click Ok?

EDIT: I needed some good names so I made this script:
const
HowMany = 5; // How many accounts do you want? Min 1. Max 50.
AddNumb = False; // True = Asdf1, Asdf2. False = Asdf, Qwer.
First = True; // True = 1Asdf, 2Asdf. False = Asdf1, Asdf2.
NumC = 5; // How many numbers after the name?
LongNames = True; // True = ~9 chars. False = ~5 chars.
Consonant = False; // Consonant heavy names? (Wekthlor, Zhaphg...)
Vowel = False; // Vowel heavy names? (Elaythu, Amoseiti...)
Randomize = False; // Randomizes the name, none of the booleans above count

var
Usernames : TStringArray;
f, S : String;
I, J, P, H : Integer;

begin
if HowMany > 50 then
H := 50
else
if HowMany < 2 then
H := 2
else
H := HowMany;
f := '2';
if LongNames then f := '3';
if Consonant then f := '4';
if Vowel then f := '5';
if Randomize then f := '6';
S := GetPage('http://www.rinkworks.com/namegen/fnames.cgi?id=checked&f=' + f);
Usernames := Explode('<li>', Between('<table><tr><td><ul></ul></td><td><ul><li>', '</ul></td></tr></table></center>', S));
SetArrayLength(Usernames, H);
for I := 0 to H-1 do
begin
P := Pos('<', Usernames[I]);
if P > 0 then
Delete(Usernames[I], P, 18);
if Length(Usernames[I]) < 5 then
Usernames[I] := Usernames[I] + Copy(Lowercase(Usernames[Random(H-1)]), 0, 12);
if AddNumb then
Delete(Usernames[I], 11, 20)
else
Delete(Usernames[I], 12, 20);
end;
ClearDebug;
for I := 0 to H-1 do
begin
if AddNumb then
begin
for J := 1 to NumC do
if First then
WriteLn(IntToStr(J) + Usernames[I])
else
WriteLn(Usernames[I] + IntToStr(J));
I := I + NumC
end else
WriteLn(Usernames[I]);
end;
end.Feel free to use :)

[-jesus-]
12-26-2009, 04:20 PM
Nice! :D
Would be even better if you used proxies! :)

EDIT2: Why does the notice about "You have been blocked..." pop up even though I click Ok?

EDIT: I needed some good names so I made this script:



I had the "You have been blocked" notice come up whenever Jagex blocks you from making more accounts, so you can wait and then come back and continue it in a few hours when you're unblocked.

Zyt3x
12-27-2009, 12:06 AM
;669331']I had the "You have been blocked" notice come up whenever Jagex blocks you from making more accounts, so you can wait and then come back and continue it in a few hours when you're unblocked.I noticed but why does it skip one account each time the notice comes up? :(

Wanted
12-27-2009, 12:09 AM
Word of advice, click cancel and every 15 minutes after that = 1 account. Once you have 10 'credits' it stops adding until you use them and then its 15 minutes = 1 account.

Zyt3x
12-27-2009, 01:19 AM
Word of advice, click cancel and every 15 minutes after that = 1 account. Once you have 10 'credits' it stops adding until you use them and then its 15 minutes = 1 account.Thanks :)
How many is max? 6?

Wanted
12-27-2009, 01:21 AM
Thanks :)
How many is max? 6?

You have a credit pool with a max of 10 at a time... that pools refills 1 account every 15 minutes. You can make however many accounts you want... but you have to wait 15 minutes for each account the limit being 10 at a time.. but no total limit.

tls
12-27-2009, 02:27 AM
So why not add a feature that you can run this overnight with it creating one account every fifteen minutes :P

[-jesus-]
12-27-2009, 03:09 AM
added the # incrementer for acc names & a timer for acc creation. was afk since last night

Wanted
12-27-2009, 03:18 AM
Protip: Make 9 accounts all at once, then do 16 mins per each.

Zyt3x
12-27-2009, 09:59 AM
It takes up 50% of my processor power.. :(

[-jesus-]
12-27-2009, 11:18 AM
It takes up 50% of my processor power.. :(

Used application.doevents for the waiting which was stupid. V1.2 is on a timer so it's fixed, I'll upload it when I wake up in a few hrs

Zyt3x
12-27-2009, 03:04 PM
;669512']Used application.doevents for the waiting which was stupid. V1.2 is on a timer so it's fixed, I'll upload it when I wake up in a few hrsCool :)

[-jesus-]
12-28-2009, 12:31 AM
added progress bar/status label. Changed to using a timer instead of waiting w/ application.doevents

Zyt3x
12-28-2009, 01:24 AM
I love the progress bar :)
I have 200 accounts to go... That's... 2 days or so :O

Wanted
12-28-2009, 01:27 AM
I love the progress bar :)
I have 200 accounts to go... That's... 2 days or so :O

200 accounts @ 15 minute intervals? not a good idea... probably get IP banned from runescape.com

Zyt3x
12-28-2009, 01:29 AM
200 accounts @ 15 minute intervals? not a good idea... probably get IP banned from runescape.comHmm... Didn't think of that :S
Heh thanks for the warning :P

[-jesus-] Could you please add some sort of proxy thingie?

[-jesus-]
12-28-2009, 02:35 AM
Hmm... Didn't think of that :S
Heh thanks for the warning :P

[-jesus-] Could you please add some sort of proxy thingie?

k, GL finding good proxies tho :<

Zyt3x
01-02-2010, 03:20 PM
I am done creating those 200 accounts now :p
And I'm 50% done in the creating of a tutorial runner

Buckleyindahouse
01-02-2010, 03:58 PM
If someone wanted one with proxies, I could possibly make one.
Nice acct. creator though :).

noidea
01-02-2010, 05:21 PM
If someone wanted one with proxies, I could possibly make one.
Nice acct. creator though :).

I don't think your account cracker would work any more. Does it? If not are there still ways to test the logins without having to do the capatcha?

Buckleyindahouse
01-02-2010, 05:25 PM
I don't think your account cracker would work any more. Does it? If not are there still ways to test the logins without having to do the capatcha?
I haven't experienced any captcha's, it would still work i believe but im not talking bout that. I can create a new account creator from scratch in a matter of hours if i dont have nothing else to do.

noidea
01-02-2010, 05:32 PM
I haven't experienced any captcha's, it would still work i believe but im not talking bout that. I can create a new account creator from scratch in a matter of hours if i dont have nothing else to do.

I was just wondering about the cracker since it was so famous a few months/~years back

Buckleyindahouse
01-02-2010, 07:13 PM
I was just wondering about the cracker since it was so famous a few months/~years back
Oh it's cool, I let it die along with the forums I was part of :(.

Home
01-07-2010, 08:49 PM
Hey, mabey add a ReConnect ability?

For Ip Change.

Simple Batch Script will do it.

Script:


rasdial "ConnectionName" /disconnect
ping www.google.com -n 8
rasdial "ConnectionName" USERNAME PASSWORD


Example:


rasdial "DNA" /disconnect
ping www.google.com -n 8
rasdial "DNA" USERNAME PASSWORD

~Home

[-jesus-]
01-08-2010, 02:29 AM
Nah it's easy to add proxy support but I CBF to find a good working list of proxies/setting up the proxy rotation to deal with all the bad ones so it doesn't just skip the acc. (It's not hard, but i'm just really lazy with this kind of stuff..)



request.Proxy = New WebProxy(PROXYIP&PORT, True)

Dgby714
03-01-2010, 05:39 AM
I know this is a little Old but id like to point out the program needs updating =)

Always get "Failed Creating ***. Username in use/Invalid"
ive checked the name by manually making it and it wasnt invalid!

mysterious123
03-04-2010, 08:43 AM
I know this is a little Old but id like to point out the program needs updating =)

Always get "Failed Creating ***. Username in use/Invalid"
ive checked the name by manually making it and it wasnt invalid!


Yeah, same here, I too keep getting that message.

[-jesus-]
03-09-2010, 07:37 AM
I'll fix it tomorrow. Jagex added some key to it so I'm just going to use a webbrowser since I'm lazy.

g0tp0t
04-24-2010, 10:50 PM
a little bit old, but same error still occurs, user invalid blah blah blah, di they change again \? or was this ever fixed