RuneScapeTop Picture Leaker :D!

Printable View

Show 40 post(s) from this thread on one page

SCAR Code:

program RunescapeTopDownloader;

const
  Path2Dl = 'C:\Documents and Settings\Owner.MATTHEW\Desktop\RuneScapePictures\New\';

var
  png, jpg, gif, bmp, tif, none, i : integer;
    a, b, c, d, e : integer;
  ax, bx, cx, dx, ex, pix : string;

function DownloadFile(FileLink, Path: String): Boolean;
var
  PageString: String;
  iFile: Integer;

begin
  try
    PageString := GetPage(FileLink);
    if PageString = '' then Exit;
    iFile := RewriteFile(Path, False);
    Result := WriteFileString(iFile, PageString);
    CloseFile(iFile);
  except
    Result := False;
    Exit;
  end;
end;

procedure Download(Path2 : string);
begin
  if (DownloadFile(Path2 + '.png', Path2DL + pix + '.png')) then
  begin
    Writeln('Downloaded: ' + Path2 + '.png');
    png := png + 1;
    Exit;
  end;
  if (DownloadFile(Path2 + '.jpg', Path2DL + pix + '.jpg')) then
  begin
    Writeln('Downloaded: ' + Path2 + '.jpg');
    jpg := jpg + 1;
    Exit;
  end;
  if (DownloadFile(Path2 + '.gif', Path2DL + pix +'.gif')) then
  begin
    Writeln('Downloaded: ' + Path2 + '.gif');
    gif := gif + 1;
    Exit;
  end;
  if (DownloadFile(Path2 + '.bmp', Path2DL + pix +'.bmp')) then
  begin
    Writeln('Downloaded: ' + Path2 + '.bmp');
    bmp := bmp + 1;
    Exit;
  end;
  if (DownloadFile(Path2 + '.tif', Path2DL + pix +'.tif')) then
  begin
    Writeln('Downloaded: ' + Path2 + '.tif');
    tif := tif + 1;
    Exit;
  end;
  none := none + 1;
end;


procedure PrintStats;
begin
  ClearReport;
  AddToReport('Stats:');
  AddToReport('PNGs: ' +IntToStr(Png));
  AddToReport('JPGs: ' +IntToStr(jpg));
  AddToReport('GIFs: ' +IntToStr(gif));
  AddToReport('BMPs: ' +IntToStr(bmp));
  AddToReport('TIFs: ' +IntToStr(tif));
  AddToReport('No Pic: ' +IntToStr(None));
end;


function ConvertNumber(number : integer): String;
begin
  case Number of
    0: Result := '0';
    1: Result := '1';
    2: Result := '2';
    3: Result := '3';
    4: Result := '4';
    5: Result := '5';
    6: Result := '6';
    7: Result := '7';
    8: Result := '8';
    9: Result := '9';
    10: Result := 'a';
    11: Result := 'b';
    12: Result := 'c';
    13: Result := 'd';
    14: Result := 'e';
    15: Result := 'f';
  end;
end;

procedure CreateDirs;
begin
  a := 0;
  b := 0;
  c := 0;
  d := 0;
  e := 0;
  for i:=0 to 1000 do
  begin
    e := e + 1;
    if (e = 15) then
    begin
      e := 0;
      d := d + 1;
      if (d = 15) then
      begin
        d := 0;
        c := c + 1;
        if (c = 15) then
        begin
          c := 0;
          b := b + 1;
        end;
      end;
    end;
  ax := ConvertNumber(a);
  bx := ConvertNumber(b);
  cx := ConvertNumber(c);
  dx := ConvertNumber(d);
  ex := ConvertNumber(e);
  pix := ax + bx + cx + dx + ex;
  Download('http://www.runescapetop.com/up/images/' + pix);
  wait(250);
  PrintStats;
  end;
end;


begin
  png := 0;
  tif := 0;
  bmp := 0;
  jpg := 0;
  gif := 0;
  none := 0;
  CreateDirs;
end.
{Jethr0x's Picture Downloader... it downloads EVERY picture on RuneScapeTop.com
Hopefully I find some nice nudies <3 ... or acc logs :D!!! <3 XtS }

