Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

tls1.2

Windows e Servicos com TLS 1.2

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

PowerShell TLS 1.2 Activator for Delphi

Uma classe para configurar silenciosamente o TLS 1.2 no PowerShell, garantindo conexões seguras com servidores que exigem protocolos modernos.

📖 Sobre o Projeto

Este projeto resolve um problema comum em sistemas Delphi: a impossibilidade do PowerShell se conectar a servidores que exigem TLS 1.2 (como GitHub, Azure, APIs modernas, etc).

O código configura automaticamente o protocolo de segurança antes de qualquer requisição, prevenindo erros como:

powershell
irm : A conexão subjacente estava fechada:
Erro inesperado em um envio.

⚠️ Por que isso acontece?

O PowerShell 5.1 (padrão do Windows 10/11) utiliza TLS 1.0 por padrão em alguns cenários, enquanto servidores modernos exigem TLS 1.2 ou superior.

✨ Funcionalidades

  • ✅ Configuração silenciosa
  • ✅ Sem janelas ou popups
  • ✅ Compatível com Delphi 7 até Delphi 12
  • ✅ Execução via WinExec e CreateProcess
  • ✅ Logging completo
  • ✅ Fallback automático
  • ✅ Sem dependências externas
  • ✅ Ideal para APIs HTTPS modernas

🔧 Pré-requisitos

  • Delphi 7 ou superior
  • Windows 7/8/10/11
  • PowerShell instalado

📦 Instalação

  1. Baixe o arquivo uPowerShellTLS.pas
  2. Adicione ao projeto:
text
Project -> Add to Project -> uPowerShellTLS.pas
  1. Adicione a unit no uses:
pascal
uses
  uPowerShellTLS;

🚀 Como Usar

Exemplo 1 — Executar no FormCreate

pascal
uses
  uPowerShellTLS;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  TPowerShellTLS.ConfigurarTLS12;
end;

Exemplo 2 — Execução Manual

pascal
procedure TfrmMain.btnAtivarTLSClick(Sender: TObject);
begin
  if TPowerShellTLS.ConfigurarTLS12 then
    ShowMessage('TLS 1.2 configurado com sucesso!')
  else
    ShowMessage('Falha na configuração. Verifique o log.');
end;

Exemplo 3 — Execução em Background

pascal
procedure TfrmMain.FormCreate(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
    procedure
    begin
      TPowerShellTLS.ConfigurarTLS12;
    end
  ).Start;
end;

📝 Código Completo

pascal
unit uPowerShellTLS;

interface

uses
  Winapi.Windows,
  System.SysUtils;

type
  TPowerShellTLS = class
  private
    class procedure EscreverLog(var ALogFile: TextFile; const AMensagem: string); static;
    class function ExecutarWinExec: Boolean; static;
    class function ExecutarCreateProcess(var ALogFile: TextFile): Boolean; static;
  public
    class function ConfigurarTLS12: Boolean; static;
  end;

implementation

class procedure TPowerShellTLS.EscreverLog(var ALogFile: TextFile; const AMensagem: string);
begin
  Writeln(ALogFile, AMensagem);
end;

class function TPowerShellTLS.ExecutarWinExec: Boolean;
const
  CMD_TLS =
    'powershell.exe -Command "[Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12"';
begin
  Result := WinExec(PAnsiChar(AnsiString(CMD_TLS)), SW_HIDE) > 31;
end;

class function TPowerShellTLS.ExecutarCreateProcess(var ALogFile: TextFile): Boolean;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Command: string;
  ExitCode: DWORD;
begin
  Result := False;

  Command :=
    'powershell.exe -Command "[Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12"';

  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  FillChar(ProcessInfo, SizeOf(ProcessInfo), 0);

  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_HIDE;

  if CreateProcess(
    nil,
    PChar(Command),
    nil,
    nil,
    False,
    CREATE_NO_WINDOW,
    nil,
    nil,
    StartupInfo,
    ProcessInfo
  ) then
  begin
    EscreverLog(ALogFile, 'CreateProcess executado! Aguardando...');

    WaitForSingleObject(ProcessInfo.hProcess, 5000);
    GetExitCodeProcess(ProcessInfo.hProcess, ExitCode);

    if ExitCode = 0 then
    begin
      EscreverLog(ALogFile, 'Processo finalizado com sucesso!');
      Result := True;
    end
    else
      EscreverLog(ALogFile, 'Processo finalizado com código: ' + IntToStr(ExitCode));

    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end
  else
  begin
    EscreverLog(ALogFile, 'CreateProcess falhou!');
    EscreverLog(ALogFile, 'Erro: ' + IntToStr(GetLastError));
  end;
