WRFan
Gold Member | | | | |
, rapidshare.com , vbscript, , .. IE gif , . , 5 . . . . , activex Windows Image Acquisition Library v2.0. . - vbscript . . :
:
<SCRIPT LANGUAGE="VBSCRIPT">
'Set Http = CreateObject("MSXMLHTTP2.ServerXMLHTTPHTTP")
'Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
Set AdoStream = CreateObject("ADODB.Stream")
url = "http://127.0.0.1:85/asp/access4417101.gif" 'only for testing purposes
p=instrrev(url,"/")
filename = right(url,len(url)-p)
XMLHTTP.open "GET", url, False
XMLHTTP.Send
Set ADOStream = CreateObject("ADODB.Stream")
ADOStream.type = 1
ADOStream.Open
ADOStream.Write XMLHTTP.responseBody
Set filesys1 = CreateObject("Scripting.FileSystemObject")
Set folder = filesys1.GetSpecialFolder(2)
ADOStream.SaveToFile folder & "\" & filename, 2
ADOStream.Close
'---------------------------------------------
Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Dim v 'As Vector
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Set v = CreateObject("WIA.Vector")
Img.LoadFile folder & "\" & filename
'If Img.IsAnimated Then
'msgbox "This is an animated image."
'Else
'msgbox "This is not an animated image."
'end if
'Img.ActiveFrame = Img.FrameCount
'Img.ActiveFrame = 12
for each oProperty in Img.Properties
if IsObject(oProperty.Value) Then
set oVector = oProperty.Value
for i = 1 to oVector.Count 'number of frames
if oVector(i) >= 15000 AND oVector(i) < 25000 then Img.ActiveFrame = i
'Select Case oVector(i)
'Case 19928:
'Img.ActiveFrame = i
'msgbox Img.ActiveFrame
'End Select
next
end if
next
'---------------------------------------------
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 350
IP.Filters(1).Properties("MaximumHeight") = 250
Set Img = IP.Apply(Img)
Img.SaveFile folder & "\hacked_" & filename
'---------------------------------------------
document.write("<IMG SRC=" & folder & "\hacked_" & filename & ">")
set filesys2 = CreateObject ("Scripting.FileSystemObject")
set demofile = filesys2.GetFile(folder & "\hacked_" & filename)
set demofile2 = filesys2.GetFile(folder & "\" & filename)
demofile.Delete
demofile2.Delete
</SCRIPT>
|
. .. WIA , \local settings\Temporary Internet Files\Content.IE5, Microsoft.XMLHTTP activex .
, WIA activex-, frame delay, .. . :
:
FrameDelay 800, 10, 17, 16, 11, 17, 18, 19, 12, 12, 11, 19928, 5587, 419, 547, 2271, 7520, 28633, 28113, 3403, 1652 |
, 800 , 2-! 12- 20.000 . , , ( ).
, , , . document.write , .
( %temp% ).
WIA, . 100 , . chm , msdn.microsoft.com, . |
WSH ! 
