#!/usr/bin/perl use strict; use warnings; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); my $THRU = "0"; my $PASSWORD = param('code'); my $salt = substr $PASSWORD, 0, 2; my $guess = crypt($PASSWORD, $salt); open(USERLIST, "; chomp($P); if ( $P eq $guess ) { $THRU = "1"; }; while (my $PWS = ) { $PWS = chomp($PWS); if ( $PWS eq $guess ) { $THRU = "1"; }; } close USERLIST; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print "

\n"; print " ${guess} : ${P} "; if ($THRU eq "1") { print "Wilkommen\n"; }; if ($THRU eq "0") { print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "Zugang verweigert. Falscher code.\n"; }; print "

\n"; print "\n"; print "\n\n"; exit (0);