Sunday, November 22, 2009

Who doesn't love a little voyeurism...or How to grab some pics from http://grab.by/

I love lookin' at random people's pictures. Don't know why always have. Back in the days of DC++ I used to just grab gigs and gigs of peoples My Pictures. Sometimes awesome (Transformer Cosplay), sometimes not so awesome(Weird amateur porn). But anyways, it's still a hobby. I came across a tiny screen shot grabber site called http://grab.by/ , now grab by allows you to easily allow you to upload screen shots...coincidentally it allows you to easily download them to. So I devised a tiny script to get quite a few, if you know what your doing you can tweek it and get a bit more, but this should get you about 2600 pics for your viewing pleasure. Here's the script, and it should work on linux or mac:


#!/usr/bin/perl
use strict;
use warnings;

my $variable = 1;
my @letters = ("a", "b", "c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
while($variable < 100){
foreach(@letters){
print $_;
my $wgetc = "wget http://grab.by/"."$_"."$variable";
`$wgetc`;
}
++$variable
}




Oh and if you liked this you might also like my flickr post: about having an imaginary girlfriend on flickr
or stalking...or soemthing..whatever you call it.

PS it looks like the letters got cut off in the array so if you don't copy it, you will have to finish the leters r-z by yourself ending them in a ");"

no quotes

Oh and if you have linux, you should be all set, if you have mac you need to get wget and put it in your system path. Oh and if you have windows....why the hell are you reading this blog...err I mean get cygwin and wget and perl, and hack you some shit together.

No comments: