encryptor

@echo off
setlocal enabledelayedexpansion
:retry
set /p dire=Set the filepath to the file containing the plain text:
if not exist %dire% cls & goto retry

for /l %%n in (1,1,10000) do (
for /n "tokens=* skip=%%n" %%a in (%dire%) do (
if ""=="%%a" goto skip1
set line%%n=%%a
)
)
:skip1
set line=1
set num=1
set a=0
::start by converting text to binary
:loopp1

if ""=="!line%line%:~%a%,1!" goto end1
if " "=="!line%line%:~%a%,1!" set c=00100000 &goto ope1
if "1"=="!line%line%:~%a%,1!" set c=00110001 &goto ope1
if "2"=="!line%line%:~%a%,1!" set c=00110010 &goto ope1
if "3"=="!line%line%:~%a%,1!" set c=00110011 &goto ope1
if "4"=="!line%line%:~%a%,1!" set c=00110100 &goto ope1
if "5"=="!line%line%:~%a%,1!" set c=00110101 &goto ope1
if "6"=="!line%line%:~%a%,1!" set c=00110110 &goto ope1
if "7"=="!line%line%:~%a%,1!" set c=00110111 &goto ope1
if "8"=="!line%line%:~%a%,1!" set c=00111000 &goto ope1
if "9"=="!line%line%:~%a%,1!" set c=00111001 &goto ope1
if "0"=="!line%line%:~%a%,1!" set c=00110000 &goto ope1
if "a"=="!line%line%:~%a%,1!" set c=01100001 &goto ope1
if "b"=="!line%line%:~%a%,1!" set c=01100010 &goto ope1
if "c"=="!line%line%:~%a%,1!" set c=01100011 &goto ope1
if "d"=="!line%line%:~%a%,1!" set c=01100100 &goto ope1
if "e"=="!line%line%:~%a%,1!" set c=01100101 &goto ope1
if "f"=="!line%line%:~%a%,1!" set c=01100110 &goto ope1
if "g"=="!line%line%:~%a%,1!" set c=01100111 &goto ope1
if "h"=="!line%line%:~%a%,1!" set c=01101000 &goto ope1
if "i"=="!line%line%:~%a%,1!" set c=01101001 &goto ope1
if "j"=="!line%line%:~%a%,1!" set c=01101010 &goto ope1
if "k"=="!line%line%:~%a%,1!" set c=01101011 &goto ope1
if "l"=="!line%line%:~%a%,1!" set c=01101100 &goto ope1
if "m"=="!line%line%:~%a%,1!" set c=01101101 &goto ope1
if "n"=="!line%line%:~%a%,1!" set c=01101110 &goto ope1
if "o"=="!line%line%:~%a%,1!" set c=01101111 &goto ope1
if "p"=="!line%line%:~%a%,1!" set c=01110000 &goto ope1
if "q"=="!line%line%:~%a%,1!" set c=01110001 &goto ope1
if "r"=="!line%line%:~%a%,1!" set c=01110010 &goto ope1
if "s"=="!line%line%:~%a%,1!" set c=01110011 &goto ope1
if "t"=="!line%line%:~%a%,1!" set c=01110100 &goto ope1
if "u"=="!line%line%:~%a%,1!" set c=01110101 &goto ope1
if "v"=="!line%line%:~%a%,1!" set c=01110110 &goto ope1
if "w"=="!line%line%:~%a%,1!" set c=01110111 &goto ope1
if "x"=="!line%line%:~%a%,1!" set c=01111000 &goto ope1
if "y"=="!line%line%:~%a%,1!" set c=01111001 &goto ope1
if "z"=="!line%line%:~%a%,1!" set c=01111010 &goto ope1
if "A"=="!line%line%:~%a%,1!" set c=01000001 &goto ope1
if "B"=="!line%line%:~%a%,1!" set c=01000010 &goto ope1
if "C"=="!line%line%:~%a%,1!" set c=01000011 &goto ope1
if "D"=="!line%line%:~%a%,1!" set c=01000100 &goto ope1
if "E"=="!line%line%:~%a%,1!" set c=01000101 &goto ope1
if "F"=="!line%line%:~%a%,1!" set c=01000110 &goto ope1
if "G"=="!line%line%:~%a%,1!" set c=01000111 &goto ope1
if "H"=="!line%line%:~%a%,1!" set c=01001000 &goto ope1
if "I"=="!line%line%:~%a%,1!" set c=01001001 &goto ope1
if "J"=="!line%line%:~%a%,1!" set c=01001010 &goto ope1
if "K"=="!line%line%:~%a%,1!" set c=01001011 &goto ope1
if "L"=="!line%line%:~%a%,1!" set c=01001100 &goto ope1
if "M"=="!line%line%:~%a%,1!" set c=01001101 &goto ope1
if "N"=="!line%line%:~%a%,1!" set c=01001110 &goto ope1
if "O"=="!line%line%:~%a%,1!" set c=01001111 &goto ope1
if "P"=="!line%line%:~%a%,1!" set c=01010000 &goto ope1
if "Q"=="!line%line%:~%a%,1!" set c=01010001 &goto ope1
if "R"=="!line%line%:~%a%,1!" set c=01010010 &goto ope1
if "S"=="!line%line%:~%a%,1!" set c=01010011 &goto ope1
if "T"=="!line%line%:~%a%,1!" set c=01010100 &goto ope1
if "U"=="!line%line%:~%a%,1!" set c=01010101 &goto ope1
if "V"=="!line%line%:~%a%,1!" set c=01010110 &goto ope1
if "W"=="!line%line%:~%a%,1!" set c=01010111 &goto ope1
if "X"=="!line%line%:~%a%,1!" set c=01011000 &goto ope1
if "Y"=="!line%line%:~%a%,1!" set c=01011001 &goto ope1
if "Z"=="!line%line%:~%a%,1!" set c=01011010 &goto ope1
set /a a+=1
goto loopp1
:ope1
::Need to convert the binary to the compressed / encrypted binary
if "!c:~2,1"=="1" set state1=1
set /a added=!c:~3,2! + !c:~5,3!
set b=%b%%c%
set /a a+=1
goto loopp1
:end1




