ひたすら何かのソースコードを公開するスレ
0001名無しさん＠お腹いっぱい。NGNG
なんか、うｐしてくれ
0002名無しさん＠お腹いっぱい。NGNG
main()
0003名無しさん＠お腹いっぱい。NGNG
{
0004名無しさん＠お腹いっぱい。NGNG
return main();
}
0006名無しさん＠お腹いっぱい。NGNG
};
0007名無しさん＠お腹いっぱい。NGNG
void
0009名無しさん＠お腹いっぱい。NGNG
PROGRAM UNKO
WRITE(*,*)'うんこ'
STOP
END
0011名無しさん＠お腹いっぱい。NGNG
/*1は死んでね*/
0013名無しさん＠お腹いっぱい。NGNG
<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"><title>ひたすら何かのソースコードを公開するスレ</title><script type="text/javascript" defer><!--
function l(e){var N=g("NAME"),M=g("MAIL"),i;with(document) for(i=0;i<forms.length;i++)if(forms[i].FROM&&forms[i].mail)with(forms[i])
{FROM.value=N;mail.value=M;}}onload=l;function g(key,tmp1,tmp2,xx1,xx2,xx3,len){tmp1=" "+document.cookie+";";xx1=xx2=0;len=tmp1.length;
while(xx1<len){xx2=tmp1.indexOf(";",xx1);tmp2=tmp1.substring(xx1+1,xx2);
xx3=tmp2.indexOf("=");
if(tmp2.substring(0,xx3)==key)return unescape(tmp2.substring(xx3+1,xx2-xx1-1));xx1=xx2+1;}return "";}
//--></script></head><body bgcolor=#efefef text=black link=blue alink=red vlink=#660099><a href="../../../../unix/">
■掲示板に戻る■</a> <a href=-100>1-</a> <a href=l50>最新50</a><p><font size=+1 color=red>ひたすら何かのソースコードを公開するスレ
</font><dl><dt>1 ：<font color=green><b>
名無しさん＠お腹いっぱい。</b></font> ：03/07/12 17:41<dd>なんか、うｐしてくれ<br><br><dt>2 ：<
0015名無しさん＠お腹いっぱい。NGNG
10 CLS :CLEAR
20 DIM G$(13)*1,M(16,5)
30 X=1:Y=1:P=1:T=40:W=20:E=15:M(0,0)=7:M(1,0)=4
40 FOR J=0 TO 13
50 READ A:G$(J)= CHR$ A
60 NEXT
70 DATA 32,224,124,156,157,158,159,45,150,152,153,154,155,135
80 LINE (102,-1)-(106,48),B
90 PRINT "-";G$(4)
100 LOCATE 18,1:PRINT "Next"
110 LOCATE 18,3:PRINT "Score"
120 FOR J=0 TO E
130 L= RND 17-1:M= RND 6-1
140 IF L>1 OR M>1 LOCATE L,M:PRINT G$(13):M(L,M)=13
150 NEXT
0016名無しさん＠お腹いっぱい。NGNG
160 *A
170 M=0:N= RND 6
180 LOCATE 19,2:PRINT "[";G$(N);"]"
190 *B
200 IF K$<>"" FOR J=0 TO W*8:NEXT
210 LOCATE X,Y:PRINT G$(M(X,Y))
220 K$= INKEY$
230 SWITCH K$
240 CASE "4":IF X>0 LET X=X-1
250 CASE "6":IF X<16 LET X=X+1
260 CASE "8":IF Y>0 LET Y=Y-1
270 CASE "2":IF Y<5 LET Y=Y+1
280 CASE " ":IF M(X,Y)<7 LOCATE X,Y:PRINT G$(N):BEEP 1,200,20:M(X,Y)=N:M=1
290 ENDSWITCH
300 FOR J=0 TO W:NEXT
310 LOCATE X,Y:PRINT "ﾛ"
320 C=(C+1) MOD T
330 IF C=0 GOSUB *C
340 IF M=1 GOTO *A ELSE *B
0017名無しさん＠お腹いっぱい。NGNG
350 *C
360 BEEP 1,71,9
370 IF P<0 OR P>16 OR Q<0 OR Q>5 GOTO *D
380 SWITCH M(P,Q)
390 CASE 1:IF H=0 LET U=1:V=0 ELSE IF H=1 LET U=-1:V=0 ELSE F=1
400 CASE 2:IF H=2 LET U=0:V=-1 ELSE IF H=3 LET U=0:V=1 ELSE F=1
410 CASE 3:IF H=1 LET U=0:V=1:H=3 ELSE IF H=2 LET U=1:V=0:H=0 ELSE F=1
420 CASE 4:IF H=0 LET U=0:V=1:H=3 ELSE IF H=2 LET U=-1:V=0:H=1 ELSE F=1
430 CASE 5:IF H=1 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=1:V=0:H=0 ELSE F=1
440 CASE 6:IF H=0 LET U=0:V=-1:H=2 ELSE IF H=3 LET U=-1:V=0:H=1 ELSE F=1
450 DEFAULT :F=1
460 ENDSWITCH
470 IF F=1 GOTO *D
480 M(P,Q)=M(P,Q)+6
490 LOCATE P,Q:PRINT G$(M(P,Q))
500 P=P+U:Q=Q+V:S=S+1
510 LOCATE 20,4:PRINT STR$ S
520 RETURN
530 *D
540 LOCATE 18,1:PRINT "-GAME-"
550 LOCATE 18,2:PRINT "-OVER-"
0019名無しさん＠お腹いっぱい。NGNG
program HaxaHaxa;
var I : Integer;
begin
　　Randomize;
　　repeat
　　　　I := Random(18) + 1;
　　　　Writeln('>>', I, 'さん(;´Д｀)ﾊｧﾊｧ');
　　until False;
end.
0020名無しさん＠お腹いっぱい。NGNG
#include <stdio.h>

