Citarbatch me parece muy improductivo
sii , tienes razón , pero esta herramienta la hice porque no tenia nada que hacer.
PD: me podrías decir cuales son esos caracteres en aleman que dices?
comenten sus criticas y opiniones
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarbatch me parece muy improductivo
@echo off
title Bienbenido %USERNAME% --- Batch Archive Security ---
goto mksys
:menu & cls
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Realse
echo ³ ³ Version
echo ³ Este Programa Portable sirve para poner ³ (0.3)
echo ³ Contrase¤a a cualquier archivo. ³
echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ Creada especialmente para (Foro el Hacker.NET) ³ BATCH ³
echo ³ De Parte de **Aincrad** ³ ARCHIVE ³
echo ³ ³ SECURITY³
echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ³ PASOS A SEGUIR: ³ Para:
echo ³ ³ F
echo ³ 1) Escriba el nombre de el archivo a cifrar. y tambien ³ o
echo ³ Su formato. Ej: (.txt , .exe , .rar , .jar) etc.. ³ r
echo ³ ³ o
echo ³ 2) Escriba el Pass (Contrase¤a). Todo menos simbolos. ³ El
echo ³ ³ H
echo ³ 3) Listo..... :v ³ a
echo ³ ³ c
echo ³ 4) En caso de no entender nada de los pasos, escriba ³ k
echo ³ help y si no entiende Vayase a la mierrrrr...da ³ e
echo ³ ³ r
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ .NET
echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad**
set /p op= Escriba el nombre de el archivo a cifrar :
if not defined op (goto:menu) >NUL
If ["%op%"]==["help"] goto help >NUL
if not exist %op% (goto:err) >NUL
Ping -n 2 Localhost >NUL
set p=set
set t=var
set "resultado=%resultado:"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789%" "
:si
set /p ps= el archivo si existe escriba una contrase¤a :
if not defined ps goto :si >NUL
echo %ps%>>%temp%\pass1.txt
Ping -n 2 Localhost >NUL
set archivo=%temp%\pass1.txt
:::::::::::::::::
: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%%%var:~53,1%%")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%var:~54,1%%")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%var:~55,1%%")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%var:~56,1%%")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%var:~57,1%%")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%var:~58,1%%")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%var:~59,1%%")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%var:~60,1%%")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%var:~61,1%%")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%var:~62,1%%")
Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar
:Write_Ofuscador
Set "New_String=%New_String:€="%"& rem "
Echo %New_String%>>%temp%\pass.txt
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF
:Fin_Ofuscador
Del /Q "%TEMP%\String.tmp"
Cls
echo ESPERE... | More
Ping -n 2 Localhost >NUL
for /f "tokens=*" %%x in (%temp%\pass.txt) do (set psw=%%x)
start %temp%\CSS.exe a "%temp%\ar1" "%op%"
Ping -n 2 Localhost >NUL
:hsss
(
echo @echo off
echo %p% %t%^=%resultado%
echo if exist %op%.dll copy /b ^"%op%.dll^" ^"^%%temp%%\CSS.exe^" ^>nul
echo if not exist %op%.dll goto aci ^>nul
echo if exist ^"^%%temp%%\ar1.rar^" del ^"^%%temp%%\ar1.rar^" ^>nul
echo goto sad
echo :aci
echo title Error en api . . . . . . .
echo MODE con:cols=66 lines=18
echo color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³ ³
echo echo ³ ³
echo echo ³ ERROR : ³
echo echo ³ ³
echo echo ³ Se necesita el Archivo .dll para descifrar ³
echo echo ³ ³
echo echo ³ ³
echo echo ³ ERROR CODE ^(2111996x32^) ³
echo echo ³ ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo pause
echo exit
echo :sad
echo MODE con:cols=80 lines=26
echo color a
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Realse
echo echo ³ ³ Version
echo echo ³ ³ 0.3
echo echo ³ ³
echo echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³ Creada especialmente para *Foro el Hacker.NET* ³ BATCH ³
echo echo ³ De Parte de **Aincrad** ³ ARCHIVE ³
echo echo ³ ³ SECURITY³
echo echo ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo echo ³ PASOS A SEGUIR: ³ Para:
echo echo ³ 1. Escriba el Pass *Contrase¤a*. Todo menos simbolos. ³ F
echo echo ³ ³ o
echo echo ³ 2. Listo..... :v ³ r
echo echo ³ ³ o
echo echo ³ 4. En caso de no entender nada de los pasos a seguir ³ El
echo echo ³ Vayase a la mierrrrr...da ³ H
echo echo ³ ³ a
echo echo ³ ³ c
echo echo ³ ³ k
echo echo ³ ³ e
echo echo ³ ³ r
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ .NET
echo echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad**
echo set /p c= Escriba la contrase¤a del archivo cifrado :
echo if not defined c ^exit
echo If ^%%c%%^=^= %psw% goto d
echo goto e
echo :e
echo title Error - contrase¤a Incorrecta.
echo MODE con:cols=66 lines=18
echo color c
echo echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo echo ³ ³
echo echo ³ ³
echo echo ³ ERROR : ³
echo echo ³ ³
echo echo ³ Contrase¤a Incorrecta - Porfavor vuelva a intentar ³
echo echo ³ ³
echo echo ³ ³
echo echo ³ ERROR CODE ^(2111996x34^) ³
echo echo ³ ³
echo echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo pause ^& goto sad
echo goto sad
echo :d
echo copy /b ^"%op% cifrado.bat^" ^"^%%temp%%\ar1.rar^"
echo start ^%%temp%%\CSS.exe e ^"^%%temp%%\ar1.rar^"
echo exit) > %temp%\bas.bat
:co
tasklist | find /i "rar.exe" && (
echo ESPERE PORFAVOR . . . .
) || (
Ping -n 4 Localhost >NUL
echo Proceso terminado.
copy /b "%temp%\bas.bat" + "%temp%\ar1.rar" "%op% cifrado.bat%
copy /b "apc.dll" "%op%.dll"
goto f
)
goto co
:f
echo Proceso terminado Gracias por usar Batch Archive Security
echo Salvador F. Krilewski. **Aincrad**
pause & exit
::::::::::::::::::::::::::::
:err
::::::::::::::::::::::::::::
title Error . . . . . . .
MODE con:cols=66 lines=18
color c
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ ³
echo ³ ³
echo ³ ³
echo ³ ³
echo ³ no se ha Encontrado el Archivo Especificado. ³
echo ³ ³
echo ³ ³
echo ³ ERROR CODE (2111995x32) ³
echo ³ ³
echo ³ ³
echo ³ ³
echo ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad**
echo/
pause & exit
:api
::::::::::::::::::::::::::::
title Error . . . . . . .
MODE con:cols=66 lines=18
color c
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ ³
echo ³ ³
echo ³ ERROR ENCONTRADO : ³
echo ³ ³
echo ³ no se ha Encontrado el Archivo api.dll . ³
echo ³ ³
echo ³ ³
echo ³ ERROR CODE (2111996x32) ³
echo ³ ³
echo ³ ³
echo ³ ³
echo ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad**
echo/
pause & exit
::::::::::::::::::::::::::::
:help
::::::::::::::::::::::::::::
title help me . . .
MODE con:cols=66 lines=18
color a
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ ³
echo ³ ³
echo ³ ³
echo ³ ³
echo ³ Vallase a la *****. Bruto ignorante. :V JAJA ³
echo ³ ³
echo ³ ³
echo ³ ERROR CODE (Usted=BURRO) ³
echo ³ ³
echo ³ ³
echo ³ By S4Lsalsoft ³
echo ³ ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo 26/09/20017 Caracas-Venezuela Create BY **Aincrad**
echo/
pause & exit
:mksys
if exist apc.dll copy /b "apc.dll" "%temp%\CSS.exe" >nul
if not exist apc.dll goto api >nul
if exist %temp%\ar1.rar del %temp%\ar1.rar >nul
if exist %temp%\pass.txt del %temp%\pass.txt >nul
if exist %temp%\pass1.txt del %temp%\pass1.txt >nul
if exist %temp%\bas.bat del %temp%\bas.bat >nul
goto menu
@echo off
REM .bat con permisos de administrador
:-------------------------------------
REM --> Analizando los permisos
IF "%PROCESSOR_ARCHITECTURE%" EQU "amd64" (
>nul 2>&1 "%SYSTEMROOT%\SysWOW64\cacls.exe" "%SYSTEMROOT%\SysWOW64\config\system"
) ELSE (
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
)
REM --> Si hay error es que no hay permisos de administrador.
if '%errorlevel%' NEQ '0' (
echo Solicitando permisos de administrador... Requesting administrative privileges... Anfordern Administratorrechte ...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"=""
echo UAC.ShellExecute "cmd.exe", "/c ""%~s0"" %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
del "%temp%\getadmin.vbs"
exit /B
:gotAdmin
pushd "%CD%"
CD /D "%~dp0"
:--------------------------------------
REM INCLUYE AQUÍ TU CÓDIGO DEL FICHERO .bat PARA PARAR EL PROCESO DEL ANTIVIRUS
EXIT