Contact Us Now

We’ve added the following AES-256 Encrypt and Decrypt Pascal Script functions in v2020.2.29.0:

• Function psSimpleDecryptFile(Source, Destination, Key: String; IVAtBeginning: Boolean): Boolean;
• Function psSimpleEncryptFile(Source, Destination, Key: String; IVAtBeginning: Boolean): Boolean;

psSimpleEncryptFile and psSimpleDecryptFile can be used to cypher/decypher any file content using AES-256 as encryption standard. The code uses a safe block chaining mode like CFB and PKCS7 padding. If ‘IVAtBeginning‘ is TRUE, a random Initialization Vector will be computed, and stored at the beginning of the output binary buffer. It will generate the binary key using SHA-256 over the supplied ‘Key’ string, and will use AES-NI hardware instructions if your CPU supports it.

Some screenshots to get you started. Let’s begin with the encryption script. Source will be the directory of files you want to Encrypt. As Destination you’ll need to add a Pascal Script.

The Script itself, don’t forget to adjust the ctOut path and the ctKey Const:

Const
  ctOut = 'C:\Test\Out\Encrypted\';
  ctKey = '*-+Key0123456789';
Begin
  // ... add your code here
  If psSimpleEncryptFile(psFilePath+psFilename, ctOut+psFileName, ctKey, True) then
  Begin
    psExitCode:= 1;
    psLogWrite(1, '', 'Encryption Successful: ' + psFilename + psFilePath);
  End
  Else
  Begin
    psExitCode:= 0;
    psLogWrite(1, '', 'Encryption Error: ' + psFilePath + psFilename);
  End;
End.

In case you want to Decrypt Files, Source will be the directory containg the encrypted files (AES-256). As Destination you’ll need to add a different Pascal Script. Same here, don’t forget to adjust the ctOut path and the ctKey Const.

Const
  ctOut = 'C:\Test\Out\Encrypted\Decrypted\';
  ctKey = '*-+Key0123456789';
Begin
  psExitCode:= 1;
  // ... add your code here
  If psSimpleDecryptFile(psFilePath+psFilename, ctOut+psFileName, ctKey, True) then
  Begin
    psExitCode:= 1;
    psLogWrite(1, '', 'Decryption Successful: ' + psFilename);
  End
  Else
  Begin
    psExitCode:= 0;
    psLogWrite(1, '', 'Decryption Error: ' + psFilename);
  End;
End.

If you need any help, please let us know.

Regards,

Limagito Team