4Chan File Renaming Tool.vbs

' Name: 4Chan File Renaming Tool
' File: 4Chan File Renaming Tool.vbs
' Licence: N/A
' Author: DeviousMalcontent
' Date: 13th June 2014
' Version: 1.0
' Release: 1
' Language: VBScript
' Compiler: N/A
' Background: I have all these maymays that I bownloaded from jokebook, 9fag, funnydump,
' le pebbit and now I'm worried if I upload them to 4chan, fags will think I have autism,
' or take me for a normal fag!
'
' Or, in an alternate universe I downloaded a bunch of images from jokebook of either a girl
' I want to bone or some faggot I want to make fun of, but I'm worried it might be traced back
' to me, if they were to find the images on my hard drive.
'
' So basically all this script does is rename all the image files in a directory to follow 4chans
' file naming conventions, to appear as if you downloaded them off 4chan itself, and not the original
' site.
'
' Usage: Put all the images in a directory called "4Chan Files" (if you're smart you'll be able to
' figure out how to change that if you do so wish to.) then just run the script from the same directory
' as the "4Chan Files" folder.
'
' >inb4 script kiddie
' Use at own risk.

Set objShell = wscript.createobject("wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(objShell.CurrentDirectory & "\4Chan Files")
Set colFiles = objFolder.Files

max=9
min=0

For Each objFile in colFiles
    If InStr(objFile.Name, "-") <> 0 or InStr(objFile.Name, "_") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "a") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "b") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "c") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "d") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "e") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "f") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "g") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "h") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "i") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "j") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "k") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "l") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "m") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "n") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "o") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "p") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "q") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "r") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "s") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "t") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "u") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "v") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "w") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "x") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "y") <> 0 or InStr(LCase(NoExt(objFile.Name)) , "z") <> 0 Then
    dim newname
        newname = Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & Int((max-min)*Rnd+min) & GetExt(objFile.Name)
        objShell.Exec("cmd.exe /C rename """ & objFolder & "\" & objFile.Name & """ """ & newname & """")
    End If
Next

Function GetExt(fileName)
    Dim pos, name, xtn
    pos = InstrRev(fileName,".")
    xtn = Mid(fileName,pos+1)
    name = Mid(fileName,1,pos-1)
    GetExt = "." & xtn
End Function

Function NoExt(ByVal FileName)
  Dim Result, i
  Result = FileName
  i = InStrRev(FileName, ".")
  If ( i > 0 ) Then
    Result = Mid(FileName, 1, i - 1)
  End If
  NoExt = Result
End Function