[snark]

ChVL
в корне папки программы InnoSetup есть файл ISCrypt.dll. Это модуль криптования, и его необходимо скачивать отдельно. Подробнее тут, там же и ссылка на закачку.

[Setup]: Encryption Valid values: yes or no Default value: no Description: If set to yes, files that are compiled into the installation (via [Files] section entries) will be encrypted using ARCFOUR encryption, with a 128-bit key derived from the value of the Password [Setup] section directive. Because of encryption import/export laws in some countries, encryption support is not included in the main Inno Setup installer and must be downloaded and installed separately if you wish to use it. See the Inno Setup Downloads page for more information. If encryption is enabled and you call the ExtractTemporaryFile function from the [code] section prior to the user entering the correct password, the function will fail unless the noencryption flag is used on the [Files] section entry for the file. The key used for encryption is a 128-bit MD5 hash of 64-bit random salt plus the value of Password.

При распаковке инсталляционного файла, защищенного паролем, программа распаковки запросит пароль.

в скрипте добавить строки

Код:

[Setup]:
Encryption=true
Password=123456

[unikum111]

Вопрос: при установки собранных с помощью данного инсталятора программ при выборе пункта "Запустить программу такую-то" (по окончании установки) инсталлятор не закрывается, а уходит в свёрнутый режим, и закрывается только после закрытия программы. Как это можно исправить?

[Litstat]

В скрипте в секции [Run] указываем след. флаг:

Код:

Было:
Filename: {app}\dmaster.exe; Description: Запустить Download Master; Flags: postinstall unchecked
Стало:
Filename: {app}\dmaster.exe; Description: Запустить Download Master; Flags: postinstall unchecked nowait

nowait - не ждать завершения запущенной программы и выйти из установки

[unikum111]

Вот так всё просто, мог бы и сам догадаться
Спасибо!

[ChVL]

snark,
Вообще-то работает, но чрезвычайно криво.
Открываю запароленный MyProg.exe в Inno Setup Unpacker'e и он спокойно показывает всё содержимое сборки (впрочем, мне это тоже бы не хотелось). Даю команду распаковать и он, как обычно, просит папку. Тыкаю носом - всё, Unpacker намертво зависает. До этого момента, правда, успевает появиться папка {app} с файликом is-00001.tmp нулевого объёма. Никакого запроса пароля не последовало.
В принципе такой сценарий устраивает и даже вполне - это какой же будет мат при попытке распаковать.... Однако, смешно: я ведь тоже не смогу это сделать. Не дай Бог потерять исходники... И зачем тогда пароль?

Для справки:
Inno Setup Compiler 5.2.2
Inno Setup Unpacker 5.2.1

[snark]

ChVL, содержимое сборки - это еще не весь скрипт
Я пробовал распаковывать тестовую программу (сделано Inno Setup Compiler 5.2.2) через Uniextract 1.5 + innounp.exe v 0.20 (перепакованная версия с обновленными модулями). Распаковать пытается, спрашивает пароль; если пароля нет - тогда "до свиданья"...

я ведь тоже не смогу это сделать. Не дай Бог потерять исходники... И зачем тогда пароль? »

пароль хранится в открытом виде в скрипте - достаточно просто сделать резервную копию, чтоб быть уверенным, что не придется взламывать свои же наработки. Пароль - против тех, от кого нужно скрыть содержимое скрипта.

[ChVL]

snark,
Спасибо за деятельное участие.
Ещё. Как построить процедуру введения в скрипт внешних данных через ключ? Например, необходимо ввести в реестр регистрационные данные, которые у каждого пользователя программой свои. Понятно, что для внутреннего использования всё вводится прямо в скрипт.

[jameszero]

ChVL
Если предусматривать поля для ввода регистрационных данных во время установки, то нужно будет "рисовать" эти поля в секции [code], не скажу, что это просто... мануалы почитать придётся.

А с помощью ключей установки регистрацию можно реализовать так:

В скрипт добавляется секция [code]

Код:

[code]
function GetSerial(Param: String): String;
begin
if ExpandConstant('{param:SERIAL}') = '' then
Result := ExpandConstant('{cm:DemoSerial}')
else Result := ExpandConstant('{param:SERIAL}')
end;

function GetName(Param: String): String;
begin
if ExpandConstant('{param:USER}') = '' then
Result := ExpandConstant('{sysuserinfoname}')
else Result := ExpandConstant('{param:USER}')
end;

function GetOrganisation(Param: String): String;
begin
if ExpandConstant('{param:COMPANY}') = '' then
Result := ExpandConstant('{sysuserinfoorg}')
else Result := ExpandConstant('{param:COMPANY}')
end;

В [CustomMessages] и [Registry] добавляется

Код:

[CustomMessages]
DemoSerial=1111-2222-3333-4444

[Registry]
Root: HKLM; SubKey: SOFTWARE\Program; ValueType: string; ValueName: Serial; ValueData: {code:GetSerial}
Root: HKLM; SubKey: SOFTWARE\Program; ValueType: string; ValueName: User; ValueData: {code:GetName}
Root: HKLM; SubKey: SOFTWARE\Program; ValueType: string; ValueName: Company; ValueData: {code:GetOrganisation}

Установка программы с регистрацией:

program.exe /SERIAL=9999-8888-7777-6666 /USER=Pupkin /COMPANY=Home

При установке программы без ключей, подхватится демонстрационный серийный номер из секции [CustomMessages], а имя пользователя и название организации будут взяты системные из Windows

[ChVL]

jameszero,
Понял, спасибо! Особенно интересна последняя фишка. А вот если б ещё без ключей прописывалось "демонстрационное" имя - цены бы ей не было...

К сожалению, дальнейшие исследования функции Encryption показали её полную несостоятельность. Оказалось, что если в секции [Setup] происана строка Encryption, причём, неважно(!) с каким значением: yes или no, то при попытке инсталляции сборки запрашивается Password. Мне это совсем не надо. Что-то тут Jordan Russell или Martijn Laan явно перемудрили (или недомудрили). Если же строку Password не писать или оставить пустой - не компилируется.
Похоже, придётся искать стороннюю программу для защиты от распаковки...

[jameszero]

ChVL

если б ещё без ключей прописывалось "демонстрационное" имя

Если я правильно понял вопрос, то это делается по аналогии с серийным номером.
При отсутствии ключа /USER, в реестр пропишется слово Tester

Код:

[CustomMessages]
DemoSerial=1111-2222-3333-4444
DemoName=Tester

[code]
function GetSerial(Param: String): String;
begin
if ExpandConstant('{param:SERIAL}') = '' then
Result := ExpandConstant('{cm:DemoSerial}')
else Result := ExpandConstant('{param:SERIAL}')
end;

function GetName(Param: String): String;
begin
if ExpandConstant('{param:USER}') = '' then
Result := ExpandConstant('{cm:DemoName}')
else Result := ExpandConstant('{param:USER}')
end;
...