[BATCH] BatCrytp ( Ofusca tu código batch y ejecútalo )

Iniciado por Aincrad, Junio 03, 2018, 09:20:36 PM

Tema anterior - Siguiente tema

0 Miembros y 3 Visitantes están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Junio 03, 2018, 09:20:36 PM
Hola a todos los de el foro, les traigo un pequeño en Ofuscador de código fuente
de batch.

Con esta herramienta Su Batch quedara seguro. /(Anti-Robo de codigo fuente  ;D)

ES una herramienta Comand line  espero que les sirva.

LINK DE LA HERRAMIENTA:

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Code del programa:

Código: dos

@echo off
title batcrypt v0.1
color a
Rem Bat_Crypt=batcrypt
Rem BatOfuser v 2.1
Rem Ofusca tu codigo Batch y Ejecutalo
Rem script creado por Salvador F. Krilewski / S4Lsalsoft / Fisica 638 
Rem funciona por linea de comandos

IF ["%~1"]==["-e"] goto o
IF ["%~1"]==["-E"] goto o
IF ["%~1"]==["-d"] goto d
IF ["%~1"]==["-D"] goto d
IF ["%~1"]==["-help"] goto help
IF ["%~1"]==["-HELP"] goto help
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³   Esta herramienta cifra un codigo de algun proyecto Batch ³
echo ³   Para luego ejecutarlo.                                      ³
echo ³                                                               ³
echo ³   Funcionamiento del script:                                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³   batcrypt -e "Ubicacion del bat" cifra el Bat             ³
echo ³                                                               ³
echo ³   Ejemplo:                                                    ³
echo ³   batcrypt -e "%userprofile%\Desktop\pto.bat"                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ        
echo ³   batcrypt -d "Ubicacion del bat" descifra un batch        ³
echo ³                                                               ³
echo ³   Ejemplo:                                                    ³  
echo ³   batcrypt -d "%userprofile%\Desktop\pto.bat"                  ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³                                                               ³
echo ³   Esta version tiene un bug, Porfavor no cifrar            ³ 
echo ³   palabras que esten dentro de el simbolo %% .                 ³
echo ³                                                               ³
echo ³  PARA MAS INFORMACION:                                        ³
echo ³                                                               ³
echo ³           batcrypt -help                                      ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ 
pause>NUL 
goto mas
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:Charlist
Set "Alpha=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Set "Numeric=0123456789"
Set "Special=\|@#~!$%&/()=?<>;,.-_+*[]{}`'^^":
Set "Special_UTF8=...,¡¢£...ŠÖ•—µ,Öàé·ÔÞã뎉‹"šŽÓØ™š¤¥¦§ú¨­ï"
Rem Special_UTF8= áéíóú àèìòù ÁÉÍÓÚ ÀÈÌÒÙ äëïöü ÄËÏÖÜ ñ Ñ ª º · ¿ ¡ '
:o
set archivo="%~2"
cls
:sal
set p=set
set t=var
set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz%" "
echo @echo off >> "cifrado.bat"
echo %p% %t%^=%resultado% >> "cifrado.bat"
goto :Ofuscador

:::::::::::::::::
:Ofuscador
:::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %archivo% ^| Find /V /C ""') do (Set Total=%%a)

:Leer_Ofuscador
If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)

For /F "Tokens=*" %%a in ('Type %archivo% ^| MORE +%Linea%') do (
    Echo: Ofuscando: "%%a"
    Set /A Linea+=1
    Set "String=%%a"
    If not defined string (Goto :Leer_Ofuscador)
    Echo %%a>"%TEMP%\String.tmp"
    FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
    Goto :Ofuscar
)


:Ofuscar


If "%Count%" EQU "%Longitud%" (
    call :Write_Ofuscador
    Goto :Leer_Ofuscador)

::Comilladoble
Set "String=%String:"=€%"& rem "

::Espacio
If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")

::Alpha
If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%var:~27,1%%")
If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%var:~28,1%%")
If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%var:~29,1%%")
If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%var:~30,1%%")
If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%var:~31,1%%")
If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%var:~32,1%%")
If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%var:~33,1%%")
If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%var:~34,1%%")
If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%var:~35,1%%")
If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%var:~36,1%%")
If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%var:~37,1%%")
If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%var:~38,1%%")
If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%var:~39,1%%")
If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%var:~40,1%%")
If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%var:~41,1%%")
If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%var:~42,1%%")
If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%var:~43,1%%")
If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%var:~44,1%%")
If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%var:~45,1%%")
If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%var:~46,1%%")
If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%var:~47,1%%")
If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%var:~48,1%%")
If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%var:~49,1%%")
If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%var:~50,1%%")
If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%var:~51,1%%")
If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%var:~52,1%%")
If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%var:~1,1%%")
If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%var:~2,1%%")
If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%var:~3,1%%")
If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%var:~4,1%%")
If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%var:~5,1%%")
If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%var:~6,1%%")
If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%var:~7,1%%")
If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%var:~8,1%%")
If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%var:~9,1%%")
If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%var:~10,1%%")
If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%var:~11,1%%")
If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%var:~12,1%%")
If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%var:~13,1%%")
If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%var:~14,1%%")
If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%var:~15,1%%")
If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%var:~16,1%%")
If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%var:~17,1%%")
If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%var:~18,1%%")
If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%var:~19,1%%")
If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%var:~20,1%%")
If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%var:~21,1%%")
If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%var:~22,1%%")
If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%var:~23,1%%")
If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%var:~24,1%%")
If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%var:~25,1%%")
If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%var:~26,1%%")

::Numeric
If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%0")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%1")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%2")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%3")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%4")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%5")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%6")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%7")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%8")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%9")

::Special
If "%String:~0,1%" EQU "á" (Set "New_String=%New_String%^^á")
If "%String:~0,1%" EQU "é" (Set "New_String=%New_String%^^é")
If "%String:~0,1%" EQU "í" (Set "New_String=%New_String%^^í")
If "%String:~0,1%" EQU "ó" (Set "New_String=%New_String%^^ó")
If "%String:~0,1%" EQU "ú" (Set "New_String=%New_String%^^ú")
If "%String:~0,1%" EQU "à" (Set "New_String=%New_String%^^à")
If "%String:~0,1%" EQU "è" (Set "New_String=%New_String%^^è")
If "%String:~0,1%" EQU "ì" (Set "New_String=%New_String%^^ì")
If "%String:~0,1%" EQU "ò" (Set "New_String=%New_String%^^ò")
If "%String:~0,1%" EQU "ù" (Set "New_String=%New_String%^^ù")
If "%String:~0,1%" EQU "Á" (Set "New_String=%New_String%Á")
If "%String:~0,1%" EQU "É" (Set "New_String=%New_String%É")
If "%String:~0,1%" EQU "Í" (Set "New_String=%New_String%Í")
If "%String:~0,1%" EQU "Ó" (Set "New_String=%New_String%^^Ó")
If "%String:~0,1%" EQU "Ú" (Set "New_String=%New_String%^Ú")
If "%String:~0,1%" EQU "À" (Set "New_String=%New_String%^À")
If "%String:~0,1%" EQU "È" (Set "New_String=%New_String%^È")
If "%String:~0,1%" EQU "Ì" (Set "New_String=%New_String%^^Ì")
If "%String:~0,1%" EQU "Ò" (Set "New_String=%New_String%^^Ò")
If "%String:~0,1%" EQU "Ù" (Set "New_String=%New_String%^^Ù")
If "%String:~0,1%" EQU "ä" (Set "New_String=%New_String%^^ä")
If "%String:~0,1%" EQU "ë" (Set "New_String=%New_String%^^ë")
If "%String:~0,1%" EQU "ï" (Set "New_String=%New_String%^^ï")
If "%String:~0,1%" EQU "ö" (Set "New_String=%New_String%^^ö")
If "%String:~0,1%" EQU "ü" (Set "New_String=%New_String%^^ü")
If "%String:~0,1%" EQU "Ä" (Set "New_String=%New_String%^Ä")
If "%String:~0,1%" EQU "Ë" (Set "New_String=%New_String%^^Ë")
If "%String:~0,1%" EQU "Ï" (Set "New_String=%New_String%^^Ï")
If "%String:~0,1%" EQU "Ö" (Set "New_String=%New_String%^^Ö")
If "%String:~0,1%" EQU "Ü" (Set "New_String=%New_String%^^Ü")
If "%String:~0,1%" EQU "ñ" (Set "New_String=%New_String%^^ñ")
If "%String:~0,1%" EQU "Ñ" (Set "New_String=%New_String%^^Ñ")
If "%String:~0,1%" EQU "ª" (Set "New_String=%New_String%^^ª")
If "%String:~0,1%" EQU "º" (Set "New_String=%New_String%º")
If "%String:~0,1%" EQU "¿" (Set "New_String=%New_String%¿")
If "%String:~0,1%" EQU "´" (Set "New_String=%New_String%^^´")

