L3issabaNet
::. Moderators .::
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";
}
}
}
اسم الموضوع : Steam ID Checker by lnt v2
|
المصدر : برمجة السكربتات
