Extension Spoofer (VBscript & Exe)

Spoof Extensions of any file in Win 7 using the following vbscript Code

Code :

'========================================================' ' ' ' EXTENSION SPOOFER ' ' ' ' http://anonymous1769.blogspot.in/ ' '========================================================' Call Spoof Sub Spoof() dim filePath,fileName,exten,FileLen,revExten,dest,NewFileName set fs = CreateObject("Scripting.FileSystemObject") filePath=inputbox("Enter The FilePath") exten=inputbox("Enter the Extension to spoof" & vbCrlf & _ "Example : .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("Enter the new file name max 5 chars") dest=NewFileName & spclChar & revExten & mid(fileName,FileLen+2) fs.copyFile filePath & "\" & Filename,filePath & "\" & dest msgbox "Extension Spoofed Successfully!!",vbInformation end sub

Open notepad paste the above script and Save it as ExtSpoofer.vbs