SRL Archive - OSR Help

So on the RSPS, PkHonor, you can set a bank pin which you have to enter upon logging in if your ip changes. Well the problem is I forgot my pin and the mods don't give a shit about helping me.

What I'm trying to do is guess the pins 0000-9999. Yes I do know it will take a long time to get through all those pins, but I'm willing to leave it on for a few days.

What I want it to do is hit pin0, pin0, pin0, pin0, then when it fails move to pin0, pin0, pin0, pin1. I know I could do this with 10k procedures buuuuut there might be a simpler way.

Here's what I have so far.

Any help is appreciated!

program PinCracker;
{$i srl-osr/srl.simba}

var
  x, y:Integer;
    Pin1, pin2, pin3, pin4, pin5, pin6, pin7, pin8, pin9, pin0:TPoint;

Procedure AssignNumbers;

Begin
  pin1 := Point(70, 139);
  pin2 := Point(165, 138);
  pin3 := Point(250, 135);
  pin4 := Point(343, 141);
  pin5 := Point(71, 212);
  pin6 := Point(164, 224);
  pin7 := Point(254, 214);
  pin8 := Point(80, 290);
  pin9 := Point(167, 290);
  pin0 := Point(257, 289);
End;

Procedure ClickPin;
var
  x, y:Integer;
Begin
  Mouse(Pin1.x, pin1.y, 0, 0, true);
  Mouse(Pin2.x, pin2.y, 0, 0, true);
  Mouse(Pin3.x, pin3.y, 0, 0, true);
  Mouse(Pin4.x, pin4.y, 0, 0, true);
End;

begin
mouseSpeed := 25;
AssignNumbers
ClickPin
end.        

Cheers for helping me with this thus far :)

for a = 0 to 9 do
  for b = 0 to 9 do
    for c = 0 to 9 do
      for d = 0 to 9 do
        enter pin abcd

There.

EDIT: I also recommend putting those coordinates into an array, so you can access each number by the index in the array. Array of length 10 would have indexes 0..9

From: Frement

for a = 0 to 9 do
  for b = 0 to 9 do
    for c = 0 to 9 do
      for d = 0 to 9 do
        enter pin abcd

There.

EDIT: I also recommend putting those coordinates into an array, so you can access each number by the index in the array. Array of length 10 would have indexes 0..9

Hi me and Spotify are working on this together, could you possibly show me what you mean? As I am not familiar with arrays

From: Cody44
Hi me and Spotify are working on this together, could you possibly show me what you mean? As I am not familiar with arrays

Specifically TPointArray should be used here, just read on them from the tutorials.

From: Frement
Specifically TPointArray should be used here, just read on them from the tutorials.

Okay I will give it a shot, thanks!

ALSO: When the pin is entered incorrectly the server disconnects you, so you have to relogin would that be an issue?

Thanks for the help @Frement. I've worked my way through every tutorial on TPA's i could find and this is the result. Only problem is i get

[Error] C:\Users\Spotify\Desktop\PinCracker;.simba(29:28): Semicolon (';') expected at line 29
Compiling failed.

every time I try to run it. The error is at Mouse([PinNumber[i.x]], [PinNumber[i.y]], 0, 0, true);

What am I doing wrong here?

program PinCracker;
{$i srl-osr/srl.simba}

var
  x, y:Integer;

Procedure ClickPin;
var
  PinNumber : TPointArray;
  i:Integer;
Begin

  PinNumber[0] := Point(257, 289);
  PinNumber[1] := Point(70, 139);
  PinNumber[2] := Point(165, 138);
  PinNumber[3] := Point(250, 135);
  PinNumber[4] := Point(343, 141);
  PinNumber[5] := Point(71, 212);
  PinNumber[6] := Point(164, 224);
  PinNumber[7] := Point(254, 214);
  PinNumber[8] := Point(80, 290);
  PinNumber[9] := Point(167, 290);

 for i := 0 To High(PinNumber) do
  for i := 0 To High(PinNumber) do
    for i := 0 To High(PinNumber) do
      for i := 0 To High(PinNumber) do
        Mouse([PinNumber[i.x]], [PinNumber[i.y]], 0, 0, true);

End;

begin
mouseSpeed := 25;
ClickPin
end.      

From: Spotify
Thanks for the help @Frement. I've worked my way through every tutorial on TPA's i could find and this is the result. Only problem is i get

[Error] C:\Users\Spotify\Desktop\PinCracker;.simba(29:28): Semicolon (';') expected at line 29
Compiling failed.

every time I try to run it. The error is at Mouse([PinNumber[i.x]], [PinNumber[i.y]], 0, 0, true);

