09/01/11 22:56:12
久々に来たらいつの間にか過疎スレのクソスレになっていてショックだった。
>>178
CGIなしでsetting.txtを置くだけ
>>180
sub get_id {
my $ip = $ENV{'REMOTE_HOST'};
my $day = ( localtime )[3];
my $md5 = Digest::MD5->new();
my $ipmd5 = substr( md5_hex( $ip ), -4 );
$md5 -> add( $ipmd5 );
$md5 -> add( $bbs );
$md5 -> add( $day );
$md5 -> add( $rand );
my $id = substr( $md5->b64digest, 0, 8 );
return $id;
}
# printf "ID:%s", &get_id( 'bbskey', 'rand' );