Ας πούμε ότι έχετε μια ιστοσελίδα του οποίου οι πληροφορίες προορίζεται μόνο για ορισμένα άτομα , και δεν θέλετε απλά ο καθένας να πάρει την πρόσβαση . Ένας τρόπος για να τους αποτρέψει από την είσοδο στην απαγορευμένη περιοχή είναι να χρησιμοποιήσετε έλεγχο ταυτότητας φορμών . Αυτό συνήθως περιλαμβάνει τη δημιουργία μια σελίδα σύνδεσης , όπου οι χρήστες πρέπει να εισάγετε έναν κωδικό πρόσβασης . Αυτό το άρθρο θα δείξει πώς να προστατεύσει μια μυστική ιστοσελίδα ένθετα μέσα σε ένα πρόγραμμα CGI γραμμένο σε Perl . Άλλα server-side γλώσσες θα μπορούσαν να χρησιμοποιηθούν για να επιτευχθεί αυτό το έργο , όπως ASP.NET ή C , αλλά Perl προτιμάται εδώ για την ευελιξία του και τη σχετική ευκολία . Θα χρειαστεί και ενδιάμεση γνώση της Perl και τη γνώση των servers και FTP . Τα πράγματα που θα χρειαστείτε
επεξεργαστή κειμένου
αρχείο κωδικού πρόσβασης
Η Εμφάνιση Περισσότερες οδηγίες
ελέγχου ταυτότητας
Η 1
Δημιουργήστε μια σελίδα σύνδεσης κωδικού πρόσβασης στο πρόγραμμα επεξεργασίας κειμένου . Αυτό γίνεται σε HTML που καλεί ένα script CGI , όταν πιέζεται το κουμπί . Ένα παράδειγμα HTML script για να γίνει αυτό δίνεται παρακάτω :
ταυτότητας < /title> <body> <h1> ταυτότητας απαιτείται < /h1 > <hr> < όνομα = μέθοδος auth μορφή = δράση μετά = " cgi-bin/pwd_in.cgi " > Τύπος κωδικό : <INPUT type=password NAME="pwd" SIZE=15 MAXLENGTH=25> <p> < INPUT TYPE = υποβάλει VALUE = " Enter" > < /form > < /body> < /html > 2 <br> <p> Δημιουργήστε ένα αρχείο κωδικού πρόσβασης στο πρόγραμμα επεξεργασίας κειμένου σας, που περιλαμβάνει τα ονόματα χρήστη και κωδικούς πρόσβασης από τα άτομα που έχουν τον έλεγχο ταυτότητας να εισέλθουν η ιστοσελίδα . Οι πληροφορίες στο παρακάτω αρχείο έχει οριοθετημένο με προσαρμοσμένες ετικέτες XML . Μπορείτε να οριοθετήσει με ό, τι σας αρέσει? Τυχαίνει να βρείτε διαχωριστικά XML είναι πολύ ρεαλιστική . Αποθηκεύστε το αρχείο ως " pwds.txt . " <name> Mike Smith < /name> <pw> 123abc < /pw > <name> John Smith < /name> <pw> 456abc < /pw > < όνομα > Mary Smith < /name> <pw> 789abc < /pw > εικόνων <br> 3 <p> Δημιουργήστε το σενάριο CGI . Το παρακάτω CGI Perl script παίρνει την είσοδο του χρήστη και ελέγχει το κατά τις πληροφορίες στο αρχείο pwds.txt . Εάν ο κωδικός είναι σωστός , αυτό καλωσορίζει τον χρήστη από το όνομα και , στη συνέχεια, ανοίγει το απόρρητες πληροφορίες . Εάν ο κωδικός δεν έχει βρεθεί , ένα μήνυμα σφάλματος είναι τυπωμένο . " . Pwd_in.cgi " ! Αποθηκεύστε την ακόλουθη δέσμη ενεργειών ως # /usr /bin /perl - wprint " Content-type : text /html \\ n \\ n" ? <br> <p> Χρήση CGI ? <br> <p> $ q = νέα CGI ? $ pwd = $ q - > param ( « pwd ) ? $ cgi = νέα CGI ? <br> <p> ανοίξει ( ΑμεΑ , " < pwds.txt ")? $ error = " <h2> Wrong Password < /h2 > <hr> ! "? . ; <br> <p> ενώ ( <PWD> ) { <br> <p> αν ( /<name> ( * ) < \\ /name> <pw> < \\ /pw > /είναι ) { $ 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> εκτύπωσης " <head> < ? ! τίτλο > το μυστικό Σελίδα < \\ /title> < \\ /head> <h2> Hey $ name $ 1 { } , Χαίρομαι που θα μπορούσατε να κάνετε < /h2 > <hr> <p> Εδώ είναι η κορυφή απόρρητες πληροφορίες < /p > < \\ /body> " ? <br> <p> } } } <br> <p> print $ λάθος? <br> Η 4 <p> Ανεβάστε τα αρχεία . Ανεβάστε το αρχείο HTML στο φάκελο HTML σας και τα άλλα δύο αρχεία σας στο cgi - bin . <br> 5 <p> Χρησιμοποιήστε chmod με το αρχείο cgi . Μπορεί να χρειαστεί να δώσει άδειες για εξωτερικούς χρήστες να έχουν πρόσβαση σε αυτό το αρχείο . Να χορηγήσει άδεια , στο unix εντολών, πληκτρολογήστε : > $ " chmod 755 pwd_cgi " <br> Η 6 <p> Εκτελέστε το πρόγραμμα . Ανοίξτε το αρχείο και πληκτρολογήστε ένα αυθεντικό κωδικό . Θα πάρετε μια σελίδα που χαιρετά το όνομα που ο κωδικός πρόσβασης που συνδέονται με , καθώς και μια πρόταση που λέει , "Εδώ είναι το μυστικό των πληροφοριών. " Πληκτρολογήστε έναν κωδικό πρόσβασης ή κακή δεν υπάρχει κωδικός πρόσβασης , και θα λάβετε ένα μήνυμα σφάλματος . <br> Η <br> εικόνων
<div class="grad2"> <script async src="https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-3314932315682382" crossorigin="anonymous"></script> <!-- 221021-2 --> <ins class="adsbygoogle" style="display:block" data-ad-client="ca-pub-3314932315682382" data-ad-slot="8094203668" data-ad-format="auto" data-full-width-responsive="true"></ins> <script> (adsbygoogle = window.adsbygoogle || []).push({}); </script></div>
<div class="grad3"></div>
</div>
<div class="fanyedads">
<ul>
<li>Τελευταίο άρθρο: <a class='LinkPrevArticle' href='http://www.221021.com/Programming/perl-programming/93400.html' >Πώς να μετατρέψετε Flat αρχείων σε XML </a>
<li>Επόμενο άρθρο: <a class='LinkNextArticle' href='http://www.221021.com/Programming/perl-programming/93402.html' >Πώς να αφαιρέσει Αντίγραφα Από Array Perl </a>
</ul>
</div>
</div>
<div class="woqinimaderwr24">
<div class="dibud23">
<div class="biaotidas51">
<div class="biaotidas511"><h3>Συναφής σύστασή</h3></div>
<div class="butudasda"></div>
</div>
</div>
<div class="dibud24">
<div class="dibud241">
<ul class="dsa31das">
<li><a href="http://www.221021.com/Programming/perl-programming/93302.html" target="_blank">Πώς μπορώ να πάρω το μήκος ενός Ανώνυμος Array σε Perl </a></li>
<li><a href="http://www.221021.com/Programming/perl-programming/93295.html" target="_blank">Πώς να υπολογίσετε Ώρα Perl </a></li>
<li><a href="http://www.221021.com/Programming/perl-programming/93341.html" target="_blank">Οι μεταβλητές επίπεδο κατηγορίας σε Perl </a></li>
<li><a href="http://www.221021.com/Programming/perl-programming/93307.html" target="_blank">Τρόπος εντοπισμού σφαλμάτων Perl </a></li>
<li><a href="http://www.221021.com/Programming/perl-programming/93291.html" target="_blank">Πώς μπορώ να εκτυπώσω μια μεταβλητή με ένα CGI Perl </a></li>
</ul>
</div>
<div class="dibud242">
<div class="biaotidasoidasf3h4">
<h4>Τελευταία άρθρα</h4>
<div class="nibushihenzaiyi"></div>
</div>
<ul class="thydghaodennrend">
<li><a href="http://www.221021.com/Programming/perl-programming/93388.html" target="_blank">Τύποι MANET πρωτοκόλλων </a></li>
<li><a href="http://www.221021.com/Programming/perl-programming/93319.html" target="_blank">Πώς μπορείτε να διαπιστώσετε πόσα στοιχεία σε Array Χρησιμοποιώντας Perl </a></li>
<li><a href="http://www.221021.com/Programming/perl-programming/93206.html" target="_blank">Τι είναι ο σκοπός της Hidden Πεδία σε Perl CGI </a></li>
<li><a href="http://www.221021.com/Programming/perl-programming/93200.html" target="_blank">Τρόπος εξαγωγής των εγγραφών από πολλούς - Fasta Perl Αρχεία </a></li>
</ul>
</div>
</div>
</div>
<div class="dibudaohnagdsaw">
<div class="das342sd"><p>Πνευματικά δικαιώματα © <a href="http://www.221021.com/" target="_blank" >Γνώση Υπολογιστών</a> Όλα τα δικαιώματα κατοχυρωμένα </p></div>
</div>
</div>
</body>
</html>