SRL Archive - Outdated / Broken

Well I got bored so I made this crappy script. It makes up to 5 accounts waiting 2 minutes between each(don't worry, you can do stuff while it's making the accounts, I'll explain in a bit.) and has an option to have random passwords. It also logs all accs made to a file.

Ok, now to explain the script, it just opens a page in your browser to make the accs, so if your running Firefox you can do pretty much anything(just need to tab back) while it makes the accounts. If I'm not wrong, this is the first SCAR script to make accounts without the use of the mouse functions. :)

Account logging :- it will log accounts made to the script path in the format of username : password. (Be aware at each script run the file is overwritten, so you might want to add the users to your army list ect). I made some functions so if the usernames are over 12 letters, it deletes some chars, and it it's under 9 characters it adds some random numbers. If you see "Sorry, this service is unavailable at the moment. Please try again in a few minutes." on the new RS page opened, it means the account is already in the database, thus can't be made. Not much I can do about that I'm afraid.

See attachment for script. :)

Looks like 1337 poonage to me, good job. (:

EDIT:

Shiet son, 30 hours? Or is that just sarcasm? xD

Wow that is a really good way of making an account creator! Never thought of it like that :D nice job.

a couple tweaks coule be made, though.
SampleFunction1 is an unknown identifier, i dont know what that is there for?
BringItTogether, you could write like this:

Procedure BringItTogether;
var i : integer;
begin
  for i := 1 to 4 do
    MakeUser(Users[i],Passes[i]);
end;

Great script, though! Im tahnkful, lol

now make it run the chars though tut island :p

that would be a great script.

From: Infintry001
Wow that is a really good way of making an account creator! Never thought of it like that :D nice job.

a couple tweaks coule be made, though.
SampleFunction1 is an unknown identifier, i dont know what that is there for?
BringItTogether, you could write like this:

Procedure BringItTogether;
var i : integer;
begin
  for i := 1 to 4 do
    MakeUser(Users[i],Passes[i]);
end;

Great script, though! Im tahnkful, lol

You need the testplugin.dll in your plugin folder, it comes with SCAR. All samplefunction1 does is open a popup window. :P

From: WhiteShadow
Looks like 1337 poonage to me, good job. (:

EDIT:

Shiet son, 30 hours? Or is that just sarcasm? xD

At the time of posting the script it was around 34. :( :) I went to bed around 41 hours.

From: dark_sniper
now make it run the chars though tut island :p

that would be a great script.

I'll edit it in the next few days so it'll run through tut island. Also, a note to all, having 4 random letters in front of your name avoids trying to make double accounts.

I'm trying to download it, but it keeps saying internal server error, any ideas? It's odd, not the first time. I get it lik every 3 pages :(.

I'll post the code.

{.Script Info:
# ScriptName  = 78 Line Account Maker
# Author      = The Un-Named
# Description = Makes 5 acc's at [url]www.runescape.com[/url]
# Version     = 0.5
# Date        = 13 Jan 2007, 11:57AM
# Comments    = Made with 30 hours no sleep, sorry if it isn't as good as it could be.
/Script Info}
var
  a : string;
  Rand : Boolean;
  I, gI, gFile : Integer;
  Users, Passes : array[1..5] of string;

function RandPass : string;
begin
  result := IntToStr(100) + IntToStr(random(100)) + Chr(65 + random(25)) +
  Chr(65 + random(25)) + Chr(65 + random(25)) +  IntToStr(100) + IntToStr(random(100));
end;

procedure SETUP;
begin
  a := Readln('Random passwords? Y/N');
  if a = LowerCase('y') then
    Rand := True;
  for i := 1 to 5 do
  begin
    Users[i] := ReadLn('User #' + IntToStr(i) + ' name?');
    if Length(Users[i]) <9 then
      Users[i] := Users[i] + IntToStr(Random(100))
    else if
      Length(Users[i]) > 12 then
    begin
      SampleFunction1('ERROR!');
      Writeln('username is too long, will delete some.');
      gI := Length(Users[i]);
      delete(Users[i], 11, gI - 11);
    end;
    if Rand = False then
      Passes[i] := ReadLn('User #' + IntToStr(i) + ' password?')
    else
      Passes[i] := RandPass;
  end;
end;

procedure MakeUser(name, code : string);
begin
  OpenWebPage('https://create.runescape.com/lang/en/aff/runescape/createaccoun'+
  't.ws?password1='+code+'&password2='+code+'&termsandcond=1&username='+name+'');
  Wait(120000);
end;

procedure BringItTogether; //this bit really could be better
begin //I don't know how to call array data from a loop so I just don't bother
  MakeUser(Users[1], Passes[1]);
  MakeUser(Users[2], Passes[2]);
  MakeUser(Users[3], Passes[3]);
  MakeUser(Users[4], Passes[4]);
  MakeUser(Users[5], Passes[5]);
end;

procedure WriteLogs;
var
  tInt : integer;
begin
  gFile := ReWriteFile(ScriptPath + 'CreatedArmy.html', False);
  for tInt := 1 to 5 do
  begin
    WriteFileString(gFile, '<p>' + Users[tInt] +' : '+ Passes[tInt] + '<p />');
  end;
  CloseFile(gFile);
end;

begin
  SETUP;
  WriteLogs;
  BringItTogether;
end.

This is good Un-Named, but I see one problem. Where you put

  if a = LowerCase('y') then

That should be

  if LowerCase(a) = 'y' then

because how you had it, it was seeing if a was 'y', not 'Y' or 'y'.

Other than that, nice job.

Yeah its good but the concept isnt exactly revolutionary. All of my account creation utilities work in the same way this one does.

I actually think it's a great idea to do it this way. I never thought of that.

From: Bam Bam
Yeah its good but the concept isnt exactly revolutionary. All of my account creation utilities work in the same way this one does.

I've never seen an account creator that gets the page, apart from a few Java brute forcer's.

From: Infintry001
Wow that is a really good way of making an account creator! Never thought of it like that :D nice job.

He didn't either :P
It was just never applied in scar before :)

From: Freddy1990
He didn't either :P
It was just never applied in scar before :)

It was only after noticing the code did I realize it was on Google. :)

