Results 1 to 1 of 1
  1. #1
    marcelo380
    marcelo380 is offline
    New member marcelo380's Avatar
    Join Date
    2012 Mar
    Posts
    5
    Thanks Thanks Given 
    1
    Thanks Thanks Received 
    0
    Thanked in
    0 Posts
    Rep Power
    0

    Get memdump external program

    hello guys,

    I'm trying to get the memdump external processes via delphi
    But I'm struggling.
    I am programming an anti-hack.
    To detect hacks :

    PHP Code:
    (Offset : $0432360;  MemDump :($45$FC, $8B, $40, $14, $8B, $40, $18, $83$F8, $02, $74, $02$EB, $0B, $8B, $45$FC, $8B, $40, $24, $89, $45$F8$EB, $12, $8B, $45$FC, $8B, $58, $14)), //Cheat Engine 6.1 

    Good people have this function to get the internal memdump:

    Code:
    function MemoryDump(Address : DWORD; SizeOfDump : Byte; RepeatX : DWORD):string; 
    var 
      value : Int64; 
      i,Count : DWORD; 
      s,vType : string; 
    begin 
      if (SizeOfDump in [1,2,4,8]) then 
      begin 
        Count := 0; 
        case (SizeOfDump) of 
          1: vType := 'Byte'; 
          2: vType := 'Word'; 
          4: vType := 'DWORD'; 
          8: vType := 'Int64'; 
        end; 
        Result := 'Memory Dump from Address[$'+ 
          IntToHex(Address,8)+']:'#13#10'Dump : array [0..$'+IntToHex(RepeatX,8)+ 
          '] of '+vType+' = '#13#10'('#13#10'  '; 
        repeat 
          s := ''; 
          value := 0; 
          MoveMemory(@value,Pointer(Address + (SizeOfDump * Count)),SizeOfDump); 
          s := IntToHex(value,SizeOfDump); 
          if (Count <> RepeatX-1) then 
          begin 
            if ((Count+1) mod 8 = 0) then 
              Result := Result + '$'+s+', '#13#10'  ' 
            else 
              Result := Result + '$'+s+', ' 
          end 
          else 
            Result := Result + '$'+s+#13#10');'; 
          Inc(Count); 
        until (Count = RepeatX); 
      end 
      else 
        Result := ''; 
    end;  
     
     
     
     
    Memo1.Text := MemoryDump($0044EC90,1,50);
    I would get the memdump an external process via PID
    But I tried and not worked with ReadProcessMemory



    I appreciate everyone's attention!
    thank you!

Similar Threads

  1. [Info] program to speed up PC
    By jamesmoorhead in forum Software & Hardware
    Replies: 0
    Last Post: 2012-10-06, 04:38 AM
  2. Program Pascal
    By DualEvil in forum General Programming
    Replies: 7
    Last Post: 2012-10-03, 12:54 AM
  3. Program Pascal
    By DualEvil in forum Aika Bots, Hacks, Cheats
    Replies: 4
    Last Post: 2012-09-29, 04:18 PM
  4. [Help]Small C# Program
    By Pb600 in forum C/C++
    Replies: 0
    Last Post: 2011-07-21, 01:03 AM
  5. This is mi program for bot
    By KAIN3003 in forum Requiem Bots, Hacks, Cheats
    Replies: 4
    Last Post: 2010-12-21, 11:31 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •