ぜろちゃんねるスクリプトを改造するスレ Part2

45 ：名無しさん＠ぜろちゃんねる：2009/05/09(土) 10:54:24 ID:oK+ath/k0

動作保証はしません。
galadriel.plのMakeIDのところを変える

sub MakeID
{
my $this = shift;
my ($server,$column,$hosts) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str,$capID);

# 種の生成
#ezweb端末番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'}
$host = substr($host , 3 , 4) #上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3) #上から三つ取得
}
#端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/; #上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # ez番号を分解
$host = substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1); # 上位3つの1桁目取得;
}
$str = $host . substr(crypt($server,$times[4]),-5); # server名結合
$column = -1 * $column;
# IDの生成
$ret = substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret =~ s/\./+/g;
return $ret;
}

vara.plの135行目あたり
$id = $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOST'));
に変更