I was trying desperately to make a 2 letter account name using SCAR(using loops and OpenWebPage) and thought there must be an easier way. The page where you enter the pass is createaccount.ws practically, then just messed with some values.

I'm learning PHP so things like Runescape.com/?account=gds&pass=gesdd make sense to me now. :)

making my accounts WHILE I post this :D


EDIT: This is awesome lawl, I have 2 scripts running making accounts. Next is *caugh* Lorax Tut Islander* caugh*

Actually, their (Lorax, Tarajunky, other dude forgot name XD) tut islander is awesome!

it flopped on me :( went to create but it's actually making me choose the options

I found a site that lets you create them where you just use a GET function in the url with the username and pass, eg:

www.whatever.com/maker.php?Username=freddy&password=freddyspass

and that would make you an account :p

I'll see if I can find the site…

From: m0u53m4t
I found a site that lets you create them where you just use a GET function in the url with the username and pass, eg:

www.whatever.com/maker.php?Username=freddy&password=freddyspass

and that would make you an account :p

I'll see if I can find the site…

That's basically what the script does.

procedure MakeUser(name, code : string);
begin
OpenWebPage('https://create.runescape.com/lang/en/aff/runescape/createaccoun'+
't.ws?password1='+code+'&password2='+code+'&termsandcond=1&username='+name+'');
Wait(120000);
end;

I could have used GetUrl and more to improve it. The problem is you can only make 5 accounts an hour so if one messes up your still locked for an hour unless you proxy it. The current code doesn't work(just add "&country=255", or 77 if your from the uk) and it will work. I'm planning on rewriting it completely with a tutorial island doer, as I've said but I'm bad at writing scripts on demand. :( :(h):

un-named.. the file writting code in ejj's acct creator does not overwrite the file.

i made it and give you all rights to play wit it :p

From: Dark_Sniper
un-named.. the file writting code in ejj's acct creator does not overwrite the file.

i made it and give you all rights to play wit it :p

I was going to fix it next version by using a try..except..finally statement, and possibly put users in a table and have an x next to their name if they haven't done tut island. :P

see now thats cool.

the try statment never came to me :\ (prob cause i nvr use it?)

sounds good :p

From: Dark_Sniper
see now thats cool.

the try statment never came to me :\ (prob cause i nvr use it?)

sounds good :p

Yeah I was going to(in human form not scar), "try add to file except make file and add to it finally free what ever needs to be freed;". It should work either way. :P