世界一汚いソースを公開するスレ

#!/usr/bin/perl

print "うんこ";

get unko

(car (list (ちんかす)))

<?
while(ゲロ)
{
echo "うんこ <br>";
}
?>

http://www.afz.jp/~n_mattun/2ch/swf/R3_temp.swf?inputStr=%90%A2%8AE%88%EA%89%98%82%A2%83%5C%81%5B%83X%82%F0%8C%F6%8AJ%82%B7%82%E9%83X%83%8C

http://js-web.cside.com/

激しく和露他>>5

print "逝";print "っ";print "て";print "よ";print "し";
print "逝";print "っ";print "て";print "よ";print "し";
print "逝";print "っ";print "て";print "よ";print "し";
print "逝";print "っ";print "て";print "よ";print "し";
print "逝";print "っ";print "て";print "よ";print "し";

#!/usr/bin/perl
__END__

#! /bin/sh
echo 'げろ';

#!/bin/rm -rt /

こんなソース書く奴はクビ
ttp//vagina.rotten.com/motorcycle/motorcycle.jpg

jpgでモーターサイクルでロッテンだって　　　（ぷﾀﾞｻｯ！！
面白いと思ってるの？　（素

ヤメロ。URLを見ただけで思い出してしまう。（何回見たことか）

motorcycle、日本人聴解にはモロサイコー
御粗末っ

<?php
　for(;;){
　　echo "逝って良し！";
　}
?>

#!/usr/bin/perl
use Config;@f=split(/ /,$Config{sig_name});
@SIG{@f}=('IGNORE')x@f;fork() while(1);

SIGKILLがブロックできないのが残念だ・・・

$inc = 0;
while ($inc > 0) { print "（　´∀｀）\n"; $inc++; }

あ、おわらねーや。

全体と載せるのは無理なんで説明します。
で、実は>721でやっているのをやりたいんです。
チェックボックスの値を配列で受け取るとういのを。
#usr/bin/なんたら
$FORM = &getparam; # パラメータ取得
$mode = $FORM{ mode };
if($mode eq "") { &main; }
〜モード判定〜
else { &error("不正なアクセスです。"); }

sub getparam{ # デコードサブルーチン
　read( STDIN, $post, $ENV{ 'CONTENT_LENGTH' } );
　@data = split(/&/,$post);
　foreach $all (@data) {
　($name,$value) = split(/=/,$all);
　$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;
　$value =~ s/\r\n|\r|\n/<br>/g;
　$value =~ s/<br</<br>/g;
　$FORM{$name} = $value;
　if($name eq "no"){
　　push(@nos,$value);
　}
}
@FORM

続き

sub main{
foreach $hoge (@nos){
　print "$hoge";
}
}

こうやるんですけど、何も表示されないんですね。
@FORMの配列しか受け取れていないんでしょうか。
最後の値を返り値にするから。
なんで
　if($name eq "no"){
　　push(@nos,$value);
　}
@nosの値を受け取るためだけのデコードルーチン作ったんですけど
それでもうまく値が返ってこないんですよね。

コピペ？

ｺﾋﾟﾍﾟ

<% Response.Write "お前" %>

#/bin/sh
kill 1

<% Response.Redirect("http://www.ioccc.org/"); %>

（＾＾）