Gizli Dosyaları Göstermeme scriptle çöz!

PC hakkındaki genel bilgi ve ipucu paylaşım alanıdır.
Cevapla
tasarımcı77
Megabyte1
Megabyte1
Mesajlar: 828
Kayıt: 06 Eki 2010, 09:10

Gizli Dosyaları Göstermeme scriptle çöz!

Mesaj gönderen tasarımcı77 » 10 Ağu 2011, 09:53

Resim

Uzun zamandır bilinen eski bir virüs problemidir. Amvo virüsü olarak adlandırılmış. Sistemdeki kişisel dosyalara bulaşır, bunları gizleyip farklı dosyalarla değiştirir. Gizli dosyaları görme seçeneğini etkinleştirmeyi de devredışı bırakıp dosyalara erişmeyi imkansız kılar, aslında dosyalar silinmemiş olmasına rağmen sürücüde görünmediği için silinmiş olarak algılanır.Bunun için bir VBS script dosyası mevcut linki şu şekilde ;

Kod: Tümünü seç

http://hotfile.com/dl/126392293/96c00d8/Amvo_Kill.rar.html
Dosyayı çift tıklayıp sorduğu sorulara “Evet” demeniz yeterli olacaktır.

kodu:

on Error Resume Next

Dim objShell, objFileSystem, objTextStream, objRegex
Dim colRegexMatches1, colRegexMatches2
Dim nReturnCode
Dim strIpFileText
Dim element, i

Dim Lista
Lista=array("n1de?ect.com","nide?ect.com","nlde?ect.com","j*.bat","m*.com","d*.com","copy.exe","host.exe",_
"a0*.com","ntdeiect.com","ntdelect.com", "u?de*.com","ntde1ect.com", "x*.com", "tio*.*",_
"80*.com","semo*.exe","autorun*.*","x*.exe","yl*.exe","qd*.cmd")


Set geekside=WScript.CreateObject("WScript.Shell")
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colDrives = objFSO.Drives


Wscript.Echo "Software provided by MyGeekSide.com to remove malicious software amvo, avpo, n1detect y variants"
Wscript.Echo "Proccess of search and removing can take some seconds. Please be patient."


i=0
For Each objDrive in colDrives

alıntıdır.



Cevapla