Encrypt And Decrypt Ini File

[setengahgila]

Help Me To Encrypt Ini File And Decrypt To Input..

My Code

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>

_Crypt_Startup()
$acak = _Crypt_DeriveKey("12122012",$CALG_AES_256)

$ini1 = IniRead (@ScriptDir & "\data.ini", "tes", "name", "")
$ini2 = IniRead (@ScriptDir & "\data.ini", "tes", "pass", "")
$ini3 = IniRead (@ScriptDir & "\data.ini", "tes", "port", "")
$Decrypt1 = BinaryToString (_Crypt_DecryptData($ini1, $acak, $CALG_AES_256))
$Decrypt2 = BinaryToString (_Crypt_DecryptData($ini2, $acak, $CALG_AES_256))
$Decrypt3 = BinaryToString (_Crypt_DecryptData($ini3, $acak, $CALG_AES_256))
_Crypt_Shutdown()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 155, 143, 192, 124)
$Input1 = GUICtrlCreateInput($Decrypt1, 16, 8, 121, 21)
$Input2 = GUICtrlCreateInput($Decrypt2, 16, 40, 121, 21)
$Input3 = GUICtrlCreateInput($Decrypt3, 16, 72, 121, 21)
$Button1 = GUICtrlCreateButton("SAVE", 40, 104, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            save()

    EndSwitch
WEnd

Func save()
    _Crypt_Startup()
    $Encrypt1 = _Crypt_EncryptData(GUICtrlRead($Input1), $acak, $CALG_AES_256)
    $Encrypt2 = _Crypt_EncryptData(GUICtrlRead($Input2), $acak, $CALG_AES_256)
    $Encrypt3 = _Crypt_EncryptData(GUICtrlRead($Input3), $acak, $CALG_AES_256)
    $save1 = IniWrite (@ScriptDir & "\data.ini", "tes", "name", $Encrypt1)
    $save2 = IniWrite (@ScriptDir & "\data.ini", "tes", "pass", $Encrypt2)
    $save3 = IniWrite (@ScriptDir & "\data.ini", "tes", "port", $Encrypt3)
    _Crypt_Shutdown()
    If $Button1 = True Then
        MsgBox (0, "Save", "Succes")
    EndIf
EndFunc

And Result

Please Help To Correct Load Ini File To Input..

Sorry My English Very Bad..

Thanks Before..

[BrewManNH]

I don't know if the INI file format will work with encrypted data, you can take a look at the Latin Square code that I >posted which has a method of encrypting the entire ini file instead of the entries in it. You also have to make sure that when you're decrypting the data that it's actually still encrypted, otherwise you'll get nothing returned, it's often possible to have the script end before saving the file and leaving the contents unencrypted.

[jchd]

Encryption will turn up control characters at random, which are generally unsuitable in an .INI format.

Encrypt the whole file or write entries in hex.

[AZJIO]

_Crypt_DecryptData +> IniVirtual