> 2009/08/23 (日) 22:46:03 ◆ ▼ ◇ [qwerty]> > 処理ロジックをいじる必要があるよ(;´Д`)こんな感じ(CGIProxy 2.1beta19)
> > # Create Referer: header if so configured.
> > # Only include Referer: if we successfully remove $script_url+flags from
> > # start of referring URL. Note that flags may not always be there.
> > # If using @PROXY_GROUP, loop through them until one fits. This could
> > # only be ambiguous if one proxy in @PROXY_GROUP is called through
> > # another proxy in @PROXY_GROUP, which you really shouldn't do anyway.
> > if (!$e_hide_referer) {
> > my($referer)= $ENV{'HTTP_REFERER'} ;
> > if (@PROXY_GROUP) {
> > foreach (@PROXY_GROUP) {
> > print(S 'Referer: ', &wrap_proxy_decode($referer), "\015\012"), last
> > if $referer=~ s#^$_(/[^/]*/?)?## && ($referer ne '') ;
> > last if $referer eq '' ;
> > }
> > } else {
> > #QWERTY i-modeリファラチェック対応
> > my $qwerty_sw = 0;
> > if( $referer eq ''){
> > if( $host eq 'qwerty.on.arena.ne.jp'){
> > if( $request_uri =~ /^\/cgi-bin\/bbs.cgi/){
> > if ($ENV{'REQUEST_METHOD'} eq 'POST') {
> > $referer = 'http://qwerty.on.arena.ne.jp/cgi-bin/bbs.cgi';
> > $qwerty_sw = 1;
> > }
> > }
> > }
> > }
> > if( $qwerty_sw == 0){
> > print S 'Referer: ', &wrap_proxy_decode($referer), "\015\012"
> > if $referer=~ s#^$THIS_SCRIPT_URL(/[^/]*/?)?## && ($referer ne '') ;
> > }
> > else{
> > print S 'Referer: ', $referer, "\015\012";
> > }
> > }
> > }
> CGIProxy 2.1beta19を使えばいいということはよくわかった(;´Д`)残りの暗号部分に関しては解読待ちだ
あきらめろ
参考:2009/08/23(日)22時45分40秒