Downloads pictures from RuneScapeTop ... I like viewing pics for no reason... so i made this to download them so I can easily scan through them while afk training ... I admit i did find some nudes... >.> ... A few people asked me for it on IRC and use it... so I guess I can post it here :p

Set the download location...

RuneScapeTop is one of Zybez's uploading services... And its links look like: http://www.runescapetop.com/up/images/651ed.png

The script has this number broken down.

a := 0;
b := 0;
c := 0;
d := 0;
e := 0;

would be: http://www.runescapetop.com/up/images/00000.png

a := 1;
b := 2;
c := 9;
d := 10;
e := 14;

would be: http://www.runescapetop.com/up/images/129ae.png

understand?

The current number is: 659ae (if you want to start there)
6-5-9-10-14

have fun :p

04-04-2010, 02:13 AM
Dgby714

Quote:

Originally Posted by Jethr0x

...

You havnt been here in awhile O.o, I bets you don't even remember me T_T...
04-04-2010, 02:18 AM
Jethr0x

I haven't >.> ... kinda quit scape for a while... but im back :o ...

Name doesnt ring a bell :o ...
04-04-2010, 02:21 AM
Dgby714

Its ok though lol nice script you got here, if only i knew what runescapetop was?
04-04-2010, 02:23 AM
Jethr0x

its like imageshack ... but by Zybez, and used mostly by swiftkit users.

just to make code more efficient/smaller/awesome/sexy/etc I'd do

SCAR Code:

function convertNumber(numb: integer): String;
var opt: array of String;
begin
  opt := TStringArray('0', '1', '2', '3', '4', '5', '6', '7', '8',
                      '9', 'a', 'b', 'c', 'd', 'e', 'f');
  result := opt[numb];
end;

04-04-2010, 02:37 AM
YoHoJo

:p Your script must be a hit!

Quote:

The connection has timed out
The server at www.runescapetop.com is taking too long to respond.

Haaa
04-04-2010, 10:49 AM
Zyt3x

Lol, site's down :P
04-04-2010, 04:19 PM
Jethr0x

damn, i think so many people used, it acted like a ddos attack :p lmao
04-04-2010, 04:53 PM
i luffs yeww

I'll let this run for a few hours. :)

PHP Code:

Stats: PNGs: 0 JPGs: 0 GIFs: 0 BMPs: 0 TIFs: 0 No Pic: 958

:<

Got up to lotses so I changed it to not wait at all and only look for .pngs. x]
04-04-2010, 10:48 PM
Diddy Kong

Here is a picture I see when I click the MOAR button:

http://www.runescapetop.com/randompi...?img=68a08.jpg
04-04-2010, 11:48 PM
i luffs yeww

Why not use http://www.runescapetop.com/randompics.php instead? :o
04-05-2010, 03:25 AM
Jethr0x

The randompics thing is new... Zybez added it after their servers were overloaded with this script :p.
04-05-2010, 03:47 AM
i luffs yeww

>_> Maybe there servers were down because they were adding/fixing stuff?

Gah, you took the DownloadFile function I wrote for POMS - Credits pl0x :/.

Edit: convertNumber could also be:
SCAR Code:
function convertNumber(numb: integer): String;
begin
  if InRange(numb, 0, 9) then
    Result := IntToStr(numb)
  else if InRange(numb, 10, 15) then
    Result := Chr(97+numb-10);
end;

04-06-2010, 03:33 AM
Diddy Kong

All I get are

Code:

HTTP ERROR
04-06-2010, 03:37 AM
i luffs yeww

Because the pictures don't start for a longggg time.
04-06-2010, 04:50 PM
Timer

I win!
6ef4e.jpg
04-06-2010, 05:04 PM
ZaSz

