On Thursday, July 11, 2002, at 04:44 AM, Hiroyuki OYAMA wrote:
> クレイフィッシュの小山です。
>
> Perlからcrypt()がDESベースかMD5ベースかを判定する手近な方
> 法って何がありえますか?
*BSDに限って言えば、非常に単純な手法が使えます。
$isDES = !($crypted =~ /^\$/o);
なぜそうなのかは man 3 crypt にて。
わりとまっとうそうなのは
$isDES =~ ($crypted =~ /^[\.\/0-9A-Za-z]{13}$/o);
かな。少なくともMD5の場合にはもっと長くなるので、これで判別がついたと思
います。
Dan the Crypted Man