Verifica di sicurezza conforme a KRITIS/NIS2 basata su vulnerabilità CWE e pattern di attacco.

Applicare questa checklist quando la modifica riguarda:

• Operazioni crittografiche
• Autenticazione / Autorizzazione
• Comunicazione di rete
• Accesso al database
• Chiamate API esterne
• Upload di file
• Input utente

(* VIETATO - Attacco timing possibile *)
function VerifyToken(const AToken, AExpected: string): Boolean;
begin
  Result := AToken = AExpected;  (* Si interrompe alla prima differenza! *)
end;
 
(* CORRETTO - Tempo costante *)
function VerifyToken(const AToken, AExpected: string): Boolean;
var
  I: Integer;
  Diff: Byte;
begin
  if Length(AToken) <> Length(AExpected) then
    Exit(False);
 
  Diff := 0;
  for I := 1 to Length(AToken) do
    Diff := Diff or (Ord(AToken[I]) xor Ord(AExpected[I]));
 
  Result := Diff = 0;
end;

procedure ProcessSecret(const ASecret: string);
var
  LocalCopy: string;
begin
  LocalCopy := ASecret;
  try
    (* Elaborazione *)
    DoSomethingWith(LocalCopy);
  finally
    (* Cancellare il secret - non solo rilasciare! *)
    FillChar(LocalCopy[1], Length(LocalCopy) * SizeOf(Char), 0);
    LocalCopy := '';
  end;
end;

(* VIETATO - SQL Injection possibile *)
procedure GetUser(const AUsername: string);
begin
  Query.SQL.Text := 'SELECT * FROM users WHERE name = ''' + AUsername + '''';
  Query.Open;
end;
 
(* CORRETTO - Parametrizzato *)
procedure GetUser(const AUsername: string);
begin
  Query.SQL.Text := 'SELECT * FROM users WHERE name = :username';
  Query.ParamByName('username').AsString := AUsername;
  Query.Open;
end;

(* VIETATO - Troppe informazioni *)
procedure HandleError(E: Exception);
begin
  ShowMessage('Error in C:\Users\Admin\App\src\Database.pas:142: ' + E.Message);
end;
 
(* CORRETTO - Registrare internamente, sanificare esternamente *)
procedure HandleError(E: Exception);
begin
  (* Registrare internamente in modo completo *)
  Logger.Error('Database error at %s: %s', [E.ClassName, E.Message]);
 
  (* Esternamente solo messaggio sanificato *)
  raise EUserError.Create(rsDatabaseOperationFailed);
end;

[ ] Riutilizzo nonce prevenuto
[ ] Attacchi timing mitigati (tempo costante)
[ ] Attacchi replay bloccati
[ ] Enumerazione chiavi prevenuta (ID casuali)

[ ] Buffer Overflow prevenuto (limiti dimensione)
[ ] Integer Overflow prevenuto
[ ] Input malformato gestito
[ ] SQL Injection prevenuta

[ ] Esaurimento risorse prevenuto (Rate Limiting)
[ ] Lock-Poisoning gestito
[ ] Esaurimento memoria prevenuto

[ ] Messaggi errore sanificati
[ ] Secret cancellati dopo l'uso (Zeroization)
[ ] Nessun dato sensibile nei log

• Panoramica Garanzia Qualità
• Linee Guida Sicurezza (generale)
• Checklist Core
• Debugging