File Manager

✏️ Edit File: /home/vps100806676/www/photoloc/docomo/photoloc/docomo/ssid.cgi

#!/usr/bin/perl
#
# iアプリインストール(iモードパスワード方式)SSID取得プロキシーCGI.
#
# インストールページを配置するwebサーバーがDocomoの許可を持っていない場合
# (DNS逆引きができないなど)、Docomoに申請したサーバーに本CGIを置いて
# プロキシー的にSSIDを取得します。
#
# CGIパラメータとして xpid, pass, sid(サービスコード)が必要です。
#
#
use strict;
use warnings;
use Encode;

use CGI;
use LWP::UserAgent;
use HTTP::Request::Common;

use constant {
	URL        => 'https://iapplidx.docomo.biz/devif/if-sf20-01',
	IFID       => 'IF-SF20-01',
};

our $cgi = new CGI();

# ===========  functions ============ #

###
### HTTP正常応答を出力する.
### 現在の実装では、特に文字列の内部表現を考慮せず、引数をそのままprintしています。
###
### @param $html String
### @param $code String HTTP応答コード(省略時は 200 OK )
sub httpOut($;$) {
	my $html = shift;
	my $code = shift || '200 OK';
	
	print $cgi->header(
		-status  => $code,
		-type    => 'text/html',
		-charset => 'UTF-8',
	);
	
	print Encode::is_utf8($html) ? Encode::encode("utf8", $html) : $html;
	exit(0);
}

###
### HTTPアクセスを実行し、住所を取得する.
###
### @return String (エラー時はundef)
sub httpPost($$$) {
	my $xpip = shift;
	my $pass = shift;
	my $sid  = shift;
	
	my %params = (
		password  => $pass,
		ifid      => IFID,
		sid       => $sid,
		xp_id     => $xpip,
	);
	
	my $req = HTTP::Request::Common::POST( URL, [%params] );
	$req->referer( 'http://'. $ENV{'HTTP_HOST'} );
	
	my $ua  = new LWP::UserAgent();
		
	$ua->timeout( 70 );

my $res = $ua->request($req)
			or return undef;

if ( $res->is_success() ) {
		return $res->content();
	} else {
		return undef;
	}
}

# ===========  Main ============ #

my $xpip = $cgi->param('xpid') or httpOut('', 400);
my $pass = $cgi->param('pass') or httpOut('', 400);
my $sid  = $cgi->param('sid')  or httpOut('', 400);

my $response = httpPost($xpip, $pass, $sid);

if ( !! $response ) {
	httpOut( $response );
} else {
	httpOut( '', 500 );
}
		
exit(0);

Batal

⬅ Naik ke photoloc 5 item

Nama	Tipe	Ukuran	Diubah	Aksi
📁ALFA_DATA	dir	—	2026-06-03 11:08	📂 Buka
📝README.md	md	404 B	2026-05-01 02:43	✏️ Edit 👁️ View
📄ssid.cgi	cgi	2.1 KB	2013-12-03 08:10	✏️ Edit 👁️ View
🐘ssid.php	php	3.6 KB	2026-05-03 18:01	✏️ Edit 👁️ View
📄ssid_org.cgi	cgi	2.1 KB	2013-12-03 08:10	✏️ Edit 👁️ View