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

}