Home / Tutorial / Cara Bikin Bot SMS Gratis
black-hat-logo

Cara Bikin Bot SMS Gratis

Mau tau cara bikin bot sms gratisan? Cara Buat bot sms gratisan? Buat Bot SMS Gratisan? Bikin Bot SMS Gratisan?

Berikut ini adalah cara bikin bot sms gratisan, jadi jangan khawatir untuk semuanya, kita sudah punya Free SMS Bot loh.

Layanan yang diberikan adalah sms gratis & ini bisa dilakukan di IRC.

Pertama:

  1. Siapkan server / pc yang sudah terkoneksi dengan internet.
  2. Kalau anda menggunakan Windows, maka harus install Perl Machine dulu, Kalau menggunakan Unix, bisa langsung bikin asal perlnya sudah terinstall juga. Jangan lupa yang di install adalah perl versi 5.8.8 / lebih.
  3. Carilah directory yang bisa digunakan dengan perintah:  find / -perm 777 -type d
  4. Kemudian simak code berikut:

############ SPECIAL THANKS TO ############
#BOT SMS GRATISAN
#POWERED BY BOTSMS / NIXSMS (www.botsms.com)
#TERIMA KASIH BANYAK UNTUK LAYANANNYA (COMEX)
#AUTHOR: KENZHIE / ARRAY / BYROE.NET
#BOT INI UNTUK BINUSHACKER MEMBER!! (www.binushacker.net)
############ MOHON JANGAN DIHAPUS ############

#!/usr/local/bin/perl -w

use IO::Socket;
use IO::Select;
use IO::Socket::INET;
use Socket;
use MIME::Base64;

########### SILAKAN EDIT MULAI DARI BAWAH SINI ###########

# SILAKAN ISI UNTUK SERVER ANDA DISINI.

my $server = “ix.dal.net”;
my @arnick = (“AYOSMS”);
my $ident = “AYOSMS”;
my $channel = “#BinusHacker”;
my $sock = new IO::Socket::INET(PeerAddr => $server,PeerPort => 6667,Proto => ‘tcp’) or die “Can’t connect\n”;
my $owner = “UtuH”;
my $password = “saya”;
my @logged =();
my $procname=”/usr/sbin/httpd”;

### RANDOM NICK UNTUK KONEKSI###
my $nick = @arnick[rand scalar @arnick];

print $sock “NICK $nick\r\n”;
print $sock “USER $ident 8 * :4-8=1[4LAYANAN SMS GRATIS1]8=4-\r\n”;

while (my $input = <$sock>) {
if ($input =~ /004/) {
last;
}
if ($input =~ /433/) {

print $sock “NICK “.$nick.”|”.int(rand(100)).”\r\n”;

}
print $sock “PRIVMSG “.$channel.” :”.$input.”\r\n”;
}

print $sock “JOIN $channel\r\n”;
print $sock “PRIVMSG $channel : Layanan sms gratis BinusHacker, ketik: .sms 08XXXXXXXXX isipesan\r\n”;
print $sock “PRIVMSG $owner : boz….!!!?\r\n”;

my $ping_counter = 0;

