#!/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
今日も何もせずギコギコ(^^;ワラ
くずはすくりぷと Rev.0.1 Preview 9 + @くずは萌え ver1.1.1x on arena,freak
_META_ } sub printmoon { print <<_META_; Content-type: text/html$FORM{'goto'}_META_ } sub printkune { print <<_META_; Content-type: text/html
_META_ } sub printii { print <<_META_; Content-type: text/html$FORM{'goto'} ┏━━━━━┓ ┏━━━━━┓ ┏━━━━━┓ ┃ 転送中 ┃ ┃ 転送中 ┃ ┃ 転送中 ┃ ┗━━━━━┛ ┗━━━━━┛ ┗━━━━━┛ ヽ(゚∇゚)ノ )) ヽ(゚∇゚)ノ )) ヽ(゚∇゚)ノ )) (( ( ) (( ( ) (( ( ) > > > > > >
いるよ!
以上は、現在登録されている新着順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/>/>/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… └∞┘) (( \)))))))