Selamat Datang Teman
Pin It

bot auto comment versi 1

Hai pemirsa sekalian :) Lama tak bersua bagaimana kbrnya?.Woke deh langsung saja mari kita mulai ritual membuat bot auto komen facebook ini…Asolole…..!!! :2thumbup
Yang dibutuhkan :
  1. Php sdk lama sedot disini Link nya Click Aja
  2. Api key + Api Secret : bisa lihat disini http://j.mp/nweCYJ
  3. Hosting support php + Perl
  4. php code sbg logger/action + Perl remote
  5. Get the code and feel the soul !

Php code :
<?php
class agendosa extends Exception { }
//pake sdk versi (lama max versi 2)
//Download disini : http://www.4shared.com/zip/COf7-MuF/sdk.html

require_once './sdk/facebook.php';

$appapikey = 'isi-api-keynya';
$appsecret = 'isi-api-secretnya';
$facebook = new Facebook($appapikey, $appsecret);
//$user_id = $facebook->require_login();

if(!empty($_GET['cmn'])){
$cmnt = $_GET['cmn'];
}

if(!empty($_GET['uid'])){
$uid = $_GET['uid'];
}

$cek_permisi = $facebook->api_client->users_hasAppPermission("read_stream",123456uidmu);
if($cek_permisi){
try{
$pot = $facebook->api_client->stream_get(123456uidmu,$uid,'0','0',1,'','','','');
//print_r($pot);
$post_id = $pot[posts][0][post_id];
$aktor = $pot[posts][0][actor_id];
if($aktor == $uid){
if(file_exists("$uid")){
$cek = fopen("$uid",'r');
$str = fgets($cek);
fclose($cek);

if(!empty($str) && ($str != $post_id)){
$comment = $facebook->api_client->stream_addComment($post_id, $cmnt, 123456uidmu);
}
}
$log1 = fopen("$uid", 'w');
fwrite($log1, $post_id);
fclose($log1);
}
}catch(agendosa $e){
throw $e;
}
}
?>
Upload file tsb dengan nama komen.php, selanjutnya setting remote komen.pl

Source remote  komen.pl:
#!/usr/bin/perl
use IO::Socket;
use IO::Select;
use Socket;

