Netware Perl & Crypt() Function

[mbeckstrom]

The crypt() function is unimplemented due to excessive paranoia.

This error message. I know from my research that the crypt() function is
not present in the Netware port of Perl. I am using Netware 6.5 sp3.
There are many discussions about how to not use the crypt function or how
to use another crypt like unixcrypt. But no one has posted how to use
another crypt like unixcrypt. I am not a developer so I need clear
instructions on how to install unixcrypt and use it.

Thanks!

matt...

[Dave Bank]

Post by mbeckstrom
another crypt like unixcrypt. I am not a developer so I need clear
instructions on how to install unixcrypt and use it.

Adding a compiled Perl module to NetWare is a non-trivial exercise. If you
can find the function in simple Perl source, that would probably be easier.

[Matt Beckstrom]

Ok. I was kind of getting the feeling that adding a complied module wasn't an easy task. Your suggestion would lead me to ask another question: What do I do to the perl code to remove the crypt function. I know that with PHP, I just substituted md5() for crypt() and it worked just fine. Is it that simple with perl? Can I just change the crypt function to something else? Here is the code: (this is only one of about three different places it occurs)

sub login {
my ($self,$password) = @_;
unless ($self->{'_is_valid'}) {
$self->setErrorMessage(&main::getMessage("USER_USER_NOT_FOUND",$self->{'username'}));
return 0;
}
if ($self->{'username'} eq "anonymous") {
return 1;
}
if ($self->{'password'} eq "") {
return 2;
}
if (crypt($password,$self->{'password'}) eq $self->{'password'}) {
return 1;
}
else {
$self->setErrorMessage(&main::getMessage("USER_INVALID_PASSWORD"));
return 0;
}
}

Thanks!

matt...

Post by mbeckstrom
another crypt like unixcrypt. I am not a developer so I need clear
instructions on how to install unixcrypt and use it.

Adding a compiled Perl module to NetWare is a non-trivial exercise. If you
can find the function in simple Perl source, that would probably be easier.