Digamos que usted tiene un sitio web cuya información se reserva sólo para ciertos individuos , y no desea que cualquier persona tener acceso . Una forma de evitar que entren en la zona restringida es el uso de la autenticación de formularios . Normalmente, esto implica la creación de una página de acceso donde los usuarios deben introducir una contraseña para acceder . En este artículo se mostrará cómo proteger una página web secreta anidado dentro de un programa CGI escrito en Perl. Otros lenguajes del lado del servidor se podrían utilizar para llevar a cabo esta tarea , tales como ASP.NET o C , Perl , pero se prefiere por su flexibilidad y facilidad relativa . Usted necesitará y conocimientos intermedios de Perl y el conocimiento de los servidores y FTP . Cosas que necesitará
Editor de texto electrónico Contraseña fichero
Mostrar más instrucciones
autenticación de formularios
1
Crear una página de inicio de sesión la contraseña en el editor de texto. Esto se hace en HTML que llama a un script CGI cuando se pulsa el botón. Una secuencia de comandos HTML ejemplo para hacer esto es la siguiente :
autenticación < /title > Autenticación <h1> <body> requiere < /h1 > <hr> < nombre de formulario = método auth = puesto action = " cgi-bin/pwd_in.cgi " > Tipo contraseña: <INPUT TYPE=password NAME="pwd" SIZE=15 MAXLENGTH=25> <p> < INPUT TYPE = presentará VALUE = "Enter" > < /form> < /body> < /html> <br> 2 <p> Crear un archivo de contraseñas en el editor de texto que incluye los nombres de usuario y contraseñas de las personas que tienen la autenticación para entrar el sitio . La información del archivo a continuación se ha delimitado con etiquetas XML personalizados. Puede delimitar con lo que quieras , me ocurre para encontrar delimitadores XML muy pragmático . Guarde este archivo como " pwds.txt . " <nombre> Mike Smith < /name> <pw> 123abc < /pw > <nombre> John Smith < /name> <pw> 456abc < /pw > < name> Mary Smith < /name> <pw> 789abc < /pw > <br> 3 <p> Crear la secuencia de comandos CGI . La siguiente secuencia de comandos CGI Perl toma la entrada del usuario y la compara con la información en el archivo pwds.txt . Si la contraseña es correcta, se da la bienvenida al usuario por su nombre y se abre la información en secreto. Si no se encuentra la clave, se imprime un mensaje de error. Guarde la siguiente secuencia de comandos como " pwd_in.cgi . " # /Usr /bin /perl- wprint " Content-type : text /html \\ n \\ n"; Usa <p> CGI ; <br> <p> ! $ q = new CGI , $ pwd = $ q -> param ( ' pwd ' ), $ cgi = new CGI ; <br> <p> abierto ( personas con discapacidad , "< pwds.txt "); $ error = " <h2> Wrong Password < /h2 > <hr> " ; ! <br> <p> while ( <contraseña> ) { <br> <p> if ( /<nombre> (* ) . ? < \\ /name> <pw> < \\ /pw > /es ) (*. ) { $ name } { $ 1 = $ 1 , $ pw {$ 1} = $ 2; @ p_words pw = $ {$ 1} ;} <br> <p> foreach $ p (@ p_words ) { <br> <p> if ( $ p eq "$ pwd ") { $ error = ""; <br> <p> print " <head> < ; ! title> The Secret Página < \\ /title> < \\ /head> <h2> Hey $ name {$ 1} , Me alegro de que podía hacerlo < /h2 > <hr> <p> Aquí está la información secreta < /p> < \\ /body> " ; } } <br> <p> <br> <p> } print $ error ; <br> 4 <p> subir los archivos . Cargue el archivo HTML a la carpeta HTML y los otros dos archivos en el directorio cgi- bin. <br> 5 <p> Uso chmod con el archivo cgi . Puede que tenga que dar permisos a usuarios externos acceder a este archivo. Para conceder el permiso , en el indicador de UNIX , escriba: > $ " chmod 755 pwd_cgi " <br> 6 <p> Ejecute el programa. Abra el archivo HTML y escriba una contraseña auténticos. Usted recibirá una página que recibe el nombre que la contraseña está asociada con, así como una frase que dice: " Aquí está la información en secreto. " Escriba una contraseña incorrecta o sin contraseña , y recibirá un mensaje de error. <br> <br>
<div class="escomad2"><script language='javascript' src='http://www.ordenador.online/ad/es/2.js'></script></div>
</div>
<div class=contentpage>
<div class=p1>Página anterior: <a class='LinkPrevArticle' href='http://www.ordenador.online/Programacion/Perl-Programming/93400.html' >Cómo convertir archivos planos a XML </a> </div>
<div class=p2>Página siguiente: <a class='LinkNextArticle' href='http://www.ordenador.online/Programacion/Perl-Programming/93402.html' >Cómo quitar duplicados de matriz Perl </a> </div>
</div>
<dl class=xgc>
<dt><span>Perl Programming</span></dt>
<dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/93232.html">¿Qué es la sintaxis de Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/93309.html">Cómo utilizar terminante en una secuencia de comandos Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/93239.html">Cómo eliminar comillas dobles en una cadena en Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/335064.html">¿Qué es un fabricante de perkue? </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/93251.html">Cómo instalar PPM De CPAN </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/93263.html">Cómo reemplazar espacios finales Con las expresiones regulares de Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/93334.html">Cómo utilizar terminante en Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/93228.html">La función de división de Perl </a></dd>
</dl>
</div>
<!--right-->
<div class=rightmain>
<div class=esrightlist>
<div class=e1>Los últimos artículos de equipo</div>
<ul>
<li><a href="http://www.ordenador.online/Programacion/Perl-Programming/93417.html" >Cómo buscar un archivo en Perl </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/93222.html" >Cómo convertir XML a PDF en Perl </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/93277.html" >¿Cómo puedo empujar un camino hacia la Ruta Unix variable de entorno en Perl </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/93326.html" >Cómo leer más de una línea a la vez en Perl </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/93253.html" >Cómo crear una secuencia de comandos Telnet sencillo en Perl </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/93327.html" >Cómo utilizar el Bloc de notas para compilar un programa Perl </a> </li>
</ul>
</div>
<div class=esrightlist>
<div class=e1>Artículos de la popular computadora</div>
<ul>
<li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/93216.html" >¿Cómo hacer un cuadro de diálogo X11 rápido en Perl </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/93218.html" >Cómo encontrar caracteres chinos utilizando expresiones regulares en Perl </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/93371.html" >Cómo probar XML De XSD </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/93282.html" >Cómo reemplazar una variable en una cadena Perl </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/93295.html" >Cómo calcular el tiempo en Perl </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/93377.html" >Cómo convertir secuencias de comandos Perl para EXE </a></li>
</ul>
</div>
<div class="esrightad">
<script language='javascript' src='http://www.ordenador.online/ad/es/r.js'></script>
</div>
<div class=esrightlist>
<div class=e1>Más categorías</div>
<ul>
<li><a href='http://www.ordenador.online/Programacion/C--C-----Programming/' target="_self">C /C + + Programming</a></li>
<li><a href='http://www.ordenador.online/Programacion/Lenguajes-De-Programación/' target="_self">Lenguajes De Programación</a></li>
<li><a href='http://www.ordenador.online/Programacion/Delphi-Programación/' target="_self">Delphi Programación</a></li>
<li><a href='http://www.ordenador.online/Programacion/Programación-Java/' target="_self">Programación Java</a></li>
<li><a href='http://www.ordenador.online/Programacion/JavaScript-Programación/' target="_self">JavaScript Programación</a></li>
<li><a href='http://www.ordenador.online/Programacion/Programación-PHP--MySQL/' target="_self">Programación PHP /MySQL</a></li>
<li><a href='http://www.ordenador.online/Programacion/Perl-Programming/' target="_self">Perl Programming</a></li>
<li><a href='http://www.ordenador.online/Programacion/Python-Programming/' target="_self">Python Programming</a></li>
<li><a href='http://www.ordenador.online/Programacion/Rubí-Programación/' target="_self">Rubí Programación</a></li>
<li><a href='http://www.ordenador.online/Programacion/Visual-Basics-Programación/' target="_self">Visual Basics Programación</a></li>
</ul>
</div>
</div>
<!--right end-->
<div class="cl"></div>
</div>
<div class=esfoot>
<div class=copy>Conocimiento de la computadora © http://www.ordenador.online</div>
</div>
</body>
</html> 