my @pesan = (
"Selalu%20menyukai%20status%20anda.%0A%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%84%E2%96%84%0A%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%84%E2%96%84%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%84%0A%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%0A%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%93%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%88%E2%96%88%0A%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%80%E2%96%91%E2%96%91%E2%96%91%E2%96%91%E2%96%80%E2%96%80%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%E2%96%88%0A",
"%F0%9D%90%87%F0%9D%90%9A%F0%9D%90%9D%F0%9D%90%A2%F0%9D%90%AB%20%F0%9D%90%A6%F0%9D%90%9E%F0%9D%90%A7%F0%9D%90%A0%F0%9D%90%9A%F0%9D%90%A7%F0%9D%90%AD%F0%9D%90%9A%F0%9D%90%AB%20%F0%9D%90%A3%F0%9D%90%9E%F0%9D%90%A6%F0%9D%90%A9%F0%9D%90%A8%F0%9D%90%A5%20,%E2%93%81%E2%93%98%E2%93%9A%E2%93%94%20%E2%93%89%E2%93%97%E2%93%98%E2%93%A2%20!!!",
"%E2%98%85%E2%98%85%E2%98%85%E2%98%85%E2%98%85%20Ane%20kasih%20rate%20gan....",
"Like%20this...Selalu%20komen%20biar%20kelihatan%20eksis...!!!",
"primingsi%20%cc%b6b%cc%b6o%cc%b6t%cc%b6%20gaul%20lewat.....",
"hadir...%0A%E2%94%80%E2%94%80%E2%94%80%E2%95%94%E2%95%97%E2%95%94%E2%95%90%E2%95%A6%E2%95%97%0A%E2%94%80%E2%94%80%E2%94%80%E2%95%91%E2%95%9A%E2%95%A3%E2%95%91%E2%95%91%E2%95%9A%E2%95%97%0A%E2%95%94%E2%95%A6%E2%95%A6%E2%95%A3%E2%95%AC%E2%95%91%E2%95%91%E2%95%91%E2%95%94%E2%95%AC%E2%95%A6%E2%95%A6%E2%95%97%0A%E2%95%9A%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%90%E2%95%A9%E2%95%90%E2%95%A9%E2%95%90%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%9D%0A%E2%95%94%E2%95%97%E2%95%94%E2%95%A6%E2%95%97%E2%94%80%E2%94%80%E2%94%80%E2%95%94%E2%95%97%E2%95%94%E2%95%97%E2%95%94%E2%95%A6%E2%95%90%E2%95%97%0A%E2%95%91%E2%95%91%E2%95%A0%E2%95%A3%E2%95%A0%E2%95%A6%E2%95%90%E2%95%97%E2%95%91%E2%95%9A%E2%95%A3%E2%95%9A%E2%95%AC%E2%95%A3%E2%95%90%E2%95%AC%E2%95%90%E2%95%A6%E2%95%A6%E2%95%97%0A%E2%95%91%E2%95%9A%E2%95%A3%E2%95%91%E2%95%90%E2%95%A3%E2%95%A9%E2%95%A3%E2%95%91%E2%95%94%E2%95%A3%E2%95%91%E2%95%91%E2%95%A0%E2%95%90%E2%95%91%E2%95%A9%E2%95%A3%E2%95%94%E2%95%9D%0A%E2%95%9A%E2%95%90%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%90%E2%95%9D%E2%95%9A%E2%95%90%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%90%E2%95%A9%E2%95%90%E2%95%A9%E2%95%9D%0A%E2%94%80%E2%94%80%E2%94%80%E2%95%94%E2%95%97%E2%94%80%E2%94%80%E2%94%80%E2%94%80%E2%95%94%E2%95%A6%E2%95%97%0A%E2%94%80%E2%94%80%E2%94%80%E2%95%91%E2%95%9A%E2%95%A6%E2%95%90%E2%95%97%E2%95%94%E2%95%9D%E2%95%A0%E2%95%AC%E2%95%A6%E2%95%97%0A%E2%95%94%E2%95%A6%E2%95%A6%E2%95%A3%E2%95%91%E2%95%91%E2%95%AC%E2%95%9A%E2%95%A3%E2%95%AC%E2%95%91%E2%95%91%E2%95%94%E2%95%AC%E2%95%A6%E2%95%97%0A%E2%95%9A%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%90%E2%95%90%E2%95%A9%E2%95%90%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%A9%E2%95%9D",
"nice%20info....%20like%20this...^____^..",
"iHiRRRR...%0A%E2%95%94%E2%95%90%E2%95%90%E2%95%90%E2%95%97%20%E2%99%AA%0A%E2%95%91%E2%96%88%E2%96%88%E2%96%88%E2%95%91%20%E2%99%AB%0A%E2%95%91%20(%E2%97%8F)%20%E2%99%AB%20Komen%20Sambil%0A%E2%95%9A%E2%95%90%E2%95%90%E2%95%90%E2%95%9D%E2%99%AA%E2%99%AA%20Denger%20Musik%20%E2%99%AA%E2%99%AA",
"Menyukai%20status%20Anda....%20like%20this...^____^..",
"like%20this!!!%20hi..hi..hi..%20!!!numpang%20lewat.hi.hi.hi..",
);

my $target1 = 1000000549xxxx;
my $target2 = 10000114539xxxx;
my $target3 = 10000135735xxxx;

$len = @pesan;

my $cmn_acak1 = @pesan[int rand($len)];
my $url1 = ("http://domainmu.com/komen.php?cmn=$cmn_acak1&uid=$target1");
my $stat1 = query($url1);

my $cmn_acak1 = @pesan[int rand($len)];
my $url2 = ("http://domainmu.com/komen.php?cmn=$cmn_acak1&uid=$target2");
my $stat2 = query($url2);

my $cmn_acak1 = @pesan[int rand($len)];
my $url3 = ("http://domainmu.com/komen.php?cmn=$cmn_acak1&uid=$target3");
my $stat3 = query($url3);

sub query($) {
my $url = $_[0];
$url =~ s/http:\/\///;
my $host  = $url;
my $query = $url;
my $page  = "";
$host  =~ s/href=\"?http:\/\///;
$host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
$query =~ s/$host//;
if ( $query eq "" ) { $query = "/"; }
eval {
my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
my @r = <$sock>;
$page = "@r";
close($sock);
};
return $page;
}