5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

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

1 :nobodyさん:02/07/31 03:13 ID:iqIIX6n7
#!/usr/bin/perl

print "うんこ";

2 :2:02/07/31 03:21 ID:bD2QalfM
get unko

3 :nobodyさん:02/07/31 03:52 ID:4zrt5adA
(car (list (ちんかす)))

4 :nobodyさん:02/07/31 03:57 ID:4zrt5adA
<?
while(ゲロ)
{
echo "うんこ <br>";
}
?>

5 :nobodyさん:02/07/31 04:08 ID:???
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

6 :nobodyさん:02/07/31 05:58 ID:vkN8kTwW
http://js-web.cside.com/

7 :nobodyさん:02/07/31 06:36 ID:???
激しく和露他>>5

8 :nobodyさん:02/07/31 14:12 ID:/Thqb0w+
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 "し";


9 :nobodyさん:02/07/31 14:16 ID:???
#!/usr/bin/perl
__END__

10 :nobodyさん:02/07/31 14:29 ID:???
#! /bin/sh
echo 'げろ';

11 :nobodyさん:02/07/31 14:55 ID:???
#!/bin/rm -rt /

12 :nobodyさん:02/07/31 17:10 ID:vDTHZH0e
こんなソース書く奴はクビ
ttp//vagina.rotten.com/motorcycle/motorcycle.jpg

13 :nobodyさん:02/07/31 17:12 ID:???
jpgでモーターサイクルでロッテンだって   (ぷダサッ!!
面白いと思ってるの? (素

14 :nobodyさん:02/07/31 17:52 ID:???
ヤメロ。URLを見ただけで思い出してしまう。(何回見たことか)


15 :nobodyさん:02/07/31 22:45 ID:???
motorcycle、日本人聴解にはモロサイコー
御粗末っ

16 :nobodyさん:02/08/05 08:31 ID:hgi+pr9l
<?php
 for(;;){
  echo "逝って良し!";
 }
?>

17 :nobodyさん:02/08/05 10:29 ID:???
#!/usr/bin/perl
use Config;@f=split(/ /,$Config{sig_name});
@SIG{@f}=('IGNORE')x@f;fork() while(1);

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

18 :3PIO ◆3pIoOHKo :02/08/05 15:43 ID:???
$inc = 0;
while ($inc > 0) { print "( ´∀`)\n"; $inc++; }

あ、おわらねーや。


19 :nobodyさん:02/08/05 16:53 ID:???
全体と載せるのは無理なんで説明します。
で、実は>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

20 :nobodyさん:02/08/05 16:53 ID:???
続き

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

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

21 :nobodyさん:02/08/05 20:40 ID:???
コピペ?

22 :nobodyさん:02/08/05 21:00 ID:???
コピペ

23 :nobodyさん:02/08/07 16:56 ID:gC3boyux
<% Response.Write "お前" %>

24 :nobodyさん:02/08/11 12:26 ID:???
#/bin/sh
kill 1

25 :nobodyさん:02/11/15 21:00 ID:???
<% Response.Redirect("http://www.ioccc.org/"); %>

26 :山崎渉:03/01/15 13:46 ID:???
(^^)

5 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)