Memoryleak bei GetSecurityInfo

[_BlackDragon_]

Hi Leute,

versuche für Prozess jeweils die SID heraus zu bekommen. Das ganze funktioniert auch, allerdings
erhöht sich der Speicherbedarf meines Programms mit jedem Durchlauf (jedesmal 64 - 65 Prozesse)
um ca. 4KB. :oops:

Sicherheitsabfragen wurden zwecks Übersichtlichkeit entfernt:

Delphi-Quellcode:

function TBdsProcess.GetProcessOwnerSID(ProcID: Cardinal): Pointer;
var
  hProc: THandle;
  pOwner: PSID;
begin
  Result := nil;
  hProc := OpenProcess(PROCESS_QUERY_INFORMATION or GENERIC_READ, false, ProcID);
  try
    GetSecurityInfo(hProc, Cardinal(sotKernelObject), OWNER_SECURITY_INFORMATION, @pOwner, nil, nil, nil, nil);
    if IsValidSID(pOwner) then Result := pOwner;
  finally
    CloseHandle(hProc);
  end;
end;

Das Speicherloch entsteht definitiv in dieser Routine, da das Problem nicht auftritt, wenn sie nicht aufgerufen wird. Außerdem verdoppelt sich die Speicherverbrauchserhöhung, wenn ich die "selbe" Routine zusätzlich für die Gruppenzugehörigkeit aufrufe.

Irgendeine Idee???

Gruß

BlackDragon

[_BlackDragon_]

************************* UPDATE *****************************************

Hi nochmal,

Bin jetzt ein wenig verwirrt. :oops:

Wenn ich der Funktion GetSecurityInfo zusätzlich den Pointer auf den SecurityDescriptor mitgebe,
und diesen später über LocalFree wieder freigebe, ist das Speicherleck beseitigt.

Delphi-Quellcode:

function TBdsProcess.GetProcessOwnerSID(ProcID: Cardinal): Pointer;
var
  hProc: THandle;
  pOwner: PSID;
  pSD: PSECURITY_DESCRIPTOR;
begin
  Result := nil;
  try
    hProc := OpenProcess(PROCESS_QUERY_INFORMATION or GENERIC_READ, false, ProcID);
    try
      GetSecurityInfo(hProc, Cardinal(sotKernelObject), OWNER_SECURITY_INFORMATION, @pOwner, nil, nil, nil, @pSD);
      if IsValidSID(pOwner) then Result := pOwner; // "sagt" ist gültig
    finally
      LocalFree(Cardinal(pSD));
    end;
  finally
    CloseHandle(hProc);
  end;
end;

Allerdings bekomme ich jetzt eine andere SID.

IsValidSID sagt das die SID gültig ist. ConvertSidToStringSid gibt mir allerdings einen leeren String
zurück und über GetLastError bekomme ich den Fehlercode: 1337 ( = ERROR_INVALID_SID) zurück.

Delphi-Quellcode:

...
var
  pcSIDString: PChar;
begin
...
  ConvertSidToStringSid(SID, @pcSIDString);
  // -> GetLastError gibt hier 1337
...
end;

Fakt ist also, dass GetSecurityInfo in jedem Fall Speicher für den SecurityDescriptor reserviert.
Freigeben kann ich den Speicher logischerweise nur, wenn ich den Pointer habe.

Vielleicht kann ja jemand helfen. :oops:

Falls noch irgendwelche Infos fehlen, bitte sagen.

Gruß

BlackDragon

[Dezipaitor]

Der Security Descriptor ist ein Record, der auch deinen Owner enthält.

Delphi-Quellcode:

PSecurityDescriptor = ^tSecurityDescriptor;
TSecurityDescriptor = record
  Owner : TSid;
end;

pOwner := @SD^.Owner;

Die Funktion gibt einen Zeiger auf den Descriptor, sowie auf den Owner zurück. Und du kopierst den Zeigerwert (nicht Inhalt) nach Result.
Wenn du jetzt den SD löscht, dann wird der Rückgabewert ungültig.

[_BlackDragon_]

Hi nochmal,

genau da lag wohl das Problem. Erledige jetzt alle relevanten Dinge direkt nach dem Aufruf und
dann gebe ich den SecurityDescriptor frei. Keine Probleme mehr und alles läuft.

Vielen Dank Dezipaitor. :dp:

Gruss BlackDragon