Results 1 to 6 of 6
  1. #1
    Departure's Avatar
    Join Date
    Nov 2010
    Gender
    male
    Posts
    818
    Reputation
    125
    Thanks
    1,785
    My Mood
    Doh

    UPDATED Hack Template[Delphi]

    Well I have been trying the last few days to get this PushToConsole Thing working, Nobody is interested to reply to my questions, So im hoping that releasing this source shows that im for real and want to learn about the PushToConsole Method.. I have attempted a heap of different ways based on what I have read on this forum, But because im not C++ programmer I find understanding how the pointer to the type structor is working..

    I have attempted atleast 3 or 4 diffrent ways trying to convert the new method but without success, Therefor I think I must gather as much information as possible about this method which will help me Port the C++ snippet

    anyway enjoy

    Number Pad 1 = NoRecoil
    Number Pad 2 = NoReload
    Number Pad 3 = SuperBullets
    Number Pad 4 = GlassWalls
    Number Pad 5 = Not working, this was to be my PushToConsole Method.

    End Key = Turn off all hacks(needed before starting a new game)

    Code:
    library DepartureLib;
    
    uses
      Windows, SysUtils;
    
    {$R *.res}
    
      //Have a record of patches for easier managment(Not implemented yet)
    Type
      TPatchRecord = Record
        Address: Pointer;
        NewBytes: array of Byte;
        OldBytes: array of Byte;
      end;
      //Pointer to our record
      PPatchRecord = ^TPatchRecord;
    
    var
      //Thread Handles
      dwThrdHack: Dword = 0;
      dwThrdMain: Dword = 0;
      dwThrdKeys: Dword = 0;
      //Patches On/Off
      NoRecoil: Boolean = False;
      NoReload: Boolean = False;
      SuperBullets: Boolean = False;
      GlassWall: Boolean = False;
      FPS: Boolean = False;
    Const
    //======================= NoRecoil ================================//
      //Recoil Address's
      AddressNoRecoil1 = $37465A60;
      AddressNoRecoil2 = $37234EB9;
      AddressNoRecoil3 = $37465A74;
      AddressNoRecoil4 = $37465A77;
      AddressNoRecoil5 = $37465A80;
      //Recoil Patches
      PatchNoRecoil1 : Array[0..2] of byte = ($90,$90,$90);
      PatchNoRecoil2 : Array[0..10] of byte = ($90,$90,$90,$90,$90,$90,$90,$90,$90,$90,$90);
      PatchNoRecoil3 : Array[0..2] of byte = ($90,$90,$90);
      PatchNoRecoil4 : Array[0..2] of byte = ($90,$90,$90);
      PatchNoRecoil5 : Array[0..2] of byte = ($90,$90,$90);
      //Recoil ORiginal Bytes
      OriginalNoRecoil1 : Array[0..2] of byte = ($D8,$66,$54);
      OriginalNoRecoil2 : Array[0..10] of byte = ($C7,$84,$24,$94,$00,$00,$00,$0F,$00,$00,$00);
      OriginalNoRecoil3 : Array[0..2] of byte = ($D9,$5E,$54);
      OriginalNoRecoil4 : Array[0..2] of byte = ($D9,$46,$48);
      OriginalNoRecoil5 : Array[0..2] of byte = ($D9,$5E,$48);
    //======================= NoReload ==============================//
      AddressNoReload = $374B1824;
      PatchNoReload : Array[0..5] of byte = ($90,$90,$90,$90,$90,$90);
      OriginalNoReload : Array[0..5] of byte = ($0F,$84,$B1,$01,$00,$00);
    //======================== SuperBullets =========================//
      AddressSuperBullets = $374AC526;
      PatchSuperBullets : Array[0..2] of byte = ($90,$90,$90);
      OriginalSuperBullets : Array[0..2] of byte = ($0F,$94,$C0);
    //======================= GlassWall =============================//
      AddressGlassWall = $005725AA;
      PatchGlassWall : Array[0..1] of byte = ($6A,$00);
      OriginalGlassWall : Array[0..1] of byte = ($6A,$01);
    
    //PushToConsole Methods NOT working yet
    type
      TRunConsoleCommand = function(cmd : pchar) : Integer; cdecl;
      PRunConsoleCommand = ^TRunConsoleCommand;
    
      lpSetConsoleVariable = procedure( console: Integer; szVal: PChar ); cdecl;
      PSetConsoleVariable = ^lpSetConsoleVariable; // Pointer To lpSetConsoleVariable
      SetConsoleVariable  =  lpSetConsoleVariable;
    
    procedure RunConsoleCommand(Const command : String);
    var
     RCC : TRunConsoleCommand;
    begin
     RCC:= TRunConsoleCommand($00485E10);
     RCC(Pchar(command));
    end;
    
    //PushToCosole Method
    function PushIt(command: PChar):boolean;cdecl;
    var
     dwAddress: Dword;
    begin
      dwAddress:= $00484BC0;
       asm
        mov eax,command
        push eax
        push $08003f0
        call dwAddress
        add esp,8
       end;
       result := true;
    end;
    
    // Write Bytes to Address Method
    Function WriteIt(pAddress: Pointer; Bytes: Array of Byte): Boolean;
    var
      dwProtect: DWord;
    begin
      Result:= False;
      //Change address Protecting to read/write/Execute and save the original in dwProtect
      if VirtualProtect(pAddress, SizeOf(Bytes), PAGE_EXECUTE_READWRITE, @dwProtect) then
       begin
      //Write the new bytes to addres and the length of bytes to be written
        Move(Bytes, pAddress^, Length(Bytes));
     //Restore original Protecting to section we have just written to.
        VirtualProtect(pAddress, SizeOf(Bytes), dwProtect, @dwProtect);
        Result := True
       end;
    end;
    
    Function FuncKeys(const LPVOID: variant): Boolean;
    begin
     while (True) do
      Begin
       //Recoil
       if (GetAsyncKeyState(VK_NUMPAD1) <> 0) then
         NoRecoil:= NOT NoRecoil;
    
    
       //NoReload
       if (GetAsyncKeyState(VK_NUMPAD2) <> 0) then
         NoReload:= NOT NoReload;
    
       //SuperBullets
       if (GetAsyncKeyState(VK_NUMPAD3) <> 0) then
         SuperBullets:= NOT SuperBullets;
    
      //GlassWall
       if (GetAsyncKeyState(VK_NUMPAD4) <> 0) then
         GlassWall:= NOT GlassWall;
    
       if (GetAsyncKeyState(VK_NUMPAD5) <> 0) then
        FPS:= NOT FPS;
    
       //Turn off All Hacks "End" Key
       if (GetAsyncKeyState(VK_END) <> 0) then
        begin
          NoRecoil:= False;
          NoReload:= False;
          SuperBullets:= False;
          GlassWall:= False;
        end;
       //Have a KitKat
       sleep(100);
      end;
    end;
    
    
    function FuncMain(const LPVOID: variant): Boolean;
    begin
      while (True) do
       begin
        asm
         pushad;
        end;
    
        //Write NoRecoil
        if NoRecoil then
         begin
          WriteIt(ptr(AddressNoRecoil1),PatchNoRecoil1);
          WriteIt(ptr(AddressNoRecoil2),PatchNoRecoil2);
          WriteIt(ptr(AddressNoRecoil3),PatchNoRecoil3);
          WriteIt(ptr(AddressNoRecoil4),PatchNoRecoil4);
          WriteIt(ptr(AddressNoRecoil5),PatchNoRecoil5);
         end
         else
         begin
          WriteIt(ptr(AddressNoRecoil1),OriginalNoRecoil1);
          WriteIt(ptr(AddressNoRecoil2),OriginalNoRecoil2);
          WriteIt(ptr(AddressNoRecoil3),OriginalNoRecoil3);
          WriteIt(ptr(AddressNoRecoil4),OriginalNoRecoil4);
          WriteIt(ptr(AddressNoRecoil5),OriginalNoRecoil5);
         end;
    
        //Write NoReload
        if NoReload then
          WriteIt(ptr(AddressNoReload),PatchNoReload)
         else
          WriteIt(ptr(AddressNoReload),OriginalNoReload);
    
        //Write SuperBullets patch
        if SuperBullets then
          WriteIt(ptr(AddressSuperBullets),PatchSuperBullets)
         else
          WriteIt(ptr(AddressSuperBullets),OriginalSuperBullets);
    
       //Write GlassWall patch
        if GlassWall then
          WriteIt(ptr(AddressGlassWall),PatchGlassWall)
         else
          WriteIt(ptr(AddressGlassWall),OriginalGlassWall);
    
        //PushToConsole
        if FPS then
          SetConsoleVariable($00484BC0)($008003F0,Pchar('SkelModelStencil 1'))
         else
          SetConsoleVariable($00484BC0)($008003F0,Pchar('SkelModelStencil 0'));
    
    
        //Have a KitKat
        Sleep(100);
        asm
         popad;
        end;
      end;
    end;
    
    Function IsGameReadyForHook: Boolean;
    var
      null: variant;
    begin
      //Get base address of the following modules...
      if ((GetModuleHandleA('d3d9.dll') <> null) and
        (GetModuleHandleA('ClientFX.fxd') <> null) and
        (GetModuleHandleA('CShell.dll') <> null)) then
      begin
      //Modules exsist so we can return true
        Result := True;
      end
      else
      //Otherwise Modules dont exsist yet
        Result := False;
    end;
    
    Function HackThread(): Dword;
    var
     cHandle: Cardinal;
    begin
     //Call our function to check for loaded game modules
      Repeat
        Sleep(500);
      Until ((IsGameReadyForHook = True) and (dwThrdMain = 0));
    
     //Creat one thread for Key presses, and one for writting our patches(if = to true)
      CreateThread(nil, 0, @FuncKeys, nil, 0, dwThrdKeys);
      CreateThread(nil, 0, @FuncMain, nil, 0, dwThrdMain);
     //Just some debugging...(Not needed)
      cHandle:= GetModuleHandleA('CShell.dll');
      MessageBoxA(0, Pchar(format('CShell Base Adress: %8.x', [cHandle])),Pchar('CShell Base'), MB_OK + MB_ICONINFORMATION);
    
     //No need for thread anymore
      Result := 0;
    end;
    
    procedure DllMain(reason: integer);
    begin
      case reason of
        DLL_PROCESS_ATTACH:
          begin
        //Create a thread to monitor for the game modules
            CreateThread(nil, 0, @HackThread, nil, 0, dwThrdHack);
          end;
        DLL_PROCESS_DETACH:
        //When we detach make sure to clean up any threads we created
          begin
            if dwThrdMain <> 0 then
              CloseHandle(dwThrdMain);
            if dwThrdHack <> 0 then
              CloseHandle(dwThrdHack);
            if dwThrdKeys <> 0 then
              CloseHandle(dwThrdKeys);
          end;
      end;
    end;
    
    begin
      //Disable notifycation of attachment
      DisableThreadLibraryCalls(hInstance);
      DllProc := @DllMain;
      DllProc(DLL_PROCESS_ATTACH);
    end.
    P.s You will notice 3 different tried methods for PushToConsole Non of these seem to work, If you can help guide me the right direction I would really appreciate this...

    P.s.s If you need a injector PM me as I have made my own injector Which works with ALL versions of windows and built with Delphi

  2. The Following User Says Thank You to Departure For This Useful Post:

    deeman12 (11-12-2010)

  3. #2
    NOOBJr's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    in NOOB
    Posts
    1,426
    Reputation
    112
    Thanks
    693
    Nice job but unfortunately i dont know anything about this!

  4. #3
    Hahaz's Avatar
    Join Date
    Sep 2008
    Gender
    male
    Location
    Matrix World
    Posts
    1,170
    Reputation
    64
    Thanks
    4,083
    My Mood
    Bored
    Hmm Delphi, u wont get many supports here. Pm 0rbit, maybe he can help u. he's pro in Delphi, made couple of awesome hacks from it.

  5. #4
    Departure's Avatar
    Join Date
    Nov 2010
    Gender
    male
    Posts
    818
    Reputation
    125
    Thanks
    1,785
    My Mood
    Doh
    Thanks Hahaz, I just Pm'ed him and ask for him to take a look....

  6. #5
    futuramaman's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Posts
    13
    Reputation
    10
    Thanks
    2
    good job, i'm gonna try and make a hack with this

  7. #6
    vinay478's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Posts
    26
    Reputation
    10
    Thanks
    7
    My Mood
    Aggressive
    Quote Originally Posted by futuramaman View Post
    good job, i'm gonna try and make a hack with this
    Remember to give Credits then..
    Thank Me, +Rep me.

    Bypass : 33% Done. =D

Similar Threads

  1. Hack Template[Delphi]
    By Departure in forum Combat Arms Hack Coding / Programming / Source Code
    Replies: 11
    Last Post: 11-20-2010, 12:15 AM
  2. Updated Hacks
    By dxm2007 in forum Combat Arms Hacks & Cheats
    Replies: 2
    Last Post: 12-19-2008, 03:36 AM
  3. Most Updated Hacks, and Adresses?
    By warrior777 in forum WarRock - International Hacks
    Replies: 6
    Last Post: 07-28-2007, 04:13 AM
  4. WarRock VIP Hack Updated & Hack News
    By Dave84311 in forum Hack/Release News
    Replies: 5
    Last Post: 07-10-2007, 03:17 AM
  5. [Release] chipper12's updated hack pack!!!
    By chipper12 in forum WarRock - International Hacks
    Replies: 11
    Last Post: 06-09-2007, 12:35 PM