File Manager

✏️ Edit File: /home/vps100806676/public_html/photoloc/docomo/ssid_20161109.cgi

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

use CGI;
#use IO::Socket::SSL qw( inet4 debug3 );
use IO::Socket::SSL qw( inet4 debug3 );
use Net::SSLeay;
use LWP;
use LWP::Protocol::https;
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アクセスを実行し、SSIDを取得する.
###
### @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'} );

### 2015.09.17 -> 2016.11.09 ###	
	my $ua  = new LWP::UserAgent( );
#	my $ua  = new LWP::UserAgent( ssl_opts => { SSL_version => 'SSLv3', verify_hostname => 0 } );

$ua->timeout( 70 );

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

if ( $res->is_success() ) {
		return $res->content();
	} else {
		print STDERR "!!!DEBUG!!! code:". $res->code ." message:". $res->message ." ". IO::Socket::SSL::errstr();
#		return STDERR "!!!DEBUG!!! code:". $res->code ." message:". $res->message ." ". IO::Socket::SSL::errstr();
		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( $xpip ." ". $pass ." ". $sid, 500 );
}
		
exit(0);

Batal

⬅ Naik ke photoloc 5 item

Nama	Tipe	Ukuran	Diubah	Aksi
📁photoloc	dir	—	2026-05-01 02:43	📂 Buka
📝README.md	md	404 B	2026-05-01 02:43	✏️ Edit 👁️ View
📄ssid.cgi	cgi	2.7 KB	2018-09-15 09:23	✏️ Edit 👁️ View
📄ssid_20161109.cgi	cgi	2.7 KB	2018-09-15 08:28	✏️ Edit 👁️ View
📄ssid_org.cgi	cgi	2.5 KB	2015-09-17 14:27	✏️ Edit 👁️ View