Jump to content
Sign in to follow this  
johnjamie

Regarding crypt include file

Recommended Posts

johnjamie

I seem to be having a problem with the encrypt function.

The include file is #Include <Crypt.au3>

My code is below and what it seems is that I run the encrypt function once, it encrypts the file correctly, I run it again exactly the same function and it decrypts.

I'm thinking its a problem with the include as my code is very basic and I'm simply using the encrypt function. Makes it difficult to encrypt and decrypt properly.

Anyone know if running the _Crypt_EncryptFile function twice over the same file with same algorithm and password/crypt key unencrypts the file?

func encryptfile($sSourceFile, $sDestinationFile,$vpassword,$vfiletype)

    $sDestinationFile=$vpath&"tmp123.txt"

If FileExists($sSourceFile) Then
Else
    msgbox(0,"EON Error Message","Can't find "&$vfiletype&". Looking for "&$vpath&$vfilename)
    $errmessen="true"
EndIf

if $vpassword<>"" Then
Else
    msgbox(0,"EON Error Message","No password found for "&$vfiletype&" .")
    $errmessen="true"
EndIf

if $errmessen<>"true" Then
$vCryptKey=_Crypt_DeriveKey($vPassword,$CALG_RC4 )
_Crypt_EncryptFile($sSourceFile, $sDestinationFile, $vCryptKey, $iALG_ID)
_Crypt_DestroyKey( $vCryptKey)
FileCopy($sDestinationFile, $sSourceFile,1)
_SecureFileDelete($sDestinationFile)
Else
    msgbox(0,"EON Error Message","Error saving file. Cancelling "&$vfiletype&" save.")
endif

EndFunc

Thanks,

John

Edited by johnjamie

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.