批量改病毒后缀的vbs-网络安全专区

批量改病毒后缀的vbs

作者：IT168 编辑：李莲 2007-06-22 19:22

为了避免双击病毒而写的一个脚本，虽然简单，但挺实用的。修改当前文件夹内的特定文件后缀为.txt（在原后缀后面加）

Dim fso,Wsh,fn,f,ff
Set fso = CreateObject("Scripting.FileSystemObject")
Set Wsh = CreateObject("WScript.Shell")
fn = WScript.ScriptFullName
Set f = fso.GetFile(fn)
Set ff = f.ParentFolder
filelist(ff)
Set fso = Nothing
Set Wsh = Nothing

sub filelist(folderspec)
Dim fc,f1
Set fc = folderspec.files
For Each f1 in fc
Doit(f1)
Next
end sub

sub Doit(file)
Dim fpath,fname
fpath=file.ParentFolder
fname=file.Name
if (LCase(fso.GetExtensionName(file)) = "vbs" _
or LCase(fso.GetExtensionName(file)) = "js"  _
or LCase(fso.GetExtensionName(file)) = "vbe"  _
or LCase(fso.GetExtensionName(file)) = "hta" ) _''待修改的特定后缀文件，自己改
and file.Name<>f.Name then
fso.CopyFile file, fpath & "\" & fname & ".txt"
fso.DeleteFile file  ''要想保留源文件，去掉这行就可
end if
end sub

http://www.hack58.net/Article/60/64/2006/9043.htm

关注我们