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

PROGRAM PMatrix;
uses
    Crt;

const
     N = 3;

Var
   Matrix:      Array [1..N,1..N] of byte;
   Indexes:     set of byte;
   counter:     byte;

function CheckLine(LineIndex: byte): boolean;
var
   i, j:        byte;
begin
     counter := 0;
     CheckLine := false;
     for i := 1 to N do
         if (Matrix[LineIndex,i] = 0) then
            begin
                 inc(counter);
                 if counter > 1 then
                    begin
                         CheckLine := false;
                         exit;
                    end;
                 if (i in Indexes) then
                    begin
                         CheckLine := false;
                         exit;
                    end;
            end;
    CheckLine := true;
end;


procedure GenerateMatrix;
var
   tmpindex:    byte;
   i, j:        byte;
begin
     Indexes := [];
     randomize;

     for i := 1 to N do
         begin
              repeat
                    tmpindex := random(N)+1;
                    for j := 1 to N do
                        if j = tmpindex then
                           Matrix[i,j] := 0
                        else
                           Matrix[i,j] := random(99)+1;
              until (CheckLine(i));

              Indexes := Indexes + [tmpindex];
         end;
end;


procedure ChangeLines(index1, index2: byte);
var
   tmp:         byte;
   i:           byte;
begin
     for i := 1 to N do
         begin
              tmp := Matrix[index1,i];
              Matrix[index1,i] := Matrix[index2,i];
              Matrix[index2,i] := tmp;
         end;

end;


procedure SortMatrix;
var
   i, j:        byte;
begin
     for i := 1 to N do
         begin
              if not(CheckLine(i)) then
                 exit;
              for j := 1 to N do
                  if (Matrix[i,j] = 0) then
                     ChangeLines(i,j);
         end;
end;


procedure ShowMatrix;
var
   i, j:        byte;
begin
     for i := 1 to N do
         begin
              for j := 1 to N do
                  if (Matrix[i,j] < 10) then
                     write(' ', Matrix[i,j], ' ')
                  else
                      write(Matrix[i,j], ' ');
              writeln
         end;
end;


var
   i, j:        byte;
   choice:      char;
begin
     clrscr;
     write('Would you like to generate the matrix automatically? (y/n)');
     readln(choice);
     if (choice = 'y') then
        GenerateMatrix
     else
         for i := 1 to N do
             for j := 1 to N do
                 begin
                 write('Matrix[',i,',',j,'] = ');

                 readln(Matrix[i,j]);
                 if (Matrix[i,j] = 0) then
                    Indexes := Indexes + [j];
                 end;

     writeln;
     ShowMatrix;
     writeln;
     SortMatrix;
     ShowMatrix;
     readln;
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;
             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;