SRL Archive - SRL Member Goodies

So I'm working on an account creator and have some accounts I won't use myself, feel free to use them for making scripts or something.

login: 'accounttest123+' + IntToStr(Count) + '@outlook.com';
pass = 'tester123'

Example: [email]accounttest123+45@outlook.com[/email]

Count goes from 1-47, the latest one have done the tutorial and have been teleported to lumbridge as I just finished that :) Some acconts might not have been activated but I think 80% has.

How do you activate?

From: litoris
How do you activate?

Made a script that activates them using Appa.
Doesn't take over my mouse so I might try running multiple account creators at once. By using a VPN that automatically changes my IP every 15 minutes I can bypass the 6 accounts/hour limit and make hundreds of accounts. I don't really have any use myself though but I needed to create some accounts for the gold selling website I work for :P

From: J J
Count goes from 1-47, the latest one have done the tutorial and have been teleported to lumbridge as I just finished that Some acconts might not have been activated but I think 80% has.

You can "Finish tutorial" by click on achievment tab, open notice board
> achievements > options > tutorials > "Tutorial is ON" button. :D

From: Laimonas171
You can "Finish tutorial" by click on achievment tab, open notice board
> achievements > options > tutorials > "Tutorial is ON" button. :D

Yeah I actually meant that by 'done' :P Would have been pretty hard to do the whole tutorial :stirthepot:
EDIT: Someone could use these accounts if they are working on a SOF spinner or something.

No idea will these work anymore. I made over 5k Accounts with this :P

var
  NName, eMail :String;

 //


function RegisterAccount :Boolean;
var
  Client : integer;
  Page : string;
begin
 // WriteLn('Posting to registering site...');
  NName := Name + IntToStr(Random(100000))
  eMail := NName + '@mailinator.com';
  Client := InitializeHTTPClientWrap(True);
  SetHTTPUserAgent(Client,'Mozilla/5.0 (Windows NT 6.1; rv:11.0) Gecko/20100101 Firefox/11.1');
  AddPostVariable(Client, 'version', '6');
  AddPostVariable(Client, 'onlyOneEmail', '1');
  AddPostVariable(Client, 'version', '6');
  AddPostVariable(Client, 'email1', eMail);
  AddPostVariable(Client, 'password1', 'aaaaa');
  AddPostVariable(Client, 'password2', 'aaaaa');
  AddPostVariable(Client, 'age', IntToStr(RandomRange(19, 32)));
  AddPostVariable(Client, 'agree_email', 'on');
  AddPostVariable(Client, 'agree_pp_and_tac', '1');
  AddPostVariable(Client, 'submit', 'Cr%E9er+un+compte');
  Page := PostHTTPPageEx(Client, 'https://secure.runescape.com/m=account-creation/l=2/create_account_funnel.ws?version=6');
  Writeln(Client);
  ClearPostData(Client);
  FreeHTTPClient(Client);
end;



function GetActivationURL(Name :String) :String;
var
  Source :String;
  Activation, JagexMail, TempMail :String;
begin
  Source := GetPage('http://www.mailinator.com/maildir.jsp?email=' + Name);
   // Writeln(Source);
  TempMail := Between('>RuneScape</span></b></td><td bgcolor=#EEEEFF align=center><a href=', '>Activez votre', Source);
  JagexMail := 'http://www.mailinator.com/' + TempMail;
  Source := GetPage(JagexMail);
  //Writeln(Source);
  Result := Between('.com&amp;js=1" rel="nofollow">', '&amp;address=', Source) + '&address=' + Email + '&js=1';
end;



function CheckActivateLink(URL :String) :Boolean;
var
  Client :Integer;
  i :String;
begin
  Client := InitializeHTTPClientWrap(False);
  i := GetHTTPPage(Client, URL);
  Result := Pos('Confirmation effectu', i) > 0;
  FreeHTTPClient(Client);
end;


function ActivateAccount :Boolean;
var
  S :String;
  C :Integer;
begin
  MarkTime(C);
  repeat
    Wait(1000);
    S := GetActivationURL(NName);
    If TimeFromMark(C) > 120000 then Exit;
  Until(Pos('runescape', S) > 0);
  Result := CheckActivateLink(S);
end;


function Connected :Boolean;
var
  X : TStringList;
  I : Integer;
begin
  X := TStringList.Create;
  X.LoadFromFile('C:\Program Files (x86)\OpenVPN\log\oq4ygz4z.log');
  for I := 0 to X.Count - 1 do
  begin
    WriteLn(X[I]);
    If Pos('process exiting', X[I]) > 0 then WriteLn('lol');
  end;
  X.Free;
end; 

hmmmm. 200m runescape accounts divided by 5k: Only 40k people play rs! haha

You used a VPN Home? I heard you need to reload rs if you change ip's. But you aren't actually logging in. I might just make loads of accs then read from textfile to skip tutorial etc.

gonna try and fix homes script :3

Yeah, I used nVPN (Best VPN). You can try fix it, but mailinator won't work anymore, you must find other TempMail provider.

~Home