atom table monitor 다운로드 - atom table monitor 소스 코드 다운로드

atom table monitor

델파이 소스 코드

ATOM table monitor 1.8

다운로드

글로벌 원자 테이블 및 registerWindowMessage 식별자에 대한 모니터링 도구.

"원자 테이블은 문자열과 해당 식별자를 저장하는 시스템 정의 테이블입니다. 애플리케이션은 원자 테이블에 문자열을 배치하고 원자라고하는 16 비트 정수를 수신하여 문자열에 액세스하는 데 사용할 수 있습니다. 원자 테이블에 배치 된 문자열을 원자 이름이라고합니다."

출처 : Microsoft- 원자 테이블 정보

Atom Table Monitor, RegisterClass, RegisterClassex, GlobalAddatom, AddAtom 또는 registerWindowMessage 함수의 식별자를 사용하여 생성 된 모든 원자를 사용하여 모니터링 할 수 있으며 응용 프로그램이 원자 / 식별자가 누출되지 않았는지 확인할 수 있습니다.

관련 기사 :

글로벌 원자 테이블 모니터링 파트 I
글로벌 원자 테이블 모니터링 파트 II
글로벌 원자 테이블 모니터링 파트 III

특징:

GlobalGetAtomName을 사용하여 0xc000에서 0xffff의 Global Atom 항목을 모니터링하십시오.
getClipboardformatname을 사용하여 0xc000에서 0xfff로 RegisterWindowMessage Atom Entries (식별자)를 모니터링하십시오.
메모리 그리드를 사용하여 좋은 방법으로 메모리가 표시됩니다.
정규 표현식을 사용하여 패턴을 일치시킵니다.
현재 값을 표시하는 그래프.
GlobalAddatom 및 RegisterWindowMessage 함수를 사용한 테이블 항목을 테스트합니다.
사용자 세션 원자 및 서비스 세션 원자 모니터링.
Windows 10 지원.

참고 :

하드 코딩 된 내부 사용을 위해 * C : * 드라이브를 사용합니다. (시스템에 드라이브가 있는지 확인하십시오)

버전 1.6 :

글로벌 원자 테이블 : RegisterWindowMessage 테이블 : 항목 표시 목록 : 일치하는 문자열 패턴 : 카운터 : 테스트 화면 : 세션 화면 선택 : 모니터링 서비스 세션 원자 :

스캔 원자 방법 :

 procedure ScanAtoms ;
var
  i: word;
  cstrAtomName: array [ 0 .. 1024 ] of char;
  cstrRWMName: array [ 0 .. 1024 ] of char;
  AtomName, RWMName: string;
  len, lenRWM: integer;
  Value : string;
  countAtom, countRWM: integer;
begin
  countAtom := 0 ;
  countRWM := 0 ;
  for i := $C000 to $FFFF do
  begin
    Value := ' ' ;
    len := GlobalGetAtomName(i, cstrAtomName, 1024 );
    lenRWM := GetClipboardFormatName(i, cstrRWMName, 1024 );
    if len > 0 then
    begin
      AtomName := StrPas(cstrAtomName);
      SetLength(AtomName, len);
      Value := AtomName;
      Inc(countAtom);
      FATomTable[i - $C000].atom[ 0 ] := Value + '  --GlobalAtom ' ;
    end ;
    if lenRWM > 0 then
    begin
      RWMName := StrPas(cstrRWMName);
      SetLength(RWMName, lenRWM);
      Value := RWMName;
      Inc(countRWM);
      FATomTable[i - $C000].atom[ 1 ] := Value + '  --RWM ' ;
    end ;
  end ;
end ;

정규 표현식 사용 :

 function GetColor (Text: string): TColor;
  var
    i: integer;
    perl: TPerlRegEx;
    res: TColor;
  begin
    res := clGray;
    for i := 0 to FListPatterns.count - 1 do
    begin
      perl := TPerlRegEx.Create;
      try
        perl.RegEx := UTF8String(FListPatterns[i].RegularEx);
        perl.Subject := UTF8String(Text);
        if perl.Match then
        begin
          res := FListPatterns[i].color;
          Break;
        end ;
      finally
        perl.Free;
      end ;
    end ;
    result := res;
  end ;

테스트 :

 procedure AddatomClick (Sender: TObject);
var
  i: integer;
begin
  try
    GlobalAddAtom(PChar(getRandomString(Edit4.Text)));
    if GetLastError <> 0 then
    begin
      ShowMessage(IntToStr(GetLastError) + ' ' + SysErrorMessage(GetLastError));
      Break;
    end ;
  Except
    on e: exception do
      ShowMessage(e.message + ' ' + IntToStr(GetLastError));
  end ;
end ;

procedure RWMAddAtom (Sender: TObject);
var
  i: integer;
  myString: string;
begin
  myString := getRandomString(Edit8.Text);
  try
    RegisterWindowMessage(PWideChar(myString));
    if GetLastError <> 0 then
    begin
      ShowMessage(IntToStr(GetLastError) + ' ' + SysErrorMessage(GetLastError));
      Break;
    end ;
  Except
    on e: exception do
      ShowMessage(e.message + ' ' + IntToStr(GetLastError));
  end ;
end ;

function getRandomString (header: string): string;
const
  Chars = ' 1234567890ABCDEFGHJKLMNPQRSTUVWXYZ!?/*+- ' ;
var
  S: string;
  i, N: integer;
begin
  Randomize;
  S := ' ' ;
  for i := 1 to 6 do
  begin
    N := Random(Length(Chars)) + 1 ;
    S := S + Chars[N];
  end ;
  result := header + S;
end ;

RegisterClassex를 사용한 테스트

 procedure btnCreateClick (Sender: TObject);
var
  WC: TWndclassEx;
  atom: word;
begin
  WC.lpszclassName := PWideChar(Edit10.Text);
  WC.cbSize := SizeOf(TWndclassEx);
  WC.style := CS_VREDRAW or CS_HREDRAW;
  WC.lpfnWndProc := @DefWindowProc;
  WC.cbClsExtra := 0 ;
  WC.cbWndExtra := 0 ;
  WC.hinstance := hinstance;
  WC.hIcon := Application.Icon.Handle;
  WC.hIconSm := Application.Icon.Handle;
  WC.hCursor := LoadCursor( 0 , IDC_ARROW);
  WC.lpszMenuName := nil ;
  WC.hbrBackground := (COLOR_BACKGROUND + 1 );

  atom := RegisterClassEx(WC);
  if atom <> 0 then
    ShowMessage( ' Atom Created at ' + IntToHex(atom, 4 ));
end ;