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=ad2><script language='javascript' src='/ad/201310/4.js'></script></div>
</div>
</td>
</tr>
</table>
<table width="95%" height="1" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DEE7EE">
<tr>
<td></td>
</tr>
</table>
<table width="100%" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="91%" height="52" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="51%"><p>Previous ： <a class='LinkPrevArticle' href='/Programacion/perl-programming/93400.html' >Cómo convertir archivos planos a XML </a></li></p></td>
</tr>
<tr>
<td width="49%"> next ： <a class='LinkNextArticle' href='/Programacion/perl-programming/93402.html' >Cómo quitar duplicados de matriz Perl </a></li></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="7" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="770" height="246" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="375" height="246" valign="top"><table width="380" border="0" cellpadding="0" cellspacing="0" class="bian">
<tr>
<td height="244" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="img_dm/danmai_r4_c04 -.jpg" bgcolor="#DBE3EE">
<tr>
<td width="4%" height="29"> </td>
<td width="96%" class="lan_lm"> Artículos relacionados </td> </tr>
</table>
<table width="95%" height="209" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td height="201"><table width="100%" cellpadding="0" cellspacing="0"><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93370.html" title="Cómo escribir una secuencia de comandos Telnet Perl " target="_self">Cómo escribir una secuencia de comandos Telnet Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93303.html" title="Cómo quitar los espacios iniciales en Perl " target="_self">Cómo quitar los espacios iniciales en Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93245.html" title="Cómo redirigir la salida a la entrada en Perl " target="_self">Cómo redirigir la salida a la entrada en Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93227.html" title="¿Qué es la sintaxis de Perl para la codificación URL " target="_self">¿Qué es la sintaxis de Perl para la codificación URL…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93199.html" title="¿Qué hacen SQL Perl Scripts hacer " target="_self">¿Qué hacen SQL Perl Scripts hacer </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93198.html" title="Cómo iniciar una sesión en Perl con Perforce " target="_self">Cómo iniciar una sesión en Perl con Perforce </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93372.html" title="Cómo reinstalar CPAN " target="_self">Cómo reinstalar CPAN </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93359.html" title="Cómo contar palabras en una cadena en Perl " target="_self">Cómo contar palabras en una cadena en Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93309.html" title="Cómo utilizar terminante en una secuencia de comandos Perl " target="_self">Cómo utilizar terminante en una secuencia de comandos …</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/perl-programming/93269.html" title="Cómo pasar aportaciones de PHP a Perl " target="_self">Cómo pasar aportaciones de PHP a Perl </a></td></tr><tr></tr></table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="20" valign="top"></td>
<td width="375" valign="top"><table width="380" border="0" cellpadding="0" cellspacing="0" class="bian">
<tr>
<td height="244" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="img_dm/danmai_r4_c04 -.jpg" bgcolor="#DBE3EE">
<tr>
<td width="4%" height="29"> </td>
<td width="96%" class="lan_lm">Artículos destacados </td> </tr>
</table>
<table width="95%" height="207" border="0" align="center" cellpadding="0" cellspacing="4">
<tr>
<td height="199"><table width="100%" cellpadding="0" cellspacing="0"><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/python-programming/93912.html" title="Cómo escribir una serie de Taylor en Python " target="_self">Cómo escribir una serie de Taylor en Python </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/visual-basics-programming/95696.html" title="Cómo acceder y eliminar datos con una macro " target="_self">Cómo acceder y eliminar datos con una macro </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/visual-basics-programming/95258.html" title="Cómo cambiar el cursor predeterminado en Visual Basic 6 " target="_self">Cómo cambiar el cursor predeterminado en Visual Basic …</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/computer-programming-languages/86509.html" title="Cómo utilizar MATLAB Sin escritorio " target="_self">Cómo utilizar MATLAB Sin escritorio </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/computer-programming-languages/87951.html" title="Cómo calcular el ancho de banda NS2 " target="_self">Cómo calcular el ancho de banda NS2 </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/computer-programming-languages/86356.html" title="Cómo utilizar un anemómetro en el BASIC Stamp One " target="_self">Cómo utilizar un anemómetro en el BASIC Stamp One </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/cc-programming/86049.html" title="Cómo hacer un archivo EXE en el Bloc de notas " target="_self">Cómo hacer un archivo EXE en el Bloc de notas </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/java-programming/90046.html" title="Cómo insertar registros en las aplicaciones Java " target="_self">Cómo insertar registros en las aplicaciones Java </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/computer-programming-languages/87014.html" title="Cómo quitar el Sendero de un objeto GCC " target="_self">Cómo quitar el Sendero de un objeto GCC </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/Programacion/cc-programming/85929.html" title="Cómo agregar columnas a un DataTable en C # " target="_self">Cómo agregar columnas a un DataTable en C # </a></td></tr><tr></tr></table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="980" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=980 bgColor=#36506e height=90>
<tr>
<td class=bs height=90 align=middle>Copyright © Conocimientos Informáticos http://ordenador.wingwit.com
<script language='javascript' src='/ad/201310/1.js'></script></td>
</tr>
</table>
</div>
</body>
</html>