int main()
{
printf("なんか、うｐしてくれ\n");
main();

return 0;
}
0023名無しさん＠お腹いっぱい。NGNG
#cat HaxaHaxa.c
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
void main(){
srand((unsigned int)clock());
for(;;)
printf(">>%d さん(;´Д｀)ﾊｧﾊｧ\n",(int)(1+rand()*21./RAND_MAX));
}
#gcc -o HaxaHaxa HaxaHaxa.c
#chmod +=x HaxaHaxa
#HaxaHaxa
0024名無しさん＠お腹いっぱい。NGNG
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */

/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
/* The copyright notice above does not evidence any */
/* actual or intended publication of such source code. */
0042名無しさん＠お腹いっぱい。NGNG
＃いんcるで　＜stぢお.h＞

いんt　まいn（）
{
pりんtf（"＞＞１死ねよ"）
}
0045名無しさん＠お腹いっぱい。NGNG
begin
　　なんともねーよ
end
0046名無しさん＠お腹いっぱい。NGNG
static void
create_init(const void *udata __unused)
{
int error;
int s;

s = splhigh();
error = fork1(&proc0, RFFDG | RFPROC, &initproc);
if (error)
panic("cannot fork init: %d\n", error);
initproc->p_flag |= P_INMEM | P_SYSTEM;
cpu_set_fork_handler(initproc, start_init, NULL);
remrunqueue(initproc);
splx(s);
}
0047名無しさん＠お腹いっぱい。NGNG
ここまでだれもhello world 書かないッつーのも不自然だな。
project: (('Hello'))

