Dear Friends, I need to trnaslate thid code to PHP. Can any one help me? Tnx
use constant MD5_CRYPT_MAGIC_STRING => '$1$'; use constant I_TO_A64 => './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; sub _to_yahoo_base64 { pos($_[0]) = 0; my $res = join '', map( pack('u',$_)=~ /^.(\S*)/, ($_[0]=~/(.{1,45})/gs)); $res =~ tr{` -_}{AA-Za-z0-9\._}; my $padding = (3 - length($_[0]) % 3) % 3; $res =~ s/.{$padding}$/'-' x $padding/e if $padding; return $res; } sub _to64 { my ($v, $n) = @_; my $ret = ''; while (--$n >= 0) { $ret .= substr(I_TO_A64, $v & 0x3f, 1); $v >>= 6; } $ret; } my $Magic = MD5_CRYPT_MAGIC_STRING; $salt =~ s/^\Q$Magic//; $salt =~ s/^(.*)\$.*$/$1/; $salt = substr $salt, 0, 8; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]