If "%String:~0,1%" EQU "€" (Set "New_String=%New_String%€")
If "%String:~0,1%" EQU "\" (Set "New_String=%New_String%^\")
If "%String:~0,1%" EQU "|" (Set "New_String=%New_String%^|")
If "%String:~0,1%" EQU "@" (Set "New_String=%New_String%@")
If "%String:~0,1%" EQU "#" (Set "New_String=%New_String%#")
If "%String:~0,1%" EQU "~" (Set "New_String=%New_String%^~")
If "%String:~0,1%" EQU "!" (Set "New_String=%New_String%^!")
If "%String:~0,1%" EQU "$" (Set "New_String=%New_String%$")
If "%String:~0,1%" EQU "%%" (Set "New_String=%New_String%%%")
If "%String:~0,1%" EQU "&" (Set "New_String=%New_String%^&")
If "%String:~0,1%" EQU "/" (Set "New_String=%New_String%/")
If "%String:~0,1%" EQU "(" (Set "New_String=%New_String%(")
If "%String:~0,1%" EQU ")" (Set "New_String=%New_String%)")
If "%String:~0,1%" EQU "=" (Set "New_String=%New_String%=")
If "%String:~0,1%" EQU "?" (Set "New_String=%New_String%?")
If "%String:~0,1%" EQU "<" (Set "New_String=%New_String%^<")
If "%String:~0,1%" EQU ">" (Set "New_String=%New_String%^>")
If "%String:~0,1%" EQU ";" (Set "New_String=%New_String%;")
If "%String:~0,1%" EQU "," (Set "New_String=%New_String%,")
If "%String:~0,1%" EQU "." (Set "New_String=%New_String%.")
If "%String:~0,1%" EQU "-" (Set "New_String=%New_String%-")
If "%String:~0,1%" EQU "_" (Set "New_String=%New_String%_")
If "%String:~0,1%" EQU "+" (Set "New_String=%New_String%+")
If "%String:~0,1%" EQU "*" (Set "New_String=%New_String%*")
If "%String:~0,1%" EQU "[" (Set "New_String=%New_String%^[")
If "%String:~0,1%" EQU "]" (Set "New_String=%New_String%^]")
If "%String:~0,1%" EQU "{" (Set "New_String=%New_String%{")
If "%String:~0,1%" EQU "}" (Set "New_String=%New_String%}")
If "%String:~0,1%" EQU "`" (Set "New_String=%New_String%`")
If "%String:~0,1%" EQU "'" (Set "New_String=%New_String%'")
If "%String:~0,1%" EQU "^" (Set "New_String=%New_String%^^^")
If "%String:~0,1%" EQU ":" (Set "New_String=%New_String%:")

Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar

:Write_Ofuscador
Set "New_String=%New_String:€="%"& rem "
Echo %New_String%>>"cifrado.bat"
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF

:Fin_Ofuscador
Echo REM By Salvafor F. Krilewski  >> "cifrado.bat"
Del /Q "%TEMP%\String.tmp"
Cls
echo Fin | More
pause
Exit


:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:d
set archivo="%~2"
cls
:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)


:Leer_Desofuscador
For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
    Set /A Linea+=1
    Set "String=%%a"
    Goto Desofuscar
)

:Desofuscar

