converting php md5 function to perl

[checarsner]

Hey all

how I can convert the PHP password encryption into a Perl function
which generates the same result...
I am completely stuck at this point... My PHP knowledge is close to
zero. I understand their procedure but when I do it in Perl it comes
back with a different result...
in PHP: $newPw["userPassword"] = '{md5}' .
base64_encode(pack('H*',md5($newPasswd)));
sorry the help file is a place where we deffinitly will not find
anything..
the problem is not, understanding what the PHP code is doing. The issue
is to make Perl do the same.

TIA

Che

 

[Scott Bryce]

how I can convert the PHP password encryption into a Perl function
which generates the same result...

I'd start here:

http://search.cpan.org/~gaas/Digest-MD5-2.36/MD5.pm

 

[John]

Hi

I've pulled this from my site

use Digest::MD5 qw (md5_hex); # 32 character hex hash
my $hash=uc(md5_hex($message)); # uppercase

Regards
John

 

[checarsner]

Thanks for the answer John. Would you be willing to explain the
transition from the php version to the perl version? It seems like we
are missing an encryption step to me.

Hi

I've pulled this from my site

use Digest::MD5 qw (md5_hex); # 32 character hex hash
my $hash=uc(md5_hex($message)); # uppercase

Regards
John

Hey all

how I can convert the PHP password encryption into a Perl function
which generates the same result...
I am completely stuck at this point... My PHP knowledge is close to
zero. I understand their procedure but when I do it in Perl it comes
back with a different result...
in PHP: $newPw["userPassword"] = '{md5}' .
base64_encode(pack('H*',md5($newPasswd)));
sorry the help file is a place where we deffinitly will not find
anything..
the problem is not, understanding what the PHP code is doing. The issue
is to make Perl do the same.

TIA

Che