+...-= WELCOME TO DIGITAL WORLD COMMUNITY =-...+

=====<<DAFTAR GRATIS DI NEGARA DIGITAL WORLD >>====
|Dengan melakukan pendaftaran, berarti anda setuju menjadi | |warga negara digital world community, dengan mata uang DIGI| |points,. yang bisa di barter atau transaksikan melalui menteri. |
===============================================

==============================================
[ INGIN JADI VIP ?, DAFTAr dahulu lalu PM presiden / menteri ] DONASI VIP SENILAI 2 $ DOLLAR ( PAYPAL / Rp.30.000
fitur Vip
1. menjadi menteri ( orang nomor 2 di negara)
2. bisa masuk ke locked forum
3. bonus DIGITAL POINTS ( 300 DIGI )
4. Bebas berpindah2 pangkat / momod ( kreasi pangkat sendiri )
5. bebas berganti ID
6. menjadi menteri selamanya
7. bisa duduk santai tanpa post
8. semua forum ter unlock
9. dapat bertanya tentang rahasia negara
10. berhak menyarankan banned user / unlock user
==============================================

negara yg lucu buat lucu-lucuan , dipimpin oleh pemimpin imut-imut , bebas korupsi, jadikan negara bersih kawan


    Cara Bikin Bot SMS Gratis

    Share

    Yusuf_themarskal
    LIEUTENANT
    LIEUTENANT

    Jumlah posting : 48
    DIGITAL POINTS ( DIGI ) : 2656
    REPUTASI : 0
    Join date : 11.01.11
    Age : 22
    Lokasi : Pringsewu, Lampung

    Cara Bikin Bot SMS Gratis

    Post  Yusuf_themarskal on Mon Jan 17, 2011 10:33 pm

    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
    #
    #######################################

    #!/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;
    }



    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 ?

    sekian terima kasih......
    semoga sukses dan berhasil......

    ™matolak™
    LIEUTENANT
    LIEUTENANT

    Jumlah posting : 43
    DIGITAL POINTS ( DIGI ) : 2234
    REPUTASI : 8
    Join date : 12.01.11
    Age : 22
    Lokasi : Bekasi

    Re: Cara Bikin Bot SMS Gratis

    Post  ™matolak™ on Sat Jan 22, 2011 3:10 am

    Ribed mode ON...

    Yusuf_themarskal
    LIEUTENANT
    LIEUTENANT

    Jumlah posting : 48
    DIGITAL POINTS ( DIGI ) : 2656
    REPUTASI : 0
    Join date : 11.01.11
    Age : 22
    Lokasi : Pringsewu, Lampung

    Re: Cara Bikin Bot SMS Gratis

    Post  Yusuf_themarskal on Mon Jan 24, 2011 8:52 pm

    hahahahahahahahaha

    Sponsored content

    Re: Cara Bikin Bot SMS Gratis

    Post  Sponsored content Today at 6:09 am


      Waktu sekarang Thu Dec 08, 2016 6:09 am