＠暫定(暫定退避)666風リダイレクター

#!/usr/bin/perl # + ＠くずは萌え ver1.1.1x on arena,freak (2003/08/28) # 変更 @cgiurl = ( 'www.freak.ne.jp', '533.pr.arena.ne.jp', '211.5.131.162', '210.136.239.87', '202.212.233.117', 'poox360.net', 'zantei-taihi.kicks-ass.org', ); $jumpcgi = './jump.cgi'; ######## sub Location { print <<_LOC_; Location: $FORM{'goto'} _LOC_ } sub print666 { print <<_META_; Content-type: text/html ＠暫定(暫定退避)666風リダイレクター

＠暫定666

　処刑人：　　処刑日：2003/05/03(日)00時00分00秒　

今日も何もせずｷﾞｺｷﾞｺ(^^;ﾜﾗ

くずはすくりぷと Rev.0.1 Preview 9 + ＠くずは萌え ver1.1.1x on arena,freak

_META_ } sub printmoon { print <<_META_; Content-type: text/html ＠暫定(暫定退避)リダイレクター

$FORM{'goto'}


┌──┐
⊥=＝=⊥　
(ﾟ∇ﾟ ) PHOOOOOOO!
(ヽ  )ヽ
／ ））　））

_META_ } sub printkune { print <<_META_; Content-type: text/html ＠暫定(暫定退避)リダイレクター


$FORM{'goto'}
　┏━━━━━┓　　　　┏━━━━━┓　　　　┏━━━━━┓　　　
　┃　転送中　┃　　　　┃　転送中　┃　　　　┃　転送中　┃　　　
　┗━━━━━┛　　　　┗━━━━━┛　　　　┗━━━━━┛　　　
　　ヽ(ﾟ∇ﾟ)ノ　))　　　　ヽ(ﾟ∇ﾟ)ノ　))　　　　ヽ(ﾟ∇ﾟ)ノ　))　　
((　　(　　)　　　　　((　　(　　)　　　　　((　　(　　)　　　　　
　　　　>　>　　　　　　　　　>　>　　　　　　　　　>　>

_META_ } sub printii { print <<_META_; Content-type: text/html あやしいわーるどII あやしいわーるどII 広報室 連絡先 ぁぃmode EZ

投稿者
メール
題名　
内容（適当に改行を入れてください。タグは使えません。長すぎる文章もだめ。内容を書かずに投稿ボタンを押すとリロードになります。）

ＵＲＬ（リンクを入れたい場合はここに記入します）

表\示件数ＵＲＬ自動リンク gzip圧縮転送
1999/07/08から 3（こわれにくさレベル3）通過人数：2人（5分以内）表\示件数を0にすると未読分の記事を表\示します

|過去ログ| gz| なぞ＠たいやき| 連続| 絵描きω| はじあや| ☆| 戦旗| 即リン| \予\定| 辞典| 坂下(34)| 貼|

■ : フォロー投稿画面表\示 ★ : 投稿者検索表\示 ◆ : スレッド表\示　　最大登録件数 : 300件

　　投稿者：AGStar 　投稿日：2002/01/01(火)00時00分00秒　■ 　★ 　◆

いるよ！

以上は、現在登録されている新着順1番目から1番目までの記事です。

くずはすくりぷと Final Beta #2 pl0.3 - Modified by AGStar 20000606 "I is a big fool man." _META_ } ###### if ( $ENV{'REQUEST_METHOD'} eq 'POST' ) { read ( STDIN, $formbuf, $ENV{'CONTENT_LENGTH'} ); } elsif ( $ENV{'REQUEST_METHOD'} eq 'GET' ) { $formbuf = $ENV{'QUERY_STRING'}; } if ( !$formbuf ) { # どうしようもありません $FORM{'goto'} = "http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=%E3%81%A9%E3%81%86%E3%81%97%E3%82%88%E3%81%86%E3%82%82%E3%81%82%E3%82%8A%E3%81%BE%E3%81%9B%E3%82%93&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja"; &Location; } $referer = $ENV{'HTTP_REFERER'}; $referer =~ tr/\+/ /; $referer =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack ( "C", hex ( $1 ) )/eg; foreach ( split ( /&/, $formbuf ) ) { #### 変更 =で途切れないようにする #### 一番最初の=を:divide:に変える $_ =~ s/=/:divide:/; ( $name, $value ) = split ( /:divide:/ ); #### $value =~ tr/+/ / ; $value =~ s/%([a-fA-F0-9]{2})/pack ( "C", hex ( $1 ) )/eg; $value =~ s/&/&/g; $value =~ s/"/"/g; $value =~ s/'/'/g; $value =~ s//>/g; $value =~ s/\015\012/\015/g; $value =~ s/\012/\015/g; $value =~ s/\015$//g; $FORM{$name} = $value; } foreach ( @cgiurl ) { if ( $referer =~ /$_/ ) { $r = 1; } } if ( !$r ) { #呼び出し元が不正です $FORM{'goto'} = "http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=%E5%91%BC%E3%81%B3%E5%87%BA%E3%81%97%E5%85%83%E3%81%8C%E4%B8%8D%E6%AD%A3%E3%81%A7%E3%81%99&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja"; &Location; } else { if ( $FORM{'goto'} !~ m|^http://\w| ) { #現在使われておりません $FORM{'goto'} = "http://www.google.co.jp/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&newwindow=1&c2coff=1&q=%E7%8F%BE%E5%9C%A8%E4%BD%BF%E3%82%8F%E3%82%8C%E3%81%A6%E3%81%8A%E3%82%8A%E3%81%BE%E3%81%9B%E3%82%93&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja"; } elsif ( $FORM{'goto'} =~ m|www\.freak\.ne\.jp| ) { #そこはだめぇっ！ $FORM{'goto'} = "http://www.google.co.jp/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&newwindow=1&c2coff=1&q=%E3%81%9D%E3%81%93%E3%81%AF%E3%81%A0%E3%82%81%E3%81%87%E3%81%A3%EF%BC%81&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja"; } elsif ( $FORM{'goto'} =~ m|211\.5\.131\.162| ) { $FORM{'goto'} = "http://www.google.co.jp/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&newwindow=1&c2coff=1&q=%E3%81%9D%E3%81%93%E3%81%AF%E3%81%A0%E3%82%81%E3%81%87%E3%81%A3%EF%BC%81&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja"; } } if ( $FORM{'m'} eq 'l' ) { &Location; } else { if ( $FORM{'t'} !~ /[0-9]/g ) { $time = 0; } else { $time = $FORM{'t'}; } # II check if ( ( $FORM{'goto'} =~ /210\.150\.243\.7/ ) || ( $FORM{'goto'} =~ /strangeworld\.org/ ) ) { &printii; } else { $nowtime = time - $difftime * 60 * 60; $x = $nowtime % 3; if ( $x == 1 ) { &print666; } elsif ( $x == 2 ) { &printmoon; } else { &printkune; } } } exit; __END__ 　　　　　　　　　　　　　　　　　　　┌──┐ 　　　　　　　　　　　　　　　　　　　⊥=＝=⊥　　　　　　　　　　　　　　　　　　　　(ﾟ∇ﾟ;) PHOOOOOOO… 　　　　　　　　　　　　　　　　　　 └∞┘) 　　　　　　　　　　　　　　　　　　　（（＼）））））））