Results 1 to 13 of 13

Thread: Bank Pin Cracker

  1. #1
    Join Date
    Jun 2014
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    61 Post(s)

    Default Bank Pin Cracker

    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!

    Simba Code:
    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.

  2. #2
    Join Date
    Jun 2014
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Default

    Cheers for helping me with this thus far

  3. #3
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Progress Report:
    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
    There used to be something meaningful here.

  4. #4
    Join Date
    Jun 2014
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Default

    Quote Originally Posted by Frement View Post
    Progress Report:
    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

  5. #5
    Join Date
    Nov 2007
    Location
    46696E6C616E64
    Posts
    3,069
    Mentioned
    44 Post(s)
    Quoted
    302 Post(s)

    Default

    Quote Originally Posted by Cody44 View Post
    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.
    There used to be something meaningful here.

  6. #6
    Join Date
    Jun 2014
    Posts
    84
    Mentioned
    0 Post(s)
    Quoted
    31 Post(s)

    Default

    Quote Originally Posted by Frement View Post
    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?

  7. #7
    Join Date
    Jun 2014
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    61 Post(s)

    Default

    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
    Simba Code:
    [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?
    Simba Code:
    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.

  8. #8
    Join Date
    Oct 2013
    Location
    East Coast USA
    Posts
    770
    Mentioned
    61 Post(s)
    Quoted
    364 Post(s)

    Default

    Quote Originally Posted by Spotify View Post
    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
    Simba Code:
    [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

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

  9. #9
    Join Date
    Jun 2014
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    61 Post(s)

    Default

    Quote Originally Posted by bonsai View Post
    Didn't look at the details but you have extra brackets in the mouse line

    Simba Code:
    Mouse(PinNumber[i,x], PinNumber[i,y], 0, 0, true);
    Same error after removing the brackets :\

  10. #10
    Join Date
    Oct 2013
    Location
    East Coast USA
    Posts
    770
    Mentioned
    61 Post(s)
    Quoted
    364 Post(s)

    Default

    Quote Originally Posted by Spotify View Post
    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
    Simba Code:
    [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?
    Simba Code:
    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...

    Simba Code:
    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;

  11. #11
    Join Date
    Feb 2012
    Location
    Norway
    Posts
    995
    Mentioned
    145 Post(s)
    Quoted
    596 Post(s)

    Default

    Quote Originally Posted by Spotify View Post
    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
    Simba Code:
    [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.
    Simba Code:
    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
    Last edited by slacky; 08-22-2014 at 06:27 AM.
    !No priv. messages please

  12. #12
    Join Date
    Jun 2014
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    61 Post(s)

    Default

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

  13. #13
    Join Date
    Jun 2014
    Posts
    144
    Mentioned
    0 Post(s)
    Quoted
    61 Post(s)

    Default

    Quick question though guys, what font is this?



    EDIT: Nvm figured it out...

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •