Hi Hanü!
Ist nicht so schlimm wegen dem Script. Als ich jetzt durchgegangen bin habe ich mir teilweise auch an den Kopf gegriffen.
Aber ich habe hier mal eine kommentierte Version des Scriptes, die dich hoffentlich zufrieden stellt ;-)
Wenn nicht, dann meld dich einfach nochmal!
--- Code ---
#!/usr/local/bin/perl
$passwd_pfad = "/....../ollli/.htpasswd";
# ist klar
$passwdbackup = "/......./ollli/.htpass2";
# genauso klar
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Einlesen der gesendeten Daten
# STDIN ist der StandardInput, sprich die Daten, die empfangen werden
@pairs = split(/&/, $buffer);
# splittet die Daten auf, sprich aus
# name=ollli&pass1=123456&pass2=123456&passold=654321
# wird @paris = ("name=ollli","pass1=123456" .....
# es wird also ein array erzeugt, wobei immer nach dem "&" abgeschnitten wird
# und das "&" auch noch entfernt wird
foreach $pair (@pairs)
# für jedes Array-Element
{
($name, $value) = split(/=/, $pair);
# jetzt kommt die Aufteilung
# in feldname und dem dazugehörigen Wert diesmal ist "=" das Trennzeichen
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
# diese Anweisungen eben haben die Inhalte der Fomulare wieder
# "brauchbar" gemacht - es wurden zum Beispiel die + durch Leerzeichen
# ersetzt oder html-tags entfernt und die Hex-Codes zu den ent-
# sprechenden Zeichen umgewandelt
$FORM{$name} = $value;
# hier kommt dann dein gewünschter Hash ;-)
}
# die folgenden Variablenzuweisungen sind eigentlich nicht nötig, doch
# damals hielt ich es eben für nötig ;-)
$passold = $FORM{'passold'};
$pass1 = $FORM{'pass1'};
$pass2 = $FORM{'pass2'};
$name = $FORM{'name'};
$i = 0;
# frag mich nicht, warum ich diese Zeile eingebaut hatte, die kannste
# rauslöschen
&candc;
# prozeduraufruf oder auch Aufruf der Subroutine ;-)
sub austausch()
# Prozedur für Passwortänderung
{
open(PWL, "$passwd_pfad") || &error("Kann Passwort-Datei nicht öffnen: $!");
@pwl = <PWL>;
close(PWL) || &error("Kann Passwort-Datei nicht schließen: $!");
# die drei Zeilen erklärten sich von selbst, oder?
open(BKP,">$passwdbackup") || &error("Kann Sicherungsdatei nicht öffnen: $!");
#noch fix ein Backup anfertigen, sowas ist immer wichtig
open(PWL,">$passwd_pfad") || &error("Kann PWL-DAT nicht öffnen: $!");
foreach $line (@pwl) # jetzt jede Zeile der Datei durchgehen
{
print BKP $line;
# die Zeile komplett ohne Änderungen ins Backup schreiben
($user, $pw) = split(/:/,$line);
# jetzt username und pw trennen
chomp($pw);
# newline am Ende des pw entfernen
if($user eq $name && $pw eq $cpassold)
# verlgeichen der Daten
{
print PWL "$name:$cpassnew\n";
# neue Daten schreiben, wenn Vergleich
# erfolgreich war
}
else
{
print PWL $line;
# anderfalls die Zeile aus der alten Datei übernehmen
}
}
# Statusvericht --> der ist ja variabel
print "Content-type: text/html\n\n";
print "<html><head><title>Alles glatt verlaufen</title></head>\n";
print "<body>Das Passwort wurde geändert!</body>";
print "\n</html>";
}
sub candc()
# Prozedur zum Checken der Eingaben und zum verschlüsseln vom pw
{
$vorhanden = "nein";
# für spätere Abfrage nötig
$cpassold = crypt($passold, "YL");
# eingegebenes pw verschlüsseln
if($pass1 ne $pass2)
# die neuen pws vergleichen
{
&error("Die beiden neuen Passwörter stimmen nicht überein, bitte korrigieren Sie");
# Fehlermeldung wenn sie unterschiedlich sind
}
else
{
open(PWL,"/data1/virtualave.net/ollli/.htpasswd") || &error("Kann PWL-DAT nicht öffnen: $!");
@pwlist = <PWL>;
close(PWL);
# pw-Datei öffnen und auslesen
foreach $pl (@pwlist)
# jede Zeile in der pw-Datei durchgehen
{
($user, $pw) = split(/:/, $pl);
chomp($pw);
# die beiden Zeilen siehe oben
if(($user eq $name) && ($pw eq $cpassold))
# vergleichen von pw und
# username
{
$cpassnew = crypt($pass1, "YL");
# neues pw verschlüsseln
$vorhanden = "ja";
# status ändern
}
}
if($vorhanden eq "ja")
# status checken
{
&austausch;
# pw ändern
}
else
# oder Fehlermeldung ausgeben
{
&error("Benutzername und Kennwort passen nicht zueinander, bitte beide Eingaben überprüfen!");
}
}
}
sub error()
# Fehlermeldung, selbsterklärend würde ich sagen
{
print "Content-type: text/html\n\n";
$message = $_[0];
if($message =~ /Kann/)
# ein Tipp, er sucht nach "Kann" in der mitgeliferten
# Fehlermeldung und entscheided sich dann für eine Ausgabe oder nicht
# diese Abfrage ist letztendlich auch sinnlos, da teilweise kein "Kann" in
# den Meldungen enthalten ist
{
print $message;
}
else
{
print ("
<html>
<head>
<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">
<title>Passwortänderung</title>
</head>
<body bgcolor=\"#ffffff\">
<form name=\"formular\" action=\"/cgi-bin/htpwch.pl\" method=\"post\">
<p>$message<br>
<br>
Benutzername: <input type=\"text\" name=\"name\" size=\"24\" value=\"$name\"><br>Altes Passwort: <input type=\"password\" name=\"passold\" size=\"24\" value=\"\"><br>
Neues Passwort: <input type=\"password\" name=\"pass1\" size=\"24\" value=\"\"><br>
Neues Passwort wiederholen: <input type=\"password\" name=\"pass2\" size=\"24\" value=\"\"><br>
<br>
<input type=\"submit\"> <input type=\"reset\"></p>
</form>
<p></p>
</body>
</html>
")
}
}
--- Code End ---
Nochmal kurz zu meinen "Anfangszeiten":
Man sieht es zum Beispiel an dem sinnlos deklariertem "$i" oder daran, dass ich in Prozeduren mit globalen Variablen arbeite oder an meiner "Message-Abfrage". Dann sicherlich noch an ein paar anderen Punkten, welche mir jetzt um diese Zeit nicht aufgefallen sind ;-)
Du kannst es also nur noch besser machen, das Script! :-)
Tschö
Olli
Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.
