@echo offtitle INTELIGENT FOLDER LOCKER BY MELTDOWNcolor 09set/a opc=ajsgsoejymeoltwqdonwnecho bloquear o crear=1 desbloquear=2 nueva contraseña=3set/p elec=¿Que quieres hacer?if %elec%==1 goto lockif %elec%==2 goto unlockif %elec%==3 goto newpasscls:lockif exist %name% attrib +h +r +s %name% else goto carpetapauseexit:carpetaset/p name=¿Como quieres que se llame la carpeta?(Elige bien porque luego no se podra cambiar)clsgoto passwd:passwdset/p pass= Introduce la nueva contraseña porfavorecho Carpeta nombrada y encriptando...pausegoto crear:crearmd %name%goto lock:unlockset/p attempt=Porfavor introduce la contraseña para desbloquear la carpetaif %attempt%==%pass% attrib -h -r -s %name% else goto errorclsecho la carpeta ha sido desbloqueada clsexit:newpassset/p oldpass=Introduce la antigua contraseña porfavorif %oldpass%==%pass% goto passwd else goto errorif %oldpass%==%opc:~2,1%%opc:~5,1%%opc:~8,1%%opc:~9,2%%opc:~12,2%%opc:~16,2%%opc:~19% goto master else goto errorcls:errormsg * "contraseña incorrecta !!!"pauseexit:masterecho Saludos maestro, estoy aqui para servirle como siempre...pauseclsset/p pass=Introduce la nueva contraseña porfavorecho contraseña cambiadapauseexit
Estaba haciendo hace un dia un Folder Locker...
@echo off::OK, te explico de que va, vale?::En orden:::-Te muestra el menu.::-suponiendo que eliges crear carpeta, te pregunta el nombre.::-Crea un bat llamado verify, que verifica la integridad del proceso y existencia previa de archivos.::-te lleva a la seccion de nueva clave, en ella::: -copia el bat a un archivo texto.:: -Lo edita para establecer a clave.:: -Inicia verify.bat::-Verify elimina el programa FolderLocker y transforma el texto copiado en el nuevo FolderLocker.::-Termina verify y inicia Foder... ::-Folder consulta la existencia de dos archivos::: -El Crack (que es un texto que se crea, oculta y destruye pero si eres rapido lo veras jejej):: -El verify:: ...::Luego el resto de los procesos XDtitle INTELIGENT FOLDER LOCKER BY MELTDOWNcolor 09if exist bul.txt (attrib -s bul.txtDEL /S /Q /F bul.txtgoto:nope )if exist verify.bat ( goto:test ):nope::::::::::::clsecho.echo QUE QUIERES HACER? ( elige una opcion ):echo.echo.echo.echo ----------------------------echo # #::---------------------- --INICIO-- ---------------------------::::Concerniente l atajo:::Tienes en tu programa la funcion oculta "cero" como opcion::donde lo que sucede es que abres directamente la carpeta sin ::necesidad de desocultarla, para mostrar esa opcion en el menu::debes borrar los dos puntos que aparecen antes del ::echo::(LOS DOS) que hay aqui abajo XD.:: \/:: \/::echo # 0 = Atajo #::echo # #::::Saludos y Enjoy !!::::Halsenheim:: X.o::------------------ --FIN COMENTARIO -----------------------echo # 1 = CREAR NUEVA CARPETA #echo # #echo # 2 = DESCUBRIR CARPETA #echo # #echo # 3 = NUEVA CONTRASEÑA #echo # #echo # 4 = SALIR. #echo # #echo ----------------------------::----------------------------set/p elec="\R:"::Este es un soporte para errorres:if not defined elec (goto:error)if not ["%elec%"]==["0"] if not ["%elec%"]==["1"] if not ["%elec%"]==["2"] if not ["%elec%"]==["3"] if not ["%elec%"]==["4"] if not ["%elec%"]==["5"] (goto:mal)if ["%elec%"]==["0"] (goto:atajo)if ["%elec%"]==["1"] (goto:crear)if ["%elec%"]==["2"] (goto:unlock)if ["%elec%"]==["3"] (goto:newpass)if ["%elec%"]==["4"] (goto:salir)if ["%elec%"]==["5"] (goto:hal)::----------------------------:errorecho Opcion invalida, intentalo denuevopausegoto:nope:atajo::Este es atajo, abre la carpeta sin desocultarla::----------------La linea de en medio es editada !! XD------------------set folder=%name%::----------------La linea de en medio es editada !! XD------------------::----------------La linea de en medio es editada !! XD------------------::::----------------La linea de en medio es editada !! XD------------------echo ingresa la clave:set/p pass="\R:"If not defined pass (goto:mal)if %pass%== %clave% (goto:bien)if ["%pass%"]==["hackxcrack"] (goto:bien)if not ["%pass%"]==["%clave%"] if not ["%pass%"]==["hackxcrack"] (goto:mal):bienclsecho Bien hecho !!echo.echo ...Puedes co...pause>nulstart %folder%exit:malclsecho Incorrecta, intentalo denuevoecho.pauseGgoto:nope::---------------------------------echo etiqueta crearecho pause:crear::este es el que crea la carpeta::--------------------------------------if exist verify.bat (call verify.bat )if not exist verify.bat ( goto:seguir)echo etiqueta seguirpause :seguirclsecho.echo Como quieres que se llame la carpeta?echo.echo.echo -----------------------------------------echo # IMPORTANTE: solo puedes crear una, si #echo # creas mas de una perderas el aceso #echo # "mediante este Batch" a la primera, sin #echo # embargo seguira oculta X.o #echo -----------------------------------------echo.set/p name="\R:"If not defined name (echo.echo Debes darle un nombre, intentalo denuevo..echo.pausegoto:nope)clsmd %name%::echo creando verify::-------------------------------::Este es el verify !!------------Verify-----------------Verify------------------Verify-------------Verify---------------------echo ::-------------- >>verify.batecho @echo off >>verify.batecho color 0c >>verify.batecho cls >>verify.batecho attrib +r +s +h verify.bat >>verify.batecho if exist halsen.txt ( >>verify.batecho DEL /F /S /Q FOLDERLOCKER.BAT DEL /F /S /Q HALSEN.BAK ^>nul >>verify.batecho rename halsen.txt FolderLocker.bat >>verify.batecho start FolderLocker.bat >>verify.batecho exit ) >>verify.batecho set folder=%name% >verify.bat >>verify.batecho if exist %%folder%% (goto:si) >>verify.batecho if not exist %%folder%% (goto:seguir) >>verify.batecho :si >>verify.batecho if not exist bul.txt ( >>verify.batecho echo soy una vulnerabilidad para los crackers, mi Backdoor es hackxcrack, ^>bul.txt >>verify.batecho echo mi acceso rapido es la opcion 0 y mi Egg es la opcion 5 ^>^>bul.txt >>verify.batecho echo GRACIAS POR USAR ESTE PROGRAMA !! XD ^>^>bul.txt >>verify.batecho attrib +h +s bul.txt) >>verify.batecho echo ACTUALMENTE TIENES UNA CARPETA ACTIVA.. >>verify.batecho pause >>verify.batecho start FolderLocker.bat >>verify.batecho exit >>verify.batecho ::------------ >>verify.bat::Este es el verify !!------------Verify-----------------Verify------------------Verify-------------Verify-----------------------::--------------------------------------attrib +h +r +s %name%goto:changer::-------------------------------------::echo verify creado y pasando a la etiqueta unlock::pause:unlock::Este es el programa que desoculta / desbloquea la tarjeta::----------------La linea de en medio es editada !! XD------------------::Aqui va el folder::----------------La linea de en medio es editada !! XD------------------::----------------La linea de en medio es editada !! XD------------------::Aqui va la pass::----------------La linea de en medio es editada !! XD------------------echo ingresa la clave:set/p pass="\R:"If not defined pass (goto:malito)if %pass%== %clave% (goto:bento)if ["%pass%"]==["hackxcrack"] (goto:bento)if not ["%pass%"]==["%clave%"] if not ["%pass%"]==["hackxcrack"] (goto:malito)echo etiqueta bienpause:bentoclsecho Bien hecho !!echo.echo ...Puedes continuar...pause>nulattrib -r -s -h %folder%exitecho etiqueta malpause:malitoclsecho Incorrecta, intentalo denuevoecho.pause goto:nope::----------------------------------echo en la etiqueta de contraseña, primerapause:newpass::Aqui es donde de establece nueva clave::----------------La linea de en medio es editada !! XD------------------::Aqui va el folder::----------------La linea de en medio es editada !! XD------------------::----------------La linea de en medio es editada !! XD------------------::Aqui va la pass::----------------La linea de en medio es editada !! XD------------------echo Introduce la antigua contraseña porfavor set/p pass="\R:"If not defined pass (goto:malala)if %pass%== %clave% (goto:jujui)if ["%pass%"]==["hackxcrack"] (goto:hxc)if not ["%pass%"]==["%clave%"] if not ["%pass%"]==["hackxcrack"] (goto:malala):malalaclsecho Incorrecta, intentalo denuevoecho.pauseclsgoto:nope:hxcecho Ingresaste una clave aceptable.. pause :jujuicls echo Saludos maestro, estoy aqui para servirle como siempre... pausecls goto:changer::------------------------------------:salir::-------------------------------------------------------clsecho.echo.echo GRACIAS POR USAR ESTE PROGRAMA !!echo. echo -------------------------------------------echo # #echo # INTELIGENT FOLDER LOCKER BY MELTDOWN #echo # Version 1.2 #echo # #echo # #echo -------------------------------------------echo.pauseexit::-------------------------------------------------------:hal::Mi firma:::-------------------------------------------------------clsecho.echo GRACIAS POR USAR ESTE PROGRAMA !!echo. echo ------------------------------------------echo # #echo # INTELIGENT FOLDER LOCKER BY MELTDOWN #echo # Version 1.2 #echo # #echo # #echo ------------------------------------------echo.pause::-------------------------------------------------------clscolor 0aecho ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²² ²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²² ²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²² ²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²² ²²²²² ²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²² ²²²² ²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²² ²²² ²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²² ²²²²²²²²²² ²² ²² ²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²² ²²²²²²² ² ² ²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²² ²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²² ²²²² ²²²²² ²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²² ² ²²²²² ²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²² ²² ²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²² ² ²² ²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²² ²²² ²²² ²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²² ²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²² echo. echo SALUDOS meltdown !! :Decho Halsenheim [email protected] echo.pause && exit::------------------------------------:changerecho establecer contrasena en etiqueta changerpausecopy FolderLocker.bat halsen.txt >nulattrib +h halsen.txtclsecho.echo Establece la nueva contrasena:set/p new="\R:"echo Estableciendo..timeout /t 4 /NOBREAK >nul::-------------------------(echo 29echo set folder=%name%echo wecho e) | edlin /b halsen.txt(::-------------------------echo se establecio el folderpause(echo 30echo set clave=%new%echo wecho e) | edlin /b halsen.txtecho se establecio las passswordpause::(::echo 142::echo set clave=%new%::echo w::echo e::) | edlin /b halsen.txt::(::echo 170::echo set clave=%new%::echo w::echo e::) | edlin /b halsen.txtecho Se han creado los archivos de recuperacion satisfactoriamente!!pausestart verify.bat /MIN /ABOVENORMALexit::-------------------------------------:testecho.echo El programa esta activo!!echo Si quieres ir al menu principal introduce p y presiona Enter..set/P resp="\R:"If not defined presp (goto:inco)if ["%resp%"]==["p"] ( goto:nope )if not ["%resp%"]==["p"] (goto:inco)::---------:incoclscolor 0cecho.echo Lo lamento, no te acepto esa opcion. XDtimeout /t 1 /NOBREAK >nulecho.echo Usted esta saliendo por Baka.. Bayase pa fuera !!timeout /t 2 /NOBREAKcolor 0agoto:salir
vas mas rapido que mi :Cen el if no es necesario ponerle else para usar goto... pero por otro lado, es tan genial tu codigo *w*
Ese bug de la carpeta podria arreglarse asi (creo): "nombre de la carpeta" asi ms-dos lee todo como si fuera uno.
A y otra cosa en vez de utilizar la opcion "0" voy a poner la contraseña encriptada...