PHPで同じことがしたいのですが

質問

はじめて書き込みます。

perlだと思うのですが、以下のコード（パスワードを暗号化して返す）と同じ結果が得られるようにPHPに書き換えたいと思っています。（perlはしたことがありません・・・）

local(@f_pass) = @_;
local($now) = time;
local(@ciphset) = ('a'..'z','A'..'Z','0'..'9','.','/');
local($p1,$p2,$wk,$crypton);

($p1, $p2) = unpack("C2", $now);
$wk = $now / (60*60*24*7) + $p1 + $p2 - 8;
$crypton = $ciphset[$wk % 64] . $ciphset[$now % 64];
if($f_pass[1] == 2){ $crypton = '$1$' . $crypton; }
$f_pass[0] = crypt($f_pass[0], $crypton);

return $f_pass[0];

cryptを使っているのではとは思うのですが、指定文字列がなんなのか分かり兼ねています。

1週間程悩んだのですが、$1$がmd5に関係していることくらいまでしかわかりませんでした。

どうか、以下のコードで得られた結果をPHPでも同じ結果になるようにお教えいただけませんでしょうか。

よろしくお願いします。

回答No.1

t-okura · ベストアンサー

質問先としては、ここよりも、[技術者向] コンピューター >プログラミング >PHP の方がよかったでしょうね。

PHP で同じ結果を得るには下記の php_crypt のような関数を作ればよいです。

<?php
function php_crypt($pass, $salt_id) {
$now = time();
$ciphset = array_merge( range('a', 'z'), range('A', 'Z'), range('0', '9'), array('.', '/') );
$p = array_merge(unpack( "C2", $now ));
$wk = $now / ( 60 * 60 * 24 * 7 ) + $p[0] + $p[1] - 8;
$salt = $ciphset[ $wk % 64 ] . $ciphset[ $now % 64 ];
if ( $salt_id == 2 ) { $salt = '$1$' . $salt; }
$crypted_pass = crypt( $pass, $salt );
return $crypted_pass;
}
print php_crypt( "hello", 2 )."\n"; # ここは php_crypt のテスト
print php_crypt( "hello", 3 )."\n"; # ここは php_crypt のテスト
?>

お礼

大変遅くなり、申し訳ございません。

助かりました。

ありがとうございました！