ただし、*99があまりにも難しすぎるお題だったり、荒らし、明らかに厨発言だった場合、
*98さんに繰り下げするとかでおながいします。
というわけでまずはおながいします。
まず、60x16ピクセルのgif画像を解析して5桁の数字を抜き出さないとだめみたいね。
ノイズも入ってないから出来るかも。
ｸﾘﾒﾘ
URL取得部分が激甘なのでmailtoとか他のサイトの部分まで拾って痛いが（藁
#!/usr/local/bin/perl -w
use Socket;
$boardList = "board_list.dat";
if(!(-e $boardList)) {
$method = "GET";
$host = "www.ff.iij4u.or.jp";
$path = "~ch2/bbsmenu.html";
$port = getservbyname('http', 'tcp');
$iaddr = inet_aton($host) || die "$connect_hostは存在しないホストです。\n";
$sock_addr = pack_sockaddr_in($port, $iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "ソケットを生成できません。\n";
connect(SOCKET, $sock_addr) || die "$connect_host の ポート$portに接続できません。\n";
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "$method /$path HTTP/1.0\r\n";
print SOCKET "User-Agent: 2ch roulette/0.0 \r\n";
print SOCKET "\r\n";
while (<SOCKET>){
m/^\r\n$/ && last;
}
open(LIST, "> $boardList");
while (<SOCKET>){
if($_ =~ /HREF=([^> ]+)/) {
print LIST "$1\n";
}
}
close(LIST);
}
open(LIST, $boardList);
@board = <LIST>;
close(LIST);
srand(time^$$);
$num = rand($#board);
print "Location:$board[$num]\n\n";
ttp://http://freeweb2.kakiko.com/dengeki/indexc.htm もうちょっと読みやすくつくってｸﾚ
読めないか？
注釈文をいれようょ
早く作れよ頃すぞ
もうちょっと呪文を混ぜようょ
もうちょっと電波を混ぜようょ
#--VBじゃねえんだぞ----
# $a = $a + 1;
$a++;
}
$aが初期値の0だと仮定するとそのループの中は一回も実行されない。
お前も似たようなレベルだ。
早く作れよ頃すぞ
//programmed by moguno This script is copyleft.
//2ちゃんねるメニューからURLリストを取得
function getURLList($local)
{
//ファイル名を決定
if($local)
$filename = "./2chmenu.html";
else
$filename = "
ttp://http://www6.ocn.ne.jp/~mirv/2chmenu.html"; //ファイルを読み込む
$dat = file($filename);
$res = array();
foreach($dat as $d)
{
//リンク先一覧を取得
preg_match("/<A HREF=([^\\>]+)>/",$d,$matches);
if($matches[1] == NULL)
continue;
$match = $matches[1];
//2ch以外のドメインと2chトップページへのリンクを除外
if(preg_match("/2ch\\.net\\/.+$/",$match) == 0)
//2ちゃんねる総合案内を除外
if(preg_match("/\\/guide/",$match) == 1)
continue;
//配列に追加
array_push($res,$matches[1]);
}
return $res;
}
//***初期化***
srand(time());
//外部へのHTTP通信を許可しているサーバならfalse。
//許可していない場合は
ttp://http://www6.ocn.ne.jp/~mirv/2chmenu.htmlをダウンロードし //こいつと同じディレクトリに2chmenu.htmlとして保存した後trueに書き換え。
$list = getURLlist(false);
?>
<html>
<head>
<META HTTP-EQUIV="refresh" CONTENT="0;URL=<?print($list[rand(0,count($list))]);?>">
</head>
</html>
に訂正。
Age2chを越える荒らしツール依頼よろ
後六回死ね。
山崎渉をあげるから逝って来い
期待してんだろ
早く作れよ頃すぞ
そういうスレ
早く作れよ頃すぞ
↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
ttp://http://www.pink-angel.jp/betu/linkvp2/linkvp.html （ ＾＾ ）＜ ぬるぽ（＾＾）
ttp://http://bizinfo.cool.ne.jp/biz-rank/ranklink.cgi?id=mercury ttp://http://homepage.mac.com/ayaya16/ ではないが質問。
ページってなに？
ttp://http://homepage.mac.com/hitomi18/ ttp://http://togoshi.ginza.st/kaorin/ ( ＾▽＾) ＜ こんなのがございまーす♪
ttp://http://togoshi.ginza.st/kaorin/kaorin05.html ttp://http://www.togoshi.ginza.st/kaorin/kaorin02.html ttp://http://togoshi.ginza.st/kaorin/kaorin06.html ttp://http://www.togoshi.ginza.st/kaorin/kaorin08.html ttp://http://togoshi.ginza.st/kaorin/kaorin01.html ttp://http://www.togoshi.ginza.st/kaorin/kaorin10.html ttp://http://togoshi.ginza.st/kaorin/kaorin04.html ttp://http://www.togoshi.ginza.st/kaorin/kaorin03.html ttp://http://togoshi.ginza.st/kaorin/kaorin09.html ttp://http://www.togoshi.ginza.st/kaorin/kaorin07.html で、cgiってなんだ？
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
ttp://http://homepage.mac.com/hiroyuki43/hankaku06.html 月に1万円以上は稼げそうにないけど、4000円ぐらいなら確実に稼げます！！
無料登録するだけで商品券が貰えるサイトなども載せてあります
ttp://http://f15.aaacafe.ne.jp/~suikas/present.html おｋ
#/usr/local/bin/perl
use Socket;
use FileHandle;
$list_url = '
ttp://http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html'; &get_list;
srand(time|$$);
$url = $list[rand(@list)];
if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $url\n\n";
exit;
sub get_list {
$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
if ($3) {$_host = $3;}
if ($4) {$_path = $4;}
$_ip = inet_aton($_host) || die "host($_host) not found.\n";
$_sockaddr = pack_sockaddr_in(80, $_ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
# ソケットの接続
connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
autoflush SOCKET (1);
# HTTP要求を送信
print SOCKET "GET $_path HTTP/1.1\n";
print SOCKET "Host: $_host\n";
print SOCKET "Connection: close\n\n";
# HTTP応答を受信
while (<SOCKET>) {
last if(/^\n$/);
}
while (<SOCKET>) {
push @list, "$&" if(m!(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!);
}
}
ものすごい数のサンプルと画像を集めてみました。モロ
こきすぎ注意
ttp://http://www.h2.dion.ne.jp/~m_oka/moemoe/ero_03.html #/usr/local/bin/perl
use Socket;
use FileHandle;
# 最新のURLを探索
$list_url = '
ttp://http://www.who.int/csr/sars/country/en/'; $key = 'Full text';
&http_connect;
while (<SOCKET>) {
last if(/$key/);
}
close(SOCKET);
# SARS情報を取得
$list_url="
ttp://http://www.who.int".$&."/" if(m!(/[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)!); $list_url =~ s/entity\///;
$key = 'Total';
&http_connect;
while (<SOCKET>) {
last if(/$key/);
}
# 行数決め打ちで死亡者数を切り出し
for($i=0;$i<24;$i++) {$number=<SOCKET>;}
$number =~ m/\d+/; $number = $&;
#結果表示
print "Content-type: text/html\n\n";
print "<html lang=\"jp\"><body>";
print "SARSによる死者数は$number人です\n<br>";
print "ソ\ース：$list_url\n</body></html>\n";
close(SOCKET);
exit;
# socket接続
sub http_connect {
$list_url =~ m!(http:)?(//)?([^:/]*)?(/.*)?!;
if ($3) {$_host = $3;}
if ($4) {$_path = $4;}
$_ip = inet_aton($_host) || die "host($_host) not found.\n";
$_sockaddr = pack_sockaddr_in(80, $_ip);
socket(SOCKET, PF_INET, SOCK_STREAM, 0) || die "socket error.\n";
# ソケットの接続
connect(SOCKET, $_sockaddr) || die "connect $_host error.\n";
autoflush SOCKET (1);
# HTTP要求を送信
print SOCKET "GET $_path HTTP/1.1\n";
print SOCKET "Host: $_host\n";
print SOCKET "Connection: close\n\n";
# HTTP応答を受信
while (<SOCKET>) {
last if(/^\n$/);
}
}
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
（ ＾＾ ）＜ ぬるぽ（＾＾）
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
早く作れよ頃すぞ
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
早くつくれよ、こっちは待ってんだぞ
<?php
$url = '
ttp://http://127.0.0.1/bbsmenu.html'; $sec = 5;
if ($lines = preg_grep("/^<A HREF=.+?>.+?<\/A>/", file($url))) {
srand();
print preg_replace(
"/^<A HREF=(.+?)>(.+?)<\/A>.*/",
"$sec 秒後に<a href=\"$1\">$2</a>へ移動<meta http-equiv=\"Refresh\" content=\"$sec;URL=$1\">",
$lines[array_rand($lines)]
);
}
?>
作ってやったから金払え
print("ぬるぽ\n");
}
| | ｶﾞｶﾞｶﾞｶﾞｶﾞｯ
| |
人
∧＿∧ < >_∧∩
（ ・∀・） 人｀Д´）/ ←
と ） < >_∧∩
Ｙ /ノ .人｀Д´）/ ←
/ ） < >_∧∩
＿/し' ／／. Ｖ｀Д´）/ ←
（＿フ彡 /
|O＼
| ＼ ｷﾘｷﾘ
∧|∧ ＼ ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ ＼
∪ | (~)
∪∪ γ´⌒｀ヽ
） ） {i:i:i:i:i:i:i:i:}
（ （ ( ´･ω･)、
(O ⌒ )O
⊂＿)∪
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
9R1ADQXKGO