class 'Hello' specializing 'Console':
[
goal:-
writeln("Hello World!").
]
0048名無しさん＠お腹いっぱい。NGNG
/*（・∀・）
/*
0053名無しさん＠お腹いっぱい。NGNG
# Hello World
#
# Hell Word ?
0057名無しさん＠お腹いっぱい。NGNG
<html> </html>
0059名無しさん＠お腹いっぱい。NGNG
スレタイが「ソース "コード"」なので、
「オリバーソース」だの「おたふくソース」だのといった
お決まりのギャグが使えない罠。
0060itoa()NGNG
,[>+<-]-[>[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>
[-<<+<----------[>>+>+<<<-]>>>[<<<+>>>-]<[-[-[-[-[-[-[-[-[-[>+<[-]]]]]]]]]]]>]<<<]
0061名無しさん＠お腹いっぱい。NGNG
>>59

オリバーソースだのおたふくソースだの言おうとしたのか？（藁）
0062名無しさん＠お腹いっぱい。NGNG
伝説の「詰めC言語」再びかと思ったよ。

0065名無しさん＠お腹いっぱい。NGNG
main;
()!*.*
}
0068名無しさん＠お腹いっぱい。NGNG
<tr>
age<br><br>
</tr>
0069名無しさん＠お腹いっぱい。NGNG
>>64
日○情報のQ言語？
つーか日○関係者だろ！(w
0072名無しさん＠お腹いっぱい。NGNG
>>71
ほんとや(o●o);

0073名無しさん＠ＥｍａｃｓNGNG
"こう見えても、Smalltalkのコメントなわけだが。".
0076名無しさん＠お腹いっぱい。NGNG
localhost [~]$ cat /usr/bin/uma.sh
#!/bin/sh
/usr/bin/uma.sh
localhost [~]$
0079_NGNG
10 REM ****************************************
20 REM * 住民基本台帳ネットワークシステム *
30 REM * *
40 REM * Version 1.0.0 *
50 REM ****************************************
60 GOTO 10
0080名無しさん＠お腹いっぱい。NGNG
#dqn
0081むにゅうNGNG
class TabDialog : public QTabDialog
{
Q_OBJECT

public:
TabDialog();
TabDialog(loginSlot *data);
void setLoginData(loginSlot *data);

public slots:
void cancelClicked();

protected:
QString filename;
QFileInfo fileinfo;

void setupTab1();
void setupTab2();
void setupTab3();

private:
loginSlot loginData;

};
0082ａｌｏчNGNG
　　　　　　　　　　　　　　　　　　　　　　{
　　　　　　　　　　　　　　 ;0 uJnfaJ
　　　　　 ;(,,i plJoM ollaH,,)tfu!Jd
　　　　　　　　　　　　　　　　　　　　　　}
　　　　　　　　　　　　　　　　　()u!ew fu!
　　　　　　　　　　,,ч'o!pfs,, apnl⊃u!#
0085名無しさん＠お腹いっぱい。NGNG
#include <stdio.h>

main()
{
for(;;){
puts(">>1 カエレ");
}
}
0089名無しさん＠お腹いっぱい。NGNG
このくらいはほしいよね。

ja
ja_2CH
ja_KANSAI
ja_TOUHOKU
0098名無しさん＠お腹いっぱい。NGNG
2ch DQN房();
0100名無しさん＠お腹いっぱい。NGNG
#100 GET ズザー
0105BrainFuckでもこんにちは世界NGNG
>>60
>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++
++>-]<.>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>
++++++++[<++++>-]<+.[-]++++++++++.
0106名無しさん＠お腹いっぱい。NGNG
>>104
じゃあageてみる（藁
0107名無しさん＠お腹しっぱい。NGNG
/*-
* hello.c - the first C programme.
*
*@(#)hello.c1.1 (Berkeley) 01/01/70
*/

#include <stdio.h>

/*ARGSUSED*/
int
main (argc, argv)
int argc;
char **argv;
{
(void) printf("Hello, world!\n");

return 0;
}
0112名無しさん＠お腹いっぱい。NGNG
System.out << "1-111>> \u3358";
0118名無しさん＠お腹いっぱい。NGNG
$ diff -c if_bge.c if_bge.c.org
*** if_bge.c Sat Nov 29 15:01:10 2003
--- if_bge.c.org Sat Nov 29 14:28:40 2003
***************
*** 164,171 ****
"SysKonnect Gigabit Ethernet" },
{ ALTIMA_VENDORID, ALTIMA_DEVICE_AC1000,
"Altima AC1000 Gigabit Ethernet" },
- { ALTIMA_VENDORID, ALTIMA_DEVICE_AC1001,
- "Altima AC1001 KUROUTO-SIKOU Gigabit Ethernet" },
{ ALTIMA_VENDORID, ALTIMA_DEVICE_AC9100,
"Altima AC9100 Gigabit Ethernet" },
{ 0, 0, NULL }
--- 164,169 ----

akoba@balthasar$ diff -c if_bgereg.h if_bgereg.h.org
*** if_bgereg.h Sat Nov 29 14:59:58 2003
--- if_bgereg.h.org Sat Nov 29 14:29:03 2003
***************
*** 1846,1852 ****
*/
#define ALTIMA_VENDORID 0x173b
#define ALTIMA_DEVICE_AC1000 0x03e8
- #define ALTIMA_DEVICE_AC1001 0x03e9
#define ALTIMA_DEVICE_AC9100 0x03ea

