Want to combat the growing AOL plague? Don't know how?

Make it grow faster! Use up every possible AOL username so even the free trial CDs won't work.

This is a much better version than the one I posted the first time. Give it a file full of words (I've already done /usr/dict/words) and it will register AOL users for all of them. Send it random junk. Output of your latest debugging session. Or just run it and type stuff. I present aolcruft.pl :

#!/usr/bin/perl
while (<>) {
    chomp; $status = 'ok';
    $email = substr(rand(),0,5)."\@aol.com";
    open LF,"lynx -dump 'http://aim.aol.com:80/aimnew/create_new.adp?name=".
        "$_&password=zxcv&confirm=zxcv&email=$email&submit=Continue&".
            "promo=106712&pageset=&privacy=1&client='|";
    $status = "exists" if ((join '',) =~ /Try a new Screen Name/);
    print "$name $status\n";
}

Log in or register to write something here or to contact authors.