Permitir o acesso apenas a sites listados

Se você deseja criar um programa Delphi para permitir o acesso apenas a sites listados, você pode fazer isso por meio da manipulação do arquivo de hospedagem do sistema operacional. O arquivo de hospedagem (geralmente localizado em C:\Windows\System32\drivers\etc\hosts no Windows) permite mapear nomes de domínio para endereços IP.

Aqui está um exemplo simples de como você pode adicionar sites à lista de permissões em um programa Delphi:

 

   
uses
  SysUtils, Windows, Classes;

const
  HostsFile = 'C:\Windows\System32\drivers\etc\hosts'; // Caminho para o arquivo de hospedagem

procedure AddToHostsFile(const siteName, ipAddress: string);
var
  HostsStream: TFileStream;
  HostsText: TStringList;
begin
  try
    HostsText := TStringList.Create;
    HostsStream := TFileStream.Create(HostsFile, fmOpenReadWrite);
    try
      HostsText.LoadFromStream(HostsStream);

      // Verifique se o site já está na lista
      if HostsText.IndexOf(ipAddress + ' ' + siteName) = -1 then
      begin
        // Adicione o site à lista
        HostsText.Add(ipAddress + ' ' + siteName);
        HostsText.SaveToStream(HostsStream);
      end;
    finally
      HostsText.Free;
      HostsStream.Free;
    end;
  except
    on E: Exception do
      ShowMessage('Erro: ' + E.Message);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddToHostsFile('example.com', '127.0.0.1');
  ShowMessage('Site adicionado à lista de permissões.');
end;

  
 
      

Neste exemplo, a função AddToHostsFile permite que você adicione um site à lista de permissões no arquivo de hospedagem. Você fornece o nome do site (por exemplo, 'example.com') e o endereço IP associado a ele (por exemplo, '127.0.0.1'). A função verifica se o site já está na lista antes de adicioná-lo novamente.

Lembre-se de que esse método de controle de acesso a sites tem limitações e pode ser facilmente contornado por usuários com privilégios administrativos. Para implementar um controle mais robusto e seguro, você pode considerar outras abordagens, como um servidor proxy ou filtros de URL mais avançados. Além disso, o acesso ao arquivo de hospedagem pode requerer privilégios de administrador, dependendo das configurações de segurança do sistema operacional. Portanto, seu aplicativo Delphi pode precisar ser executado com privilégios elevados para fazer alterações no arquivo de hospedagem.

17/04/2026 05:04 Delphi 139
Topo