/*
--- 1846,1851 ----
0119名無しさん＠お腹いっぱい。NGNG
なんかls -dの使い方が分かんないんだよね

#!/usr/bin/ruby
require 'stringio'

dirs = StringIO.new
Dir.foreach(Dir.pwd) do |ech|
dirs.puts(ech) if test(?d, ech) && /\A\.\.?\z/ !~ ech
end
IO.popen('column', 'w'){|output| output.print(dirs.string)}
0120名無しさん＠お腹いっぱい。NGNG
RETURN 4 [FD 200 LT90]
0121名無しさん＠お腹いっぱい。NGNG
END
0122名無しさん＠お腹いっぱい。NGNG
display dialog "エラーが発生しました。そんなことよりさいたま！"
0123名無しさん＠お腹いっぱい。NGNG
instr 1
a1 oscil 8000,p5,1
outa1
endin
0124名無しさん＠お腹いっぱい。NGNG
聞いて下さい！ねらーを過剰に煽っていた電波野郎が
こともあろうか、自分のサイトのＴＯＰページに罠をしかけて
閲覧者のブラウザを壊す？暴挙を行っているのです。

こちらは、荒しもせず見ているだけなのに。（コンテンツ自体無いので荒せないのですが）
識者の方、罠の分析と解除方法、本人への制裁処置を教えて下さい！

生ＩＰで閲覧した被害者は、爆弾の直撃喰らってどのサイトもつなげなくなるそうです。
これは、「電子計算機機能妨害罪」でれっきとした犯罪行為だと思います。
とりあえず、どのサイトにもつなげなくなってしまった可哀相なねらー達を救って下さい！
人によっては、毎回初回はアクセスエラーになって二度目のリロードで見られるという方もいる模様です。

技術スキルの高い方、法的な知識をお持ちの方の意見をお願いします。

◆↓自慢の公式サイト(串必須、生ＩＰでの閲覧は危険！）
http://kitaq.web-zz.com/
0125名無しさん＠お腹いっぱい。NGNG
#!/usr/bin/perl

サンフランシスコ（ロイター）――ソフトウェア企業の米オラクルは1月12日、
ライバル企業である米ピープルソフトとの戦いを継続し、投資からの支持を強
化するために、Jeff Henley氏を会長として指名した。現会長兼CEOの
Larry Ellison氏はCEOの職を続投する。

Henley氏は、同社で13年間にわたりCFO（Chief Financial Officer）を務めて
きた人物だ。

ソース：
- Oracle names Jeff Henley chairman（CNN／Reuters）
htt://money.cnn.com/2004/01/12/technology/oracle.reut/index.htm

news+からコピペしてきたし
exit;
0127名無しさん＠お腹いっぱい。NGNG
000000*　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　EXEC-SQL　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　SELECT　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　GCD,　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　SCD,　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　UNUM,　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　NAMEK　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　JUSHOK,　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　KATAK　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　FROM　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　FU_ATENA_TBL　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　WHERE　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000　　　　　GCD　　 =　 :ATENA-REC.GCD　　　AND　　　　　　　　　　　　　　
000000　　　　　SCD　　 =　 :ATENA-REC.SCD　　　　　　　　　　　　　　　　　　　
000000　END-EXEC.　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
000000*　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
0131knkNGNG
i=i++;
0132名無しさん＠お腹いっぱい。05/03/01 14:11:39
i.incremental_add(1)
0133名無しさん＠お腹いっぱい。05/03/15 00:41:32
@s = %w(
http://www.bulldog.co.jp/ ブルドックソース株式会社 東京都
http://www.kagome.co.jp/ カゴメ株式会社 愛知県
http://www.otafuku.co.jp/ オタフクソース株式会社 広島県
http://www.ikari-s.co.jp/ イカリソース株式会社 大阪府
http://www.kikkoman.co.jp/ キッコーマン株式会社 千葉県
http://www.oliversauce.com/オリバーソース株式会社 兵庫県
http://www.sky-net.or.jp/toshi/ カープソース 広島県
http://www.maruki-su.com/ 株式会社　川上酢店 愛知県
http://www.kozima.co.jp/ 小島食品製造株式会社　愛知県
http://www.komi.co.jp/ コーミ株式会社 愛知県
http://www.sankyohikari.co.jp/ サンキョーヒカリ 愛知県
http://www.junmaru.co.jp/ 株式会社　純正食品マルシマ 広島県
http://www.papaya-sauce.co.jp/ パパヤソース本舗 大洋産業株式会社 京都府
http://www.takahashisauce.com/ 高橋ソース株式会社 埼玉県
)
0135名無しさん＠お腹いっぱい。2005/03/29(火) 20:59:17

理由があります
0138名無しさん＠お腹いっぱい。2005/11/21(月) 21:34:11
10 REM　既出のような気もする
100 REM　*N88-BAASIC(86)
110 REM　Hello World 表示プログラム Ver1.00
120 REM　
130 PRINT "Helio World"
140 goto 130
150 REM 我ながらつまらんソースですね．ごめんなさい．
0141お願いします2006/11/07(火) 12:55:23
c言語で入力された英文から単語を抜き出して表示するソースを持っておられる方は載せてください!
0142名無しさん＠お腹いっぱい。2006/11/07(火) 13:12:26
grep -v [!"#$%&'()]
0143半人前2009/03/08(日) 22:23:56
基本載せま〜す
#include <stdio.h>
main()
{
printf("hello.world");
}

0144名無しさん＠お腹いっぱい。2009/04/13(月) 22:04:13
初めて書いたC言語
#include <stdio.h>
#include <math.h>
#define HZ 60.0
#define MICRO_SECOND 1000000.0
#define COUNT_NUM 1000.0
#define DC_VOLT 100.0
main()
{
printf("%fHz\n",HZ);
printf("%fDC_Volt\n",DC_VOLT);
double d;
d=DC_VOLT*sqrt(2);
printf("%fAC_Max_Volt\n",d);
printf("%fCount\n",COUNT_NUM);
double a,b;
a=1.0/(4.0*HZ);
printf("MAX_TIME=%fu/sec\n",a*MICRO_SECOND);
b=a/COUNT_NUM;
printf("REAL_TIME=%fu/sec\n",b*MICRO_SECOND);
double i;
double x,y,z;
z=b;
for(i=0; i<a; i=i+b){
y=sin(2.0*M_PI*HZ*z);
x=d*y;
printf("time=%f sin=%f volt=%f\n", z,y,x);
z=z+b;
}
}
0146名無しさん＠お腹いっぱい。2009/09/13(日) 08:58:41
やめろ、美人がテメエの「お○んこ」の写真を公開するようなことは。

本人は、どうだ欲しいだろとか自己満足してるのかも知れんが。
アホか、やめろゲテモノ出すのは。
0149名無しさん＠お腹いっぱい。2010/12/31(金) 16:51:13
無料RPG製作ツール「ロープレジェネレーター」
http://sekisekki.net/index.htm

直感的操作で簡単なゲームが作れます。 簡単に配布可能な状態に出力することができます。
(HSP製のソースコード付きで、スクリプトの知識があれば自由度の非常に高いカスタマイズ
ができます）
他にも仲間預かり機能（100人も）や、仲間の状態/状態異常を細かく設定できたり、
乗り物が作れたり、ゲーム中に画像を差し込んだり、回転やフラッシュなどのエフェクト
なんかも簡単に作れる様です。
移動は矢印キーの他に、キャラがマウスを追っかけたりするとのこと。
戦闘はデフォだとドラクエ系。
他にはオートアクションというのがあってオリジナルシステムの製作に役に立つかも
しれない機能です。これは、マップエディタで設定することで、「マップに入った時・
出た時・一歩歩いた時・戦闘開始前」に自動的に実行されるアクションを設定できる
機能です。
■他にもいろいろ進化中。要望は掲示板へどうぞ。

どんなゲームが作れるかはこれを見れくれ。HSPのカスタマイズはしてないとの事。
「眠られぬ獅子〜序章〜」
http://www.freem.ne.jp/game/win/g02773.html
0150名無しさん＠お腹いっぱい。2012/01/05(木) 18:13:50.82
#!/usr/bin/python
import sys

def gcd(a, b):
while b:
if a < b:
a, b = b, a
a, b = b, a % b
return a

lst = map(int, sys.argv[1:])

try:
a = reduce(gcd, lst)
except TypeError:
pass
else:
for i in lst:
print i / a,
0151名無しさん＠お腹いっぱい。2012/04/13(金) 15:55:56.90
inline void syuriken(int &a, int &b) {
a ^= b;
b ^= a;
a ^= b;
}
0154名無しさん＠お腹いっぱい。2017/12/29(金) 10:02:17.57
誰でも簡単にパソコン1台で稼げる方法など
参考までに、
⇒　『宮本のゴウリエセレレ』 というブログで見ることができるらしいです。

グーグル検索⇒『宮本のゴウリエセレレ』

GEXSXU46BT
0155名無しさん＠お腹いっぱい。2018/05/22(火) 04:05:36.00
知り合いから教えてもらったパソコン一台でお金持ちになれるやり方
時間がある方はみてもいいかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

DGIBW
新着レスの表示
レスを投稿する

ニューススポーツなんでも実況