Community  »  Perl: Allgemeines Forum

Crypt in MD5 ändern?	Seitenanfang
Tagchen, ich möchte folgenden Abschnitt ändern: if ($environment{has_uncrypted_password}) { $user{password} = $main->crypt($environment{has_uncrypted_password}->getPassword($main),$main->{settings}{pwseed}); } else { $user{password} =~ s/^\s*(.*?)\s*$/$1/; $user{password2} =~ s/^\s*(.*?)\s*$/$1/; $main->fatal_error('passwordsnotequal') if ($user{password} ne $user{password2}); $main->fatal_error('nopasswordgiven') if ($user{password} eq ""); $user{password} = $main->crypt($user{password},$main->{settings}{pwseed}); } delete($user{password2}); Hier wird mittels des $main->{settings}{pwseed} der Salt für die Verschlüsselung festgesetzt und dementsprechend das Passwort per crypt() verschlüsselt. Kann man die oben genannte Anweisung auf MD5 abändern, sodass die PW's nicht mit Crypt, sondern mit MD5 verschlüsselt abgelegt werden? Datum: 24.10.2006-23:17
re: Crypt in MD5 ändern?	Seitenanfang
HI, nach bisschen gebastel geht es nun... Aber: bis vor kurzem hab ich crypt() zum verschlüsseln meiner Kennwörter genutzt in Verbindung mit checkpassword: !$user{has_password}->checkpassword($main,$user{password} Nun hab ich das system auf MD5 geändert aber das einloggen klappt jetzt nicht mehr. Es heißt immer Passwort falsch... Habs auch so versucht: !$user{has_password}->cmd5checkpw($main,$user{password} geht aber auch net... Fehlt mir noch etwas?!? Bei der Registration läuft das so: [QUOTE]package XXX::Register; use strict; use Digest::MD5 qw(md5_hex); ......... if ($user{name} ne "" && $user{nick} eq "") { $user{nick}=$user{name}; } elsif ($user{nick} ne "" && $user{name} eq "" && !$main->{settings}{default}{is_username}) { srand; for (my $i=0;$i<100;$i++) { $user{name}=substr(md5_hex(rand(),$main->{settings}{pwseed}),2, ; last if (!$main->existsUser($user{name})); } } ......... $user{password} = md5_hex($user{password},$main->{settings}{pwseed});[/QUOTE] Vorher war es: [QUOTE]package GTChat::Register; use strict; ......... if ($user{name} ne "" && $user{nick} eq "") { $user{nick}=$user{name}; } elsif ($user{nick} ne "" && $user{name} eq "" && !$main->{settings}{default}{is_username}) { srand; for (my $i=0;$i<100;$i++) { $user{name}=substr($main->crypt(rand(),$main->{settings}{pwseed}),2, ; last if (!$main->existsUser($user{name})); } } ......... $user{password} = $main->crypt($user{password},$main->{settings}{pwseed});[/QUOTE] Die Registration klappt d.h. das Passwort wird mittels des in $main->{settings}{pwseed} definierten Passworts auch verschlüsselt und gespeichert. Nur klappt jetzt halt das einloggen nicht mehr. Kann mir jemand helfen? Datum: 25.10.2006-00:20