MD5 nicht checkpassword fähig?

TrioxX

Hi,

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:

Zitat:

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});

Vorher war es:

Zitat:

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});

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?

(hier klicken, um zum Original Thread zu gelangen)