Dotaz: Prepis skriptu z Perlu do PHP

[Marek]

Zdravim,

potrebuji nasledujici skript v perlu prepsat do PHP, ale nejak se mi nedari dosahnout stejne funkcnosti

Skript v PERLu:

use MD5;

my $password = "eee";
my $chap_password = pack("H*", $ENV{'CHAP-Password'});
my $chap_challenge = pack("H*", $ENV{'CHAP-Challenge'});

my $md5 = new MD5;

$md5->reset;
$md5->add(substr($chap_password, 0, 1));
$md5->add($password);
$md5->add($chap_challenge);

if($md5->digest() ne substr($chap_password, 1))
{
   exit 255;
}

exit 0;

A skript v PHP:

$password       = "eee";
$chap_password  = pack("H*", getenv("CHAP-Password"));
$chap_challenge = pack("H*", getenv("CHAP-Challenge"));

$md5 = md5(substr($chap_password, 0, 1) . $password . $chap_challenge);

if($md5 != substr($chap_password, 1))
   exit(255);
else
   exit(0);

Jedna se o kod, ktery pro RADIUS overuje CHAP.. perlu fakt nerozumim, prosim pomozte..

diky

Na otázku zatím nikdo bohužel neodpověděl.