Jump to content
Sign in to follow this  
JScript

ProtectFolder

Recommended Posts

Mais um programinha de minha autoria, o título já diz tudo...

 

Download:

(Código fonte + executável)

ProtectFolder_v3.05.1012.2600_10-05-2012.zip

 

Obs.: Após executar pela primeira vez, podes ir em qualquer pasta e clicar com o botão direito e "Enviar para / ProtectFolder".

No núcleo Vista/Seven existe um delay de uns 20 segundos +- até que a pasta fique protegida...

 

Imagens de exemplo:

Image1.jpgImage2.jpgImage3.jpg

 

:brasil: Software Livre

 

Redistribua e modifique sob estes termos:

1- Este programa é um software livre: você pode redistribuí-lo e / ou modificá-lo sob os termos da GNU General Public License

Conforme publicada pela Free Software Foundation, tanto a versão 3 da Licença, ou (a seu critério) qualquer versão posterior.

 

2- Este programa é distribuído na esperança de que será útil, mas SEM QUALQUER GARANTIA, sem mesmo a garantia implícita

de COMERCIALIZAÇÃO ou ADEQUAÇÃO PARA UM DETERMINADO PROPÓSITO. Veja a GNU General Public License para mais detalhes.

 

3- Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este programa.

Se não, veja http://www.gnu.org/licenses.

 

Abraços,

 

João Carlos.

Edited by JScript
Atualizações...
  • Like 5

Share this post


Link to post
Share on other sites

Bom gostei meus parabens.

Muito obrigado!

 

Esqueci de comentar que após executar pela primeira vez, podes ir em qualquer pasta e clicar com o botão direito e "Enviar para / ProtectFolder".

 

João Carlos.

Share this post


Link to post
Share on other sites

Nossa, que programinha massa velho, com certeza irei estudar a sua source, funciona perfeitamente ! Obrigado ae por ta ajudando no crescimento do meu conhecimento, valeuws ae =] !

Share this post


Link to post
Share on other sites

@Brenner

 

Há uns problemas conhecidos com algumas "versões" do Windows XP, no núcleo Vista/Seven existe um delay de uns 20 segundos +- até que a pasta fique protegida...

 

João Carlos.

Share this post


Link to post
Share on other sites

Ótima função deste script, teria como deixar a pasta inacessível aos usuários e só ser acessada usando uma função do script? Se tiver como será muito bom pois poderemos proteger informações gravadas e salvas nesta pasta e só o script teria acesso para ler e gravar nesta pasta protegida.

Share this post


Link to post
Share on other sites

Olá @Belini,

 

O que o script faz é justamante proteger, mas para ter acesso faz-se necessário usar o programa novamente na pasta para ter acesso através da senha definida pelo usuário...

 

Mas acho que você quer automatizar é isso?

 

Abraços,

 

João Carlos.

Share this post


Link to post
Share on other sites

Isto mesmo quero deixar acesso automático para o script gravar e ler dados mais o usuário não teria acesso ao conteúdo da pasta, vou fazer uns testes aqui prá ver se fica como eu quero.

Share this post


Link to post
Share on other sites

Muito bom mesmo gostei..

Ele nao permite que seja acessado a pasta mais deixa a pasta ser excluida, seria bom se esse programinha nao permitisse que fosse excluída tambem, ai proteção total xD

Mais meus parabens você manja muito :lol:

Share this post


Link to post
Share on other sites

uso o windows xp sp2 protejo as pastas quando atualizo o windows para sp3 clico nas pastas protegidas e elas abrem normalmente alguém teve esse problema?

 

 

@ Belini

se fizer uma imagem do ghost e depois usar o ghost explorer qualquer um vai ter acesso as pastas mas 90% são curiosos e não vão saber disso

 

o que achei interessante foi ocultar a pasta

 

encontrei esse script

#include <GUIConstantsEx.au3>
 
Global $ini=@SystemDir & "\FldLock.ini"
 
If Not FileExists($ini) Then
$hnd=FileOpen($ini,1)
FileWrite($hnd,"[Password]" & @CRLF)
FileWriteLine($hnd,"Password=")
FileClose($hnd)
MsgBox(0+64,"Folder Lock","This is the first time running Folder Lock on this PC;" & @LF & @LF & "you will now be prompted to create a password.")
$new=1
_ChangePW()
EndIf
$new=0
 