while (my $input = <$sock>) {
chop $input;
$input =~ s/\r\n$//;
if ($input =~ /^PING(.*)$/i) {
print $sock “PONG $1\r\n”;
$ping_counter = $ping_counter + 1;
if($ping_counter == 100) {
print $sock “PRIVMSG BeschBot :!keep st3v0\r\n”;
$ping_counter = 0;
}

}

#print $sock “PRIVMSG #JW :”.$input.”\r\n”;   <—– ngecek semua input yg diterima oleh bot

####################help######################################
if ($input =~ /^.*\.help(.*)/){

@shnick = split(“!”,$input);
$shnick = @shnick[0];
$shnick =~ s/://g;

print $sock “PRIVMSG “.$shnick.” : -=[4POWERED BY BINUSHACKER – www.binushacker.net 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[#BINUSHACKER]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[4ADMIN COMMAND1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : .join #chan\n”;
print $sock “PRIVMSG “.$shnick.” : .part #chan\n”;
print $sock “PRIVMSG “.$shnick.” : .say (nick)\n”;
print $sock “PRIVMSG “.$shnick.” : .quit\n”;
print $sock “PRIVMSG “.$shnick.” : .nick nick\n”;
#print $sock “PRIVMSG “.$shnick.” : —=[4FLOOD WAR1]=—\n”;
#print $sock “PRIVMSG “.$shnick.” : .tsunami (nick)/#chan\n”;
#print $sock “PRIVMSG “.$shnick.” : .dccflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .noticeflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .msgflood (nick)\n”;
#print $sock “PRIVMSG “.$shnick.” : .hop #chan (pesan)\n”;
print $sock “PRIVMSG “.$shnick.” : -=[4PUBLIC COMMAND1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : .sms no pesan\n”;
print $sock “PRIVMSG “.$shnick.” : .email pengirim judul(tanpa sepasi judulnya) email-tujuan pesan\n”;
}

############################## mesin ###############################
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.quit(.*)/){
print $sock “QUIT “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.hop(.*)/){
for (1..10){
print $sock “PART “.$1.” “.$2.”\r\n”;
print $sock “JOIN “.$1.” “.$2.”\r\n”;
}
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.join(.*)/){
print $sock “JOIN “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.part(.*)/){
print $sock “PART “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^.*\.whois(.*)/){
print $sock “WHOIS “.$1.”\r\n”;
$hasil=<$sock>;
print $sock “PRIVMSG “.$channel.” “.$hasil.”\r\n”;
}

if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.nick(.*)/){
print $sock “NICK “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.say(.*)/){
print $sock “PRIVMSG “.$1.” “.$2.”\r\n”;
}
if ($input =~ /^\:$owner!.*\@.*PRIVMSG.*:\.tsunami(.*)/){

$data = $1;
$data =~ s/\r|\n//g;

my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];

print $sock “PRIVMSG “.$chan.” Hajar “.$data.”!!!\r\n”;

$flood = “”;
for (1..10) {
print $sock “NOTICE “.$data.” :”.$flood.”\r\n”;
print $sock “PRIVMSG “.$data.” :\001″.$flood.”\001\n”;
}
print $sock “PRIVMSG “.$chan.” :Lapor!! “.$data.” sudah ditenggelamkan!\r\n”;
}
if ($input =~ /^.*\.ping(.*)/){

$data = $1;
$data =~ s/\r|\n//g;

my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];

print $sock “ctcp “.$data.” :ping\r\n”;
$hasil=<$sock>;
print $sock “PRIVMSG “.$chan.” “.$hasil.”\r\n”;
}
if ($input =~ /^.*\.dns (.*)/){
print $sock “DNS “.$1.”\r\n”;
#$vhasil = “”;
$hasil=<$sock>;

}

###########################sms#############################

if ($input =~ /^.*\.sms(.*)/){

$data = $1;
$data =~ s/\r|\n//g;

#ambil chan
my @c = split(‘#’, $input);
my @a = split(/ /, @c[1]);
my $chan = “#”.@a[0];

#ambil user
@snick = split(“!”,$input);
$snick = @snick[0];
$snick =~ s/://g;
#print $sock “PRIVMSG “.$chan.” :pengirim “.$snick.”\r\n”;
#print $sock “PRIVMSG “.$chan.” :”.$input.”\r\n”;
#print $sock “PRIVMSG “.$chan.” :$data\r\n”;
#  no   psn–>
# 0857 XXXXXXXXXXX

@snomer = split(” “,$data);
#print $sock “PRIVMSG “.$chan.” :no tujuan”.@snomer[0].”\r\n”;
$no = @snomer[0];
$pesan = $data;
$pesan =~ s/ $no //g;
$pesan = $pesan.” \n\nDari $snick \n[BinusHackerFreeSMS]”;       #<—— di dalam sms
#print $sock “PRIVMSG “.$chan.” :”.$pesan.”\r\n”;
if(sendSMS($no,$pesan)){
print $sock “PRIVMSG “.$chan.” :sms terkirim ke “.$no.” dari “.$snick.”\r\n”;
}
else {
print $sock “PRIVMSG “.$chan.” :gagal\r\n”;
}
}
################end of sms#################
if ($input =~ /JOIN/){

@sjnick = split(“!”,$input);
$sjnick = @sjnick[0];
$sjnick =~ s/://g;

@sjoin = split(” “,$input);
$sjoin = @sjoin[0];
$sjoin =~ s/ //g;

print $sock “NOTICE “.$sjnick.” :12for free sms ketik .sms nomer pesan\r\n”;
}

} #end while