::Alpha
Set "String=%String:var:~27,1=a%"
Set "String=%String:var:~28,1=b%"
Set "String=%String:var:~29,1=c%"
Set "String=%String:var:~30,1=d%"
Set "String=%String:var:~31,1=e%"
Set "String=%String:var:~32,1=f%"
Set "String=%String:var:~33,1=g%"
Set "String=%String:var:~34,1=h%"
Set "String=%String:var:~35,1=i%"
Set "String=%String:var:~36,1=j%"
Set "String=%String:var:~37,1=k%"
Set "String=%String:var:~38,1=l%"
Set "String=%String:var:~39,1=m%"
Set "String=%String:var:~40,1=n%"
Set "String=%String:var:~41,1=o%"
Set "String=%String:var:~42,1=p%"
Set "String=%String:var:~43,1=q%"
Set "String=%String:var:~44,1=r%"
Set "String=%String:var:~45,1=s%"
Set "String=%String:var:~46,1=t%"
Set "String=%String:var:~47,1=u%"
Set "String=%String:var:~48,1=v%"
Set "String=%String:var:~49,1=w%"
Set "String=%String:var:~50,1=x%"
Set "String=%String:var:~51,1=y%"
Set "String=%String:var:~52,1=z%"
Set "String=%String:var:~1,1=A%"
Set "String=%String:var:~2,1=B%"
Set "String=%String:var:~3,1=C%"
Set "String=%String:var:~4,1=D%"
Set "String=%String:var:~5,1=E%"
Set "String=%String:var:~6,1=F%"
Set "String=%String:var:~7,1=G%"
Set "String=%String:var:~8,1=H%"
Set "String=%String:var:~9,1=I%"
Set "String=%String:var:~10,1=J%"
Set "String=%String:var:~11,1=K%"
Set "String=%String:var:~12,1=L%"
Set "String=%String:var:~13,1=M%"
Set "String=%String:var:~14,1=N%"
Set "String=%String:var:~15,1=O%"
Set "String=%String:var:~16,1=P%"
Set "String=%String:var:~17,1=Q%"
Set "String=%String:var:~18,1=R%"
Set "String=%String:var:~19,1=S%"
Set "String=%String:var:~20,1=T%"
Set "String=%String:var:~21,1=U%"
Set "String=%String:var:~22,1=V%"
Set "String=%String:var:~23,1=W%"
Set "String=%String:var:~24,1=X%"
Set "String=%String:var:~25,1=Y%"
Set "String=%String:var:~26,1=Z%"

::Numeric
Set "String=%String:0=0%"
Set "String=%String:1=1%"
Set "String=%String:2=2%"
Set "String=%String:3=3%"
Set "String=%String:4=4%"
Set "String=%String:5=5%"
Set "String=%String:6=6%"
Set "String=%String:7=7%"
Set "String=%String:8=8%"
Set "String=%String:9=9%"

::Special_UTF8
Set "String=%String:Special_UTF8:~0,1=...%"
Set "String=%String:Special_UTF8:~1,1=,%"
Set "String=%String:Special_UTF8:~2,1=¡%"
Set "String=%String:Special_UTF8:~3,1=¢%"
Set "String=%String:Special_UTF8:~4,1=£%"
Set "String=%String:Special_UTF8:~5,1=...%"
Set "String=%String:Special_UTF8:~6,1=Š%"
Set "String=%String:Special_UTF8:~7,1=Ö%"
Set "String=%String:Special_UTF8:~8,1=•%"
Set "String=%String:Special_UTF8:~9,1=—%"
Set "String=%String:Special_UTF8:~10,1=µ%"
Set "String=%String:Special_UTF8:~11,1=,%"
Set "String=%String:Special_UTF8:~12,1=Ö%"
Set "String=%String:Special_UTF8:~13,1=à%"
Set "String=%String:Special_UTF8:~14,1=é%"
Set "String=%String:Special_UTF8:~15,1=·%"
Set "String=%String:Special_UTF8:~16,1=Ô%"
Set "String=%String:Special_UTF8:~17,1=Þ%"
Set "String=%String:Special_UTF8:~18,1=ã%"
Set "String=%String:Special_UTF8:~19,1=ë%"
Set "String=%String:Special_UTF8:~20,1=Ž%"
Set "String=%String:Special_UTF8:~21,1=‰%"
Set "String=%String:Special_UTF8:~22,1=‹%"
Set "String=%String:Special_UTF8:~23,1="%"
Set "String=%String:Special_UTF8:~24,1=š%"
Set "String=%String:Special_UTF8:~25,1=Ž%"
Set "String=%String:Special_UTF8:~26,1=Ó%"
Set "String=%String:Special_UTF8:~27,1=Ø%"
Set "String=%String:Special_UTF8:~28,1=™%"
Set "String=%String:Special_UTF8:~29,1=š%"
Set "String=%String:Special_UTF8:~30,1=¤%"
Set "String=%String:Special_UTF8:~31,1=¥%"
Set "String=%String:Special_UTF8:~32,1=^ª%"
Set "String=%String:Special_UTF8:~33,1=§%"
Set "String=%String:Special_UTF8:~34,1=^·%"
Set "String=%String:Special_UTF8:~35,1=¿%"
Set "String=%String:Special_UTF8:~36,1=­%"
Set "String=%String:Special_UTF8:~37,1=ï%"

