Cara Bikin Bot SMS Gratis
22 August 2010
Penulis: BinusHacker · Kategori Artikel: Tutorial
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:
- Siapkan server / pc yang sudah terkoneksi dengan internet.
- 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.
- Carilah directory yang bisa digunakan dengan perintah: find / -perm 777 -type d
- 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.











thx pak…ijin sedot ilmu
ManTav niE…
ijin copy – paste bOs
Ya monggo silakan..
Semoga bermanfaat..
di $flood =
apa kk??
=( kk saya baru gabung saya bingung heheheh
Scalar value @shnick[0] better written as $shnick[0] at smsbot.txt line 64.
Scalar value @c[1] better written as $c[1] at smsbot.txt line 123.
Scalar value @a[0] better written as $a[0] at smsbot.txt line 124.
Scalar value @c[1] better written as $c[1] at smsbot.txt line 141.
Scalar value @a[0] better written as $a[0] at smsbot.txt line 142.
Scalar value @c[1] better written as $c[1] at smsbot.txt line 166.
Scalar value @a[0] better written as $a[0] at smsbot.txt line 167.
Scalar value @snick[0] better written as $snick[0] at smsbot.txt line 171.
Scalar value @snomer[0] better written as $snomer[0] at smsbot.txt line 181.
Scalar value @sjnick[0] better written as $sjnick[0] at smsbot.txt line 197.
Scalar value @sjoin[0] better written as $sjoin[0] at smsbot.txt line 201.
Scalar value @spertanyaan1[1] better written as $spertanyaan1[1] at smsbot.txt line 245.
Scalar value @spertanyaan2[0] better written as $spertanyaan2[0] at smsbot.txt line 247.
Scalar value @spertanyaan3[0] better written as $spertanyaan3[0] at smsbot.txt line 250.
Scalar value @spertanyaan3[2] better written as $spertanyaan3[2] at smsbot.txt line 250.
Scalar value @sguard1[1] better written as $sguard1[1] at smsbot.txt line 259.
Scalar value @sguard2[0] better written as $sguard2[0] at smsbot.txt line 261.
kenapa begini terus yah?? ^_^
cara upload filenyaa dimana mas ?
@Hendra: $flood,itu digunakan untuk flood some nick di irc. biasanya untuk iseng.
@Ayam: silakan di check verion perlnya & edit souce yang ada di link. Jangan copy paste kalu mau fix
@Rara: Upload dimana ajah yang ada syarat” diatas..
wah tutorial yang bagus gan!
kk maksudx gmna ?
aku g tau sma sekali.
kan dah ku download berbetuk notepad kan…
truz diapain??? apanya yg d edit???
apanya yg di upload???
upload dmna??
aku msh pemula tp ku pengen smsan gratis.
~mohon bantuanx~
bang , bole mnta no hape km gak ? aku gak jelas nih .
waahhh…
masih kurang ngerti mas…
agak bingung2 gtu…
Hidup juragan uTUH hehehe kyk e crew ne malanghackerlink iki karo hdteam dalnet…??? egegegegege
@All: Perhatikan dengan jelas source yang di linknya, untuk bisa jalan sesuaikanlah widgetnya
[Think smart for what i mean]
hhhaa .. bisa juga ..
ah ga bsa pon sc na boonk aja
Yang belum bisa harus lebih kreatif
Selamat untuk yang udah bisa.. Hhe.. Enjoy..
wee gak bisa kalo di irc.allnetwork.org kenapa gitu ??
agak sulit nampak nya
udah g bisa bot sms nya!! busuk om
wah… Setiap kirim sms pasti client exited botnya… Solusinya dimana ni bro…
wahahaha… scriptnya jangan di tambahin binus donk kalo bukan anak binus yang buat wkakakaka…
@Oemar: Bisa kok, gak ada yang gak bisa.
Lebih teliti aja, kembangkan menggunakan layanan yang lainnya
@Ipays: Pastikan untuk execution permissionnya diperbolehkan di shellnya / pastikan memiliki authority untuk melakukan process send & respond.
@Isart: Kalau ada complain ya silakan diberikan masukan, saya menerima dengan baik. Tujuannya untuk berbagi, belajar & mengembangkan saja, pengalaman adalah guru yang berharga
@Tiul: Kami juga melakukan pembuatan untuk perubahan, tapi tidak keseluruhan source. Sudah ada yang complain & sudah fix
Kalau masih ada masukan silakan contact saya di: utuh@binushacker.org
Thanks All, Enjoy & Eat It!
Pastikan ini dengan benar kawan”:
$site = “www.botsms.com”;
$path = “/widget/kirim-sms.php”;
$action = “/widget/kirim.php”;
Cek dengan teliti dulu, jangan asal pakai. Kalau enggak, bakalan responnya “GAGAL” terus.
Gunakan service” yang serupa juga..
Saya sudah berhasil di channel saya sendiri.
Terima kasih agan UtuH..
Saya tunggu untuk BOT di TCL nya ya.
Kunjungi #iguanasms @ IRC.DAL.NET
Gw setuju sama bro Utuh, yang penting berbagi. Daripada pelit-pelit minta source ajah di sembunyi’in. Giliran di public masih ada yang protes, namanya juga freesource..
Maju terus gan! Keep sharing until dead!
Unrecognized character \x93 at sms.txt line 21.<–setelah: perl botsms.txt muncul itu di shell, kenapa ini mank?
Unrecognized character \x93 at sms.txt line 21.
akhirnya bisa juga…. tapi kenapa kirim sms nya malah jawab gagal masih bote???/
kk itu BOT SMS buat ngirim ke server bisa gak ?? misalnya ke 6060
Slamat malam kawan kawan.tlong saya dbantu belajar hacker ya???trima kasih
Eh,,, bot sms tu paan sieh,,,? Bisa d pakai d hp java gak,,? N ‘perl’ tu pa cieh,,?
ya udah semangat dweh kawan²..
/me hanya penyimak sodara²..
gak boleh marah.. hihihi…
hidup indonesia..!!!
Lama ga browsing2.
Eh nemuin link ini.
bingung mau koment apa…
Invite wae lah… Jeiejeieejeijei
pada ramein chan gw dunk….
#tepos irc.dal.net
seng umum2 wae..
Yuk pada chatting irc lg…
Lama ga browsing2.
Eh nemuin link ini.
bingung mau koment apa…
Invite wae lah… Jeiejeieejeijei
pada ramein chan gw dunk….
#tepos irc.dal.net
seng umum2 wae..
Yuk pada chatting irc lg
cara daptar nya gmana
o3m4r, masih bisa bro, see di #mojok allnetwork untuk smsnya
ipay, shellnya busuk kali itu mah, beli shell sendiri trus dijalanin, baru maknyoz
tiul, berarti punya kita” harus dihapus donk
hapus gan usah pake judul. aman…
masukan buat kang utuh: yang lebih sering ya nulis artikel, kita tunggu tulisan-tulisan dari kang utuh. kalau gak ada tulisan dari kang utuh, kusepi sendiri.
xixixixiixixi……………
I love u abang utuh…..
walopun kaga ngarti tapi gw salut bgt….
pinter banget……
saya juga mau kaya abang utuh ah…..
mohon doa nya…
wkwkwkwkwkwkw
go pak uTuH go… 1000 x
Wong kok pintermen aku ra mudeng bos.
gratis sms dari mana ???
hp atau pc ???????
BAng.. cara instal perl itu bagaimana???
bisa di pasang di website ga itu bot sms nya ? di jadiin .php atau .html
thanks
salam kenal aza buat semua admin situs ini…. Mungkin perlu beberapa bulan untuk menyerap ilmu dari situs ini… Terimakasih sangat bermanfaat
Slm Knal buat binushacker DAN Slm satu jiwa BIRU
[...] the article here: Original link §1530 · August 22, 2010 · Computer & Internet Security · Tags: [...]
om…ada gak TCL nya bot sms ?????
Info yang bagus.. ijin sedot script na bosss….
kuansing hacker community.
the last coder.. ‘the endlesslover”
horassssssss juragan utuh !!!
salam satu indonesia,…..
info nya pada bagus bagus tapi saya masih kurang paham,..
mohon bantuan nya ya buat bang admin admin yang udah pada mahir mahir…
nice share sob…
btw lbh baek ksih jg link aslix biar gk ada mslh..
“JAYALAH INDONESIA KU”
Gan tolong cariin toolsx buat hack pass facebook donk…yang carax gampang pastinya…heheheh..???
jiah susah amat sms aja pake ym….kaga usah ribet gt…tinggal ketik nomor sms dah
KK, kalau pakai serper ubuntu sendiri dirumah gmna?
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
bot sms … bot sms… bagus tuh di pake pas musim hujan… wkwkwk
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…
nice share bro….
maju terus binus hacker
ditunggu tips lainya
Cara bikin bot sms gratis.. Very nice
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.
ok bgt……
O emang saya gak ada saat itu
codernya di jatim saya di jateng. kalo codernya bamby mungkin saya ada, soalnya tinggal di 1 kota
ijin Copas boss!!!
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
sry nih gan masukin nomernya gimana yak angka 0nya yg di ganti apa apanya ???
Good Joob Agan Utuh….
susah nie gan
tak jelaaaaaaaaaaaaasssssssssss…
ga bisaaaaaa…
kontlo laaaaaahhhhhhhh……….
kk gwe bingung lebih jelaz dong,.,. cara install perl nya gimana?
!!! (maklum pemula)
udah gak isa…
update donk
eh ada mukidi…. jeiejiejeij