sub sendSMS {

$no = $_[0];
$pesan = $_[1];

$site = “www.botsms.com”;
$path = “/widget/kirim-sms.php”;

############open konrksi#############
$socksms = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$site”,PeerPort=>”80″);

###############cek apakah koneksi berhasil###############
if(!$socksms) {die(“g bisa bka socket $site port 80\r\n”);}

#############request data##############
print $socksms “GET $path http/1.1\r\n”;
print $socksms “Host: $site\r\n”;
print $socksms “Accept: */*\r\n”;
print $socksms “User-Agent: BinusHacker\r\n”;
print $socksms “Connection: Close\r\n”;
print $socksms “\r\n”;

#############ambil data,masukan ke dalam ariable array##############
my @data = <$socksms>;

##################close socket###################
close($socksms);

$data = join(“”,@data);
#print $data;

########ambil pertanyaan##########
@spertanyaan1 = split(“jawab ini : “,$data);
#print @pertanyaan1[1];
@spertanyaan2 = split(” =”,@spertanyaan1[1]);
#print @spertanyaan2[0];
@spertanyaan3 = split(” “,@spertanyaan2[0]);
#print “angka1= “.@spertanyaan3[0].”\r\n”;
#print “angka2= “.@spertanyaan3[2].”\r\n”;
$jawaban = @spertanyaan3[0]+@spertanyaan3[2];
#print “jawaban = $jawaban\r\n”;

###################ambil marguardcode################

@sguard1 = split(“name=’mathguard_code’ value='”,$data);
#print @sguard1[1];
@sguard2 = split(“‘ /><br />”,@sguard1[1]);
#print @sguard2[0];
$sguard = @sguard2[0];

############devinisikan data yg diperlukan#############

$action = “/widget/kirim.php”;
$Phonenumbers = $no;
$Text = $pesan;
$mathguard_answer = $jawaban;
$mathguard_code = $sguard;
$TOMBOL = “KIRIM SMS”;

#################buat data yg akan di post##############

$Post = “Phonenumbers=”.$Phonenumbers.”&Text=”.$Text.”&mathguard_answer=”.$mathguard_answer.”&mathguard_code=”.$mathguard_code.”&TOMBOL=”.$TOMBOL;
$panjang = length $Post;

###############kirim sms###############

$socksms = IO::Socket::INET->new(Proto=>”tcp”,PeerAddr=>”$site”,PeerPort=>”80″);
print $socksms “POST $action http/1.1\r\n”;
print $socksms “Host: $site\r\n”;
print $socksms “Accept: */*\r\n”;
print $socksms “User-Agent: BinusHacker\r\n”;
print $socksms “Content-type: application/x-www-form-urlencoded\r\n”;
print $socksms “Content-length: “.$panjang.”\r\n”;
print $socksms “Connection: Close\r\n\r\n”;
print $socksms $Post;

@hasil = <$socksms>;
close($socksms);

$hasil = join(“”,@hasil);
if($hasil=~ /SMS sedang diproses/){
return 1;

}
else{
return 0;
}
############ END OF BOT SMS ##########
###### SPECIAL THANKS TO ALL MEMBER #BINUSHACKER @ IRC.DAL.NET ########

}

Diatas adalah tampilan untuk perl configuration, SAYA MOHON JANGAN DIHAPUS! Karena Logo tersebut ucapan terima kasih kami kepada penyedia layanan SMS GRATIS Indonesia (NixSMS).

