bonjour à tous,
j'ais trouvé un fichier bizarre sur mon pc.
comme je ne connait pas le jvs je vous demande se que peu bien faire ce script si il est malveillant ou pas.
<SCRIPT language="vbscript">
Dim fso
set fso = CreateObject("Scripting.FileSystemObject")
If Navigator.cpuClass = "x86" AND fso.FileExists(fso.GetSpecialFolder(0)+"\BtwIEProxy.Exe") Then
' running 32-bit IE under 64-bit O/S, use proxey
dim commandLine, WshShell
Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Const CMD_SEND_IMAGE = 1
Const CMD_SEND_PAGE = 2
Const CMD_CAN_SEND_PICTURES = 3
Const CMD_SET_WAIT_CURSOR = 4
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
tname = fso.GetTempName
Set tfile = tfolder.CreateTextFile(tname, true, true)
Set doc = external.menuArguments.document
tfile.WriteLine doc.title
tfile.WriteLine doc.URL
commandLine = "%windir%\BtwIEProxy.exe 3"
Set WshShell = CreateObject("WScript.Shell")
bSendPictures = WshShell.Run (commandLine,8,true)
' setwaitcursor
If bSendPictures Then
'Find the BASE tag
baseURL = ""
For i = 0 To 100000 'a very big integer must be used
Set obj = doc.all(i)
If (obj Is Nothing) Then
Exit For
End If
tagName = UCase(obj.tagName)
If (tagName = "BASE") Then
baseURL = obj.getAttribute("HREF", 2)
Exit For
End If
Next
tFile.WriteLine baseURL
For i = 0 To 100000 'a very big integer must be used
Set obj = doc.all(i)
If (obj Is Nothing) Then
Exit For
End If
tagName = UCase(obj.tagName)
If ((tagName = "IMG") or _
(tagName = "APPLET") or _
(tagName = "EMBED") or _
(tagName = "FRAME") or _
(tagName = "IFRAME") or _
(tagName = "SCRIPT")) Then
srcOld = obj.getAttribute("SRC", 2)
tFile.WriteLine "1="+srcOld
ElseIf (tagName = "INPUT") Then
typeU = UCase(obj.type)
If (typeU = "IMAGE") Then
srcOld = obj.getAttribute("SRC", 2)
tFile.WriteLine "1="+srcOld
End If
ElseIf ((tagName = "A") or _
(tagName = "LINK") or _
(tagName = "AREA")) Then
rel = obj.getAttribute("REL", 2)
If rel <> "" Then
relU = UCase(rel)
If (relU = "STYLESHEET") Then
hrefOld = obj.getAttribute("HREF", 2)
tFile.WriteLine "1="+hrefOld
ElseIf (baseURL <> "") Then
href = obj.getAttribute("HREF", 2)
tFile.WriteLine "2="+href
End If
End If
ElseIf ((tagName = "BODY") or _
(tagName = "TABLE") or _
(tagName = "TD") or _
(tagName = "TH")) Then
backgroundOld = obj.getAttribute("BACKGROUND", 2)
If backgroundOld <> "" Then
tFile.WriteLine "1="+backgroundOld
End If
End If
Next
End If
tfile.Close
commandLine = "%windir%\BtwIEProxy.exe 2 " + chr(34) + tfolder + "\" + tname+ chr(34)
Set WshShell = CreateObject("WScript.Shell")
call WshShell.Run (commandLine,8,true)
fso.DeleteFile tfolder + "\" +tname
set WshShell=nothing
Else
' either running 64-bit O/S and 64-bit IE or running 32-bit O/S and 32-bit IE, so use COM obj
Set doc = external.menuArguments.document
Set btIEIntegration = CreateObject("BtSendto_IE.BTIEIntegration")
btIEIntegration.SaveDocumentTitle(doc.title)
btIEIntegration.LoadDocumentSource(doc.URL)
bSendPictures = btIEIntegration.CanSendPictures
btIEIntegration.SetWaitCursor(True)
sStatusString = btIEIntegration.LoadStatusString
external.menuArguments.status = sStatusString
If bSendPictures Then
'Find the BASE tag
baseURL = ""
For i = 0 To 100000 'a very big integer must be used
Set obj = doc.all(i)
If (obj Is Nothing) Then
Exit For
End If
tagName = UCase(obj.tagName)
If (tagName = "BASE") Then
baseURL = obj.getAttribute("HREF", 2)
Exit For
End If
Next
btIEIntegration.SaveDocumentBase(baseURL)
For i = 0 To 100000 'a very big integer must be used
Set obj = doc.all(i)
If (obj Is Nothing) Then
Exit For
End If
tagName = UCase(obj.tagName)
If ((tagName = "IMG") or _
(tagName = "APPLET") or _
(tagName = "EMBED") or _
(tagName = "FRAME") or _
(tagName = "IFRAME") or _
(tagName = "SCRIPT")) Then
srcOld = obj.getAttribute("SRC", 2)
srcNew = btIEIntegration.MapUrlToLocalFile(srcOld)
btIEIntegration.ReplaceSrcAttribute srcOld, srcNew
ElseIf (tagName = "INPUT") Then
typeU = UCase(obj.type)
If (typeU = "IMAGE") Then
srcOld = obj.getAttribute("SRC", 2)
srcNew = btIEIntegration.MapUrlToLocalFile(srcOld)
btIEIntegration.ReplaceSrcAttribute srcOld, srcNew
End If
ElseIf ((tagName = "A") or _
(tagName = "LINK") or _
(tagName = "AREA")) Then
rel = obj.getAttribute("REL", 2)
If rel <> "" Then
relU = UCase(rel)
If (relU = "STYLESHEET") Then
hrefOld = obj.getAttribute("HREF", 2)
hrefNew = btIEIntegration.MapUrlToLocalFile(hrefOld)
btIEIntegration.ReplaceSrcAttribute hrefOld, hrefNew
ElseIf (baseURL <> "") Then
href = obj.getAttribute("HREF", 2)
btIEIntegration.MakeAbsoluteUrl(href)
End If
End If
ElseIf ((tagName = "BODY") or _
(tagName = "TABLE") or _
(tagName = "TD") or _
(tagName = "TH")) Then
backgroundOld = obj.getAttribute("BACKGROUND", 2)
If backgroundOld <> "" Then
backgroundNew = btIEIntegration.MapUrlToLocalFile(backgroundOld)
btIEIntegration.ReplaceSrcAttribute backgroundOld, backgroundNew
End If
End If
Next
End If
btIEIntegration.SendPage
btIEIntegration.Cleanup
sStatusString = btIEIntegration.LoadDoneString
external.menuArguments.status = sStatusString
End If
</SCRIPT>
je vous remerci d'avence.