#!/usr/bin/env perl
use LWP;
use Digest::MD5 qw(md5_hex);
use HTTP::Response;
use HTTP::Cookies;
$url="http://gem.net16.net/";
$browse = LWP::UserAgent->new();
$browse->agent('Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0');
print "[+] Cheating...\n";
$browse->cookie_jar({});
my $a=1;
while ($a<=10) {
print "[+] Cheating...\n";
$response = $browse->post(
$url . 'fix.php', [
'fbid' => '100003847274178',
'user' => '48020354',
'flashVersion' => '0.5.23a',
'mode' => '3',
'page' =>''
]);
for ($i=0;$i<=10000;$i++) {}
$response = $browse->post(
$url . 'fix.php', [
'fbid' => '100003847274178',
'user' => '48020354',
'flashVersion' => '0.5.23a',
'mode' => '4',
'page' =>''
]);
for ($i=0;$i<=10000;$i++) {}
}
e làm như thế này chuẩn chưa các pro...lưu file pl bằng notepad ak