Results 1 to 4 of 4
  1. #1
    P.o.X
    P.o.X is offline
    Member-in-training P.o.X's Avatar
    Join Date
    2012 May
    Posts
    64
    Thanks Thanks Given 
    11
    Thanks Thanks Received 
    11
    Thanked in
    7 Posts
    Rep Power
    0

    Question [HELP]I`m new and stupid

    Hey there i have a delphi code but idk how to compile it
    Code:
    library plugin;
    
    uses
      Windows,
      SysUtils,
      tlhelp32;
    
    function Enigma_Plugin_About : PWideChar;
    begin
      // Function returns a wide string that will be shown in about column in Enigma Miscellaneous - Plugins
    end;
    
    function Enigma_Plugin_Description : PWideChar;
    begin
      // Function returns a wide string that will be shown after user clicks on the plugin in Enigma Miscellaneous - Plugins
      // It may contain, for example, usage instructions
    end;
    
    const
      UNALLOWED_MODULES : array [0..1] of string =
      ('module1.dll', 'module2.dll');
    
    var
      TimerID, TimerIDKill : dword;
      TimerInitialized : boolean = false;
    
    function FindModule : boolean;
    var
      me32 : MODULEENTRY32;
      i : integer;
      SnapShotID : dword;
    begin
      // This function is calling when the protected file is being initialized
      // when main program is not initialized yet
      Result := false;
      //
      SnapShotID := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, GetCurrentProcessID);
      if SnapShotID <> 0 then
      begin
        me32.dwSize := SizeOf(me32);
        if Module32First(SnapShotID, me32) then
        begin
          repeat
            // search unallowed module
            for i := 0 to length(UNALLOWED_MODULES) - 1 do
            begin
              if LowerCase(UNALLOWED_MODULES[i]) = LowerCase(string(me32.szModule)) then
              begin
                Result := true;
                break;
              end;
            end;
            if Result then
            begin
              break;
            end;
          until not Module32Next(SnapShotID, me32);
        end;
        CloseHandle(SnapShotID);
      end;
    end;
    
    procedure Enigma_Plugin_OnInit;
    begin
    
    end;
    
    procedure Timer_KillMe(hwnd : HWND; uMsg, idEvent, dwTime : dword); stdcall;
    begin
      if (idEvent <> TimerIDKill) then Exit;
      KillTimer(0, idEvent);
      ExitProcess(0);
    end;
    
    procedure Timer_CheckMe(hwnd : HWND; uMsg, idEvent, dwTime : dword); stdcall;
    begin
      if (idEvent <> TimerID) then Exit;
      if not TimerInitialized then
      begin
        KillTimer(0, idEvent);
        TimerID := SetTimer(0, 1, 1000 + Random(1000), @Timer_CheckMe);
      end;
      TimerInitialized := true;
      // check the module
      if FindModule then
      begin
        TimerIDKill := SetTimer(0, 1, 1000 + Random(1000), @Timer_KillMe);
        KillTimer(0, idEvent);
      end;
    end;
    
    procedure Enigma_Plugin_OnFinal;
    begin
      // This function is calling when the protected file is initilized,
      // main program encrypted and ready for execution
    
      // start timer to check first process, delay for about 10 seconds
      TimerInitialized := false;
      TimerID := SetTimer(0, 1, 1000 + Random(1000), @Timer_CheckMe);
    end;
    
    
    exports
      Enigma_Plugin_About,
      Enigma_Plugin_Description,
      Enigma_Plugin_OnInit,
      Enigma_Plugin_OnFinal;
    
    begin
    end.

  2. #2
    leeonardo
    leeonardo is offline
    Moderator leeonardo's Avatar
    Join Date
    2012 Jan
    Location
    Here I am.
    Posts
    2,219
    Thanks Thanks Given 
    48
    Thanks Thanks Received 
    3,122
    Thanked in
    737 Posts
    Rep Power
    15
    Ctrl + F9 and will compile the .dll

    Anyway, there's the compiled .dll

    Please register or login to download attachments.

    Last edited by leeonardo; 2014-02-27 at 10:28 PM.


    É pra ficar com medo?



    Apenas observo...



    Não faço nenhum tipo de venda de hack no jogo, então se in game ver algum "Leonardo PGC" não acredite, pois será alguém tentando te roubar.

  3. The Following User Says Thank You to leeonardo For This Useful Post:


  4. #3
    P.o.X
    P.o.X is offline
    Member-in-training P.o.X's Avatar
    Join Date
    2012 May
    Posts
    64
    Thanks Thanks Given 
    11
    Thanks Thanks Received 
    11
    Thanked in
    7 Posts
    Rep Power
    0
    Quote Originally Posted by leeonardo View Post
    Ctrl + F9 and will compile the .dll

    Anyway, there's the compiled .dll
    Ty ,what software you use?

  5. #4
    leeonardo
    leeonardo is offline
    Moderator leeonardo's Avatar
    Join Date
    2012 Jan
    Location
    Here I am.
    Posts
    2,219
    Thanks Thanks Given 
    48
    Thanks Thanks Received 
    3,122
    Thanked in
    737 Posts
    Rep Power
    15
    Borland Delphi 7


    É pra ficar com medo?



    Apenas observo...



    Não faço nenhum tipo de venda de hack no jogo, então se in game ver algum "Leonardo PGC" não acredite, pois será alguém tentando te roubar.

Similar Threads

  1. One Stupid !
    By djpunter in forum Aika Guides, Tutorials
    Replies: 3
    Last Post: 2013-08-20, 08:43 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
  •