:: vBspiders Professional Network :: - Steam ID Checker by lnt v2

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)

- برمجة السكربتات (http://www.vbspiders.com/vb/forumdisplay.php?f=423)

- - Steam ID Checker by lnt v2 (http://www.vbspiders.com/vb/showthread.php?t=74649)

Steam ID Checker by lnt v2

السلام عليكم ورحمة الله وبركاته

تشيكر للستيم + تجاوز الحضر الايبي

بالتوفيق

كود:

################################

# Coded By LNT @ 2018

################################

use LWP::UserAgent;

system('cls');

print '

   _      _   _     _____   

  |"|    | \ |"|   |_ " _|  

U | | u <|  \| |>    | |    

 \| |/__U| |\  |u   /| |\   

  |_____||_| \_|   u |_|U   

  //  \\ ||   \\,-._// \\_  

 (_")("_)(_")  (_/(__) (__)  

';

print "\n Steam ID Checker by lnt\n";

print qq(

Enter users File:

> );

$USERLIST=<STDIN>;

chomp($USERLIST);

open (USERFILE, "<$USERLIST") || die "[-] Hello ! USER list ??";

@users = <USERFILE>;

close USERFILE;

foreach $E (@users) {

chomp $E;

my $UserAgent = LWP::UserAgent->new;

my $psn = "http://st-games.appspot.com/info?callback=angular.callbacks._8&user=$E";

my $request = HTTP::Request->new(GET => $psn);

my $reponse = $UserAgent->request($request);



if ($reponse->content=~ /"players"/) {

print " taken ($E)\n";

    open(LNT,">>SteamID.txt");

    print LNT "$E\n";

    close(LNT);

}

else {

if($reponse->content=~ /"success": false/){

        print "not taken ($E)\n";

    }else

        {

        print "BLOCKED\n";

        }

}

}