バグ報告スレ

32 ：名無しさん＠ぜろちゃんねるプラス：2013/06/14(金) 23:47:35.34 ID:kmjQYhmE0

>>30さんとは、別人ですがgaladriel.plのID生成に問題があります。
# 種の生成　で同じ$uidを取得した時、年が変わっても桁数が変化するまで
最長で10年間、同じ月日で同じIDが生成されます。(環境に依存した問題かも知れませんが、当方では再現性アリです)
以下、簡単な修正案です。

@635-639

-# 桁を設定
-$column *= -1;
-
-# IDの生成
-my $ret = substr(crypt(crypt($uid, $times[5]), $times[3] + 31), $column);

use Digest::MD5;
my $md5 = Digest::MD5->new;
$md5->add("$uid.$times[3].$times[4].$times[5]");
my $ret = substr($md5->b64digest, 0, 8);

日替わりで、ある程度の長さのSALTを生成可能なら
my $uid_hex = md5_hex($uid);
$md5->add(substr($uid_hex,-4));
に続けてSALTやbbsを追加しても良いと思います。