#Include <String.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$sSettings_ini = @ScriptDir & "\settings.ini" ; путь к ini файлу
$sPass2 = "qwerty" ; пароль номер два, которым будет зашифрован основной пароль
If FileExists ($sSettings_ini) = 0 Then ; если ini файла не существует, то
MsgBox (0, "Ошибка", "Не найден файл settings.ini, полижите его рядом.")
Exit
EndIf
$Form1 = GUICreate("Пример шифрования", 600, 114)
$Button1 = GUICtrlCreateButton("Расшифровать", 8, 8, 85, 25)
$Label1 = GUICtrlCreateLabel("", 8, 40, 584, 65)
$seString = IniRead ($sSettings_ini, "crypt", "string", ""); читаем шифрованую строку из ini файла
$sepass1 = IniRead ($sSettings_ini, "crypt", "pass1", ""); читаем шифрованую строку из ini файла
GUICtrlSetData ($Label1, "Зашифрованные данные в ini файле: "&@CRLF&"string= "&$seString&@CRLF _
&"pass1= "&$sepass1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$suSecretPass = _StringEncrypt(0, $sepass1, $sPass2, 1); расшифровываем первый пароль
$suString = _StringEncrypt(0, $seString, $suSecretPass, 1); расшифровываем секретную строку первым паролем
GUICtrlSetData ($Label1, "Расшифрованные данные в ini файле: "&@CRLF _
&"string= "&$suString&@CRLF&"pass1= "&$suSecretPass)
EndSwitch
WEnd