sms.pl

############ SPECIAL THANKS TO ############
#BOT SMS GRATISAN
#POWERED BY BOTSMS / NIXSMS (http://www.botsms.com)
#TERIMA KASIH BANYAK UNTUK LAYANANNYA
#SAYA DEDIKASIKAN UNTUK BINUSHACKER TEAM!! (http://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 = "irc.allnetwork.org";
my @arnick = ("IDCH-SMS");
my $ident = "Freesms";
my $channel = "#idcloudhost";
my $sock = new IO::Socket::INET(PeerAddr => $server,PeerPort => 6667,Proto => 'tcp') or die "Can't connect\n";
my $owner = "Up";
my $password = "newbie";
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 IDCLOUDHOST - http://www.idcloudhost.com 1]=-\n";
print $sock "PRIVMSG ".$shnick." : -=[#IDCLOUDHOST]=-\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." : -=[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 = "AAAA";
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";
$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];
$pesan1 = $data;
$pesan1 =~ s/ $no //g;
$pesan1 = $pesan1." \n\nDari $snick \n[IDCH-SMS]"; #<------ di dalam sms
#print $sock "PRIVMSG ".$chan." :".$pesan."\r\n";
if(sendSMS($no,$pesan1)){
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." : for free sms ketik .sms nomer pesan\r\n";
}


} #end while

sub sendSMS {

$no = $_[0];
$pesan1 = $_[1];

$site = "http://reguler.zenziva.net/";
$action = "/apps/smsapi.php?";
$Phonenumbers = $no;
$Text = $pesan1;


#################buat data yg akan di post##############

$Post = "userkey=dt02ws&passkey=1sampai8&nohp=".$Phonenumbers."&pesan=".$Text;
$panjang = length $Post;

###############kirim sms###############

$socksms = IO::Socket::INET->new(Proto=>"tcp",PeerAddr=>"$site",PeerPort=>"80");
print $socksms "GET $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;
}


}