Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Enero 08, 2009, 04:19:25
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: Folder Protector v 4 Portable ¡¡ 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Folder Protector v 4 Portable ¡¡  (Leído 617 veces)
:: SmartGenius™ ::
[Phreaker Moderator]
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2674


Be Smart......!!!

smartgenius@el-hacker.org
Ver Perfil WWW
« en: Junio 22, 2008, 10:12:42 »
Por ahi alguien me dijo que la version 4 estaba buena pero quele gustaba la 1 porque la podiamos levar a cualquier lado, pues aqui traje una nueva version especial que he hecho...

Lo siguiente es hacer una version del Soft paralela a la actual pero que
sera portable y no dependera del sistema...

El Folder Protectore v4 Portable



Descarga:
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion


El programa se puede llevar acualquier lado, y cuenta con una funcion
nueva que nos permite poner una contraseña personalizada a cada carpeta...

Creo que le programa, la ayuda del mismo y el code se explican solos,
asi que solo seria cuestion de que lo prueben...

Aqui este el codigo fuente:

Código:
mode con cols=70
mode con lines=25
 @echo off
title Folder Protector v 4 Portable
color 3b

:def
set carpeta=%1
if "%carpeta%"=="" (goto main)
if exist "%carpeta%\password.tmf" (call :unlock %carpeta% 1) else (call :lock %carpeta%)
exit

:unlock
cls
set carpeta=%1
set par=%2
if "%carpeta%"=="" (goto main)
for /F "tokens=*" %%a in (%carpeta%\password.tmf) do set pass=%%a
echo.
echo           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo           ³ Bienvenido al Folder Protector v 4.0  ³
echo           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo  La carpeta se encuentra protegida...
echo.
echo  Por Favor Introduzca su Clave!
echo.
set /p q="Password > "
if "q"=="" (goto ini)
set q=%q: =_%
if %q%==%pass% call :unlock2 %carpeta% %par%
cls
echo.
echo.
echo E R R O R __ Clave invalida
pause
goto unlock

:main
cls
echo.
echo        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo        ³ Folder Protector v 4.0  Portable ³
echo        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo   Elija una Opcion:
echo.
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿       ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³1³ ³ Bloquear Carpeta...  ³       ³2³ ³ Desbloquear Carpeta..³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿       ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³3³ ³ Ayuda del Programa.. ³       ³4³ ³ Mas Informacion...   ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ       ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo ÚÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³5³ ³ Salir del programa.. ³
echo ÀÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
set /p opc="> "
if %opc%=="" goto main
if %opc%==1 call :escfolder lock 2
if %opc%==2 call :escfolder unlock 2
if %opc%==3 goto help
if %opc%==4 goto info
if %opc%==5 (goto salir) else (goto main)

:escfolder
set ir=%1
set par=%2
echo.
echo  Arrastre una Carpeta aqui para Bloquear/Desbloquear
echo.
set /p folder=">> "
call :%ir% %folder% %par%
goto main

:unlock2
cls
set carpeta=%1
set par=%2
for /F "tokens=*" %%n in (%carpeta%\config.cfg) do set name=%%n
echo.
echo Desbloqueando la carpeta ...
echo.
del /f "%carpeta%\password.tmf"
del /f "%carpeta%\config.cfg"
ren %carpeta% %name%
echo.
echo  La carpeta se ha Desbloqueado y se le
echo  puesto su nombre original...
echo.
echo  Nombre: %name%
echo.
pause
if %par%==1 (exit) else (goto main)

:lock
cls
set carpeta=%1
set par=%2
if "%carpeta%"=="" (goto main)
echo.
echo           ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo           ³ Bienvenido al Folder Protector v 4.0  ³
echo           ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo  Bloquear Carpeta...
echo.
echo  Introduzca el Nombre Original de la Carpeta
set /p ornam=">> "
echo %ornam%>%carpeta%\config.cfg
echo.
echo  Defina una Clave para la carpeta
set /p clave=">> "
echo %clave%>%carpeta%\password.tmf
ren %carpeta% %ornam%.{888DCA60-FC0A-11CF-8F0F-00C04FD7D062}
echo.
echo  La carpeta %ornam% se ha Bloqueado con la Clave %clave%
echo.
pause
if %par%==1 (exit) else (goto main)

