Block / Unblock Folders (AutoIT script)

[Synthesis]

I tried to make it as cool as possible.

Copy the program in the same location with the folder you want to encrypt/decrypt. The rest of instructions are in the program.

Script :

expandcollapse popup

#include <GUIConstantsEx.au3>
#notrayicon
#include <process.au3>

Opt('MustDeclareVars', 1)

_tool()

Func _tool()
    Local $encrypt, $decrypt
    Local $msg, $folder, $status, $f

    GUICreate("Block-unblock folders (AutoIT style)", 400, 295)
    guisetbkcolor (0x2B60DE)
    $status = guictrlcreatelabel ("Idle",0,275,400,20, 0x1)
    guictrlsetcolor (-1, 0xffffff)
    guictrlcreatetab (10,10,380,260)
    guictrlcreatetabitem ("Tool")
    guictrlcreatelabel ("Type the name of the folder below",0,40,400,20,0x1)
    $folder = guictrlcreateinput ("",30,60,340,20,0x1)
    $encrypt = GUICtrlCreateButton("Encrypt", 100, 130, 70, 20)
    $decrypt = GUICtrlCreateButton("Decrypt", 230, 130, 70, 20)
    guictrlcreatetabitem ("About")
    guictrlcreatelabel ("Block-unblock folders (AutoIT style)" & @crlf & "by Andrew Gaftoneanu" & @crlf & "" & @crlf & "" & @crlf & "" & @crlf & "INSTRUCTIONS" & @crlf & "1. Copy the program in the same location with the folder you want to" & @crlf & "encrypt/decrypt." & @crlf & "2. Type the name of the folder." & @crlf & "3. Press the respective button (Encrypt or Decrypt)" & @crlf & "4. Have fun!",0,40,400,200,0x1)
    
    GUISetState()

    While 1
        $msg = GUIGetMsg()


        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop

            Case $msg = $encrypt
                $f = guictrlread ($folder)
                _rundos ("@ren " & $f & " " & $f & ".{21EC2020-3AEA-1069-A2DD-08002B30309D}")
                guictrlsetdata ($status, "Encrypting done..")
                
            case $msg = $decrypt
                $f = guictrlread ($folder)
                _rundos ("@ren " & $f & ".{21EC2020-3AEA-1069-A2DD-08002B30309D} " & $f)
                guictrlsetdata ($status, "Decrypting done..")
        EndSelect
    WEnd

    GUIDelete()

    Exit
EndFunc

[chaitanyagutala]

Hey dude, this is working very good. I just wanted to know how did folder properties change to open control panel???

and what is that code you have used .{21EC2020-3AEA-1069-A2DD-08002B30309D} Please reply me

[Ktulu789]

Hey dude, this is working very good. I just wanted to know how did folder properties change to open control panel???

and what is that code you have used .{21EC2020-3AEA-1069-A2DD-08002B30309D} Please reply me

So long since my last post!

Well this short reply may help you quite a lot!

That weird number is the CLSID for the Control panel in Windows. Here is a list with other CLSIDs

http://vlaurie.com/computers2/Articles/system_folders2.htm