Decrypt an Encrypted File Without Generating a New File

[amin84]

Hello,
 
I'm trying to write a program that will decrypt an encrypted file (_Crypt_EncryptFile was used to encrypt) without generating a new file.
 
I tried to use FileRead(FileOpen($sSourceRead,0),-1) which in theory should read the whole file into a variable then I can use _Crypt_DecryptData to decrypt the variable. But FileRead won't read the whole file. It will stop somewhere in the middle of the first line for some reason.
 
I've tried FileRead, FileReadLine, and FileReadToArray. None of them can read the encrypted file properly.

I've attached the encrypted text. Nothing special. Algorithm: AES256, Password: password

If you try to read this file using the command below, it will stop somewhere in the middle of the first line:

ConsoleWrite(FileRead(FileOpen(@ScriptDir&'\testRead.txt',0),-1)&@CRLF)

Anybody knows what I'm doing wrong? It's a simple FileRead!

testRead.txt

[Bowmore]

Try opening the file in binary mode

[Nessie]

Try this:

#include <Crypt.au3>

$sFilePath = @ScriptDir & "\testRead.txt"
$sKey = "password"

$hOpen = FileOpen($sFilePath, 0)
$sRead = FileRead($hOpen)
FileClose($hOpen)

$sDecript = _Crypt_DecryptData($sRead, $sKey , $CALG_AES_256)

If @error Then
    MsgBox(16, "Error", "Unable to decript the file")
    Exit
EndIf

$hOpen = FileOpen($sFilePath, 2)
FileWrite($hOpen, BinaryToString($sDecript))
FileClose($hOpen)

By the way the next time please use an english test, as not anyone have persian font installed

Hi!

Edited May 12, 2013 by Nessie

[amin84]

Thanks @Universalist for the sample code. All modern Operating Systems will not need special font to display Unicode correctly. We just have to use with Unicode mode which is 4:

BinaryToString($sDecript, 4)

Same with writing out to a file, we can use mode 128:

FileOpen($sFilePath, 2+128)

But yes I forgot that was Persian. Sorry.

Again thanks for the sample code.

#include <Crypt.au3>

$sFilePath = @ScriptDir & "\testRead.txt"
$sKey = "password"

$hOpen = FileOpen($sFilePath, 0)
$sRead = FileRead($hOpen)
FileClose($hOpen)

$sDecript = _Crypt_DecryptData($sRead, $sKey , $CALG_AES_256)

If @error Then
    MsgBox(16, "Error", "Unable to decript the file")
    Exit
EndIf

$hOpen = FileOpen($sFilePath, 2+128)
FileWrite($hOpen, BinaryToString($sDecript, 4))
FileClose($hOpen)

[Nessie]

Glad to help you

By the way i am Nessie the Loch Ness Monster

Hi!

[anhyeuem]

Try this:

#include <Crypt.au3>

$sFilePath = @ScriptDir & "\testRead.txt"
$sKey = "password"

$hOpen = FileOpen($sFilePath, 0)
$sRead = FileRead($hOpen)
FileClose($hOpen)

$sDecript = _Crypt_DecryptData($sRead, $sKey , $CALG_AES_256)

If @error Then
    MsgBox(16, "Error", "Unable to decript the file")
    Exit
EndIf

$hOpen = FileOpen($sFilePath, 2)
FileWrite($hOpen, BinaryToString($sDecript))
FileClose($hOpen)

By the way the next time please use an english test, as not anyone have persian font installed

Hi!

Hello, now i want encrypt a text file like testRead.txt

can you show me and teach me, my friend

[JLogan3o13]

anhyeuem, first off why are you hijacking another thread instead of beginning your own? Secondly, all you're stating is what you want. How about showing what you have tried on your own, and what problems you're having?

[anhyeuem]

anhyeuem, first off why are you hijacking another thread instead of beginning your own? Secondly, all you're stating is what you want. How about showing what you have tried on your own, and what problems you're having?

Ah, i use this code for encrypt and decrypt:

 

#include <Crypt.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()
    ; Encrypt text using a generic password.
    Local $sEncrypted = StringEncrypt(True, 'بی شک اگر روزی ۵۰۰ تومان به قیمت اجناس اضافه می‌کردی؛', 'securepassword')

    ; Display the encrypted text.
    MsgBox($MB_SYSTEMMODAL, '', $sEncrypted)

    ; Decrypt the encrypted text using the generic password.
    Local $sDecrypted = StringEncrypt(False, $sEncrypted, 'securepassword')

    ; Display the decrypted text.
    MsgBox($MB_SYSTEMMODAL, '', $sDecrypted)
EndFunc   ;==>Example

Func StringEncrypt($fEncrypt, $sData, $sPassword)
    _Crypt_Startup() ; Start the Crypt library.
    Local $sReturn = ''
    If $fEncrypt Then ; If the flag is set to True then encrypt, otherwise decrypt.
        $sReturn = _Crypt_EncryptData($sData, $sPassword, $CALG_RC4)
    Else
        $sReturn = BinaryToString(_Crypt_DecryptData($sData, $sPassword, $CALG_RC4))
    EndIf
    _Crypt_Shutdown() ; Shutdown the Crypt library.
    Return $sReturn
EndFunc   ;==>StringEncrypt

But when decrypt, i can't received: "بی شک اگر روزی ۵۰۰ تومان به قیمت اجناس اضافه می‌کردی؛"

it is: "?? ?? ??? ???? ??? ????? ?? ???? ????? ????? ????????"

Can you teach me or show me?

I want encrypt/decrypt unicode