Any Idea How To Password Protect A Folder?

[AzKay]

Yeah. I Want pass protect one of my folders, and not allow searching on it to, via the windows search.

EDIT::

Okay, would there be a way to do it with autoit?

Edited July 17, 2006 by AzKay

[jvanegmond]

You can set properties to hidden and windows search won't find it (depends on options, standard doesn't find it). Password protection, as far as i know is impossible. However: Hide the window, and your only way of opening is it is by typing the adres, so that's kind of a password.

Edit: You can also just encrypt your porn or something...

Edited July 17, 2006 by Manadar

[AzKay]

Then Id have to decrypt it , Well, basically, im paranoid, its my laptop, my mum doesnt know how to use a computer, and im always on it, but im still paranoid xD, Even though, she wouldnt care if I looked at pr0n, but yeah...

EDIT::

What pr0n

Edited July 17, 2006 by AzKay

[jvanegmond]

What's up with this whole community? Porn rocks!

[AzKay]

Rofl. Well, When people ask about it, its a trick question, do they want you to say yes, or no

[SmOke_N]

http://www.autoitscript.com/forum/index.ph...c=22355&hl=

[Paulie]

Maybe something like this to protect a pr0n folder

#NoTrayIcon
Opt('WinTitleMatchMode',2); this is excludable

Global $pass1= "*Your Pass Here*" ;Change  this to your pass
Global $pass2, $done = 0

While 1
     If Winexists("AzKays Special Place") then ;name of folder here
          LockOut()
     Endif
Wend

