Ярослав

6 часов назад, Garik66 сказал:

Ты. генерировал "гигантский"?

  Показать контент

 

Возможно его каким-то образом сгенерировать в .dll ? как D3D читы на C++ 

5 часов назад, Garik66 сказал:

Ты. генерировал "гигантский"?

  Показать контент

 

и не подскажете как убрать вот эту ошибку при запуске ? 
 

Скриншот

5 часов назад, Garik66 сказал:

Ты. генерировал "гигантский"?

  Скрыть контент

 

заработало, только что сгенирировал "крошечный" и всё заработало, а что делает "гигантский" ? почему она не хотело работать ?

Всем привет, почему то после того как я собрал трейнер в exe файл он не инжектиться в игру, приэтом если запуститься .ct файл то всё роботает нормально
 

9 часов назад, LIRW сказал:

Хорошо хоть не "6"   (вопрос ради интереса) а зачем их все три, объединять в одну ?  

Ну слава богу нашлись добрые люди и помогли всё сделать

8 часов назад, LIRW сказал:

Хорошо хоть не "6"   (вопрос ради интереса) а зачем их все три, объединять в одну ?  

из 1 X 2 Y 3 Z
вот тебе видео, посмотри и поймёшь зачем

3 часа назад, Xipho сказал:

Из твоего вопроса понятно, что ты абсолютно не имеешь понятия о сигнатурах. Рекомендую почитать про то, что они из себя представляют, и как их находить.

вообщето я её сам нашёл, если хочешь я тебе могу описать как я её искал 

Я нашёл сигнатуру на телепорт, нашёл её через хотьбу по воздуху их 3, вопрос как их обьеденить в 1 длинную для телепорта, что бы она была с маской ? SigMake CE выдаёт ошибку 
нашёл их через сигнатуру хотьба по воздуху



sigmaker CE не роботает 




В Olly не определяется


в x64dbg нельзя сделать длинную сигнатуру он делает только для 1 адресса

 

5 минут назад, imaginary сказал:

sListBox1->Items->Strings[sListBox1->ItemIndex].t_str()

я заменил на этот и получилась вторая ошибка 
 

Всем привет, кто может помочь с кодом Delphi xe8 C++ 
https://prnt.sc/s7fdz7

Вот код

 

void __fastcall TForm2::Button1Click(TObject *Sender)
{    /* string b="1234";
	string a(b, 1, 2);
	  String strr;
	size_t tr =  strr.Pos("1");

	  Form2->Caption = a.c_str();*/
   //selectpid =    bx[ListBox1->ItemIndex];
	 if (sListBox1->ItemIndex>=0) {
		 string b(sListBox1->Items->Strings[sListBox1->ItemIndex].t_str(),0,sListBox1->Items->Strings[sListBox1->ItemIndex].Pos("|")-2);
	 //Form2->Caption = b.c_str();
   Form2->selectpid	 = StrToInt(b.c_str());
	  
	  
		Form1->Label4->Caption = "Состояние";
			Form1->Label4->Font->Color = clWindowText;
	 }

}
// pid:=StrToInt(copy(combobox1.text, -Length(combobox1.text) , Pos('|',combobox1.text)-1 )
//---------------------------------------------------------------------------

вот здесь ошибка 
 

	 string b(sListBox1->Items->Strings[sListBox1->ItemIndex].t_str(),0,sListBox1->Items->Strings[sListBox1->ItemIndex].Pos("|")-2);

ЛОГ

[bcc32 Warning] W8123 Path '\boost\tr1\tr1' not found - path ignored in option '-I'
[bcc32 Warning] W8123 Path '\boost\tr1\tr1' not found - path ignored in option '-I'
[bcc32 Warning] Unit2.cpp(50): W8111 Accessing deprecated entity 'UnicodeString::t_str() const' 
  Full parser context
    Unit2.cpp(42): parsing: void _fastcall TForm2::Button1Click(TObject *)
[bcc32 Error] Unit2.cpp(50): E2285 Could not find a match for 'string::basic_string(wchar_t *,int,int)'
  Full parser context
    Unit2.cpp(42): parsing: void _fastcall TForm2::Button1Click(TObject *)
Failed

Здравствуйте, проблема в том что я не могу получить сигнатуру в ollydbg когда этот адрес что в чит енжен, вводишь в ollydbg он показываеться как ?? и не возможно маску сделать, помогите пожалуйста

Ребята У кого есть исходники этих модулей ?? очень надо 

TScanner, TScanner_Help

39 минут назад, partoftheworlD сказал:

Может стоит разобраться для начала как компилируется программа? Подобные вопросы вызывают у меня ужас.

Извините, я не где не нашол информации про этот модуль, не могли бы вы написать инструкцию как им пользоваться ?

8 минут назад, srg91 сказал:

 

На фото ничего не разглядеть, приложи, пожалуйста, нормального размера.

 

  Показать контент

 

 

На фото было просто показано что при декомпиляции программы сигнатуры были в обычном виде,  вопрос как их зашифровать ?? ведь этот модуль должен как-то их шифровать ? или для чего он тогда ? Cheats Holder FULL

фото вот как этом модулём зашифровать сигнатуры ?

14 часов назад, Xipho сказал:

Какая версия Delphi?

7

где взять Winapi.TlHelp32.pas-dcu ?? 

В 22.06.2018 в 14:11, mrPTyshnik сказал:

  Скрыть контент

unit CheatsHolder_FULL;

interface

uses
  Winapi.TlHelp32, System.StrUtils, ShellApi,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls;

procedure AntiScanCE_Start();
function AntiSpy: Boolean;
function CryptSign(Signa: string; const CryptBuffer: String = 'MonsterByte'): String;
function DeCryptSign(Signa: string; const CryptBuffer: String = 'MonsterByte'): String;

implementation

var
 poisk: string;

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom := PChar(dir + #0);
  end;
Result := (0 = ShFileOperation(fos));
end;

function GetWin(Comand: string): string;
var
  buff: array [0 .. $FF] of char;
begin
  ExpandEnvironmentStrings(PChar(Comand), buff, SizeOf(buff));
  Result := buff;
end;

procedure AntiScanCE_Start();
var
  Dir: string;
  searchResult: TSearchRec;
  lines: TSTringList;
  poisk: string;
  I: Integer;
begin
  try

      poisk := GetWin('%AppData%');
      poisk := Copy(poisk, Pos('', poisk) + 0, Pos('\Roaming', poisk) - Pos('', poisk) - 1);
      poisk := (poisk) + '\Local\Temp\Cheat Engine';
      DelDir(poisk);
      CreateDir(poisk);

      if Lines.Strings[2] = '' then
      else  Halt;

      Lines := TSTringList.Create;
      begin
        lines.Clear;
        SetCurrentDir(poisk);
        if FindFirst('*.*', faAnyFile, searchResult) = 0 then
        begin
          repeat
            Lines.Add(searchResult.Name);
              if Lines.Strings[2] = '' then
              begin
               Halt;
              end
              else
              begin
                Halt;
              end;
          until FindNext(searchResult) <> 0;
            FindClose(searchResult);
        end;
      end;
      Lines.Free;
  except
  end;
end;

function CryptSign(Signa: string; const CryptBuffer: String = 'MonsterByte'): String;
var
  i, q: Integer;
begin
  for i := 1 to Length(Signa) do
    begin
      q := (Ord(Signa[i]) + (Ord(CryptBuffer[(Pred(i) mod Length(CryptBuffer)) + 1]) - Ord('0')));
        if q >= 256 then Dec(q, 256);
      Signa[i] := Chr(q);
      Result := Signa;
    end;
end;

function DeCryptSign(Signa: string; const CryptBuffer: String = 'MonsterByte'): String;
var
  i, q: Integer;
begin
  for i := 1 to Length(Signa) do
    begin
      q := (Ord(Signa[i]) - (Ord(CryptBuffer[(Pred(i) mod Length(CryptBuffer)) + 1]) - Ord('0')));
        if q < 0 then Inc(q, 256);
      Signa[i] := Chr(q);
      Result := Signa;
    end;
end;

function IsDebuggerPresent(): boolean; stdcall; external 'kernel32.dll';



function breakpoint(const addr: Pointer): Boolean;
begin
  try
    Result := (PByte(addr)^ = $CC) or (PByte(addr)^ = $E9) or (PByte(addr)^ = 104);
  except
    Result := True;
  end;
end;

function IsHacked: Boolean;
begin
  Result := breakPoint(GetProcAddress(GetModuleHandle('kernel32.dll'), 'WriteProcessMemory'));
end;

function AntiSpy: Boolean;
begin
  if IsHacked then
  begin
  SHowMessage('Bitch, off you soft!');
    {Halt;
    Application.Terminate;}
  end;
end;


end.


{
function IsBreakOnFunc(Address : Pointer):BOOL;
begin

try
  Result :=  (Pbyte(Address)^ = $CC) or (Pbyte(Address)^ = $CD)
  or (Pbyte(Address)^ = $CE) or (PByte(Address)^ = $E9) or (PByte(Address)^ = 104);
except
  Result := True;
end;

end;                                                    //


procedure CheckMyFunc(Libname, Funcname: PWideChar);
begin
VM_TIGER_RED_START();
  if IsBreakOnFunc(GetProcAddress(GetModuleHandle(Libname), Funcname)) then
  TerminateProcess(GetCurrentProcess, 0);
VM_TIGER_RED_END();
end;
}

 

 

 

лучше свое написать
 

 

 

покажите пожалуйста пример того как им зашифровать сигнатуры ?

Здраствуйте, кто может показать как найти noclip на примере gta 5 ? или gta 4

Здраствуйте, люди кто может подилиться исходником d3d меню со сканером сигнатур для игр на unity3d ?

Зарание  огромное спасибо!

Всем привет ремята в этой теме вы скинули исходник трейнера на делпхи там есть модуль TScanner у меня вопрос не можете ли вы мне дать исходник этого модуля пожалуйста ?