Tentando usar o hash do arquivo como senha no Inno Setup

Depois de examinar a documentação, foi isso que descobri:

[Code]
var Page: TInputFileWizardPage;

procedure InitializeWizard;
begin
  Page := CreateInputFilePage(wpWelcome,
    'Select SMB1 ROM file', 'A legally obtained SMB1 rom is required to proceed & get access to this port',
    'Click "Browse..." and select your SMB1 ROM file, then click Next.');

  Page.Add('&SMB1 ROM file:',
    '.NES|*.nes|.NEZ|*.nez|.UNF|*.unf|.UNIF|*.unif',
    '.nes');
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  if CurPageID = Page.ID then begin
    // if GetSHA256OfFile(Page.Values[0]) = '<put in the SHA256 hash here if you''re going to use this>' then
    if GetMD5OfFile(Page.Values[0]) = '<put in the MD5 hash here if you''re going to use this>' then
      Result := True
    else begin
      MsgBox('Please select an actual SMB1 rom.', mbError, MB_OK);
      Result := False
    end;
  end else
    Result := True;
end;

Tive que tornar globais as variáveis ​​​​que você usou para que os valores inseridos possam ser acessados ​​​​para o seu caso de uso. Vou explicar o que faz se você não sabe:

1. Inicializamos primeiro as variáveis ​​que queremos usar, pois se as inicializarmos em uma função/procedimento, elas permanecerão locais e não poderemos acessá-las em nenhum outro lugar.

2. Em seguida, criamos a página que solicitará o arquivo correto no InitializeWizardprocedimento. Não fazemos a validação lá.

3. Então validaríamos o arquivo quando o usuário clicasse em “Avançar” na NextButtonClickfunção. Ele recebe um número para o ID da página atual, e cada página tem seu próprio ID (incluindo aquele que você criou), e usamos isso para verificar se estamos na página do prompt do arquivo ou de outra página que não se preocupe em validar. No caso em que a página atual é aquela que criamos, obtemos o caminho do arquivo Page.Values[0]e o passamos para a GetMD5OfFilefunção que recebe o caminho do arquivo e retorna o hash do arquivo (em MD5, é claro). Coloquei-o diretamente dentro da ifinstrução para salvar uma linha, mas você também pode usar uma Hashvariável separada, se desejar. Naquiloifdeclaração, verificamos se o valor retornado corresponde ao hash que desejamos (por motivos legais não fornecerei os hashes aqui). E se for, voltamos Truepara informar ao Inno Setup para prosseguir, caso contrário, exibimos uma mensagem de erro e voltamos Falsepara informar ao Inno Setup para NÃO prosseguir (e permanecer na página).

A solução usa MD5 como hash, já que provavelmente é isso que você queria, mas o MD5 é considerado inseguro agora e não deve mais ser usado. Você deve usar SHA256 usando GetSHA256OfFilee verificando seu resultado com o hash SHA256 do arquivo que deseja verificar. O código está comentado, basta remover as duas barras e a linha após.