set fold=%cd%\
set z=0
set x=output
set i=0
set option=1
set setloc=0
mode 117,30
set a=0
set b=
:op1

cls
if not defined b set b=00000000
if %z%==1 goto bend2
echo %cho1% became:
echo %b%
echo.
(echo %cho1% became:
echo %b%
echo.
) >>%fold%%x%.txt
echo %b% >>%fold%%x%1.txt
goto opt1
:opt2
cls
set d=0
set b=
set a=0
echo This is the option to select a file to convert to binary.
echo Type "exit" to return to the main menu.
echo.
if "%setloc%"=="0" echo You have not set a location for your output file&echo The default location for the output is the current folder&echo You can change this in the options menu.&echo.
echo Enter the filepath of the file you want to convert:
echo (An example would be C:\users\username\desktop\file.txt)
set /p cho2=
if "exit"=="%cho2%" goto top
if not exist %cho2% (
echo Invalid filepath, cannot find %cho2%
ping -n 5 localhost > nul
goto opt2
)
set g=0
set b=
for /f "tokens=*"  %%a in (%cho2%) do (
if "!g!"=="0" (
set cho1=%%a
set g=1
goto skipper1
)
)
:skipper1
set z=1
goto op1
:op2
set a=0
set g=0
set b=
for /f "skip=%d% tokens=*" %%a in (%cho2%) do (
if "!g!"=="0" (
set cho1=%%a
set g=1
goto skipper2
)
)
:skipper2
if "%cho1%"=="%last%" goto end2
set last=%cho1%
set z=1
goto op1
:bend2
echo %b%00001101 00001010 >>%fold%%x%2.txt
set /a d+=1
goto op2
:end2
echo Complete conversion of %cho2%
echo %cho2%
echo became
type %fold%%x%2.txt
ping -n 15 localhost > nul
start output2.txt
goto top
:opt6
cls
echo Thank you for using my Binary to Text converter
echo The awesome, GL1TCH3D
ping -n 5 localhost>nul
exit
:opt5
cls
echo This is the options menu.
echo Choose one of the following options:
echo.
echo 1) Change the output file paths and names.
echo 2) Change the color of this window.
echo 3) Back to top menu
set /p chopt=
if "1"=="%chopt%" goto changeout
if "2"=="%chopt%" goto changecol
if "3"=="%chopt%" goto top
echo Invalid entry.
cls
goto opt5
:changeout
echo Enter 1 to change the folder where the output is saved.
echo Enter 2 to change the names of the outputted files.
echo Enter 3 to go to the main menu.
set /p chout=
if "1"=="%chout%" goto setfold
if "2"=="%chout%" goto setname
if "3"=="%chout%" goto top
echo Invalid entry.
cls
goto opt5
:changecol
echo These are the colors:
echo    0 = Black       8 = Gray
echo    1 = Blue        9 = Light Blue
echo    2 = Green       A = Light Green
echo    3 = Aqua        B = Light Aqua
echo    4 = Red         C = Light Red
echo    5 = Purple      D = Light Purple
echo    6 = Yellow      E = Light Yellow
echo    7 = White       F = Bright White
echo.
echo Just type the 2 different colors you want to set.
set /p background=Background color:
set /p font=Font color:
color %background%%font%
goto opt5
:setfold
echo Just press enter to leave the output folder as %fold%
echo An example would be "C:\users\GL1TCH3D\mydocuments\"
set /p fold=
cls
echo Your files will now be outputted as "%fold%%x%#.txt"
ping -n 3 localhost > nul
set setloc=1
goto opt6
setname
echo Just press enter to leave the outputted file names as they are.
echo Remember you can't use ^/ ^\ ^* ^: ^" ^? ^| ^> ^<
echo You do not need to put the extension of the file.
set /p x=%x% to:
::set /p y=%y% to:
::set /p j=%j% to:
::set /p o=%o% to:
goto opt6
:opt3
echo This is the option to type binary into the prompt to convert to text.
echo Type "exit" to return to the main menu.
echo.
if "%setloc%"=="0" echo You have not set a location for your output file&echo The default location for the output is the current folder&echo You can change this in the options menu.&echo.
set /p inp1=Enter the binary you wish to convert:
if "%inp1%"=="exit" goto top
set cho1=%inp1: =%
set v=0
set b=
:op3
set /a a=8*%v%
if ""=="!cho1:~%a%,8!" goto end3
if "00001101"=="!cho1:~%a%,8!" goto end3
if "00000000"=="!cho1:~%a%,8!" set c=* &goto ope3
if "00100000"=="!cho1:~%a%,8!" set c=` &goto ope3
if "00110001"=="!cho1:~%a%,8!" set c=1 &goto ope3
if "00110010"=="!cho1:~%a%,8!" set c=2 &goto ope3
if "00110011"=="!cho1:~%a%,8!" set c=3 &goto ope3
if "00110100"=="!cho1:~%a%,8!" set c=4 &goto ope3
if "00110101"=="!cho1:~%a%,8!" set c=5 &goto ope3
if "00110110"=="!cho1:~%a%,8!" set c=6 &goto ope3
if "00110111"=="!cho1:~%a%,8!" set c=7 &goto ope3
if "00111000"=="!cho1:~%a%,8!" set c=8 &goto ope3
if "00111001"=="!cho1:~%a%,8!" set c=9 &goto ope3
if "00110000"=="!cho1:~%a%,8!" set c=0 &goto ope3
if "01100001"=="!cho1:~%a%,8!" set c=a &goto ope3
if "01100010"=="!cho1:~%a%,8!" set c=b &goto ope3
if "01100011"=="!cho1:~%a%,8!" set c=c &goto ope3
if "01100100"=="!cho1:~%a%,8!" set c=d &goto ope3
if "01100101"=="!cho1:~%a%,8!" set c=e &goto ope3
if "01100110"=="!cho1:~%a%,8!" set c=f &goto ope3
if "01100111"=="!cho1:~%a%,8!" set c=g &goto ope3
if "01101000"=="!cho1:~%a%,8!" set c=h &goto ope3
if "01101001"=="!cho1:~%a%,8!" set c=i &goto ope3
if "01101010"=="!cho1:~%a%,8!" set c=j &goto ope3
if "01101011"=="!cho1:~%a%,8!" set c=k &goto ope3
if "01101100"=="!cho1:~%a%,8!" set c=l &goto ope3
if "01101101"=="!cho1:~%a%,8!" set c=m &goto ope3
if "01101110"=="!cho1:~%a%,8!" set c=n &goto ope3
if "01101111"=="!cho1:~%a%,8!" set c=o &goto ope3
if "01110000"=="!cho1:~%a%,8!" set c=p &goto ope3
if "01110001"=="!cho1:~%a%,8!" set c=q &goto ope3
if "01110010"=="!cho1:~%a%,8!" set c=r &goto ope3
if "01110011"=="!cho1:~%a%,8!" set c=s &goto ope3
if "01110100"=="!cho1:~%a%,8!" set c=t &goto ope3
if "01110101"=="!cho1:~%a%,8!" set c=u &goto ope3
if "01110110"=="!cho1:~%a%,8!" set c=v &goto ope3
if "01110111"=="!cho1:~%a%,8!" set c=w &goto ope3
if "01111000"=="!cho1:~%a%,8!" set c=x &goto ope3
if "01111001"=="!cho1:~%a%,8!" set c=y &goto ope3
if "01111010"=="!cho1:~%a%,8!" set c=z &goto ope3
if "01000001"=="!cho1:~%a%,8!" set c=A &goto ope3
if "01000010"=="!cho1:~%a%,8!" set c=B &goto ope3
if "01000011"=="!cho1:~%a%,8!" set c=C &goto ope3
if "01000100"=="!cho1:~%a%,8!" set c=D &goto ope3
if "01000101"=="!cho1:~%a%,8!" set c=E &goto ope3
if "01000110"=="!cho1:~%a%,8!" set c=F &goto ope3
if "01000111"=="!cho1:~%a%,8!" set c=G &goto ope3
if "01001000"=="!cho1:~%a%,8!" set c=H &goto ope3
if "01001001"=="!cho1:~%a%,8!" set c=I &goto ope3
if "01001010"=="!cho1:~%a%,8!" set c=J &goto ope3
if "01001011"=="!cho1:~%a%,8!" set c=K &goto ope3
if "01001100"=="!cho1:~%a%,8!" set c=L &goto ope3
if "01001101"=="!cho1:~%a%,8!" set c=M &goto ope3
if "01001110"=="!cho1:~%a%,8!" set c=N &goto ope3
if "01001111"=="!cho1:~%a%,8!" set c=O &goto ope3
if "01010000"=="!cho1:~%a%,8!" set c=P &goto ope3
if "01010001"=="!cho1:~%a%,8!" set c=Q &goto ope3
if "01010010"=="!cho1:~%a%,8!" set c=R &goto ope3
if "01010011"=="!cho1:~%a%,8!" set c=S &goto ope3
if "01010100"=="!cho1:~%a%,8!" set c=T &goto ope3
if "01010101"=="!cho1:~%a%,8!" set c=U &goto ope3
if "01010110"=="!cho1:~%a%,8!" set c=V &goto ope3
if "01010111"=="!cho1:~%a%,8!" set c=W &goto ope3
if "01011000"=="!cho1:~%a%,8!" set c=X &goto ope3
if "01011001"=="!cho1:~%a%,8!" set c=Y &goto ope3
if "01011010"=="!cho1:~%a%,8!" set c=Z &goto ope3
if "00101100"=="!cho1:~%a%,8!" set c=, &goto ope3
if "00101110"=="!cho1:~%a%,8!" set c=. &goto ope3
if "00101111"=="!cho1:~%a%,8!" set c=/ &goto ope3
if "00111111"=="!cho1:~%a%,8!" set c=? &goto ope3
if "00100111"=="!cho1:~%a%,8!" set c=' &goto ope3
if "00100010"=="!cho1:~%a%,8!" set c=" &goto ope3
if "00111010"=="!cho1:~%a%,8!" set c=: &goto ope3
if "00111011"=="!cho1:~%a%,8!" set c=; &goto ope3
if "01011100"=="!cho1:~%a%,8!" set c=\ &goto ope3
if "01111110"=="!cho1:~%a%,8!" set c=~ &goto ope3
if "01100000"=="!cho1:~%a%,8!" set c=` &goto ope3
if "01000000"=="!cho1:~%a%,8!" set c=@ &goto ope3
if "00100011"=="!cho1:~%a%,8!" set c=# &goto ope3
if "00100100"=="!cho1:~%a%,8!" set c=$ &goto ope3
if "00101101"=="!cho1:~%a%,8!" set c=- &goto ope3
if "01011111"=="!cho1:~%a%,8!" set c=_ &goto ope3
if "00111101"=="!cho1:~%a%,8!" set c== &goto ope3
if "00101011"=="!cho1:~%a%,8!" set c=+ &goto ope3
if "00101000"=="!cho1:~%a%,8!" set c=( &goto ope3
if "00101001"=="!cho1:~%a%,8!" set c=) &goto ope3
if "01011011"=="!cho1:~%a%,8!" set c=[ &goto ope3
if "01011101"=="!cho1:~%a%,8!" set c=] &goto ope3
if "01111011"=="!cho1:~%a%,8!" set c={ &goto ope3
if "01111101"=="!cho1:~%a%,8!" set c=} &goto ope3
if "00101010"=="!cho1:~%a%,8!" set c=* &goto ope3
if not %i%==1 echo "!cho1:~%a%,8!" is not in the database.
set /a v+=1
goto op3
:ope3
set b=%b%%c%
set /a v+=1
goto op3
:end3
cls
set b=%b: =%
set b=%b:`= %
if "%i%"=="1" goto bend4
echo %inp1% became:
echo %b%
echo.
(echo %inp1% became:
echo %b%
echo.
) >>%fold%%x%.txt
echo %b% >%fold%%x%3.txt
goto opt3
:opt4
cls
set d=0
set b=
set v=0
echo This is the option to select a binary file to convert to text.
echo Type "exit" to return to the main menu.
echo.
if "%setloc%"=="0" echo You have not set a location for your output file&echo The default location for the output is the current folder&echo You can change this in the options menu.&echo.
echo Enter the filepath of the file you want to convert:
echo (An example would be C:\users\username\desktop\file.txt)
set /p cho2=
if "exit"=="%cho2%" goto top
if not exist %cho2% (
echo Invalid filepath, cannot find %cho2%
ping -n 5 localhost > nul
goto opt4
)
set g=0
set b=
for /f "tokens=*"  %%a in (%cho2%) do (
if "!g!"=="0" (
set cho1=%%a
set g=1
goto skipper3
)
)
:skipper3
set cho1=%cho1: =%
set i=1
goto op3
:op4
set v=0
set g=0
set b=
for /f "skip=%d% tokens=*" %%b in (%cho2%) do (
if "!g!"=="0" (
set cho3=%%b
set g=1
goto skipper4
)
)
:skipper4
if "%cho3%"=="%last%" goto end4
set last=%cho3%
set cho1=%cho3: =%
goto op3
:bend4
echo %b% >>%fold%%x%4.txt
set /a d+=1
goto op4
:end4
echo Complete conversion of %cho2%
echo %cho2%
echo became
type %fold%%x%4.txt
start %fold%%x%4.txt
ping -n 15 localhost > nul
goto top