開発記録 2009/05/25
2009 年 5 月 25 日
コメントはありません

#!/usr/bin/perl use strict; use warnings; use CGI; my $cgi=CGI->new(); print($cgi->header("text/plain")); #トリップ算出 my $tripkey=$cgi->param("key"); my $salt=substr($tripkey."H.",1,2); $salt=~s/[^\.-z]/\./go; $salt=~tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/; print(substr(crypt($tripkey,$salt),-10));