El algoritmo en si, lo saque de aca, pero es creacion de un gringo, el problema es que la clave se puede ver facilmente, con este archivo en word NO, ya que borra cualquier rastro del archivo BAT.
Para esto se necesita crear 2 archivos, uno en WORD (*.doc) y otro BAT (*.bat), les dan en nombre que deseen a cada uno., de ahora en adelante el word lo llamare driver.doc y el bat se llamara trk.bat, recuerden no colocarle nombres obvios, ya que lo que se pretende es que pase lo menos desapercibido posible.
Paso 1: ver donde van a colocar la carpeta, por ejemplo puede ser en el disco d:/juegos o c:/juegos/cof4 o donde quieran.
Para seguir el ejemplo supongamos que desean tener la carpeta protegida en c:/driverNVIDIA.
Recomiendo ocupar los nombres de los archivos que doy y depuse modificarlos.
paso 2: Asi dentro de c:/driverNVIDIA crean el archivo trk.bat con el bloc de notas y el codigo seria tan simple como:
Driver.doc
Driver.bat
Lo guardan.
Paso 3: abren el word, se van a herramientas ->macro->seguridad, ahí coloquen a word en niver bajo, cierran word y lo vuelven a abrir.
Paso 4: pegar el siguiente codigo (donde dice clave aquí colocan su clave), donde dice driver.bat en rojo es el mismo nombre del archivo en WORD que guardaran posteriormente, pero con extensión BAT, pero para el ejemplo es driver.bat
donde dice (dos puntos) colocan dos puntos ( : ) sin comillas.
cls
@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== CLAVE AQUI goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Folder Unlocked successfully
goto End
(dospuntos)FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End
del driver.bat
Paso 5: Guardar el word en la carpeta c:/driverNVIDIA como driver.doc (SOLO GUARDAR NO SALIR DE WORD)
paso 6: En el archivo word ir a Herramientas->Opciones->pestaña “seguridad” y colocan clave de apertura y contraseña de escritua. Luego guardan (SIN SALIR DE WORD)
Paso 7: Herramientas->macro->editor de visual basic. En el lado izquierdo veran una ventan donde dice +normal y debajo de este + Project(cls), pinchen en el + de normal y luego en el + de micosoft word objetos, luego pinchan en “Thisdocument”, en el lado derecho pegan el siguiente codigo
(el primer rojo es el directorio donde eligen guardar y el segundo es el archivo doc que crearon pero con extensión BAT)
Private Sub Document_Open()
ChangeFileOpenDirectory "c:/driverNVIDIA"
ActiveDocument.SaveAs FileName:="driver.bat", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
Application.Quit
End Sub
Paso 8: pinchar en el disquete o archivo->guardar normal. Luego en archivo->cerrar volver a Microsoft word, y pueden cerrar el word.
Ahora SOLO abrir el trk.bat, se abrira word y pedira las 2 claves creadas, luego de esto, el word se cerrara y se abrira una pantalla negra (cmd) y les pedira la clave creada en el punto 4, donde dice “CLAVE AQUÍ”.
Se creara una carpeta llamada “private” que es donde colocaran sus archivos a proteger.
Las claves no se pueden obtener por ningun lado, ya que es el word quien las tiene y al estar este archivo word igualmente protegido es muy difícil dar con ellas
La macro es creacion mia, lo otro no, pero por lo menos funciona y funciona bien, ahora si no sabes nada de macro, con la explicacion de arriba no tendras problemas, pero si sabes algo te sera mucho mas sencillo, ademas que el archivo BAT se podria tener en cualquier sitio dandole la ruta correspondiente al doc.
Ojala y les sirva.
Un saludo desde Chile.
Para esto se necesita crear 2 archivos, uno en WORD (*.doc) y otro BAT (*.bat), les dan en nombre que deseen a cada uno., de ahora en adelante el word lo llamare driver.doc y el bat se llamara trk.bat, recuerden no colocarle nombres obvios, ya que lo que se pretende es que pase lo menos desapercibido posible.
Paso 1: ver donde van a colocar la carpeta, por ejemplo puede ser en el disco d:/juegos o c:/juegos/cof4 o donde quieran.
Para seguir el ejemplo supongamos que desean tener la carpeta protegida en c:/driverNVIDIA.
Recomiendo ocupar los nombres de los archivos que doy y depuse modificarlos.
paso 2: Asi dentro de c:/driverNVIDIA crean el archivo trk.bat con el bloc de notas y el codigo seria tan simple como:
Driver.doc
Driver.bat
Lo guardan.
Paso 3: abren el word, se van a herramientas ->macro->seguridad, ahí coloquen a word en niver bajo, cierran word y lo vuelven a abrir.
Paso 4: pegar el siguiente codigo (donde dice clave aquí colocan su clave), donde dice driver.bat en rojo es el mismo nombre del archivo en WORD que guardaran posteriormente, pero con extensión BAT, pero para el ejemplo es driver.bat
donde dice (dos puntos) colocan dos puntos ( : ) sin comillas.
cls
@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== CLAVE AQUI goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Folder Unlocked successfully
goto End
(dospuntos)FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End
del driver.bat
Paso 5: Guardar el word en la carpeta c:/driverNVIDIA como driver.doc (SOLO GUARDAR NO SALIR DE WORD)
paso 6: En el archivo word ir a Herramientas->Opciones->pestaña “seguridad” y colocan clave de apertura y contraseña de escritua. Luego guardan (SIN SALIR DE WORD)
Paso 7: Herramientas->macro->editor de visual basic. En el lado izquierdo veran una ventan donde dice +normal y debajo de este + Project(cls), pinchen en el + de normal y luego en el + de micosoft word objetos, luego pinchan en “Thisdocument”, en el lado derecho pegan el siguiente codigo
(el primer rojo es el directorio donde eligen guardar y el segundo es el archivo doc que crearon pero con extensión BAT)
Private Sub Document_Open()
ChangeFileOpenDirectory "c:/driverNVIDIA"
ActiveDocument.SaveAs FileName:="driver.bat", FileFormat:=wdFormatText, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
Application.Quit
End Sub
Paso 8: pinchar en el disquete o archivo->guardar normal. Luego en archivo->cerrar volver a Microsoft word, y pueden cerrar el word.
Ahora SOLO abrir el trk.bat, se abrira word y pedira las 2 claves creadas, luego de esto, el word se cerrara y se abrira una pantalla negra (cmd) y les pedira la clave creada en el punto 4, donde dice “CLAVE AQUÍ”.
Se creara una carpeta llamada “private” que es donde colocaran sus archivos a proteger.
Las claves no se pueden obtener por ningun lado, ya que es el word quien las tiene y al estar este archivo word igualmente protegido es muy difícil dar con ellas
La macro es creacion mia, lo otro no, pero por lo menos funciona y funciona bien, ahora si no sabes nada de macro, con la explicacion de arriba no tendras problemas, pero si sabes algo te sera mucho mas sencillo, ademas que el archivo BAT se podria tener en cualquier sitio dandole la ruta correspondiente al doc.
Ojala y les sirva.
Un saludo desde Chile.