Probleme mit crypt in Perl/CGI: Probleme mit crypt in Perl/CGI - #6971 (Perl/CGI)

pTschacK

2006-02-23 23:12

User since
2006-02-20
5 Artikel
BenutzerIn

update:
jetzt ist folgende version zu testzwecken online:
das passwort 'blablubb' (ohne quotes) müsste gehen.
trotzdem kommt die meldung dass es nicht geht...
http://www.attempted-arson.de/bonus-de.htm
über der meldung werden zwei dinge ausgegeben:
erstens das geratene passwort (ge'cryptet') : dann der erste eintrag der users datei

Code: (dl )

#!/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, "<users") or die "Can't open user list: $!\n";
my $P = <USERLIST>;
chomp($P);
if ( $P eq $guess ) { $THRU = "1"; };
while (my $PWS = <USERLIST>) {
      $PWS = chomp($PWS);
      if ( $PWS eq $guess ) { $THRU = "1"; };
  }
close USERLIST;
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body bgcolor=\"#000000\" text=\"#00FF00\" link=\"#FFFFFF\" vlink=\"#CCCCCC\" alink=\"#FFFFFF\" background=\"img/frame/bg.jpg\" bgproperties=\"fixed\">\n";
print "<table width=\"511\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">\n";
print "  <tr>\n";
print "    <td> <center>\n";
print " ${guess} : ${P} ";
if ($THRU eq "1") {
    print "Wilkommen\n";
 };
if ($THRU eq "0") {
 print "      <br>\n";
 print "      <br>\n";
 print "      <br>\n";
 print "      <br>\n";
 print "      <br>\n";
 print "      <br>\n";
 print "      <br>\n";
 print "      <br>\n";
 print "Zugang verweigert. Falscher code.\n"; 
};
print "    </td>\n";
print "  </tr>\n";
print "</table>\n";
print "</html>\n";
print "\n\n";
exit (0);

Das Problem liegt anscheinend bei

Code: (dl )

$PWS eq $guess

\n\n