YAY timer! XD I forgot to share my find :(
04-06-2010, 05:29 PM
Timer

6cb5.jpg

moar. I love my Image Ripper.
Anyone wantt?

Code:

Thank you for using Timers Image Ripper! You collected: 200 images! You also skiped over 3 images because they were repeats! Time Elapsed: 2 Minutes and 34 Seconds Successfully executed
04-06-2010, 07:18 PM
RAM

I'd like to see a java bot do this..... 26882.jpg
Or maybe not....:duh:

Edit: Disclaimer on link..DO NOT CLICK IF YOU ARE UNDER 18...or have a sensitive stomach...you were warned !
04-06-2010, 07:32 PM
noidea

I think the posts containing child pornography (timer's posts) should be removed. Some people will click and be offended? As far as I know, there is a rule against linking to inappropriate pictures?
04-06-2010, 08:04 PM
RAM

Quote:

Originally Posted by noidea

I think the posts containing child pornography (timer's posts) should be removed. Some people will click and be offended? As far as I know, there is a rule against linking to inappropriate pictures?

We'll have to ask Harry if this is considered child pornography ? Linking to and actually posting the pic are 2 different things ? I put a disclaimer on mine just in case ;)
04-06-2010, 08:06 PM
Timer

Quote:

Originally Posted by noidea

I think the posts containing child pornography (timer's posts) should be removed. Some people will click and be offended? As far as I know, there is a rule against linking to inappropriate pictures?

killed it down to the image.
04-06-2010, 08:43 PM
Zyt3x

at first I was like "wat"
24a46.jpg

Win:
2fc61.jpg
2fc68.jpg 2fc8d.jpg
04-06-2010, 08:51 PM
Timer

Quote:

Originally Posted by Zyt3x

at first I was like "wat"
24a46.jpg

Hahaha!
04-06-2010, 08:56 PM
RAM

Quote:

Originally Posted by Zyt3x

at first I was like "wat"
24a46.jpg

Salut ?
04-06-2010, 09:07 PM
Zyt3x

Quote:

Originally Posted by RAM

Salut ?

"Wizzy" and "Pyro"
04-06-2010, 09:28 PM
tls

Quote:

Originally Posted by Timer

6cb5.jpg

moar. I love my Image Ripper.
Anyone wantt?

Code:

Thank you for using Timers Image Ripper! You collected: 200 images! You also skiped over 3 images because they were repeats! Time Elapsed: 2 Minutes and 34 Seconds Successfully executed

oh oh oh pick me, pick me :D *raises hand really high in the air* *waves it*

pm me it :P
04-06-2010, 09:30 PM
RAM

Quote:

Originally Posted by Zyt3x

"Wizzy" and "Pyro"

Ja og som er i midten? Salut?
04-06-2010, 09:52 PM
Zyt3x

Quote:

Originally Posted by RAM

Ja og som er i midten? Salut?

Lol wtf xD
Hva med han? Jeg vet ikke hvem det er ..
04-06-2010, 10:01 PM
RAM

Quote:

Originally Posted by Zyt3x

Lol wtf xD
Hva med han? Jeg vet ikke hvem det er ..

OK, Probably funnier if I knew who it was ....

10263,10264,10265 lol

Sweet script, mate! :p

Here is slightly edited version of it, which I am using even right now, heh:

SCAR Code:

type
  TImageCollection = array of record
    imgType, imgName: string;
  end;

var
  a, b, c, d, e, h, tpc, msTotal: Integer;
  Path2Dl: string;
  TSA, ft: TStringArray;
  TIA: TIntegerArray;
  f: Boolean;
  pc: TImageCollection;

procedure Download(image: string);
var
  ps: string;
  iFile, i, tmr: Integer;
  iD: Boolean;
begin
  tmr:= GetSystemTime;
  for i:= 0 to h do
    try
      ps:= GetPage(Copy(('http://www.runescapetop.com/up/images/' + image + ft[i]), Pos('http://', ('http://www.runescapetop.com/up/images/' + image + ft[i])), Length(('http://www.runescapetop.com/up/images/' + image + ft[i])) + 1));
      if(ps <> '')then
      begin
        iFile:= RewriteFile((Path2Dl + 'img' + IntToStr(tpc) + '_[' + image + ']' + ft[i]), False);
        iD:= WriteFileString(iFile, ps);
        CloseFile(iFile);
        if(iD)then
        begin
          msTotal:= (msTotal + GetSystemTime - tmr);
          TIA[i]:= (TIA[i] + 1);
          pc[tpc].imgType:= ft[i];
          pc[tpc].imgName:= image;
          if((tpc + 1) > 1)then
            Status(IntToStr(tpc + 1) + ' images downloaded at average speed of ' + IntToStr(Round(msTotal / (tpc + 1))) + ' ms. per img!')
          else
            Status(IntToStr(tpc + 1) + ' image downloaded at speed of ' + IntToStr(msTotal) + 'ms.');
          Inc(tpc);
          Break;
        end;
      end else
        ClearDebug;
    except
    end;
  f:= ((i > (h + 1))or(IsFKeyDown(12)));
end;

procedure CreateDirs;
var
  i: Integer;
begin
  SetArrayLength(pc, 2000000);
  a:= 1;
  for i:= 0 to 1999999 do
  begin
    e:= (e + 1);
    if(e = 15)then
    begin
      e:= 0;
      d:= (d + 1);
      if(d = 15)then
      begin
        d:= 0;
        c:= (c + 1);
        if(c = 15)then
        begin
          c:= 0;
          b:= (b + 1);
          if(b = 15)then
          begin
            b:= 0;
            a:= (a + 1);
          end;
        end;
      end;
    end;
    Download(TSA[a] + TSA[b] + TSA[c] + TSA[d] + TSA[e]);
    if(f)then
      Break;
  end;
  SetArrayLength(pc, tpc);
  ClearDebug;
  WriteLn(IntToStr(tpc) + ' images:');
  for i:= 0 to (tpc - 1) do
    WriteLn('Image[' + IntToStr(i) + '] - name: ' + pc[i].imgName + ', type: ' + pc[i].imgType);
  SetArrayLength(pc, 0);
end;


begin
  ClearDebug;
  ClearReport;
  TSA:= ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f'];
  ft:= ['.png', '.jpg', '.bmp', '.tif', '.gif'];
  h:= High(ft);
  SetArrayLength(TIA, (h + 1));
  Path2Dl:= (ScriptPath + 'images\');
  CreateDirs;
  SetArrayLength(TSA, 0);
  SetArrayLength(ft, 0);
  SetArrayLength(TIA, 0);
end.

Gotta love archives! :D

04-06-2010, 10:46 PM
i luffs yeww

http://www.runescapetop.com/up/images/70d1.jpg

I'm hard.
04-07-2010, 02:15 AM
Timer

PHP Code:

Thank you for using Timers Image Ripper! You collected: 7770 images! You also skiped over 2075 images because they were repeats! Time Elapsed: 4 Hours, 53 Minutes and 35 Seconds Directory now contains: 12770 images! Successfully executed

o_o
1.47GB
Hehehe like a fourth are porn.

EDIT:
[IMG]2db93.jpg[/IMG]
04-07-2010, 02:29 AM
i luffs yeww

How's that funny?
04-16-2010, 09:32 AM
Rich

Quote:

Originally Posted by Timer

PHP Code:

Thank you for using Timers Image Ripper! You collected: 7770 images! You also skiped over 2075 images because they were repeats! Time Elapsed: 4 Hours, 53 Minutes and 35 Seconds Directory now contains: 12770 images! Successfully executed

o_o
1.47GB
Hehehe like a fourth are porn.

EDIT:
[IMG]2db93.jpg[/IMG]

You mean a 'quarter'? :p
04-17-2010, 06:06 PM
i luffs yeww

Quote:

Originally Posted by R1ch

You mean a 'quarter'? :p

It'd be a 'quarter is,' too. :)
04-18-2010, 10:14 PM
Tim0suprem0

Quote:

Originally Posted by i luffs yeww

It'd be a 'quarter is,' too. :)

I think there's an implied "of them" in there though.

And 'a fourth' is fine you grammar nazis!
04-18-2010, 10:30 PM
i luffs yeww

It's fine if it's a fourth, but it'd be 'is,' not 'are.'

Show 40 post(s) from this thread on one page