end;

class function TPowerShellTLS.ConfigurarTLS12: Boolean;
var
  LogFile: TextFile;
  LogPath: string;
begin
  Result := False;
  LogPath := ExtractFilePath(ParamStr(0)) + 'powershell_tls_log.txt';

  AssignFile(LogFile, LogPath);

  try
    if FileExists(LogPath) then
      Append(LogFile)
    else
      Rewrite(LogFile);

    EscreverLog(LogFile, '========================================');
    EscreverLog(LogFile, 'LOG - Ativação TLS 1.2 para PowerShell');
    EscreverLog(LogFile, 'Data: ' + FormatDateTime('dd/mm/yyyy hh:nn:ss', Now));
    EscreverLog(LogFile, 'Usuário: ' + GetEnvironmentVariable('USERNAME'));
    EscreverLog(LogFile, 'Computador: ' + GetEnvironmentVariable('COMPUTERNAME'));
    EscreverLog(LogFile, '----------------------------------------');

    EscreverLog(LogFile, 'Tentando método 1: WinExec...');

    if ExecutarWinExec then
    begin
      EscreverLog(LogFile, 'WinExec executado com sucesso!');
      Result := True;
    end
    else
    begin
      EscreverLog(LogFile, 'WinExec falhou, tentando método 2: CreateProcess...');
      Result := ExecutarCreateProcess(LogFile);
    end;

    EscreverLog(LogFile, '----------------------------------------');

    if Result then
    begin
      EscreverLog(LogFile, 'STATUS: TLS 1.2 configurado com sucesso!');
      EscreverLog(LogFile, 'O PowerShell agora pode usar TLS 1.2');
    end
    else
    begin
      EscreverLog(LogFile, 'STATUS: Falha na configuração!');
      EscreverLog(LogFile, 'Verifique se o PowerShell está instalado');
      EscreverLog(LogFile, 'Execute manualmente como administrador se necessário');
    end;

    EscreverLog(LogFile, 'Finalizado em: ' + FormatDateTime('dd/mm/yyyy hh:nn:ss', Now));
    EscreverLog(LogFile, '========================================' + sLineBreak);

  finally
    CloseFile(LogFile);
  end;
end;

end.

📊 Logs e Monitoramento

O sistema gera automaticamente:

text
powershell_tls_log.txt

O log contém:

Informação Descrição
Data/Hora Momento da execução
Usuário Usuário Windows
Computador Nome da máquina
Método usado WinExec ou CreateProcess
Código de erro Caso ocorra falha
Status final Sucesso ou erro

Exemplo de Log

text
========================================
LOG - Ativação TLS 1.2 para PowerShell
Data: 15/01/2026 14:30:25
Usuário: desenvolvedor
Computador: WORKSTATION01
----------------------------------------
Tentando método 1: WinExec...
✅ WinExec executado com sucesso!
----------------------------------------
✅ STATUS: TLS 1.2 configurado!
Finalizado em: 15/01/2026 14:30:25
========================================

🐛 Solução de Problemas

Erro: Access violation

Use a unit completa acima.

Erro: WinExec falhou

O sistema automaticamente tenta CreateProcess.

PowerShell não encontrado

Verifique:

text
C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe

TLS 1.2 ainda não funciona

Execute manualmente:

powershell
[Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12

🤝 Contribuição

Contribuições são bem-vindas.

bash
git checkout -b feature/NovaFeature
git commit -m "Minha melhoria"
git push origin feature/NovaFeature

Abra um Pull Request 🚀

📄 Licença

Este projeto está licenciado sob a licença MIT.

⭐ Créditos

Desenvolvido por Aurino para ambientes Pascal/Windows.

🏷️ Tags

text
Delphi Pascal PowerShell TLS HTTPS API Windows Security