sockopen's Neopets Login

print 'Username: '; 
$username = <STDIN>; chop $username; 
if ((length($username) < 3) || (length($username) > 20)) { 
  print 'ERROR: Invalid username'; exit; }
print 'Password: '; 
$password = <STDIN>; chop $password;
if (length($username) < 5) { 
  print 'ERROR: Invalid password'; exit; }

Request('GET', 'neopets.com/index.phtml', '', 'http://neopets.com/');
$res = Request('POST', 'neopets.com/hi.phtml', "destination=%2Fpetcentral.phtml&username=$username", 'http://neopets.com/index.phtml');
if ($res =~ 'Sorry, we did not find an account with that username.') { 
  print 'ERROR: Invalid username'; exit; }
$res = Request('POST', 'neopets.com/login.phtml', "username=$username&password=$password&destination=%2Fpetcentral.$phtml", 'http://neopets.com/hi.phtml');
if ($res =~ "Welcome, <a class=tl href=/randomfriend.phtml") {
  print 'Login was successful';
} elsif ($res =~ 'Sorry, you have tried too many times to guess this password') { 
  print 'ERROR: Too many invalid login attempts'; exit;
} elsif ($res =~ 'This account has been <span style="color:#FF0000;font-weight:bold;">FROZEN</span>') { 
  print "ERROR: Account $username has been frozen"; exit;
} elsif ($res =~ 'That <font color="#FF0000"><strong>username/password</strong></font> combination is invalid.') {
  print 'ERROR: Account password is invalid'; exit; }
else { print 'ERROR: Login was unsuccessful'; exit; }

[Wilfukguys]

Nice! Wish i could program. Pretty sure Kane or someone will find this usefull :P

[Rockage]

perl :P Havent seen much perl and neopets together lately. Thanks for posting though

[unlimitedorb]

In my opinion, this would be much more powerful if you found patterns in the source and hooked them with Regular Expressions. Also, if you are going to post something in a language other than VB or PHP in this community you should probably include EVERYTHING i.e. use LWP;

I'll test it later on in Linux, but I'm on Windows at the moment and don't feel like installing ActivePerl...or whatever it's called.