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

プログラムスレッド

2：女傑 ◆nDpXSJz8i.：2012/03/05(月) 14:32:08 ID:hQMLjY7Y0
BIG-serverさんの携帯固有番号取得のページを参考にして、環境変数を
表示するCGI(Perl)スクリプトを作ってみました。
まだまだ開発段階であり、今のところ一般公開できるのが今回のプロト
タイプ（α版）のみになります。

#! /usr/local/bin/perl

$imode = imodechk();
if ($imode eq 'guid=on') { $refne = $imode;}
else { $refne = referer_name(); }
($i,$user) = split(/=/,$refne);

print "Location: http://xxxxxxx.com/" . "ipcheck.cgi?$refne\n\n";


sub imodechk
{
local $name;

$_ = $ENV{'REMOTE_ADDR'};

if (/210.153.84.0/i) { $name = "guid=on"; }
elsif (/210.136.161.0/i) { $name = "guid=on"; }
elsif (/210.153.86.0/i) { $name = "guid=on"; }
elsif (/124.146.174.0/i) { $name = "guid=on"; }
elsif (/124.146.175.0/i) { $name = "guid=on"; }
elsif (/202.229.176.0/i) { $name = "guid=on"; }
elsif (/210.153.86.0/i) { $name = "guid=on"; }
elsif (/202.229.176.0/i) { $name = "guid=on"; }
elsif (/202.229.177.0/i) { $name = "guid=on"; }
elsif (/202.229.178.0/i) { $name = "guid=on"; }
elsif (/203.138.180.0/i) { $name = "guid=on"; }
elsif (/203.138.181.0/i) { $name = "guid=on"; }
elsif (/203.138.203.0/i) { $name = "guid=on"; }
elsif (/210.153.84.0/i) { $name = "guid=on"; }
elsif (/210.153.86.0/i) { $name = "guid=on"; }
elsif (/124.146.174.0/i) { $name = "guid=on"; }
elsif (/124.146.175.0/i) { $name = "guid=on"; }
elsif (/202.229.176.0/i) { $name = "guid=on"; }
elsif (/202.229.177.0/i) { $name = "guid=on"; }
elsif (/202.229.178.0/i) { $name = "guid=on"; }
elsif (/210.153.87.0/i) { $name = "guid=on"; }
else { $name = ""; }

return $name;
}

sub referer_name
{
local $name;

$_ = $ENV{'HTTP_REFERER'};

if (/yahoo/i) { $name = "0101"; }
elsif (/msn/i) { $name = "0202"; }
elsif (/xxxxx.com/i) { $name = "0000"; }
else { $name = ""; }

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

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

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

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

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