【 スクリプト改造工房 PART 5 】

[0904 nobodyさん 03/03/04 01:44 ID:???]

>>900
$name =~ s/◆/◇/g;

my ($k,$s,$t,$n); # key salt trip name

$_ = $name;
if (/#(\S+)/){
$k = substr($name,index($name,'#')+1);
$n = substr($name,0,index($name,'#'));
$s = substr(substr($k,0,8).'H.', 1, 2);
$s =~ s/[^\.-z]/\./go;
$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$t = substr(crypt($k, $s), -10);
if ($n ne ""){
$name = "$n </b>◆$t <b>";
}else{
$name = "</b>◆$t <b>";
}
}

スキン
# 名前に項目を付けて表示する。
$LOG_name = ($LOG_name ne "") ? "<b>$LOG_name<\/b>" : '';
# 名前に項目を付けて表示する。
$RES_name = ($RES_name ne "") ? "<b>$RES_name<\/b>" : '';