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/Cómo-convertir-archivos-planos-a-XML-.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/Cómo-quitar-duplicados-de-matriz-Perl-.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/Cómo-llamar-a-las-rutinas-de-la-Asamblea-de-Perl-.html">Cómo llamar a las rutinas de la Asamblea de Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-hacer-una-matriz-de-un-cierto-tamaño-en-Perl-.html">Cómo hacer una matriz de un cierto tamaño en Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-memorizar-un-archivo-en-Perl-.html">Cómo memorizar un archivo en Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-limpiar-el-inicio-y-fin-de-una-cadena-en-Perl-.html">Cómo limpiar el inicio y fin de una cadena en Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-buscar-un-archivo-en-Perl-.html">Cómo buscar un archivo en Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-leer-una-línea-de-DOSBox-Con-Perl-.html">Cómo leer una línea de DOSBox Con Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-crear-un-archivo-mediante-Perl-.html">Cómo crear un archivo mediante Perl </a></dd><dd><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-calcular-los-factores-primos-de-un-número-entero-en-Perl-.html">Cómo calcular los factores primos de un número entero en 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/Cómo-redondear-a-un-número-entero-en-Perl-.html" >Cómo redondear a un número entero en Perl </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/Perl-5-10-vs--5-8-8-.html" >Perl 5.10 vs. 5.8.8 </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-generar-una-contraseña-aleatoria-.html" >Cómo generar una contraseña aleatoria </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-calcular-la-exponencial-en-Perl-.html" >Cómo calcular la exponencial en Perl </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-escribir-un-script-de-Perl-para-procesar-un-formulario-.html" >Cómo escribir un script de Perl para procesar un formulario </a> </li><li><a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-eliminar-todos-los-espacios-en-blanco-en-una-cadena-con-expresiones-regulares-en-Perl-.html" >Cómo eliminar todos los espacios en blanco en una cadena con expresiones regulares en 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/¿Cómo-obligar-a-cualquier-archivo-en-un-UTF--8-en-Perl-.html" >¿Cómo obligar a cualquier archivo en un UTF -8 en Perl </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-encontrar-el-Directorio-de-Perl-en-un-servidor-.html" >Cómo encontrar el Directorio de Perl en un servidor </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-depurar-programas-Perl-.html" >Cómo depurar programas Perl </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-ejecutar-un-exploit-IPBFree-Con-Perl-.html" >Cómo ejecutar un exploit IPBFree Con Perl </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-utilizar-una-expresión-en-la-Declaración-de-Perl-Imprimir-.html" >Cómo utilizar una expresión en la Declaración de Perl Imprimir </a></li><li> <a href="http://www.ordenador.online/Programacion/Perl-Programming/Cómo-manipular-imágenes-en-Perl-.html" >Cómo manipular imágenes en Perl </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>Conocimientos Informáticos © http://www.ordenador.online</div>
</div>
</body>
</html> 