Just Read encrypted file

[RestrictedUser]

I had created login form and this form first goes to de-crypting file that encrypted then read the saved credentials by de-cryptied file, but doesn't work properly!

I want just read encrypted data without saving de-crypted file, just read! 

expandcollapse popup

#NoTrayIcon
#include <Crypt.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;==================================Variables===================================
   ;Encryption settings
   _Crypt_Startup()
   $PEK = _Crypt_DeriveKey("BS#Password", $CALG_AES_256, $CALG_SHA_512)
   $DefaultCredFile = "[Credentials]" & @CRLF & "BUsername=NoAdmin" & @CRLF & "BPassword=NoAdmin" & @CRLF & "[Process]" & @CRLF & "ProcessKillingTimeout=3600"
   $EncryptDefaultCred = _Crypt_EncryptData($DefaultCredFile, $PEK, $CALG_AES_256)
   $IniReadCredPassword = IniRead(@WindowsDir & "\Config\GUIDecCred.dat", "Credentials", "BPassword", "")
   $IniReadCredUsername = IniRead(@WindowsDir & "\Config\GUIDecCred.dat", "Credentials", "BUsername", "")
;==================================Variables===================================

AuthForm()
Func AuthForm()
Global $LoginForm = GUICreate("Login", 201, 161, -1, -1)
Global $CloseBTN = GUICtrlCreateButton("Close", 23, 126, 75, 25)
Global $SignInBTN = GUICtrlCreateButton("Sign-in", 103, 126, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Global $PasswordInput = GUICtrlCreateInput("admin", 8, 88, 185, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
Global $UsernameInput = GUICtrlCreateInput("admin", 8, 40, 185, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
Global $UsernameLBL = GUICtrlCreateLabel("Username:", 8, 21, 55, 17)
Global $PasswordLBL = GUICtrlCreateLabel("Password:", 8, 68, 53, 17)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $GUI_EVENT_CLOSE
            Exit
         Case $SignInBTN
            AuthProcess()
    EndSwitch
WEnd
EndFunc

AuthProcess()
Func AuthProcess()

   $ReadEnteredUsername = GUICtrlRead($UsernameInput)
   $ReadEnteredPassword = GUICtrlRead($PasswordInput)

   If Not FileExists(@WindowsDir & "\Config\GUIEncCred.dat") Then
      FileDelete(@WindowsDir & "\Config\GUIDecCred.dat") ;Delete previous de-crypted credentials
      FileWrite(@WindowsDir & "\Config\GUIEncCred.dat", $EncryptDefaultCred) ;Write en-crypted credentials as "*.dat" file
      FileClose(@WindowsDir & "\Config\GUIEncCred.dat") ;Close en-crypted credentials file
      _Crypt_DecryptFile(@WindowsDir & "\Config\GUIEncCred.dat", @WindowsDir & "\Config\GUIDecCred.dat", $PEK, $CALG_AES_256) ;Write de-crypted file from an en-crypted file as "*.dat" file
   Else
      _Crypt_DecryptFile(@WindowsDir & "\Config\GUIEncCred.dat", @WindowsDir & "\Config\GUIDecCred.dat", $PEK, $CALG_AES_256) ;Write de-crypted file from an en-crypted file as "*.dat" file
   EndIf

   Sleep(25)

   If $ReadEnteredUsername == $IniReadCredUsername And $ReadEnteredPassword == $IniReadCredPassword Then ;Username and Password verify stage
      MsgBox(64, "", "Welcome!")
      FileDelete(@WindowsDir & "\Config\GUIDecCred.dat")
      Exit
   Else
      MsgBox(14, "", "Incorrect!")
      FileDelete(@WindowsDir & "\Config\GUIDecCred.dat")
      Sleep(25)
   EndIf

EndFunc

How Can i? 

Edited March 11, 2019 by Colduction

[kaisies]

Yes. 

[RestrictedUser]

  On 3/10/2019 at 5:16 AM, kaisies said:

Yes. 

Expand  

But how? =/

[Nine]

  On 3/10/2019 at 11:08 AM, Colduction said:

But how? =/

Expand  

Well first step, you open scite and help file. Then start typing some code, after a while, run it.  And if there is error you debug it. Easy...

[Juvigy]

For example with FileRead() ...

[RestrictedUser]

  On 3/11/2019 at 8:46 AM, Juvigy said:

For example with FileRead() ...

Expand  

you are tell me to watch Help file? :/

 

[FrancescoDiMuro]

  On 3/11/2019 at 4:51 PM, Colduction said:

you are tell me to watch Help file? 😕

Expand  

Everyone, since you are here, yes.

[RestrictedUser]

  On 3/11/2019 at 5:02 PM, FrancescoDiMuro said:

Everyone, since you are here, yes.

Expand  

I have coded, but i don't know where is my problem

You can see my code in this topic's text

[RestrictedUser]

  On 3/11/2019 at 5:02 PM, FrancescoDiMuro said:

Everyone, since you are here, yes.

Expand  

My friend, how can i Decrypt INI Datas without saving from Encrypted INI File then Read INI file normally? 

 

I had searched many times and i found some topics, but they didn't works for me =(

[mLipok]

Do you know encrytion secret key?
Do you know which encryption algorithm was used?

[RestrictedUser]

  On 3/13/2019 at 11:46 PM, mLipok said:

Do you know encrytion secret key?
Do you know which encryption algorithm was used?

Expand  

Yeah

See this topic's content

I have written 

   $PEK = _Crypt_DeriveKey("BS#Password", $CALG_AES_256, $CALG_SHA_512)
   $DefaultCredFile = "[Credentials]" & @CRLF & "BUsername=NoAdmin" & @CRLF & "BPassword=NoAdmin" & @CRLF & "[Process]" & @CRLF & "ProcessKillingTimeout=3600"
   $EncryptDefaultCred = _Crypt_EncryptData($DefaultCredFile, $PEK, $CALG_AES_256)

Edited March 14, 2019 by Colduction

[Bilgus]

Store the file into a variable using FileRead and pass that $sData to the function _Crypt_DecryptData ( $vData, $vCryptKey, $iAlgID [, $bFinal = True] )

 

you might need to open the file first with FileOpen and open it as $FO_BINARY

 

PS. you won't be able to use IniRead on the resulting data so you'll need another way to parse your data

 

Edited March 14, 2019 by Bilgus

[RestrictedUser]

  On 3/14/2019 at 2:37 AM, Bilgus said:

Store the file into a variable using FileRead and pass that $sData to the function _Crypt_DecryptData ( $vData, $vCryptKey, $iAlgID [, $bFinal = True] )

 

you might need to open the file first with FileOpen and open it as $FO_BINARY

 

PS. you won't be able to use IniRead on the resulting data so you'll need another way to parse your data

 

Expand  

Is not there any way to Read results by IniRead? 😢

Because i want to retrieve informations from INI file

[Bilgus]

Well which do you want to read from an ini file or a decrypted file that is no longer stored on disk?

I don't see any other way to do it... 

It really isn't that hard to parse the data for an Ini using string functions

Your other option could be to pull out the sensitive data and then write the INI if you are really set on the INI format

[BrewManNH]

The easiest way to do it would be to use a normal INI file, and then encrypt the whole file instead of just the entries in it.

[RestrictedUser]

  On 3/14/2019 at 11:06 PM, Bilgus said:

Well which do you want to read from an ini file or a decrypted file that is no longer stored on disk?

I don't see any other way to do it... 

It really isn't that hard to parse the data for an Ini using string functions

Your other option could be to pull out the sensitive data and then write the INI if you are really set on the INI format

Expand  

No, i just want decrypt datas from encrypted INI file without saving...

 

[Danny35d]

This is an old article and you may have to update the UDF scripts to make work with the latest AutoIt.   Ini in Memory

[Bilgus]

if you want the data to stay encrypted why can't you just encrypt the data prior to iniWrite and decrypt with iniRead?

;Pseudo Code
Local $Data = _Crypt_EncryptData("PA55W0RD", $g_hKey, $CALG_USERKEY) 
IniWrite ( "filename", "Test", "supersecretkey", $Data )

Local $Decrypted = _Crypt_DecryptData(IniRead ( "filename", "Test", "supersecretkey", "0" ), $g_hKey, $CALG_USERKEY) ; Decrypt the text with the new cryptographic key.

Local $ReadData = BinaryToString($Decrypted)

 

[RestrictedUser]

  On 3/15/2019 at 8:23 PM, Bilgus said:

if you want the data to stay encrypted why can't you just encrypt the data prior to iniWrite and decrypt with iniRead?

;Pseudo Code
Local $Data = _Crypt_EncryptData("PA55W0RD", $g_hKey, $CALG_USERKEY) 
IniWrite ( "filename", "Test", "supersecretkey", $Data )

Local $Decrypted = _Crypt_DecryptData(IniRead ( "filename", "Test", "supersecretkey", "0" ), $g_hKey, $CALG_USERKEY) ; Decrypt the text with the new cryptographic key.

Local $ReadData = BinaryToString($Decrypted)

 

Expand  

Thanks bro❤️❤️

This code is the only way to solve my problem

You were always help me, thanks bro❤️❤️