:help
cls
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ Ayuda del programa                                                ³
echo ³                                                                   ³
echo ³ El programa cuenta con una funcion especial que le permite al     ³
echo ³ usuario definir una clave personalizada para cada carpeta a       ³
echo ³ proteger, haciendolo mas seguro...                                ³
echo ³                                                                   ³
echo ³ Puede ser ejecutado directamente o arrastrando una carpeta sobre  ³
echo ³ el icono del programa, y se identificara el proceso a realizar,   ³
echo ³ ya sea Bloquear o Desbloquear, por lo que se le preguntara por    ³
echo ³ las opciones adecuadas...                                         ³
echo ³                                                                   ³
echo ³ Simplemente debe arrastrar y llenar los datos necesarios para que ³
echo ³ el programa pueda trabajar...                                     ³
echo ³                                                                   ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
pause
goto main

:info
cls
echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ Nombre del programa: Folder's-Protector Vol 4.0 Portable          ³
echo ³                                                                   ³
echo ³ Mejoras de la version                                             ³
echo ³ Se ha hecho el programa totalmente portable, dando la opcion de   ³
echo ³ bloquear las carpetas en cualquier lugar, incluso en dispositivos ³
echo ³ extraibles como memorias USB y de ese tipo.                       ³
echo ³                                                                   ³
echo ³ Esta version del Programa no es compatible con las versiones      ³
echo ³ normales de Folder Protector ya que usa Claves personalizadas     ³
echo ³ para las carpetas y no para el programa...                        ³
echo ³                                                                   ³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                    :: SmartGenius, Corp. 2008 ::
echo.
echo  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo  ³ Dedicado a la Comunidad Underground Hispana  foro.el-hacker.com ³
echo  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
pause
goto main

:salir
echo.
echo  Gracias por Usar el Programa
echo.
echo  Presione cualquier tecla para Salir...
pause>nul
exit


Por si acaso dudas, favor probar el soft y tambien referirse a la ayuda
que he puesto en el mismo...

El soft esta diseñado para llevarse en el root del Pendrive o USB y no trabaja con carpetas cuyo nombre contengan espacios.... ya estoy trabajando en eso...

Espero sus comentarios y sugerencias...

Saludos.
En línea
Welcome to my Mind......Here I am the Master !
Alfuzi0n
Alfuzi0n
Habitual
*****
Desconectado Desconectado

Mensajes: 156


Alfuzi0n


Ver Perfil
« Respuesta #1 en: Junio 22, 2008, 03:55:22 »
Perdona que sea tan ignorante... pero no lo puedo hacer andar...
Cuando dice arrastra la carpeta arrastro y pongo enter y se cierra

Es la primera ves que uso el Folder Protector....
Osea si lo estoy usando mal... avisa
En línea
:: SmartGenius™ ::
[Phreaker Moderator]
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2674


Be Smart......!!!

smartgenius@el-hacker.org
Ver Perfil WWW
« Respuesta #2 en: Junio 23, 2008, 06:21:37 »
Cita de: Alfuzi0n en Junio 22, 2008, 03:55:22
Perdona que sea tan ignorante... pero no lo puedo hacer andar...
Cuando dice arrastra la carpeta arrastro y pongo enter y se cierra

Es la primera ves que uso el Folder Protector....
Osea si lo estoy usando mal... avisa


men... leete a lo ultimo, tal vez sea tu problema...

Citar
El soft esta diseñado para llevarse en el root del Pendrive o USB y no trabaja con carpetas cuyo nombre contengan espacios.... ya estoy trabajando en eso...

Es un error que se presenta por ser la version portable y por hacer que funcione abriendolo normal o arrastarndo algo encima...

Saludos.
En línea
Welcome to my Mind......Here I am the Master !
:: SmartGenius™ ::
[Phreaker Moderator]
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2674


Be Smart......!!!

smartgenius@el-hacker.org
Ver Perfil WWW
« Respuesta #3 en: Julio 12, 2008, 10:34:02 »
Bueno, gracias a los qie probaron el soft... ya pronto saldra una nueva version, tanto de escritorio como portable y llevara como mejora el uso de scripts VBS y de pronto VB....

