Безопасность настольного приложения

// Отделите правило языка от удачного запуска EmbeddedSecret.
program EmbeddedSecret;
const
  ApiKey = 'prod_live_7d82f0f0';
begin
  Writeln('Authorization: Bearer ', ApiKey);
end.

// Отделите правило языка от удачного запуска BuildProvenance.
program BuildProvenance;
const
  CompilerId = 'Delphi-12-Athens';
  SourceRevision = 'a17c4e9';
  DependencyLockHash = '3d19...';
begin
  Writeln(CompilerId, ' ', SourceRevision, ' ', DependencyLockHash);
end.

// Проверьте размер файла до выделения памяти под его содержимое.
program ImportDataset;
{$APPTYPE CONSOLE}
uses System.Classes, System.JSON, System.SysUtils;
const
  MaxImportBytes = 10 * 1024 * 1024;
var
  Stream: TFileStream;
  Bytes: TBytes;
  Text: string;
  Value: TJSONValue;
begin
  Stream := TFileStream.Create('import.json', fmOpenRead or fmShareDenyWrite);
  try
    if Stream.Size > MaxImportBytes then
      raise EReadError.Create('file too large');
    SetLength(Bytes, Integer(Stream.Size));
    if Length(Bytes) > 0 then
      Stream.ReadBuffer(Bytes[0], Length(Bytes));
  finally
    Stream.Free;
  end;

  Text := TEncoding.UTF8.GetString(Bytes);
  Value := TJSONObject.ParseJSONValue(Text);
  try
    if Value = nil then
      raise EConvertError.Create('invalid JSON');
  finally
    Value.Free;
  end;
end.

// Проследите фактическое поведение PrivilegedWrite.
program PrivilegedWrite;
uses System.IOUtils;
function MachineConfigPath: string;
begin
  Result := TPath.Combine('C:\Program Files\MyApp', 'config.ini');
end;
procedure SaveMachineConfig;
begin
  TFile.WriteAllText(MachineConfigPath, 'enabled=1');
end;
begin
  SaveMachineConfig;
end.

// Нормализуйте путь и сравнивайте полный корень вместе с разделителем каталога.
program SafePath;
{$APPTYPE CONSOLE}
uses System.IOUtils, System.SysUtils;
function ImportPath(const Root, UserName: string): string;
var
  RootFull, Candidate: string;
begin
  RootFull := IncludeTrailingPathDelimiter(TPath.GetFullPath(Root));
  Candidate := TPath.GetFullPath(TPath.Combine(RootFull, UserName));
  if not SameText(Copy(Candidate, 1, Length(RootFull)), RootFull) then
    raise EArgumentException.Create('path outside root');
  Result := Candidate;
end;
begin
  Writeln(ImportPath('C:\Import', 'data.json'));
end.

// Отделите правило языка от удачного запуска UpdateVerification.
program UpdateVerification;
uses System.Hash, System.SysUtils;
function AcceptUpdate(const FileName, ExpectedHash: string): Boolean;
begin
  Result := SameText(THashSHA2.GetHashStringFromFile(FileName), ExpectedHash);
end;
begin end.