ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Procedure GetSystemInformation;
 var
   Temp: PSYSTEM_MODULE_INFORMATION;
   modin:PSYSTEM_MODULE_INFORMATION;
   ReturnLength: DWORD;
  I: integer;
  ou:integer;
 begin
  ou:=0;
   try
     ReturnLength := 0;
     if NtQuerySystemInformation(SystemModuleInformation,nil, 0, ReturnLength) <> STATUS_INFO_LENGTH_MISMATCH then
      Exit;
     if ReturnLength > 0 then
       begin
        GetMem(modin, ReturnLength);
        try
         if NtQuerySystemInformation(SystemModuleInformation,modin, ReturnLength, ReturnLength) = 0 then
         begin
           Temp := modin;
             repeat

              Form2.ListBox1.Items.Add(Temp^.aSysM.ImageName);
               Temp := Pointer(DWORD(Temp) + Temp^.aSysM.ModuleNameOffset);
               if Temp^.aSysM.ModuleNameOffset=0 then
                inc(ou);

             until ou=2;
         end;
       finally
         FreeMem(modin);
       end;
     end;
   finally
   end;
end;
 SYSTEM_MODULE= ^_SYSTEM_MODULE;
  _SYSTEM_MODULE= packed record
    Reserved:array[0..1] of  ULONG;
    Base:ULONG;
    Size:ULONG;
    Flags:ULONG;
    Index:ULONG;
    Unknown:ULONG;
    ModuleNameOffset:SHORT;
    ImageName:Array[0..256] of Char;
  end;
  PSYSTEM_MODULE_INFORMATION = ^SYSTEM_MODULE_INFORMATION;
  SYSTEM_MODULE_INFORMATION = packed record
   uCount:ULONG;
   aSysM:SYSTEM_MODULE;
  end;

Procedure GetSystemInformation;
 var
   Temp: PSYSTEM_MODULE_INFORMATION;
   modin:PSYSTEM_MODULE_INFORMATION;
   ReturnLength: DWORD;
  I: integer;
  ou:integer;
 begin
  ou:=0;
   try
     ReturnLength := 0;
     if NtQuerySystemInformation(SystemModuleInformation,nil, 0, ReturnLength) <> STATUS_INFO_LENGTH_MISMATCH then
      Exit;
     if ReturnLength > 0 then
       begin
        GetMem(modin, ReturnLength);
        try
         if NtQuerySystemInformation(SystemModuleInformation,modin, ReturnLength, ReturnLength) = 0 then
         begin
           Temp := modin;
           for I := 0 to Temp^.uCount do
      //     if pos('.dll',String(Temp^.aSysM[i].ImageName))>0 then
             Form2.ListBox1.Items.Add(ExtractFileName(Temp^.aSysM[i].ImageName));
         end;
       finally
         FreeMem(modin);
       end;
     end;
   finally
   end;
end;

procedure GetAllDLL(var DLLList:TStringList);
var
 i:integer;
 tList:TStringList;
 ArrInfo:TLpModuleInfoArray;
begin
 tList:=TStringList.Create;
 ArrInfo:=GetAllProcessesInfo(false);
  for i:=0 to Length(ArrInfo)-1 do
   begin
     GetLoadedDLLList(tList,ArrInfo[i].ModulePID,[moIncludeHandle]);
     DLLList.AddStrings(tList);
   end;
   tList.Free;
end;

 // пример использования:

procedure TForm1.Button1Click(Sender: TObject);
var
 ntDLLList:TStringList;
begin
ntDLLList:=TStringList.Create;
GetAllDLL(ntDLLList);
ListBox1.Items:=ntDLLList;
ntDLLList.Free;
end;

{$APPTYPE CONSOLE}

type
  TMatrix =
    record
      size: integer;
      data: array of array of integer;
    end;

var
  m: TMatrix;

function Minor(matrix: TMatrix; i,j: integer): TMatrix;
var
  a,b,a1,b1: integer;
begin
  a1 := -1;
  b1 := -1;
  result.size := matrix.size - 1;
  setlength(result.data, result.size, result.size);
  for a := 0 to result.size do
    begin
      if a=i then
        continue
      else
        inc(a1);
      for b := 0 to result.size do
        begin
          if b = j then
            continue
          else
            if b - b1 > 1 then
              inc(b1)
            else
              b1 := 0;
          result.data[a1,b1] := matrix.data[a,b];
      end;
    end;
end;

function Determ(matrix: TMatrix): integer;
var
  i: integer;
begin
  result := 0;
  if matrix.size = 2 then
    result := (matrix.data[0,0]*matrix.data[1,1]) - (matrix.data[0,1]*matrix.data[1,0])
  else
    begin
      for i := 0 to matrix.size - 1 do
        if odd(i+1) then
          result := result + matrix.data[i,0]*Determ(Minor(matrix,i,0))
        else
          result := result - matrix.data[i,0]*Determ(Minor(matrix,i,0));
    end;
end;

begin
  m.size := 3;
  setlength(m.data,3,3);
  m.data[0,0] := 2;
  m.data[0,1] := 4;
  m.data[0,2] := -1;
  m.data[1,0] := -1;
  m.data[1,1] := 3;
  m.data[1,2] := 2;
  m.data[2,0] := 3;
  m.data[2,1] := 2;
  m.data[2,2] := -2;
  writeln(Determ(m));
  readln;
end.