#!/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($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"; 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);