Func LockOut
    Do
        WinMinimizeall()
        Winsetstate("Azkays Special Place", "", @SW_HIDE) ;Folder Name goes here too 
        $pass2 = InputBox("Protected", "Please Input Password to Access Folder.", "", "*M")
        If $pass2 = $pass1 then
            MsgBox(0, "Correct", "Correct Password")
            Winsetstate("Azkays Special Place", "", @SW_SHOW)
            WinMinimizeallUndo()
            $done = 1
        Else
            MsgBox(0, "Wrong", "Incorect Password, Try Again"
        Endif
    Until $done = 1
EndFunc

It's not unbeatable by far,

but it will stop the semi-technilogically impared

Edited July 18, 2006 by Paulie

[ivan]

You can always compress the folder with some took like 7zip which can be found via sourceforge.net and password protect the compressed file. Then delete your prOn folder and decompress the folder whenever you feel like it.

IVAN

Just don't forget your password

Edited July 18, 2006 by ivan

[AzKay]

Maybe something like this to protect a pr0n folder

#NoTrayIcon
Opt('WinTitleMatchMode',2); this is excludable

Global $pass1= "*Your Pass Here*" ;Change  this to your pass
Global $pass2, $done = 0

While 1
     If Winexists("AzKays Special Place") then ;name of folder here
          LockOut()
     Endif
Wend

Func LockOut
    Do
        WinMinimizeall()
        Winsetstate("Azkays Special Place", "", @SW_HIDE) ;Folder Name goes here too 
        $pass2 = InputBox("Protected", "Please Input Password to Access Folder.", "", "*M")
        If $pass2 = $pass1 then
            MsgBox(0, "Correct", "Correct Password")
            Winsetstate("Azkays Special Place", "", @SW_SHOW)
            WinMinimizeallUndo()
            $done = 1
        Else
            MsgBox(0, "Wrong", "Incorect Password, Try Again"
        Endif
    Until $done = 1
EndFunc

It's not unbeatable by far,

but it will stop the semi-technilogically impared

^^, Works, except, once I put in the password, the folder pops up, then hides again and asks for the pass, because of the loop xD, I put in straight after the lockout in the loop, a ExitLoop, But, then, that wouldnt be good, because I would have to run it again

[jvanegmond]

I think a AutoIt script that moves the files around, encrypted, randomly throughout the harddrive every startup, will give you no access to these files at all. When you run the AutoIt-read script all the files are decrypted and placed in the original space. Protect the AutoIt-read with a password.

[jvanegmond]

Maybe something like this to protect a pr0n folder

It's not unbeatable by far,

but it will stop the semi-technilogically impared

You should try to read the whole adress from the explorer.

Control ID: 41477

ClassNameNN: Edit1

[AzKay]

^^, Works, except, once I put in the password, the folder pops up, then hides again and asks for the pass, because of the loop xD, I put in straight after the lockout in the loop, a ExitLoop, But, then, that wouldnt be good, because I would have to run it again

[Xenobiologist]

Hi,

there are so many tools out there which do protect folders and files by passoword. Do you really want to do it with autoit again?

So long,

Mega

[AzKay]

Hi,

there are so many tools out there which do protect folders and files by passoword. Do you really want to do it with autoit again?

So long,

Mega

Yep, I dont like having lots of programs on my computer. Autoit is simple, 1 file, 300kb* The other things, are 3.5mb*

And, That code is complete, thats what I want, theres just the problem, once I put the password in, it accepts, shows the window, then the loop hides it again

[BPBNA]

When you encrypt the files through Windows you dont have to decrypt it to access it. Correct me if I'm wrong, but I'm pretty sure it just makes it so only the user that encrypts it can see anything in the folder. Put a password on your account, encrypt the folder, your done.

[bluebearr]

Hmmm, try this. It will skip the lockout until you close the folder, then it will ask again when you try to reopen it.

;#NoTrayIcon
Opt('WinTitleMatchMode',2); this is excludable

$FolderName = "Azkays Special Place" ;name of folder here
Global $pass1= "password" ;Change  this to your pass
Global $pass2, $done = 0

While 1
    If Winexists($FolderName) then
        If $done = 0 Then
            LockOut()
        EndIf
    Else
        $done = 0
    Endif
Wend

Func LockOut()
    Do
        WinMinimizeall()
        Winsetstate($FolderName, "", @SW_HIDE)
        $pass2 = InputBox("Protected", "Please Input Password to Access Folder.", "", "*M")
        If $pass2 = $pass1 then
            MsgBox(0, "Correct", "Correct Password")
            Winsetstate($FolderName, "", @SW_SHOW)
            WinMinimizeallUndo()
            $done = 1
        Else
            MsgBox(0, "Wrong", "Incorect Password, Try Again")
        Endif
    Until $done = 1
EndFunc

Edited July 18, 2006 by bluebearr

[AzKay]

Didnt work, Same problem as before.

[Paulie]

Didnt work, Same problem as before.

Ok heres one i wrote a long time ago, it was ment to stop people from opening Control panel and regedit, and it worked

I'll mod it to fit you needs:

expandcollapse popup

#NoTrayIcon
opt("WinTitleMatchMode",2)

;*******Define Variables**********
Global $case = 0
Global $action = 0
Global $access_1 = 0
Global $foldername= "foo"; Edit this here
Global $pass="bob";and this
Global $done = 0
;*******Default Function******
;=============================
While 1
If WinExists($foldername) then
   If $access_1 = 0 Then
    $case = 1
Endif
Endif
;=============================
If $case>0 Then
    MyCase ($case)
    $case=0
EndIf
Wend

Func MyCase ($my_case)
Select
    Case $my_case = 1

WinMinimizeAll()
WinSetState($foldername, "", @SW_HIDE)
If $access_1 < 1 Then
Box()
$access_1 = 1
Endif
EndSelect
;****************************************
EndFunc

Func Box()
Do
     Global $passwd = InputBox("Enter Password", "Enter Password Here:", "", "*M")
     If $passwd = $pass then
          MsgBox(0, "Access Granted", "Correct Password.")
          WinMinimizeAllUndo()
          WinSetState($foldername, "", @SW_SHOW)
          $done = 1
     Else
          MsgBox(0, "Access Denied", "Sorry, Wrong Password Try Again.")
     Endif
Until $done = 1
EndFunc

The reason this is so much more complex is because it was ment to protect like 4 windows

but this should work

Edited July 18, 2006 by Paulie

[AzKay]

Once again, thanks.

[dandymcgee]

Ok, it's very simple. Like Ivan pretty much said. Right-click on your desktop, in the "New" section select compressed(zipped) folder, Put your "bad things" into the compressed folder and then delete them ( a copy is still in the compressed folder), encrypt the compressed folder. Whenever you feel a sudden urge to view your encrypted files, simply extract them ( it will ask for you encrypt pass upon extract). when your done viewing delete the extracted version and keep the encrypted one handy. Enjoy!