|
|
|
Så här konfigurerar Formulärverifiering |
|
Låt säga att du har en hemsida vars information är reserverad för endast vissa individer , och du inte vill att vem som helst få tillgång till . Ett sätt att hindra dem från att komma in i restriktionsområdet är att använda blanketter autentisering . Detta innebär normalt att inrätta en inloggningssida där användarna måste ange ett lösenord för åtkomst . Denna artikel kommer att visa hur man skyddar en hemlig webbsida kapslas i ett CGI-program skrivet i Perl . Andra server - side språk kan användas för att utföra denna uppgift , t.ex. ASP.NET eller C , men Perl är att föredra här för sin flexibilitet och relativt lätt . Du behöver och mellanliggande kunskaper i Perl och kunskap om servrar och FTP . Saker du behöver Textredigerare Review, lösenord fil Visa fler instruktioner Forms Authentication 1 Skapa en sida lösenord logga in i textredigeraren . Detta görs i HTML som anropar ett CGI-skript när knappen trycks in . Ett exempel HTML script för att göra detta ges nedan : Authentication < /title > <body> <h1> Autentisering krävs < /h1 > <hr> < formen namn = AUTH = efter action = " cgi-bin/pwd_in.cgi " > Typ lösenord : <INPUT TYPE=password NAME="pwd" SIZE=15 MAXLENGTH=25> <p> <input type = lämna VALUE = " Enter " > </form > < /body> < /html > <br> 2 <p> Skapa ett lösenord fil i din textredigerare som innehåller användarnamn och lösenord på de individer som har autentisering för att komma in platsen . Informationen i filen nedan har avgränsats med anpassade XML-taggar . Du kan avgränsa med vad du vill , jag råkar hitta XML avgränsare mycket pragmatiskt . Spara filen som " pwds.txt . " <name> Mike Smith < /namn > <pw> 123abc < /pw > <name> John Smith < /namn > <pw> 456abc < /pw > < namn > Mary Smith < /namn > <pw> 789abc < /pw > Addera 3 <p> Skapa CGI-skriptet . Följande CGI Perl-skript tar användarens input och kontrollerar den mot information i pwds.txt filen . Om lösenordet är korrekt , hälsar den användaren efter namn och sedan öppnar den hemliga informationen . Om lösenordet inte hittas , visas ett felmeddelande skrivs ut . Spara följande skript som " pwd_in.cgi . " # /Usr /bin /perl - wprint " Content-Type : text /html \\ n \\ n "; <br> <p> använda CGI , <br> <p> ! $ q = ny CGI , $ pwd = $ q - > param ( ' pwd ' ) ; $ cgi = ny CGI , <br> <p> open ( PWD , " < pwds.txt " ) , $ error = " <h2> Fel lösenord < /h2 > <hr> "; ! <br> <p> samtidigt ( <PWD> ) { <br> <p> om ( /<name> ( * ) . ? < \\ /namn > <pw> < \\ /pw > /är ) ( * . ) { $ 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><meta name=viewport content="width=device-width, initial-scale=1.0"> < ; ! title > The Secret Sida < \\ /title > < \\ /head > <h2> Hej $ name {$ 1} , Kul att du kunde göra det < /h2 > <hr> <p> Här är topphemlig information < /p > < \\ /body> "; <br> <p> } } <br> <p> } print $ error , <br> 4 <p> Ladda upp filerna . Ladda upp HTML-filen till din HTML- mappen och de andra två filer till din cgi - bin . <br> 5 <p> Använd chmod med cgi -filen . Du kan behöva ge behörigheter för externa användare att få tillgång till den här filen . Att bevilja tillstånd , på kommandoraden i UNIX , typ : > $ " chmod 755 pwd_cgi " <br> 6 <p> Kör programmet . Öppna HTML -filen och skriv in en giltig lösenord . Du kommer att få en sida som hälsar namnet att lösenordet är förknippad med , liksom en mening som säger , " Här är den hemliga informationen . " Skriv in ett felaktigt lösenord eller utan lösenord, och du kommer att få ett felmeddelande . <br> <br>
<div class=dad2><script language='javascript' src='/ad/201310/4.js'></script></div>
<div class=dad3><script language='javascript' src='/ad/201310/33.js'></script></div>
</div>
</td>
</tr>
</table>
<table class=dhang1 bgcolor="#DEE7EE">
<tr>
<td></td>
</tr>
</table>
<div class=dhang7></div>
<table width="92%" height="51" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"><p>Tidigare: <a class='LinkPrevArticle' href='http://www.dator.xyz/Programmering/perl-programming/93400.html' >Konvertera platta filer till XML </a></li></p></td>
</tr>
<tr>
<td width="50%">nästa: <a class='LinkNextArticle' href='http://www.dator.xyz/Programmering/perl-programming/93402.html' >Hur man tar bort dubbletter från Array Perl </a></li></td>
</tr>
</table></td>
</tr>
</table>
<div class=dhang7></div>
<table class=s770x246 >
<tr>
<td class=s375x246 ><table width="380" border="0" cellpadding="0" cellspacing="0" class="bian">
<tr>
<td height="244" valign="top"><table class=c1 >
<tr>
<td width="4%" height="29"> </td>
<td width="96%" class="lan_lm"> relaterade artiklar </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="http://www.dator.xyz/Programmering/perl-programming/93401.html" title="Så här konfigurerar Formulärverifiering " target="_self">Så här konfigurerar Formulärverifiering </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93328.html" title="Hur man tar bort Newline Perl " target="_self">Hur man tar bort Newline Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93299.html" title="Konvertera Array Referenser i Perl " target="_self">Konvertera Array Referenser i Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93337.html" title="Hur man gör en katalog i Perl Med Script " target="_self">Hur man gör en katalog i Perl Med Script </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93315.html" title="Hur man använder en Perl Grep funktion " target="_self">Hur man använder en Perl Grep funktion </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93232.html" title="Vad är PERL Syntax " target="_self">Vad är PERL Syntax </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93397.html" title="Hur du manuellt installera Perl-modul på Windows Vista " target="_self">Hur du manuellt installera Perl-modul på Windows Vista…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93191.html" title="Hur man läser från mitten av en array i Perl " target="_self">Hur man läser från mitten av en array i Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93349.html" title="Hur man tar bort String i Perl " target="_self">Hur man tar bort String i Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/perl-programming/93248.html" title="Hur man använder Perl kod Hooks " target="_self">Hur man använder Perl kod Hooks </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 class=c3 >
<tr>
<td width="4%" height="29"> </td>
<td width="96%" class="lan_lm">Utvalda artiklarna </td>
</tr>
</table>
<table class=c4 >
<tr>
<td height="199"><table width="100%" cellpadding="0" cellspacing="0"><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/computer-programming-languages/86528.html" title="Hur man skriver ut dosemu på Dot Matrix " target="_self">Hur man skriver ut dosemu på Dot Matrix </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/cc-programming/86096.html" title="Hur initiera Pekare " target="_self">Hur initiera Pekare </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/visual-basics-programming/95979.html" title="Hur man skriver en textfil till en databas tabell med Visual Basic " target="_self">Hur man skriver en textfil till en databas tabell med V…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/computer-programming-languages/88810.html" title="Grunderna i SQL " target="_self">Grunderna i SQL </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/visual-basics-programming/96133.html" title="Hur man gör för att stoppa studsa mot väggar i Visual Basic " target="_self">Hur man gör för att stoppa studsa mot väggar i Visua…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/computer-programming-languages/87853.html" title="Hur Ctrl + Alt + Del ett Remote PC " target="_self">Hur Ctrl + Alt + Del ett Remote PC </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/computer-programming-languages/86303.html" title="Heltalsprogrammering & styckvis linjär Funktioner " target="_self">Heltalsprogrammering & styckvis linjär Funktioner </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/php-mysql-programming/91744.html" title="När man använder två är lika i PHP " target="_self">När man använder två är lika i PHP </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/python-programming/93999.html" title="Hur man skriver ut listor i Python " target="_self">Hur man skriver ut listor i Python </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="http://www.dator.xyz/Programmering/computer-programming-languages/88007.html" title="Hur man installerar InstallShield 11,5 Serial " target="_self">Hur man installerar InstallShield 11,5 Serial </a></td></tr><tr></tr></table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<div class=dhang8></div>
<div class=dhang1></div>
<table class=b1>
<tr>
<td class=bs height=90 align=middle>Copyright © Dator Kunskap http://www.dator.xyz
</td>
</tr>
</table>
<div class=dhang1></div>
</div>
</body>
</html> | | |
