cifrar bat

EDITO!: Solucionado esta ofuscando si funciona hos digo el code y otros datos.

Edito : Medio fail

Edito: Pongo el code de otro, tiene el mismo error que el anterior que borre que es que me lo pone todo en mayusculas pero me lo cifra pero es mas rapido y discerto:
Si alguien lo pudiera editar para que fuera minuscula se lo agradeceria (todo minuscula no eso se hacerlo yo me refiero a mayusculas y minusculas)
Código:
@echo off
cls
echo Procesando [%~n1%~x1]
color 0c
title Ofuscar bat v.5
REM Ofuscar bat by Belphegor + filtro anti inyeccion by RockoX
set ini=1
set space=0
set out=1
set ad=0
setlocal enabledelayedexpansion
echo.>abc.txt
set st1=A
set st2=B
set st3=C
set st4=D
set st5=E
set st6=F
set st7=G
set st8=H
set st9=I
set st10=J
set st11=K
set st12=L
set st13=M
set st14=N
set st15=O
set st16=P
set st17=Q
set st18=R
set st19=S
set st20=T
set st21=U
set st22=V
set st23=W
set st24=X
set st25=Y
set st26=Z
set st27=0
set st28=1
set st29=2
set st30=3
set st31=4
set st32=5
set st33=6
set st34=7
set st35=8
set st36=9
set spct=0
set ad=0
set key=
:new
set lin=0
for /f "tokens=1 delims=" %%A in (abc.txt) do (
set /a lin=!lin! + 1
)
if %lin%==36 (goto start)
set ran=%random:~1,2%
set check=%ran:~0,1%
if %check%==0 (set ran=%ran:~1,1%)
if %ran% LSS 1 (goto new)
if %ran% GTR 36 (goto new)
find "!st%ran%!" < abc.txt>nul && (goto new) || (echo !st%ran%!>>abc.txt&set key=%key%!st%ran%!&goto new)
:start
for %%B in (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9) do (
set id=1
for /F "tokens=1" %%C in (abc.txt) do (
if %%B==%%C (
set /a subid=!id! - 1
set var%%B=~!subid!,1)
set /a id=!id! + 1
)
)
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo. >"D:\Carpetita\target.bat"
copy "D:\Carpetita\target.bat" + "%~1" "D:\Carpetita\target.bat">nul
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo Copiando archivo OK
echo @set A=%key%@+-()>""D:\Carpetita\ofuscado.bat""
set out=1
set max=0
for /f "tokens=1 delims=" %%A in ('type D:\Carpetita\target.bat') do (
set /a max=!max! + 1
)
:atari
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo Copiando archivo OK
echo Contando lineas OK
for /F "skip=%out% tokens=1 delims=" %%T in ('type D:\Carpetita\target.bat') do (
set string=%%T
set word=%%T
:bucle
if not defined string (goto next)
if ["%string%"]==[" "] (set /a space=%space% + 1)
set /a ad=%ad% + 1
set string=!word:~%ad%,1!
goto bucle
:next
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo Copiando archivo OK
echo Contando lineas OK
echo Contando espacios OK
REM de esto no estoy seguro cuidado!!!
set /a space=%space% + 1
echo !word!>line.txt
find "%%" < line.txt>nul && (goto mode1) || (
find ":" < line.txt>nul && (if ["!c:~0,1!"]==[":"] (set c= !c!)&goto mode1) || (set c=!word!&goto nextm))
:mode1
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo Copiando archivo OK
echo Contando lineas OK
echo Variables:SI
set word=!word: =[ !
set word=!word:%%=%% !
:other
for /f "tokens=%ini% delims=[" %%B in ("!word!") do (
set c=%%B
for /f "tokens=1* delims==" %%l in ('set c ^| findstr /r /i ^c=') do ( 
set c=%%m
echo !c!>check.txt
find "%%" < check.txt>nul && (set c=!c: =!&set write%out%=!write%out%!!c!&goto no)
find ":" < check.txt>nul && (set write%out%=!write%out%!!c!&goto no)
set c=!c:0="0"!
set c=!c:1="1"!
set c=!c:2="2"!
set c=!c:3="3"!
set c=!c:4="4"!
set c=!c:5="5"!
set c=!c:6="6"!
set c=!c:7="7"!
set c=!c:8="8"!
set c=!c:9="9"!
set c=!c:a=[A:%vara%]!
set c=!c:b=[A:%varb%]!
set c=!c:c=[A:%varc%]!
set c=!c:d=[A:%vard%]!
set c=!c:e=[A:%vare%]!
set c=!c:f=[A:%varf%]!
set c=!c:g=[A:%varg%]!
set c=!c:h=[A:%varh%]!
set c=!c:i=[A:%vari%]!
set c=!c:j=[A:%varj%]!
set c=!c:k=[A:%vark%]!
set c=!c:l=[A:%varl%]!
set c=!c:m=[A:%varm%]!
set c=!c:n=[A:%varn%]!
set c=!c:o=[A:%varo%]!
set c=!c:p=[A:%varp%]!
set c=!c:q=[A:%varq%]!
set c=!c:r=[A:%varr%]!
set c=!c:s=[A:%vars%]!
set c=!c:t=[A:%vart%]!
set c=!c:u=[A:%varu%]!
set c=!c:v=[A:%varv%]!
set c=!c:w=[A:%varw%]!
set c=!c:x=[A:%varx%]!
set c=!c:y=[A:%vary%]!
set c=!c:z=[A:%varz%]!
set c=!c:"0"=[A:%var0%]!
set c=!c:"1"=[A:%var1%]!
set c=!c:"2"=[A:%var2%]!
set c=!c:"3"=[A:%var3%]!
set c=!c:"4"=[A:%var4%]!
set c=!c:"5"=[A:%var5%]!
set c=!c:"6"=[A:%var6%]!
set c=!c:"7"=[A:%var7%]!
set c=!c:"8"=[A:%var8%]!
set c=!c:"9"=[A:%var9%]!
set c=!c:@=[A:~36,1]!
set c=!c:^+=[A:~37,1]!
set c=!c:^-=[A:~38,1]!
set c=!c:[=%%!
set c=!c:]=%%!
set write%out%=!write%out%!!c!
:no
if %ini%==%space% (goto end)
set /a ini=%ini% + 1 
goto other
)
)
)
:end
echo !write%out%!>>"D:\Carpetita\ofuscado.bat"
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo Copiando archivo OK
echo Contando lineas OK
echo Variables:SI
echo Salida:OK
set /a total=%max% - %out%
if %total%==1 (
cls
copy "D:\Carpetita\ofuscado.bat" "D:\Carpetita%~p1ofuscado.bat">nul
echo Finalizado correctamente.
echo Archivo ubicado en:"D:\Carpetita%~p1ofuscado.bat"
del "D:\Carpetita\ofuscado.bat"
del line.txt
del abc.txt
if exist check.txt (del check.txt)
del "D:\Carpetita\target.bat"
pause
exit /b 0
)
set /a out=%out% + 1
goto atari
:nextm
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo Copiando archivo OK
echo Contando lineas OK
echo Variables:NO
set c=!c:0="0"!
set c=!c:1="1"!
set c=!c:2="2"!
set c=!c:3="3"!
set c=!c:4="4"!
set c=!c:5="5"!
set c=!c:6="6"!
set c=!c:7="7"!
set c=!c:8="8"!
set c=!c:9="9"!
set c=!c:a=[A:%vara%]!
set c=!c:b=[A:%varb%]!
set c=!c:c=[A:%varc%]!
set c=!c:d=[A:%vard%]!
set c=!c:e=[A:%vare%]!
set c=!c:f=[A:%varf%]!
set c=!c:g=[A:%varg%]!
set c=!c:h=[A:%varh%]!
set c=!c:i=[A:%vari%]!
set c=!c:j=[A:%varj%]!
set c=!c:k=[A:%vark%]!
set c=!c:l=[A:%varl%]!
set c=!c:m=[A:%varm%]!
set c=!c:n=[A:%varn%]!
set c=!c:o=[A:%varo%]!
set c=!c:p=[A:%varp%]!
set c=!c:q=[A:%varq%]!
set c=!c:r=[A:%varr%]!
set c=!c:s=[A:%vars%]!
set c=!c:t=[A:%vart%]!
set c=!c:u=[A:%varu%]!
set c=!c:v=[A:%varv%]!
set c=!c:w=[A:%varw%]!
set c=!c:x=[A:%varx%]!
set c=!c:y=[A:%vary%]!
set c=!c:z=[A:%varz%]!
set c=!c:"0"=[A:%var0%]!
set c=!c:"1"=[A:%var1%]!
set c=!c:"2"=[A:%var2%]!
set c=!c:"3"=[A:%var3%]!
set c=!c:"4"=[A:%var4%]!
set c=!c:"5"=[A:%var5%]!
set c=!c:"6"=[A:%var6%]!
set c=!c:"7"=[A:%var7%]!
set c=!c:"8"=[A:%var8%]!
set c=!c:"9"=[A:%var9%]!
set c=!c:@=[A:~36,1]!
set c=!c:^+=[A:~37,1]!
set c=!c:^-=[A:~38,1]!
set c=!c:[=%%!
set c=!c:]=%%!
echo !c!>>"D:\Carpetita\ofuscado.bat"
cls
echo Procesando [%~n1%~x1]
echo Diccionario OK
echo Copiando archivo OK
echo Contando lineas OK
echo Variables:SI
echo Salida:OK
:endm
set /a total=%max% - %out%
if %total%==1 (
cls
echo Finalizado correctamente.
echo Archivo ubicado en:"D:\Carpetita%~p1ofuscado.bat"
del line.txt
del abc.txt
if exist check.txt (del check.txt)
del "D:\Carpetita\target.bat"
pause
exit /b 0
)
set /a out=%out% + 1
goto atari