Laten we zeggen dat u een website waarvan de informatie is uitsluitend bestemd voor bepaalde individuen , en je niet wilt dat iedereen zomaar toegang krijgen . Een manier om te voorkomen dat het invoeren van de beperkte ruimte is om formulieren authenticatie gebruiken . Dit betekent meestal het opzetten van een login- pagina waar gebruikers een wachtwoord voor toegang moet invoeren . Dit artikel laat zien hoe je een geheime webpagina genest binnen een CGI programma geschreven in Perl te beschermen . Andere server - side talen kan worden gebruikt om deze taak , zoals ASP.NET of C bereiken , maar Perl heeft daarbij de voorkeur om zijn flexibiliteit en het relatieve gemak . Je nodig hebt en intermediaire kennis van Perl en kennis van servers en FTP . Wat je nodig hebt
tekst editor
Password file
Toon Meer Aanwijzingen
formulierauthenticatie
1 Maak een wachtwoord login pagina in de teksteditor . Dit wordt gedaan in HTML die een CGI-script wanneer de knop wordt ingedrukt noemt . Een voorbeeld HTML script om dit te doen is hieronder gegeven : Authentication < /title > <body> <h1> Authenticatie vereist < /h1 > <hr> < form name = auth method = bericht action = " cgi-bin/pwd_in.cgi " > Type wachtwoord : <INPUT TYPE=password NAME="pwd" SIZE=15 MAXLENGTH=25> <p> < INPUT TYPE = indienen VALUE = " Enter " > < /form > < /body > < /html > kopen van 2 <p> Maak een wachtwoord bestand in je tekstverwerker dat de gebruikersnamen en wachtwoorden van de mensen die authenticatie moeten voeren omvat de site . De informatie in het bestand hieronder is afgebakend met aangepaste XML-tags . U kunt afbakenen met wat je wilt , ik toevallig XML scheidingstekens zeer pragmatisch vinden . Sla dit bestand op als " pwds.txt . " <naam> Mike Smith < /name> <pw> 123abc < /pw > <name> John Smith < /name> <pw> 456abc < /pw > < name> Mary Smith < /name> <pw> 789abc < /pw > <br> 3 <p> Maak de CGI-script . De volgende CGI Perl-script neemt de input van de gebruiker en controleert het tegen de info in de pwds.txt bestand . Als het wachtwoord juist is , het begroet de gebruiker door de naam en dan opent de geheime informatie . Als het wachtwoord niet wordt gevonden , wordt een foutmelding afgedrukt . Sla het volgende script als " pwd_in.cgi . " # /Usr /bin /perl - wprint " Content-type : text /html \\ n \\ n " ; <p> gebruik <br> CGI ; <br> <p> ! $ q = new CGI ; $ pwd = $ q - > param ( ' pwd ' ) ; $ cgi = new CGI ; <p> geopend <br> ( PWD , " <pwds.txt " ) ; $ error = " <h2> Fout wachtwoord < /h2 > <hr> " ; ! <br> <p> terwijl ( <PWD> ) { <br> <p> if ( /<naam> ( * ) . ? < \\ /name> <pw> < \\ /pw > /is ) ( * . ) { $ naam {$ 1} = $ 1 , $ pw {$ 1} = $ 2 ; @ p_words = $ pw {$ 1} ; } <p> foreach $ p <br> ( @ p_words ) { <br> <p> if ( $ p eq " $ pwd " ) { $ error = " " ; <p> druk <br> " <head> < ; ! title > de geheime pagina < \\ /title > < \\ /head > <h2> Hey $ naam {$ 1} , Blij dat je er bent < /h2 > <hr> <p> Hier is de top secret informatie < /p > < \\ /body > " ; <br> <p> } } <br> <p> } afdruk $ error ; <br> 4 <p> uploaden van de bestanden . Upload de HTML- bestand naar uw HTML- map en de andere twee bestanden naar uw cgi - bin . <br> 5 <p> Gebruik chmod met het cgi -bestand . Het kan nodig zijn om machtigingen te geven voor gebruikers van buitenaf toegang tot dit bestand . Om toestemming te verlenen , bij de unix prompt: > $ " chmod 755 pwd_cgi " <br> 6 <p> Voer het programma uit . Open het HTML-bestand en typ in een authentieke wachtwoord. U krijgt een pagina die de naam dat het wachtwoord wordt geassocieerd met , evenals een zin die zegt , begroet krijgen " Hier is de geheime informatie . " Typ in een slecht wachtwoord of geen wachtwoord , en u ontvangt een foutbericht weergegeven . <br> <br></td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=970 align=center height=90>
<tr>
<td bgColor=#e7edf4 align=middle><script language='javascript' src='/ad/201310/3.js'></script></td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=970 align=center height=90>
<tr>
<td align=left>Previous: <a class='LinkPrevArticle' href='/programmering/perl-programming/201309/93400.html' >Hoe te Flat bestanden converteren naar XML </a></li> </td>
<td align=right>Next: <a class='LinkNextArticle' href='/programmering/perl-programming/201309/93402.html' >Hoe te Duplicaten verwijderen Van Array Perl </a></li> </td>
</tr>
</table>
</td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=970 align=center height=18>
<tr>
<td></td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=970 align=center height=246>
<tr>
<td height=246 vAlign=top width=199>
<table class=bian border=0 cellSpacing=0 cellPadding=0 width=199>
<tr>
<td height=244 vAlign=top width=197>
<table border=0 cellSpacing=0 cellPadding=0 width="100%" bgColor=#dbe3ee>
<tr>
<td height=29 width="4%"> </td>
<td width="96%"><STRONG>Perl Programming</STRONG></td>
</tr>
</table>
<table width="100%" cellpadding="0" cellspacing="0"><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93193.html" title="Mijn Perl String Split werkt niet " target="_self">Mijn Perl String Split werkt n…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93338.html" title="Hoe maak je een switch statement in Perl gebruiken " target="_self">Hoe maak je een switch stateme…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93254.html" title="Hoe te configureren Perl in XAMPP " target="_self">Hoe te configureren Perl in XA…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93207.html" title="Hoe te gebruiken reguliere expressies tot het controleren van een tekenreeks die numeriek " target="_self">Hoe te gebruiken reguliere exp…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93228.html" title="De Split functie in Perl " target="_self">De Split functie in Perl </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93422.html" title="Hoe maak je een statement Terwijl in Perl Creëren " target="_self">Hoe maak je een statement Terw…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93252.html" title="Hoe te converteren van Perl naar Python & AppEngine " target="_self">Hoe te converteren van Perl na…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93327.html" title="Hoe te gebruiken Notepad om een Perl- programma te compileren " target="_self">Hoe te gebruiken Notepad om ee…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/perl-programming/201309/93190.html" title="Wat Programming Language heet de Duct Tape van het internet ? " target="_self">Wat Programming Language heet …</a></td></tr><tr></tr></table></td>
</tr>
</table>
</td>
<td vAlign=top width=12></td>
<td vAlign=top width=375>
<table class=bian border=0 cellSpacing=0 cellPadding=0 width=375>
<tr>
<td height=244 vAlign=top>
<table border=0 cellSpacing=0 cellPadding=0 width="100%" bgColor=#dbe3ee>
<tr>
<td height=29 width="4%"> </td>
<td width="96%"><STRONG>Related Articles</STRONG></td>
</tr>
</table>
<table border=0 cellSpacing=4 cellPadding=0 width="95%" align=center height=209>
<tr>
<td height=201 width="33%"><IMG src="/img_xby/n1.jpg" width=111 height=182></td>
<td width="67%"><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96568.html' target="_self">Hoe maak je een Combo Box Maak in Visual…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96567.html' target="_self">Hoe maak je een Check Box Maak in Visual…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96566.html' target="_self">Hoe maak je een tekstvak maken in Visual…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96565.html' target="_self">Hoe maak je een optie Box in Visual Basi…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96564.html' target="_self">Hoe maak je een schijf keuzelijst in Vis…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96563.html' target="_self">Hoe kan ik een keuzelijst maken in Visua…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96562.html' target="_self">Hoe kan ik een Picture Box Maak in Visua…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96561.html' target="_self">Hoe een bestand keuzelijst Maak in Visua…</a><br><a class='LinkArticleCorrelative' href='/programmering/visual-basics-programming/201309/96560.html' target="_self">Hoe kan ik een afbeelding Box Maak in Vi…</a><br></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td vAlign=top width=8></td>
<td vAlign=top width=376>
<table class=bian border=0 cellSpacing=0 cellPadding=0 width=375>
<tr>
<td height=244 vAlign=top>
<table border=0 cellSpacing=0 cellPadding=0 width="100%" bgColor=#dbe3ee>
<tr>
<td height=29 width="4%"> </td>
<td width="96%"><STRONG>Programmering Articles</STRONG></td>
</tr>
</table>
<table border=0 cellSpacing=4 cellPadding=0 width="95%" align=center height=207>
<tr>
<td height=199 width="33%"><IMG src="/img_xby/n2.jpg" width=111 height=182></td>
<td width="67%">
<table width="100%" cellpadding="0" cellspacing="0"><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/php-mysql-programming/201309/91494.html" title="Hoe kan ik PHP Frameworks Gebruik " target="_self">Hoe kan ik PHP Frameworks Gebruik </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/computer-programming-languages/201309/87909.html" title="SetWarnings in Access 2007 " target="_self">SetWarnings in Access 2007 </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/cc-programming/201309/85320.html" title="Hoe maak je een Stickman maken in C + + " target="_self">Hoe maak je een Stickman maken in C + + </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/php-mysql-programming/201309/92513.html" title="Hoe te Escapetekens Uitvoeren naar bestand in PHP " target="_self">Hoe te Escapetekens Uitvoeren naar besta…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/computer-programming-languages/201309/86604.html" title="Hoe een vector in MATLAB verhogen " target="_self">Hoe een vector in MATLAB verhogen </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/python-programming/201309/93609.html" title="Hoe te Python Run From Bash " target="_self">Hoe te Python Run From Bash </a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/computer-programming-languages/201309/87579.html" title="Hoe maak je een Float een Int32 converteren " target="_self">Hoe maak je een Float een Int32 converte…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/computer-programming-languages/201309/87920.html" title="Hoe maak je een eenvoudige administratieve Task Script schrijven " target="_self">Hoe maak je een eenvoudige administratie…</a></td></tr><tr><td width="10" valign="top" class="">·</td><td class=""><a class="" href="/programmering/java-programming/201309/90372.html" title="Hoe maak je een JMS wachtrij wissen " target="_self">Hoe maak je een JMS wachtrij wissen </a></td></tr><tr></tr></table></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=970 align=center height=10>
<tr>
<td></td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=970 align=center height=57>
<tr>
<td class=bs background=/img_xby/di.jpg align=center>Copyright © Computer Kennis http://www.nldit.com <script language='javascript' src='/ad/201310/5.js'></script></td>
</tr>
</table>
<table border=0 cellSpacing=0 cellPadding=0 width=970 align=center height=10>
<tr>
<td></td>
</tr>
</table>
</div>
</body>
</html>
|
