Encrypt files

[gahhon]

Hi guys,

I am trying to modify the Folder Lock script to enhance the protection of the files. Folder Lock by Meerecat

Since the script is only encrypt the password file. But also, I would like to encrypt the files within the locked folder, since I had found out that user still able to the view the contents by typing the files' name in the Search Input Box.

However, I am not able to retrieve all of the files in the sub-folders and also unable to encrypt the file within the For-Each loop.

Here is my modified code:

Global $dir = @MyDocumentsDir & '\My Locked Folder'

...

func _encrypt()
    Local $aFileList = _FileListToArray($dir, "*")
    For $vElement In $aFileList
        ConsoleWrite($vElement)
        _Crypt_EncryptFile($vElement, $vElement, 'test', $CALG_RC4)
    Next

    _Crypt_EncryptFile ($INI_PASSWORD, $INI_PASSWORD_ENCRYPT, 'test', $CALG_RC4)

    sleep (1000)
    FileDelete ($INI_PASSWORD)
EndFunc

...

Please noted that, My Locked Folder might have more than 1 files/folders.

For example, the locked folder have 3 text files and 2 folders, console will display

1. 5
2. 1.txt
3. 2.txt
4. 3.txt
5. folder1
6. folder2

[Deye]

gahhon,

Along with _FileListToArrayRec which allows unlimited recursion (check the help files for all options), you can encrypt all "sub" files with the "For" loop 
here is one example you could use

Deye

[gahhon]

4 hours ago, Deye said:

gahhon,

Along with _FileListToArrayRec which allows unlimited recursion (check the help files for all options), you can encrypt all "sub" files with the "For" loop 
here is one example you could use

Deye

I modified my code to FileListToArrayRec but the encryption is not working.

func _encrypt()
    Local $aFileList = _FileListToArrayRec ($dir, "*", 1, 1, 1, 2)
    For $i = 1 To $aFileList[0]
        _Crypt_EncryptFile ($aFileList[$i], $aFileList[$i], 'test', $CALG_RC4)
    Next

    _Crypt_EncryptFile ($INI_PASSWORD, $INI_PASSWORD_ENCRYPT, 'test', $CALG_RC4)

    sleep (1000)
    FileDelete ($INI_PASSWORD)
EndFunc

This function will be triggered when closing the application.

But the closing button is not working. Please advise.

[gahhon]

From what I can see here why the encryption function stuck is because the file cannot be overwrite/replace.

Is anyway to overwrite/replace the file?

[Nine]

3 hours ago, gahhon said:

Is anyway to overwrite/replace the file?

#include <Crypt.au3>
#include <File.au3>

Opt ("MustDeclareVars", 1)

Global $sSourceDir = "Test"
Global $sDestDir = "CryptTest"
DirRemove ($sDestDir, $DIR_REMOVE)
Global $Arr = _FileListToArrayRec ($sSourceDir, "*", $FLTAR_FILES , $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_RELPATH)

_ArrayDisplay ($Arr)

For $i = 1 to $Arr[0]
  _Crypt_EncryptFile ($sSourceDir & "\" & $Arr[$i], $sDestDir & "\" & $Arr[$i], "CryptPassWord", $CALG_RC4)
Next
DirRemove ($sSourceDir, $DIR_REMOVE)
DirMove ($sDestDir, $sSourceDir)

 

[rudi]

When you want to hide content from other users, use NTFS rights managment.

When you want to encrypt files to prevent revealing their content use Windows' buildin encryption mechanisms.

 

Asking for help to recursively encrypt files as you do is stinking of RANSOMWARE! 

 

Rudi.

[Nine]

3 hours ago, rudi said:

Asking for help to recursively encrypt files as you do is stinking of RANSOMWARE! 

 

[gahhon]

20 hours ago, Nine said:

#include <Crypt.au3>
#include <File.au3>

Opt ("MustDeclareVars", 1)

Global $sSourceDir = "Test"
Global $sDestDir = "CryptTest"
DirRemove ($sDestDir, $DIR_REMOVE)
Global $Arr = _FileListToArrayRec ($sSourceDir, "*", $FLTAR_FILES , $FLTAR_RECUR, $FLTAR_NOSORT, $FLTAR_RELPATH)

_ArrayDisplay ($Arr)

For $i = 1 to $Arr[0]
  _Crypt_EncryptFile ($sSourceDir & "\" & $Arr[$i], $sDestDir & "\" & $Arr[$i], "CryptPassWord", $CALG_RC4)
Next
DirRemove ($sSourceDir, $DIR_REMOVE)
DirMove ($sDestDir, $sSourceDir)

 

In this code, I don't need to delete the folder also can. I just move the encrypted files to a new destination.

But what if I just want replace the files instead with same name.

[Jos]

@gahhon, So what exactly is this topic about?  What are you actually trying to do here?

Jos

@Everybody else: Stay out till it's cleared again. Thanks
 

[caramen]

From what i understand he want to crypt and recrypt something on the same value... ?

Crypt Data 1 > Send Crypted  Data1 > into $Var1

Crypt Data 2 > Send Crypted  Data2 > into $Var1

Or what...?

[Jos]

@caramen Which part in my last post was unclear?  I honestly do not care what you think....  just STAY OUT.

Edited December 31, 2018 by Jos

[gahhon]

44 minutes ago, Jos said:

@gahhon, So what exactly is this topic about?  What are you actually trying to do here?

Jos

@Everybody else: Stay out till it's cleared again. Thanks
 

I want encrypt the files and store them into same path and same filename as SOURCE.

Many of example of Encrypt function are stored them with different path and different filename.

That's why I said the keyword "REPLACE/OVERWRITE"

Thanks

 

[Jos]

Ok, but why do you want to do this as this type of behavior can also be used for malicious purposes, so like to understand why you want/need this?
 

[gahhon]

Because I was trying to modify the Folder Lock code from Meeracat.
Once the folder is locked, you cannot view the folder and its content which is very good protection. But however, If I typed in the filename in the Search Box, it still able to view the file and the contents, so I would like to encrypt them.

Folder Lock Please kindly see this post, I did comment and ask.

[Jos]

Simply use the proper security measures in the OS in stead of all of this difficult goofing around with encrypting files. Don't you think that is much safer and less risky fucking up your own files?

Jos

[gahhon]

Then is there anyway to disable to find the "Locked Folder" and it contents via the Search Box?

 

[rudi]

You still refuse to provide the information what *EXACTLY* is your goal.

 

As mentioned above, use the regular and reliable security mechanisms of Windows itself. (NTFS rights managment, Bitlocker)

Or other ready-to-take solutions like BoxCryptor, TrueCrypt, VeraCrypt and others.

 

 

I suspect that you're looking for help to code something MALICIOUS, propably RANSOMWARE.

 

Rudi.

[Jos]

@rudi, also having problems reading? Stay out!

24 minutes ago, gahhon said:

Then is there anyway to disable to find the "Locked Folder" and it contents via the Search Box?

 

So you didn't even check out the existing options. 

Anyway, I do not see any proper purpose for all of this and do not want to advertise AutoIt3 as an option for this type of activities.

Thread is done before iam going to ban any of these impatient helpers.

Jos

[JLogan3o13]

5 hours ago, rudi said:

I suspect that you're looking for help to code something MALICIOUS, propably RANSOMWARE.

Rudi.

It is not up to you to suspect anything - much like Caramen earlier in this thread no one on the Mod team needs (or is particularly interested in) your opinion on the matter. Please review this thread and engage the gray matter before posting next time: