Perlについての質問箱 32箱目
■ このスレッドは過去ログ倉庫に格納されています
0458 ◆PQZNeK2U46
2007/09/10(月) 09:38:04トリップは以下のコードで生成されるらしいのですが、これに辞書からトリップを作る機能を付け加えるとなると、難しいですか?
$tripkey = "#istrip";
$tripkey = substr($tripkey,1,);
$salt = substr($tripkey.'H.',1,2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = crypt($tripkey,$salt);
$trip = substr($trip,-10);
$trip = '◆'.$trip;
print "$trip";
■ このスレッドは過去ログ倉庫に格納されています