したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

プログラムスレッド

3：女傑 ◆nDpXSJz8i.：2012/03/05(月) 14:33:21 ID:hQMLjY7Y0
>>2
の続きです。

#!/usr/bin/perl

$act = $ENV{'QUERY_STRING'};
$act =~ s/\.//g; # 安全対策
$act =~ s/\///g;
$act =~ s/&/&/g;
$act =~ s/"/"/g;
$act =~ s/</</g;
$act =~ s/>/>/g;

$lll = referer_name();
$os = get_os_name();
$addr = $ENV{'REMOTE_ADDR'};
$addr =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.***.$3.***/g;
$host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2);
$host =~ tr/0-9/*/;
$ID = $ENV{'HTTP_X_DCMGUID'};
$ID = $ENV{'HTTP_X_UP_SUBNO'};
my $UA = $ENV{'HTTP_USER_AGENT'};
my $ID = '';
if ($UA =~ /^J-PHONE|^Vodafone|^SoftBank/) {
if ($UA =~ /\/SN([A-Za-z0-9]+)\ /) {
$ID = $1;
}
}
if ($ID eq '') { $ID = "携帯ではない";}
$makerID = "携帯の識別番号 ".$ID;

print "Content-type: text/html\n\n";
print "<html><head>\n";
print '<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">' . "\n";
print "<title>IPcheck</title></head>\n";
print "<body>\n";
print "リモートアドレス $addr<br>\n";
print "OSの名称 $os<br>\n";
print "$makerID<br>\n";
print "アクセス元分析 $lll<br>\n";
print "リモートホスト $host<br>\n";
print "</body></html>\n";

exit;

sub get_os_name
{
local $name;

$_ = $ENV{"HTTP_USER_AGENT"};

if (/Windows/i) { $name = "Windows"; }
elsif (/Mac/i) { $name = "MacOS"; }
elsif (/Linux/i) { $name = "Linux"; }
else { $name = "unknown"; }

return $name;
}

sub referer_name
{
local $name;

$_ = $ENV{'QUERY_STRING'};

if (/guid=on/i) { $name = "DOCOMO携帯"; }
elsif (/0101/i) { $name = "xxxxxx"; }
elsif (/0202/i) { $name = "xxxxxx"; }
elsif (/0000/i) { $name = "私のとこからやな。<br>ありがとー"; }
else { $name = "アクセス元不明"; }

return $name;
}
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板