FOLLOW @kertaskotor_

EDIT ME

ALEXA

Loading

Cara bikin Bot SMS Gratis

Share Bloggeron
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: AHMAD IRFAN /
#BOT INI UNTUK CYBER C TKJ 2 MEMBER!! (www.tkjsmknasionaldepok.blogspot.com)
############ 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 = “#SMK NASIOANL”;
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 GRATIS 1] 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 TkjSmkNasionalDepok, 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 CYBER X TKJ 2 - www.tkjsmknasionaldepok.blogspot.com 1]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[#SMK NASIOANL HACKER]=-\n”;
print $sock “PRIVMSG “.$shnick.” : -=[ 4ADMIN COMMAND 1]=-\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 WAR 1]=—\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 COMMAND 1]=-\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[TKJSMKNASIOANLHACKER]“;       #<—— 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: Cyber Xtkj2\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: Cyber Xtkj2\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 #CYBER X TKJ 2 @ TKJSMKNASIOANLDEPOK.BLOGSPOT.COM ########
}
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?
Silakan di explore lebih dalam lagi, agar dapat menggunakan beberapa provider sekaligus.
Selamat mencoba & semoga berhasil :)
StumbleDeliciousTechnoratiTwitterFacebookReddit

0 komentar:

Sociable

Change Language

DAFTAR ISI

SMS GRATIS

Langganan Artikel

Enter your email address:

Delivered by FeedBurner

Blog Archive

Categories

Search Engine OptimizationSubmit Express