Didn't look at the details but you have extra brackets in the mouse line

Mouse(PinNumber[i,x], PinNumber[i,y], 0, 0, true);

From: bonsai
Didn't look at the details but you have extra brackets in the mouse line

Mouse(PinNumber[i,x], PinNumber[i,y], 0, 0, true);

Same error after removing the brackets :\

From: Spotify
Thanks for the help @Frement. I've worked my way through every tutorial on TPA's i could find and this is the result. Only problem is i get

[Error] C:\Users\Spotify\Desktop\PinCracker;.simba(29:28): Semicolon (';') expected at line 29
Compiling failed.

every time I try to run it. The error is at Mouse([PinNumber[i.x]], [PinNumber[i.y]], 0, 0, true);

What am I doing wrong here?

program PinCracker;
{$i srl-osr/srl.simba}

var
  x, y:Integer;

Procedure ClickPin;
var
  PinNumber : TPointArray;
  i:Integer;
Begin

  PinNumber[0] := Point(257, 289);
  PinNumber[1] := Point(70, 139);
  PinNumber[2] := Point(165, 138);
  PinNumber[3] := Point(250, 135);
  PinNumber[4] := Point(343, 141);
  PinNumber[5] := Point(71, 212);
  PinNumber[6] := Point(164, 224);
  PinNumber[7] := Point(254, 214);
  PinNumber[8] := Point(80, 290);
  PinNumber[9] := Point(167, 290);

 for i := 0 To High(PinNumber) do
  for i := 0 To High(PinNumber) do
    for i := 0 To High(PinNumber) do
      for i := 0 To High(PinNumber) do
        Mouse([PinNumber[i.x]], [PinNumber[i.y]], 0, 0, true);

End;

begin
mouseSpeed := 25;
ClickPin
end.      

More of the code registered when the page refreshed :)

You can't loop over 'i' four times deep like that, you need four different integers.

And once you get to the bottom, you don't want to do one mouse operation, you want to push all four codes.

More like this…

for i := 0 To High(PinNumber) do
  for j := 0 To High(PinNumber) do
    for k := 0 To High(PinNumber) do
      for l := 0 To High(PinNumber) do
      begin
         Mouse(PinNumber[i].x, PinNumber[i].y, 0, 0, true);
         Mouse(PinNumber[j].x, PinNumber[j].y, 0, 0, true);
         Mouse(PinNumber[k].x, PinNumber[k].y, 0, 0, true);
         Mouse(PinNumber[l].x, PinNumber[l].y, 0, 0, true);
      end;

From: Spotify
Thanks for the help @Frement. I've worked my way through every tutorial on TPA's i could find and this is the result. Only problem is i get

[Error] C:\Users\Spotify\Desktop\PinCracker;.simba(29:28): Semicolon (';') expected at line 29
Compiling failed.

every time I try to run it. The error is at Mouse([PinNumber[i.x]], [PinNumber[i.y]], 0, 0, true);

What am I doing wrong here?
…

Edit: In addition to what bonsai mentioned, you also lack "SetLength(PinNumber,10)" where 10 is the number of points you can store in it.

Try something like this.

program PinCracker;
{$i srl-osr/srl.simba}


Procedure ClickPin();
var
  PinNumber : TPointArray;
  a,b,c,d:Integer;
Begin
  SetLength(PinNumber,10);
  PinNumber[0] := Point(257, 289);
  PinNumber[1] := Point(70, 139);
  PinNumber[2] := Point(165, 138);
  PinNumber[3] := Point(250, 135);
  PinNumber[4] := Point(343, 141);
  PinNumber[5] := Point(71, 212);
  PinNumber[6] := Point(164, 224);
  PinNumber[7] := Point(254, 214);
  PinNumber[8] := Point(80, 290);
  PinNumber[9] := Point(167, 290);

 for a := 0 to 9 do
  for b := 0 to 9 do
    for c := 0 to 9 do
      for d := 0 to 9 do
      begin
        //WriteLn('Testing:',[a,b,c,d]);
        Mouse(PinNumber[a].x, PinNumber[a].y, 0,0, True);
        Mouse(PinNumber[b].x, PinNumber[b].y, 0,0, True);
        Mouse(PinNumber[c].x, PinNumber[c].y, 0,0, True);
        Mouse(PinNumber[d].x, PinNumber[d].y, 0,0, True);
      end;

End;

begin
  mouseSpeed := 25;
  ClickPin();
end.

Edit: seems like I was a bit slow to answer, as bonsai wrote pretty much the same as me :P

Awesome! Much appreciated guys, I'll get to working on the other parts of the script.

Quick question though guys, what font is this?


EDIT: Nvm figured it out…