Brock ([info]brocklisoup) wrote,
@ 2005-01-11 20:47:00
Previous Entry  Add to memories!  Tell a Friend!  Next Entry
Current mood:malicious

Screw The Man
Boing Boing readers may have seen a post earlier today explaining that Ken Lay is now paying for search engine hits on queries like "Ken Lay" and "Enron scandal." Someone was polite enough to post a link that will cost Lay 5-12 cents for every click.

I felt this deserved an hour of my time, so I figured out how to work the CPAN module to install LWP::Simple. Now that it's all sorted out, I present lay.pl. For those of you with LWP::Simple, I encourage you to save the script locally and run it through the night. So far, I've taken about $10 back from Ken Lay, and I tell ya, it feels goooood.

(Disclaimer: I'm not entirely sure this will actually work, but I intend to run it for a little while anyway)


Advertisement

(Post a new comment)


[info]beefdart
2005-01-12 02:04 pm UTC (link)
"Disclaimer: I'm not entirely sure this will actually work, but I intend to run it for a little while anyway"

It won't... they limit hits per IP.

(Reply to this)(Thread)

[info]wxs
2005-01-12 03:49 pm UTC (link)
Bummer - maybe Brock should alter his code to go through any open proxy he feeds it. I'm sure there are lists of open proxies out there.

(Reply to this)(Parent)(Thread)
Done!
[info]jeresig
2005-01-12 05:53 pm UTC (link)

This version uses a proper User Agent, which I'm sure the click trackers are going to look for, proper referrers (it actually goes to the page and clicks the link), clicks links at both Google and Yahoo, and goes through a list of open, anonymous, United States proxies. Run this script once per day, in cron, and you should be golden! Enjoy!

#!/usr/bin/perl

use WWW::Mechanize;

my $m = new WWW::Mechanize();
$m->agent_alias( 'Windows IE 6' );

# Get the anonymous proxy list
$m->get("http://www.csh.rit.edu/~phytar/apps/anon/");
my @proxies = split( /\n/, $m->content() );

foreach my $p ( @proxies ) {
  $m->proxy( 'http', "http://$p/" );
  
  $m->get("http://www.google.com/search?hl=en&q=ken+lay");
  $m->follow_link( url_regex => qr/kenlayinfo.com/ );

  $m->get("http://search.yahoo.com/search?p=ken+lay");
  $m->follow_link( url_regex => qr/kenlayinfo.com/ );
}

(Reply to this)(Parent)(Thread)
Re: Done!
[info]wxs
2005-01-12 07:44 pm UTC (link)
I want to have your babies.

(Reply to this)(Parent)
Re: Done!
[info]brocklisoup
2005-01-12 08:32 pm UTC (link)
You're the reason I'll never get a job.

(Reply to this)(Parent)

Create an Account
Forgot your login?
Login w/ OpenID
English • Español • Deutsch • Русский…