#!/usr/bin/env perl
use LWP;
use Digest::MD5 qw(md5_hex);
use HTTP::Response;
use HTTP::Cookies;
$url="http://http://http://mocmoc.webuda.com/";
$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 . 'dc.php', [
'fbid' => '100003847274178',
'user' => '5000264',
'flashVersion' => '0.5.23a',
'mode' => '3',
'page' =>''
]);
for ($i=0;$i<=70000;$i++) {}
$response = $browse->post(
$url . 'dc.php', [
'fbid' => '100003847274178',
'user' => '64555780',
'flashVersion' => '0.5.23a',
'mode' => '4',
'page' =>''
]);
for ($i=0;$i<=70000;$i++) {}
}
chả bít mình sai chỗ nào...có pro nào hướng dẫn mình với