::Special
Set "String=%String:Special:~0,1=^\%"
Set "String=%String:Special:~1,1=^|%"
Set "String=%String:Special:~2,1=@%"
Set "String=%String:Special:~3,1=#%"
Set "String=%String:Special:~4,1=^~%"
Set "String=%String:Special:~5,1=^^^!%"
Set "String=%String:Special:~6,1=$%"
Set "String=%String:Special:~7,1=€%"
Set "String=%String:Special:~8,1=^&%"
Set "String=%String:Special:~9,1=/%"
Set "String=%String:Special:~10,1=(%"
Set "String=%String:Special:~11,1=)%"
Set "String=%String:Special:~12,1==%"
Set "String=%String:Special:~13,1=?%"
Set "String=%String:Special:~14,1=^<%"
Set "String=%String:Special:~15,1=^>%"
Set "String=%String:Special:~16,1=;%"
Set "String=%String:Special:~17,1=,%"
Set "String=%String:Special:~18,1=.%"
Set "String=%String:Special:~19,1=-%"
Set "String=%String:Special:~20,1=_%"
Set "String=%String:Special:~21,1=+%"
Set "String=%String:Special:~22,1=*%"
Set "String=%String:Special:~23,1=^[%"
Set "String=%String:Special:~24,1=^]%"
Set "String=%String:Special:~25,1={%"
Set "String=%String:Special:~26,1=}%"
Set "String=%String:Special:~27,1=`%"
Set "String=%String:Special:~28,1='%"
Set "String=%String:Special:~29,1=^^^^%"
Set "String=%String:Special:~30,1=:%"


Echo string "%STRING%"
Call :Write_Desofuscador

:Write_Desofuscador




cabe destacar que esta herramienta posee un único bug. no debes ofuscar las variables dentro de el signo %.



Como se usa?

creas un batch con la siguiente linea:
Código: dos
BatchCript.bat -e (nombre de tu batch a ofuscar) o usa -d (nombre de tu batch a desofuscar creo q tenia bug pero unca lo termine :v)




Ejemplo :

Código: dos
@echo off
echo hola mundo
pause


Ofuscado con BatCrytp:

Código: dos

@echo off 
set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"  
@%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~34,1%%var:~41,1%%var:~38,1%%var:~27,1% %var:~39,1%%var:~47,1%%var:~40,1%%var:~30,1%%var:~41,1%
%var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
REM By Aincrad


Y LA SALIDA SIEMPRE ES LA MISMA.  ;D

PD: Esta es una de mis creaciones a las cuales le he puesto mucho cariño,sudor y lagrimas :V.



Ahora el bug que comente hace rato, les pondré un ejemplo:

Si ofuscan la parte %m% no les correra el code:

Código: dos
@echo off
set m=hola mundo
echo %m%
pause


Por lo tanto deben ofuscarlo así :

Código: dos
@echo off 
set var="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"  
@%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %var:~41,1%%var:~32,1%%var:~32,1%
%var:~45,1%%var:~31,1%%var:~46,1% %var:~39,1%=%var:~34,1%%var:~41,1%%var:~38,1%%var:~27,1% %var:~39,1%%var:~47,1%%var:~40,1%%var:~30,1%%var:~41,1%
%var:~31,1%%var:~29,1%%var:~34,1%%var:~41,1% %m% ------------------------ Como pueden ver Ofusque todo menos el %m% asi correra el code perfecto.
%var:~42,1%%var:~27,1%%var:~47,1%%var:~45,1%%var:~31,1%
REM By Salvafor F. Krilewski




He codeado y mejORado esta herramienta en You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login en forma de un IDE  Para programar en Batch y vbs , contiene múltiples herramientas de Ofuscacion ,Encryptacion , convertor a .exe y mas . la herramienta la pueden descargar gratis AQUI:

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Features + Imagenes de mi Programa:



*Ofuscacion
*Bat to Exe
*Encryptacion
*musica online NCS .
*Generador EXE anti - robo de codigo fuente . (mejor que BAT TO EXE)
*VBS to Bat Convertidor de Codigo
*Editor de Archivos Basic (.bas)
*Multi Abridor de archivos
*Copilador Multilenguaje
*(Batch / VBS) agregado

*Gratis

*Program with background music, in a pleasant atmosphere.




Bueno me he Extendido demasiado . SALUDOS , Comenten Porfa no quiero quedar ignorado.
Junio 04, 2018, 11:31:32 AM #1
HOLA!!!

Muy bueno, me encanto el metodo que es facil y simple.

El ide... deja que desear XD.

GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
Imprimir
Ir Arriba Páginas1
Acciones del Usuario