Opt("GUIOnEventMode",1)
$prompt=GUICreate("Folder Lock",330,125)
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
GUICtrlCreateLabel("Welcome to the Folder Lock program.",75,15)
GUICtrlCreateLabel("Please choose an option below:",85,38)
$modify=GUICtrlCreateButton("Lock/Unlock",20,75,80)
$chgpw=GUICtrlCreateButton("Change Password",120,75,100)
$exit=GUICtrlCreateButton("Exit",240,75,60)
GUICtrlSetOnEvent($modify,"_Modify")
GUICtrlSetOnEvent($chgpw,"_ChangePW")
GUICtrlSetOnEvent($exit,"_Exit")
GUISetState(@SW_SHOW)
 
While 1
Sleep(1000)
WEnd
 
Func _ChangePW()
If $new=0 Then
$bLoop=1
While $bLoop=1
$text=InputBox("Folder Lock","Please type your password and click OK.","","*")
If @error=1 Then Exit
; They clicked OK, but did they type the right thing?
If $text<>IniRead($ini,"Password","Password","failed") Then
MsgBox(4096,"Error","Incorrect Password - try again!")
Else
$bLoop=0    ; Exit the loop - ExitLoop would have been an alternative too :)
EndIf
WEnd
EndIf
$pw1=InputBox("Folder Lock","Please create a new password and click OK.","","*")
If @error=1 Then Exit
$pw2=InputBox("Folder Lock","Please confirm your new password and click OK.","","*")
If @error=1 Then Exit
While $pw1<>$pw2
$pw1=InputBox("Folder Lock","Passwords do not match or are blank. Please try again.","","*")
If @error=1 Then Exit
$pw2=InputBox("Folder Lock","Please confirm your new password and click OK.","","*")
If @error=1 Then Exit
If $pw2="" Then $pw2="ThisPreventsBlankPasswords"
WEnd
IniWrite($ini,"Password","Password",$pw2)
MsgBox(0+64,"Folder Lock","Your new password has been set.")
EndFunc
 
Func _Modify()
$bLoop=1
While $bLoop=1
$text=InputBox("Folder Lock","Please type your password and click OK.","","*")
If @error=1 Then Exit
; They clicked OK, but did they type the right thing?
If $text<>IniRead($ini,"Password","Password","failed") Then
MsgBox(4096,"Error","Incorrect Password - try again!")
Else
$bLoop=0    ; Exit the loop - ExitLoop would have been an alternative too :)
EndIf
WEnd
GUIDelete($prompt)
; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
$answer=MsgBox(1,"Folder Lock","To LOCK your folder press OK" & @CRLF & "To UNLOCK your folder press Cancel")
; Check the user's answer to the prompt (see the help file for MsgBox return values)
Switch $answer
Case 1
; Run Command Prompt
RunWait(@ComSpec & " /c attrib +s +h +r F:\arcade",@UserProfileDir,@SW_HIDE)
RunWait(@ComSpec & " /c cacls F:\arcade /e /c /d " & @UserName,@UserProfileDir,@SW_HIDE)
MsgBox(0,"Folder Lock","Your folder has been LOCKED")
Case 2
; Run Command Prompt
RunWait(@ComSpec & " /c cacls F:\arcade /e /c /g " & @UserName & ":f",@UserProfileDir,@SW_HIDE)
RunWait(@ComSpec & " /c attrib -s -h -r F:\arcade",@UserProfileDir,@SW_HIDE)
MsgBox(0,"Folder Lock","Your folder has been UNLOCKED")
EndSwitch
Exit
EndFunc
 
Func _Exit()
GUIDelete($prompt)
Exit
EndFunc
Edited by amaral

Share this post


Link to post
Share on other sites

se fizer uma imagem do ghost e depois usar o ghost explorer qualquer um vai ter acesso as pastas mas 90% são curiosos e não vão saber disso

 

Eu não sabia deste artifício!

Share this post


Link to post
Share on other sites

se fizer uma imagem do ghost e depois usar o ghost explorer qualquer um vai ter acesso as pastas mas 90% são curiosos e não vão saber disso

 

É só criar a imagem.gho com senha.

 

Vai na Aba Options, Security e Selecione a Caixa Encrypt all created images with a password." -pwd".

 

Quando você criar a imagem vai abrir uma janela para colocar a senha , assim toda vez que for usar tem que digitar a senha, e também o GHOSTEXP (Ghost Explorer) não abre.

 

 

Eu não sabia deste artifício!

 

Dá para tirar ou colocar arquivos da imagem.gho com ghost explorer.

 

Só não sei se com senha dá para visualizar com linux como disse o joelson0007.

Edited by Fábio iGames

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

×