Comments

King_DeDeDe: King_Dedede + boredom + flockmod + ponies = this.

King_DeDeDe: What was I even thinkng... "an she 8 swetbery"

Emberclaw3: OMG ;u;

Captain_Toad: @Emberclaw3: This is why I shouldn't be on FlockMod late at night when I'm bored. This is the outcome hen that happens. (And yes I am King_Dedede don't ask)

another_woo: I knew it's a bait.

Rest_Bluejay: the gif of truth

:^)

fatcats: #!/usr/bin/perl
# moral.pl

use LWP;
#use LWP::RobotUA;
use HTTP::Cookies;
use HTML::TokeParser;
use IO::File;
use POSIX;

my $browser = LWP::UserAgent->new;
my $username = '[email protected]';
my $pass = 'xpto';

#liga os cookies;
$browser->cookie_jar( HTTP::Cookies->new(
'file' => '/tmp/perl.myspace1.cookies',
# ficheiro dos cookies
'autosave' => 1,));

# header que vai com os requests, para simular o browser
my @header = (
'User-Agent' => 'Bruno Carreira browser bot',
'Accept' => 'image/gif, image/x-xbitmap, image/jpeg,
image/pjpeg, image/png, */*',
'Accept-Charset' => 'iso-8859-1,*,utf-8',
'Accept-Language' => 'en-US',
);

my $url = 'http://viewmorepics.myspace.co...:80/index.cfm?fuseaction=login.process';

# aceita redirectionamentos do browser
push @{ $browser->requests_redirectable }, 'POST';

print "comeca por auth o user\n";
# autentica perante o IC
my $response = $browser->post( $url,
[
email => $username,
password => $pass,
]
);

die "Erro: nao foi possivel sacar a url: $url -- ", $response->status_line
unless $response->is_success;

die "Erro: tava a espera de HTML, nao de ", $response->content_type
unless $response->content_type eq 'text/html';

# print $response->content;

print "Faz uma pesquisa no site por GAJAS\n";
#$url = 'http://browse.myspace.com/inde...
#$url = 'http://browse.myspace.com/Brow...
$url = 'http://browseusers.myspace.com:80/Browse/Browse.aspx?z=1';
$response = $browser->post( $url ,
[
Gender => 'genderWomen',
minAge => '18',
maxAge => '35',
statusSingle => '1',
statusMarried => '0',
statusDivorced => '1',
statusSwingers => '1',
country => 'SW',
]
);

die "Erro: nao foi possivel sacar a url: $url -- ", $response->status_line
unless $response->is_success;

die "Erro: tava a espera de HTML, nao de ", $response->content_type
unless $response->content_type eq 'text/html';
print "Comeca a adicionar os GRELOS aos meus contactos ... \n";
#print $response->content;
snif();

sub snif {
$p = HTML::TokeParser->new( \$response->content);
my $aux = 0;
while (my $token = $p->get_tag("a")) {
my $url = $token->[1]{href} || "-";
my $text = $p->get_trimmed_text("/a");

if ($text =~ /IMG/){
$response = $browser->get ($url , @header);
die "Erro: nao foi possivel sacar a url: $url -- ", $response->status_line
unless $response->is_success;

die "Erro: tava a espera de HTML, nao de ", $response->content_type
unless $response->content_type eq 'text/html';
$p1 = HTML::TokeParser->new( \$response->content);

$url =~ /friendID=\d+?&Mytoken/;
my $userid = $&;
$userid =~ s/friendID=//;
$userid =~ s/&Mytoken//;

$url = 'http://www.myspace.com:80/index.cfm?fuseaction=invite.addfriend_check&friendID='.$userid;
$response = $browser->get ( $url, @header);
die "Erro: nao foi possivel sacar a url: $url -- ", $response->status_line unless $response->is_success;

die "Erro: tava a espera de HTML, nao de ", $response->content_type
unless $response->content_type eq 'text/html';

$url4 = 'http://www.myspace.com:80/index.cfm?';
my $temp = $response->content;
#print $temp;

# get hashcode[C
my $hashcode = $response->content;
$hashcode =~ m/<input type="\"hidden\"" name="\"hashcode\"" value="\"(.)+\"/m;" $hashcode="$&amp;;" $hashcode="~" s="" <input="" type="\"hidden\"" name="\"hashcode\"" value="\"//;" $hashcode="~" s="" \"="" ;="" #$temp="~" m="" index.cfm?fuseaction="invite.addFriendsUpdate/;" $temp="~" fuseaction="invite.addFriendsUpdate\&amp;Mytoken=(\d)*/;" $url4="$url4.$&amp;;" print="" $url4."="" -="" gaja:="" $userid="" \n";="" $response="$browser-">post($url4,
[
hashcode => $hashcode,
friendID => $userid,
]
);
die "Erro: nao foi possivel sacar a url: $url4 -- ", $response->status_line unless $response->is_success;

die "Erro: tava a espera de HTML, nao de ", $response->content_type
unless $response->content_type eq 'text/html';

#sleep 2;
#print $response->content;
}

if (($text =~ /Next/) && ($aux == 1)) {
$url =~ m/\d/;
$response = $browser->post("http://browseusers.myspace.com:80/Browse/Browse.aspx",
[
page => $&,
]
);
# $response = $browser->get ($url , @header);
die "Erro: nao foi possivel sacar a url: $url -- ", $response->status_line
unless $response->is_success;

die "Erro: tava a espera de HTML, nao de ", $response->content_type
unless $response->content_type eq 'text/html';
snif();
$aux = 0;
} elsif (($text =~ /Next/) && ($aux == 0)) {
$aux++;
}

}
}

Rest_Bluejay: @fatcats: what in the fuck

Toxicbeat: I want one that says penis

Emberclaw3: @Toxicbeat: .....

Emberclaw3: pure shit

onepamop_wl: Homestuck! :D

le Dirk Stryder

torp: reminds me of pete morbacher's angel paintings :D very nice fobert, as always

Alien: drawn by Archnemesis1

Trust: 7v7

Pit: @Trust: Shut your mouth

Pit: I've been riding around
with my blunt on my lips
With the sun in my eyes
and my gun on my hip
Paranoia on my mind,
got my mind on the fritz
But a lotta niggas dying,
so my 9 with the shits

Pit: tf am I looking at??

Trust: @Pit: Art, mah african american