asi hacemos mejor la interaccion con el usuario, y hacemos mas fuerte el programa...

Saludos.
En línea
Welcome to my Mind......Here I am the Master !
ECDundy
Habitual
*****
Desconectado Desconectado

Mensajes: 272


erick_cartman_ok
Ver Perfil WWW Email
« Respuesta #4 en: Julio 12, 2008, 03:46:49 »
Hay que felicitarte tu espiritud. No importa que tan mal este tu sencillamente lo publicas como algo que esta bien.
No es para que te sientas mal, pero tiene un monton de errores.
Ok te ayudo un poco.
Citar
echo  Arrastre una Carpeta aqui para Bloquear/Desbloquear
echo.
set /p folder=">> "
set finalfolder="%folder%"
call :%ir% %finalfolder% %par%
con esto eliminas el problema de las carpetas con espacios. Por que no solo son las carpetas con espacios sino tambien las direcciones con espacios como
C:\archivos de programas.
por demas tienes que preguntar si la carpeta elejida es distinta de "" ya que uno presiona enter y continua trabajando.
Te dire otros en el proximo post. Es que el codigo esta algo desordenado. Un poco dificil de leer.
Creo que le faltan unas cuantas versiones para que su funcionamiento sea impecable.
Pero es optimizable ya que es una accion basica.
Tienes demaciada preocupacion por la pacotilla. Eso le dice mucho al usuario sobre quien programo el code.
veamos explica esta parte,  para que sirve?:
Citar
echo  Introduzca el Nombre Original de la Carpeta
set /p ornam=">> "
Todavia estoy pensando cual es el nombre original de la carpeta. Lo digo en serio.
Acabo de pasar una carpeta. Que cosa tiene de poco original la carpeta que envie.

Seguire leyendo cuando publiques otra version de seguro contando desde ahora hasta el proximo ano ya que nunca terminas un code. Simplemente empiezas otro y otro y todos funcionan mal. Demaciados errores por linea.
En línea

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

                                                   
 
:. Soldier .:
Game Over
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1167


Searching a new nick...


Ver Perfil WWW Email
« Respuesta #5 en: Julio 12, 2008, 04:10:38 »
No es posible que seas tan desconsiderado ECDundy, ya en 2 post criticando los trabajos de :: SmartGenius™ :: ツ, en el post de Nueva Propagacion P2P, ya estaba escribiendo sobre lo que dices y cerraron el post, todos aqui aprendemos y no al primer code que realizamos, de errores aprendimos y seguiremos aprendiendo asi o a caso tu eres perfecto ??, (cuida tu vocabulario pork nadamas bajas el autoestima y las ganas de trabajar a quienes criticas en esta caso a :: SmartGenius™ :: ツ), lo que logras nadamas es que cierren su tema donde todavia pueden postear otros users y sacar dudas y de seguro con esto que acabo de escribir lo van a cerrar tambien, pero no me puedo kedar con los brazos cruzados viendo como criticas el arduo trabajo de :: SmartGenius™ :: ツ .

PD: Espero no cierren el tema

Salu2
En línea

Visita mi Blog: ↓

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
:: SmartGenius™ ::
[Phreaker Moderator]
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2674


Be Smart......!!!

smartgenius@el-hacker.org
Ver Perfil WWW
« Respuesta #6 en: Julio 13, 2008, 11:59:33 »
ECDUndy.. si miras la primera version dle programa y la comparas con este veras que el codigo ha cambiado bastante..

ademas que al hacer una version portable ha cambiado el enfoque del programa, y como dije en el post, lo diseñe para funcionar en dispositivos portables.. osea en las USB, si quieres algo para progeter carpetas del PC usas la otra version que trabaja mejor, pero esta es para las USB, aunque se que tenia el problema de las carpetas con espacios, aunque pensaba solucionarlo...

Por eso dije que esperaba sugerencias y ayuda, se que no soy perfecto y al igual que todos puedo tener errores...

Saludos.
En línea
Welcome to my Mind......Here I am the Master !
plof
Miembro
*****
Desconectado Desconectado