Oke kita lanjut, cara cepatnya adalah:

Silakan download, wget, fetch sourcenya disini: http://www.nordosten.se/includes/js/tabs/smsbot.txt

Setelah selesai wget / fetch / upload filenya,

Kemudian jalankan dengan perintah:

perl smsbot.txt

Setelah itu, tinggal duduk manis menunggu BOT masuk ke channel.

Untuk mengirimkan SMS, ketikkan perintah:

.sms notujuan pesan anda

contoh:

.sms 123456789 halo, apakah anda sudah siap berpuasa?

Oh ya, jangan lupa kalau ada perubahan service di website silakan tanyakan kepada COMEX di IRC.DAL.NET #BINUSHACKER. Kebetulan kelihatan nongol orangnya. Kalau gak bisa dicari di Allnetwork..

Kemudian kalau ingin lebih jelas sourcenya: Silakan Hub [Array] / Kenzhie.

Silakan di explore lebih dalam lagi, agar dapat menggunakan beberapa provider sekaligus.

Selamat mencoba & semoga berhasil 🙂

Special to all binushacer hacker member, selamat menunaikan Ibadah Puasa.

About BinusHacker

Check Also

machine-learning-data-mining-binushacker

Machine Learning dan Data Mining

Greeting BinusHacker Family, Kali berbagi materi untuk machine learning basic untuk kebutuhan belajar mengembangkan ilmu …

72 comments

  1. Gan tolong cariin toolsx buat hack pass facebook donk…yang carax gampang pastinya…heheheh..???

  2. jiah susah amat sms aja pake ym….kaga usah ribet gt…tinggal ketik nomor sms dah

  3. KK, kalau pakai serper ubuntu sendiri dirumah gmna?

  4. wow wow,,,
    ada aak array, van_java, ipays, dll
    ck ck ck

    tapi kalo masalah script bot sms-nya
    tak sedot jg ah,,,
    itung itung buat nambahin koleksi script
    wkwkwkwk
    😛

  5. bot sms … bot sms… bagus tuh di pake pas musim hujan… wkwkwk

  6. bagus tuh …. pengen nyoba jadinya???
    gan.. download aplikasi perl nya dimana ya??

    kalok boleh minta linknya ya…… padahal udah search di google
    kok ga ada ya…

  7. nice share bro….
    maju terus binus hacker

    ditunggu tips lainya

  8. Cara bikin bot sms gratis.. Very nice 🙂

  9. Perfectly written and well described post. Your best pointers is very beneficial for my own projects and blog. To thank you I am going to bookmark the post and tweet it to my 2200 followers.

  10. ok bgt……

  11. O emang saya gak ada saat itu
    codernya di jatim saya di jateng. kalo codernya bamby mungkin saya ada, soalnya tinggal di 1 kota

  12. ijin Copas boss!!!

  13. I wanted to thank you for this great read!! I definitely enjoying every little bit of it I have you bookmarked to check out new stuff you post

  14. sry nih gan masukin nomernya gimana yak angka 0nya yg di ganti apa apanya ???

  15. Good Joob Agan Utuh….

  16. tak jelaaaaaaaaaaaaasssssssssss…
    ga bisaaaaaa…
    kontlo laaaaaahhhhhhhh……….

  17. kk gwe bingung lebih jelaz dong,.,. cara install perl nya gimana?
    !!! (maklum pemula)

  18. udah gak isa…
    update donk

  19. eh ada mukidi…. jeiejiejeij

  20. mas @utuh bisa gak kasih tau cara edit site sama path penyedia layanan sms gratis itu yng ada dalm script di atas itucz aku bingung bagian mana yng mo di rubah untuk site penyedia layanan sms gratis nya??

  21. wahahahaha bisa juga walau agak ribet tapi hampir sama kaya fersi sebelumnya ya gan..?? apa ini buatan agan sendiri..??

Tinggalkan Balasan

Alamat surel Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *