Untitled

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Comprobador de vulnerabilidades</title>
<style type="text/css">
<!--
.Estilo1 {font-family: "Comic Sans MS"}
-->
</style>
</head>

<body>
<table width="600" border="3" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form id="form1" name="form1" method="post" action="index.php">
      <p align="center"><span class="Estilo1">Direccion web para leer:</span> </p>
      <p align="center">http://
        <input name="http" type="text" id="http" size="60" />
      </p>
      <p align="center">
        <input type="submit" name="Submit" value="Vulnerar" />
      </p>
    </form>
    </td>
  </tr>
</table>
<p>
</p>
<table width="900" border="15" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
    <?
  print ("<target ='main'>");
    if ($_POST)
    {
        $address = $_POST['http']; $address = "http://".$address;
        $web = fopen ($address,"r");
        $len = fpassthru ($web);
        $grabar = fopen("codigo.htm","a+");
        // $bytes = readfile ($address);
        $buscar = array ("<",">","\n");
        $reemplazar = array ("[","]","<br>");
        echo "<table border='1' align='center'><tr><td>";
        $codigo = file ($address);
            foreach ($codigo as $leido => $linea)
                {
                    $texto=$texto.$linea;
                    $linea = str_replace ($buscar,$reemplazar,$linea);
                    echo $linea;
                }
                fputs($web,$texto); fclose($web);
        echo "</td></tr></table>";
        if ($len==0) {print ("<br><hr><font color ='#FF0000'>Fichero protegido contra lectura externa</font>"); } else { print ("<br><hr><font color ='#FF0000'>Longitud del fichero: $len bytes</font>");}
    }

    /*
    Tabla 1. Una lista de modos posibles para fopen()
        modo    Descripción
        'r'     Apertura para sólo lectura; ubica el apuntador de archivo al comienzo del mismo.

        'r+'    Apertura para lectura y escritura; ubica el apuntador de archivo al comienzo del mismo.

        'w'     Apertura para sólo escritura; ubica el apuntador de archivo al comienzo de éste y lo trunca a una longitud de cero. Si el archivo no existe, intenta crearlo.

        'w+'    Apertura para lectura y escritura; ubica el apuntador de archivo al comienzo de éste y lo trunca a una longitud cero. Si el archivo no existe, intenta crearlo.

        'a'     Apertura para sólo escritura; ubica el apuntador de archivo al final del mismo. Si el archivo no existe, intenta crearlo.

        'a+'    Apertura para lectura y escritura; ubica el apuntador de archivo al final del mismo. Si el archivo no existe, intenta crearlo.

        'x'     Creación y apertura para sólo escritura; ubica el apuntador de archivo al comienzo de éste. Si el archivo ya existe, la llamada a fopen() fallará devolviendo FALSE y generando un error de nivel E_WARNING. Si el archivo no existe, intenta crearlo. Esto es equivalente a especificar las banderas O_EXCL|O_CREAT en la llamada de sistema open(2) interna. Esta opción es soportada en PHP 4.3.2 y versiones posteriores, y sólo funciona con archivos locales.

        'x+'    Creación y apertura para lectura y escritura; ubica el apuntador de archivo al comienzo de éste. Si el archivo ya existe, la llamada a fopen() fallará devolviendo FALSE y generando un error de nivel E_WARNING. Si el archivo no existe, intenta crearlo. Esto es equivalente a especificar las banderas O_EXCL|O_CREAT en la llamada de sistema open(2) interna. Esta opción es soportada en PHP 4.3.2 y versiones posteriores, y sólo funciona con archivos locales.


    Con fopen podemos abrir un archivo de los siguientes modos:

    r    solo lectura

    r+  lectura y escritura

    w    solo escritura. Sino existe el archivo lo crea, si ya existe lo machaca.

    w+  lectura y escritura. Sino existe el archivo lo crea, si ya existe lo machaca.

    a    solo lectura. Sino existe el archivo lo crea, si ya existe empieza a escribir al final del archivo.

    a+  lectura y escritura. Sino existe el archivo lo crea, si ya existe empieza a escribir al final del archivo.


     if (is_readable($address))
            {
                print ("$web");
            }
            else
            {
                print ("<br>La dirección dada <font color='#FF00FF'>$address</font> no es accesible.");
            } *

  */
?>

    </td></tr>
</table>
<p>&nbsp;</p>
</body>
</html>