Mensajes: 92



Ver Perfil Email
« Respuesta #7 en: Julio 13, 2008, 12:47:06 »
Cita de: ECDundy en Julio 12, 2008, 03:46:49
Hay que felicitarte tu espiritud. No importa que tan mal este tu sencillamente lo publicas como algo que esta bien.
No es para que te sientas mal, pero tiene un monton de errores.
Ok te ayudo un poco.
Citar
echo  Arrastre una Carpeta aqui para Bloquear/Desbloquear
echo.
set /p folder=">> "
set finalfolder="%folder%"
call :%ir% %finalfolder% %par%
con esto eliminas el problema de las carpetas con espacios. Por que no solo son las carpetas con espacios sino tambien las direcciones con espacios como
C:\archivos de programas.
por demas tienes que preguntar si la carpeta elejida es distinta de "" ya que uno presiona enter y continua trabajando.
Te dire otros en el proximo post. Es que el codigo esta algo desordenado. Un poco dificil de leer.
Creo que le faltan unas cuantas versiones para que su funcionamiento sea impecable.
Pero es optimizable ya que es una accion basica.
Tienes demaciada preocupacion por la pacotilla. Eso le dice mucho al usuario sobre quien programo el code.
veamos explica esta parte,  para que sirve?:
Citar
echo  Introduzca el Nombre Original de la Carpeta
set /p ornam=">> "
Todavia estoy pensando cual es el nombre original de la carpeta. Lo digo en serio.
Acabo de pasar una carpeta. Que cosa tiene de poco original la carpeta que envie.
Seguire leyendo cuando publiques otra version de seguro contando desde ahora hasta el proximo ano ya que nunca terminas un code. Simplemente empiezas otro y otro y todos funcionan mal. Demaciados errores por linea.
Huh........blah blah blah.
En línea
r0B!n h00d
hackerdeelsalvador.tk
Habitual
*****
Desconectado Desconectado

Mensajes: 160


Cristo vive buscalo. hackerdeelsalvador.tk

hackerdeelsalvador.tk
Ver Perfil WWW
« Respuesta #8 en: ſeptiembre 25, 2008, 07:05:15 »
Bien echo smartgenius te felicito por ese espectacular programa.
salu2
En línea

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
www.hackerdeelsalvador.tk
:: SmartGenius™ ::
[Phreaker Moderator]
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2674


Be Smart......!!!

smartgenius@el-hacker.org
Ver Perfil WWW
« Respuesta #9 en: ſeptiembre 25, 2008, 07:10:18 »
Cita de: [newbie] en ſeptiembre 25, 2008, 07:05:15
Bien echo smartgenius te felicito por ese espectacular programa.
salu2


jeje...gracias..aunque ya deje este proyecto atras y me embarque en unos mas productivos...

Aparte ya existe un soft con el mismo nombre y totalmente funcional...buscalo...Folder Protector de KaKaSoft...casi el mismo sistema...mas unas cositas mas...

Y si quieres algo de proteccion para tus archivos..usa el VirtualDrive v2...

Saludos.
En línea
Welcome to my Mind......Here I am the Master !
wizard_0
Habitual
*****
Desconectado Desconectado

Mensajes: 159


wizard_0_@hotmail.com
Ver Perfil Email
« Respuesta #10 en: ſeptiembre 25, 2008, 07:59:58 »
 Cool Hola  "Smart"  esto  m  hizo  recuerdo  al  code..  de  Folder Protector  q   modifique  en  "foro.code-makers.es"   gracias  a  tu  idea... 

Se  me  habia  olvidado  postearlo...  pero  lo  estoy  posteando  en  este  momento, en  el  lugar  de  donde  debe...



salu2-->


Pd: No  hay  problema  si  lo  posteo  aka ?¿?
En línea
↑__P®egun†a__b!na®¡a__↑

3reS_un__[1]__ø__[0]__?¿?¿
        ø__vives__ø__mueres

Si__estas__v1vø_!!!__ganate__el__ saludo_!!!

"
Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion"
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: Folder Protector v 4 Portable ¡¡ « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC