VBScript (*.vbs) Text Decompiler/Compiler

@echo off & color 71
if not [%1]==[] (set filepath=%~1) else (echo. & echo A file must ^
be dragged and dropped onto this batch script. & pause > nul & exit)

:menu
 title iGnite's File Encrypter & cls
 echo. & echo iGnite's File Encrypter - by iGnite & echo.

 echo. & echo a.) Encrypting
 echo. & echo b.) Decrypting & echo.

 set /p action=Are encrypting or decrypting the file?[a,b]:
 if %action%==a goto encryptfile
 if %action%==b goto decryptfile
 goto menu

:encryptfile
 cls & echo. & echo [*] Encryption sequence beginning
 set /a progress=1
:timer
 title Your file has been %progress%%% encrypted!
 ping 127.0.0.1 -n 1 > nul
 set /a progress= %progress% + 1
 if /i %progress% leq 100 goto timer
 (
 echo set fso = createobject^("scripting.filesystemobject"^)
 echo set file = fso.opentextfile^("%filepath%", 1^)
 echo encrypttext = file.ReadAll^(^)
 echo file.close
 echo set file = fso.opentextfile^("%filepath%.encrypted.txt", 2, true^)
 echo file.write encrypt^(encrypttext^)
 echo file.close
 echo set objshell = createobject^("wscript.shell"^)
 echo fso.deletefile wscript.scriptfullname
 echo wscript.quit
 echo private function encrypt^(byval string^)
 echo dim x, i, tmp    
 echo for i = 1 To len^( string ^)
 echo x = mid^( string, i, 1 ^)
 echo tmp = tmp ^& chr^( asc^( x ^) + 1 ^)
 echo next
 echo tmp = strreverse^( tmp ^)
 echo encrypt = tmp
 echo end function
 ) > encrypt.vbs

 start "" "encrypt.vbs"
 echo. & echo [*] Encryption sequence completed & pause > nul
 exit

:decryptfile
 cls & echo. & echo [*] Decryption sequence beginning
 set /a progress=1
:time
 title Your file has been %progress%%% decrypted!
 ping 127.0.0.1 -n 1 > nul
 set /a progress= %progress% + 1
 if /i %progress% leq 100 goto time
 (
 echo set fso = createobject^("scripting.filesystemobject"^)
 echo set file = fso.opentextfile^("%filepath%", 1^)
 echo decrypttext = file.ReadAll^(^)
 echo file.close
 echo set file = fso.opentextfile^("%filepath%", 2, true^)
 echo file.write decrypt^(decrypttext^)
 echo file.close
 echo set objshell = createobject^("wscript.shell"^)
 echo fso.deletefile wscript.scriptfullname
 echo wscript.quit
 echo private function decrypt^(byval encryptedstring^)
 echo dim x, i, tmp
 echo encryptedstring = strreverse^( encryptedstring ^)
 echo for i = 1 To len^( encryptedstring ^)
 echo x = mid^( encryptedstring, i, 1 ^)
 echo tmp = tmp ^& chr^( asc^( x ^) - 1 ^)
 echo next
 echo decrypt = tmp
 echo end function
 ) > decrypt.vbs

 start "" "decrypt.vbs"
 echo. & echo [*] Decryption sequence completed & pause > nul
 exit