MD5 HASH & Perl

[byteware]

I don't know perl and need to convert this to PHP4.

If this simply a standard MD5 hash? md5()

Any help would be apreciated.

---

sub mymd5
{
my $x = $user . $password . $_[0] ;
my @mat ;
my $b = $x ;
for $i (0 .. length($x)/2)
{
push @mat,repeater($b) ;
$b = substr($b,1,length($b)-1) ;
}
my $c = '' ;
for $j ( 0 .. 127)
{
for $i (0 .. length($x)/2)
{
$c .= substr($mat[$i],$j,1) ;
}
}
$c1 = substr($c,0,length($c)/2) ;
$c2 = substr($c,length($c)/2+1,length($c)) ;
$result = '' ;
for $i ( 0 .. length($c)/2)
{
$x = substr($c1,$i,1) ;
$y = substr($c2,$i,1) ;
$result .= ((ord($x)3+ord($y)7) % 11) % 10 ;
}
substr($result,length($result)/3,32) ;
}

sub repeater
{
my $x = shift ;
my $b = $x ;
while (length($b) < 128)
{
$b .= $b ;
}
substr($b,0,128) ;
}

[diego25]

http://www.php.net/md5

Diego

[byteware]

Thank you for the reference, however...

My question is:

Is the perl code I posted a standard MD5 hash? I need to convert to PHP4.

The other end of the transaction uses the perl code I posted - I would like to use PHP4 on my end.

Will md5("proper vars") on my end - match the key created with the perl code on the other end?

[diego25]

Will md5("proper vars") on my end - match the key created with the perl code on the other end?

I think the best way to answer that is to try it yourself 🙂

Diego

[byteware]

It's not exactly that easy - or I would have done that already 🙁

[Weedpacket]

No, that's not an MD5 hash - MD5 looks very different.

FYI I've attached a Javascript implementation of MD5.

Are you saying you want that code ported to PHP? That would be a pretty simple task.

[byteware]

Yes -

I need to create the EXACT key in PHP that this Perl code would generate.

Thank you for the JavaScript. I'm looking it over now.

[Weedpacket]

RFC1321's official residence is at the IETF

Here's a PHP port of the Perl code. I've renamed it "myhash()" 'cos it's not an md5 🙂 - note that since the Perl code uses two global variables ($user, $password), then either they need to be declared global in the definition of the myhash function (as I've done here), or passed to it as additional arguments.

function repeater($x)
{	while (strlen($x) < 128)
		$x .= $x;
	return substr($x,0,128);
}

function myhash($string)
{	global $user, $password;
	$x = $user . $password . $string ;
	$mat = array();
	$b = $x;
	for($i=0; $i<=strlen($x)/2; ++$i)
	{	$mat[]=repeater($b);
		$b=substr($b,1,strlen($b)-1);
	}
	$c='';
	for($j=0; $j<128; ++$j)
		for($i=0; $i<=strlen($x)/2; ++$i)
			$c.=$mat[$i]{$j};
	$c1=substr($c,0,strlen($c)/2);
	$c2=substr($c,strlen($c)/2+1,strlen($c));
	$result='';
	for($i=0; $i<=strlen($c)/2; ++$i)
		$result .= ((ord($c1{$i})*3+ord($c2{$i})*7)%11)%10;
	return substr($result, strlen($result)/3, 32);
}