Отключен JavaScript

У вас отключен JavaScript. Некоторые возможности системы не будут работать. Пожалуйста, включите JavaScript для получения доступа ко всем функциям.

2 Голосов

TScanner - движок трейнеров!

Автор MByte , 30 дек 2014 13:27

TScanner MonsterByte CheatsTehnology

Назад

Вперед

Авторизуйтесь для ответа в теме

Сообщений в теме: 60

#31 MByte

Генералиссимус

Пользователи

Репутация

572

278 сообщений
5 тем

Отправлено 31 декабря 2014 - 19:30

придётся наверное забить на чит энджина и писать тренер на Delphi , сохранил на диск тоже не помогло (

Хватит на говно Энджинах писать,если ты хороший программист и хочешь добится чего то в мире то пиши на Embercadero Basic Builder паскалке

я пишу на XE5

0

Наверх

#32 Romcheg

Генерал-лейтенант

Пользователи

Репутация

94

124 сообщений
7 тем

Отправлено 31 декабря 2014 - 20:19

придётся наверное забить на чит энджина и писать тренер на Delphi , сохранил на диск тоже не помогло (

Хватит на говно Энджинах писать,если ты хороший программист и хочешь добится чего то в мире то пиши на Embercadero Basic Builder паскалке

я пишу на XE5

нихуя се ты уже далеко пошел от D7

0

Наверх

#33 MByte

Генералиссимус

Пользователи

Репутация

572

278 сообщений
5 тем

Отправлено 31 декабря 2014 - 23:43

Ромчег, всего лишь улучшил модуль

0

Наверх

#34 dima dima

Генералиссимус

Пользователи

Репутация

127

187 сообщений
12 тем

Отправлено 01 января 2015 - 10:22

придётся наверное забить на чит энджина и писать тренер на Delphi , сохранил на диск тоже не помогло (

Хватит на говно Энджинах писать,если ты хороший программист и хочешь добится чего то в мире то пиши на Embercadero Basic Builder паскалке

я пишу на XE5

нихуя се ты уже далеко пошел от D7

Чем старше XE тем выше её возможности, но они распространяются только до XE6 дальше лучше не качать, они оставляют от 5 и выше Гб мусора когда их удаляют

0

Наверх

#35 exE

Первый сержант

Пользователи

Репутация

10

43 сообщений
0 тем

Отправлено 03 января 2015 - 12:43

Скрипт для чекбокса:

procedure TForm1.chk1Click(Sender: TObject);

begin

if chk1.Checked then

begin

Cheat1 := AOBScan(GameHandle, '66 0F D6 8D 58 FF FF FF C7 85 60 FF FF', FullFlags, $0,

$5FFFFFFF);

if Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0) then

begin

Cheat1.WriteBytes('90 90 90 90 90 90 90 90', -1, 0);

end

else

ShowMessage('Не удалось активировать!');

end;

if chk1.Checked = False then

begin

Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0);

end;

0

~~Delphi~~ C++

Наверх

#36 Romcheg

Генерал-лейтенант

Пользователи

Репутация

94

124 сообщений
7 тем

Отправлено 03 января 2015 - 13:00

Скрипт для чекбокса:

procedure TForm1.chk1Click(Sender: TObject);

begin

if chk1.Checked then

begin

Cheat1 := AOBScan(GameHandle, '66 0F D6 8D 58 FF FF FF C7 85 60 FF FF', FullFlags, $0,

$5FFFFFFF);

if Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0) then

begin

Cheat1.WriteBytes('90 90 90 90 90 90 90 90', -1, 0);

end

else

ShowMessage('Не удалось активировать!');

end;

if chk1.Checked = False then

begin

Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0);

end;

end;

ты ошибок наделал. правильнее будет так:

procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = True then
  Cheat1 := AOBScan(GameHandle, 'Сигнатура поиска', FullFlags, $0, $5FFFFFFF);
  if Cheat1.Count > 0 then begin
    if Cheat1.WriteBytes('Сигнатура включения', -1, 0) then
    begin
    end;
  end
  else
 MessageDlg('Ошибка :(',  mtError, [mbOK], 0);
 if CheckBox1.Checked = False then
 Cheat1.WriteBytes('Сигнатура выключения', -1, 0);

Сообщение отредактировал Romcheg: 03 января 2015 - 13:00

1

Наверх

#37 MByte

Генералиссимус

Пользователи

Репутация

572

278 сообщений
5 тем

Отправлено 03 января 2015 - 13:10

Скрипт для чекбокса:

procedure TForm1.chk1Click(Sender: TObject);

begin

if chk1.Checked then

begin

Cheat1 := AOBScan(GameHandle, '66 0F D6 8D 58 FF FF FF C7 85 60 FF FF', FullFlags, $0,

$5FFFFFFF);

if Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0) then

begin

Cheat1.WriteBytes('90 90 90 90 90 90 90 90', -1, 0);

end

else

ShowMessage('Не удалось активировать!');

end;

if chk1.Checked = False then

begin

Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0);

end;

end;

Из моего модуля=)

Сообщение отредактировал MByte: 03 января 2015 - 13:14

0

Наверх

#38 GEVORG_KOBALYAN

Мастер-капрал

Пользователи

Репутация

-1

20 сообщений
1 тем

Отправлено 09 января 2015 - 19:08

кто нибудь покажите простую защиту трейнера(Делфи) от взлома плиззз =)))

================================================================

после компиляции, при запуске Alpa Tools выводит диалог !

как от него избавится ?
я это через дебагер делаю!
нет ли методов по проще?

0

Наверх

#39 Winston

Скриптер

Пользователи

Репутация

1 029

769 сообщений
27 тем

Отправлено 09 января 2015 - 20:57

Круто)))

0

Программы, веб скрипты, плагины и сборки на заказ.

Наверх

#40 {_ТуЗиК_}

Мастер-сержант

Пользователи

Репутация

9

35 сообщений
2 тем

Отправлено 10 января 2015 - 20:12

Кстати, сделан под D7

Мало кто будет пользоваться, uMSE пропиарен сильно)

Сейчас итак почти читы никто не делает!

Привет можешь помощь ? Раньше писал нормально тренеры ,а сейчас все версии чит энджина перепробовал пишет такую ошибку

В чем может дело быть ,а то хочется написать читов для форума

сохраняй на С диск и будет тебе Счастья

0

Хакер - не преступник. Взлом - для искусства. Смысл - в свободе.

Наверх

#41 {_ТуЗиК_}

Мастер-сержант

Пользователи

Репутация

9

35 сообщений
2 тем

Отправлено 10 января 2015 - 20:18

Скрипт для чекбокса:

procedure TForm1.chk1Click(Sender: TObject);

begin

if chk1.Checked then

begin

Cheat1 := AOBScan(GameHandle, '66 0F D6 8D 58 FF FF FF C7 85 60 FF FF', FullFlags, $0,

$5FFFFFFF);

if Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0) then

begin

Cheat1.WriteBytes('90 90 90 90 90 90 90 90', -1, 0);

end

else

ShowMessage('Не удалось активировать!');

end;

if chk1.Checked = False then

begin

Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0);

end;

end;

ты ошибок наделал. правильнее будет так:
procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = True then
  Cheat1 := AOBScan(GameHandle, 'Сигнатура поиска', FullFlags, $0, $5FFFFFFF);
  if Cheat1.Count > 0 then begin
    if Cheat1.WriteBytes('Сигнатура включения', -1, 0) then
    begin
    end;
  end
  else
 MessageDlg('Ошибка :(',  mtError, [mbOK], 0);
 if CheckBox1.Checked = False then
 Cheat1.WriteBytes('Сигнатура выключения', -1, 0);

а лучше будет так

var

Search: TMemorySearch;

begin

if sCheckBox1.Checked then begin

FreeAndNil(SearchResult);

if SearchEngine <> nil then

begin

Search := SearchEngine.NewSearch('Искать');

try

Search.OPT_READPAGE_EXECUTEREADWRITE := True;

Search.OPT_READPAGE_READWRITE := True;

Search.OPT_READPAGE_EXECUTEREAD := True;

Search.OPT_READPAGE_READONLY := True;

if Search.Next then begin

SearchResult := Search.GetFindedAddressObject;

SearchResult.WriteHEX(0, 'Заменить');

end

else

finally

Search.Free;

end;

end

else

end

else

if sCheckBox1.Checked = False then begin

if SearchResult <> nil then

begin

if not SearchResult.WriteHEX(0, 'Востоновить') then

end;

0

Хакер - не преступник. Взлом - для искусства. Смысл - в свободе.

Наверх

#42 MByte

Генералиссимус

Пользователи

Репутация

572

278 сообщений
5 тем

Отправлено 10 января 2015 - 21:04

Скрипт для чекбокса:

procedure TForm1.chk1Click(Sender: TObject);

begin

if chk1.Checked then

begin

Cheat1 := AOBScan(GameHandle, '66 0F D6 8D 58 FF FF FF C7 85 60 FF FF', FullFlags, $0,

$5FFFFFFF);

if Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0) then

begin

Cheat1.WriteBytes('90 90 90 90 90 90 90 90', -1, 0);

end

else

ShowMessage('Не удалось активировать!');

end;

if chk1.Checked = False then

begin

Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0);

end;

end;

ты ошибок наделал. правильнее будет так:
procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = True then
  Cheat1 := AOBScan(GameHandle, 'Сигнатура поиска', FullFlags, $0, $5FFFFFFF);
  if Cheat1.Count > 0 then begin
    if Cheat1.WriteBytes('Сигнатура включения', -1, 0) then
    begin
    end;
  end
  else
 MessageDlg('Ошибка :(',  mtError, [mbOK], 0);
 if CheckBox1.Checked = False then
 Cheat1.WriteBytes('Сигнатура выключения', -1, 0);
а лучше будет так

var

Search: TMemorySearch;

begin

if sCheckBox1.Checked then begin

FreeAndNil(SearchResult);

if SearchEngine <> nil then

begin

Search := SearchEngine.NewSearch('Искать');

try

Search.OPT_READPAGE_EXECUTEREADWRITE := True;

Search.OPT_READPAGE_READWRITE := True;

Search.OPT_READPAGE_EXECUTEREAD := True;

Search.OPT_READPAGE_READONLY := True;

if Search.Next then begin

SearchResult := Search.GetFindedAddressObject;

SearchResult.WriteHEX(0, 'Заменить');

end

else

finally

Search.Free;

end;

end

else

end

else

if sCheckBox1.Checked = False then begin

if SearchResult <> nil then

begin

if not SearchResult.WriteHEX(0, 'Востоновить') then

end;

end;

лучше будет так:

memoriscan.Protectscaning;

AOBScan(0, $5FFFFFFF, 'FF FF FF FF FF 00 DD', True, True);

WriteB('FF FF FF', 0);

case RunCheat(Address3) of

if_Activated:

begin

Result := 5;

end;

if_NotConnected:

begin

Result := 2;

end;

if_ErrorActivate:

begin

Result := 1;

end;

0

Наверх

#43 Romcheg

Генерал-лейтенант

Пользователи

Репутация

94

124 сообщений
7 тем

Отправлено 10 января 2015 - 21:05

Скрипт для чекбокса:

procedure TForm1.chk1Click(Sender: TObject);

begin

if chk1.Checked then

begin

Cheat1 := AOBScan(GameHandle, '66 0F D6 8D 58 FF FF FF C7 85 60 FF FF', FullFlags, $0,

$5FFFFFFF);

if Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0) then

begin

Cheat1.WriteBytes('90 90 90 90 90 90 90 90', -1, 0);

end

else

ShowMessage('Не удалось активировать!');

end;

if chk1.Checked = False then

begin

Cheat1.WriteBytes('66 0F D6 8D 58 FF FF FF', -1, 0);

end;

end;

ты ошибок наделал. правильнее будет так:
procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked = True then
  Cheat1 := AOBScan(GameHandle, 'Сигнатура поиска', FullFlags, $0, $5FFFFFFF);
  if Cheat1.Count > 0 then begin
    if Cheat1.WriteBytes('Сигнатура включения', -1, 0) then
    begin
    end;
  end
  else
 MessageDlg('Ошибка :(',  mtError, [mbOK], 0);
 if CheckBox1.Checked = False then
 Cheat1.WriteBytes('Сигнатура выключения', -1, 0);
а лучше будет так

var

Search: TMemorySearch;

begin

if sCheckBox1.Checked then begin

FreeAndNil(SearchResult);

if SearchEngine <> nil then

begin

Search := SearchEngine.NewSearch('Искать');

try

Search.OPT_READPAGE_EXECUTEREADWRITE := True;

Search.OPT_READPAGE_READWRITE := True;

Search.OPT_READPAGE_EXECUTEREAD := True;

Search.OPT_READPAGE_READONLY := True;

if Search.Next then begin

SearchResult := Search.GetFindedAddressObject;

SearchResult.WriteHEX(0, 'Заменить');

end

else

finally

Search.Free;

end;

end

else

end

else

if sCheckBox1.Checked = False then begin

if SearchResult <> nil then

begin

if not SearchResult.WriteHEX(0, 'Востоновить') then

end;

end;
лучше будет так:

memoriscan.Protectscaning;

AOBScan(0, $5FFFFFFF, 'FF FF FF FF FF 00 DD', True, True);

WriteB('FF FF FF', 0);

case RunCheat(Address3) of

if_Activated:

begin

Result := 5;

end;

if_NotConnected:

begin

Result := 2;

end;

if_ErrorActivate:

begin

Result := 1;

end;

end;

а еще лучше бы - .pas закинул

0

Наверх

#44 Winston

Скриптер

Пользователи

Репутация

1 029

769 сообщений
27 тем

Отправлено 10 января 2015 - 22:29

:lol:

0

Программы, веб скрипты, плагины и сборки на заказ.

Наверх

#45 vlagislav

Штаб-сержант

Пользователи

Репутация

369

32 сообщений
8 тем

Отправлено 11 января 2015 - 03:22

Кстати, сделан под D7

Мало кто будет пользоваться, uMSE пропиарен сильно)

Сейчас итак почти читы никто не делает!

Привет можешь помощь ? Раньше писал нормально тренеры ,а сейчас все версии чит энджина перепробовал пишет такую ошибку

В чем может дело быть ,а то хочется написать читов для форума

Переустановь СЕ и ставь руссификатор без каких либо изменений

Сохрани на диск C:\

0

Наверх

#46 dima dima

Генералиссимус

Пользователи

Репутация

127

187 сообщений
12 тем

Отправлено 11 января 2015 - 13:44

а еще лучше бы - .pas закинул

А еще лучше выкинуть нафиг свой комп и пойти гулять

Сообщение отредактировал dima dima: 11 января 2015 - 13:44

0

Наверх

#47 GEVORG_KOBALYAN

Мастер-капрал

Пользователи

Репутация

-1

20 сообщений
1 тем

Отправлено 12 января 2015 - 16:53

Кстати, сделан под D7

Мало кто будет пользоваться, uMSE пропиарен сильно)

Сейчас итак почти читы никто не делает!

Привет можешь помощь ? Раньше писал нормально тренеры ,а сейчас все версии чит энджина перепробовал пишет такую ошибку

В чем может дело быть ,а то хочется написать читов для форума

Переустановь СЕ и ставь руссификатор без каких либо изменений

Сохрани на диск C:\

наоборот!!!! я в D:\ сохраняю иначе выдаёт ошибку и вылетает!!

0

Наверх

#48 OverGame

Уорэнт-офицер 1

Пользователи

Репутация

-33

52 сообщений
1 тем

Отправлено 13 января 2015 - 15:45

Норм)

7

Наверх

#49 niknik1

Сержант

Пользователи

Репутация

-3

27 сообщений
0 тем

Отправлено 13 января 2015 - 17:02

Кстати, сделан под D

Кстати, сделан под D7

КРАСАВА!

0

Наверх

#50 Romcheg

Генерал-лейтенант

Пользователи

Репутация

94

124 сообщений
7 тем

Отправлено 13 января 2015 - 17:08

а еще лучше бы - .pas закинул

А еще лучше выкинуть нафиг свой комп и пойти гулять

мой комп мне дороже всех денег

0

Наверх

#51 dima dima

Генералиссимус

Пользователи

Репутация

127

187 сообщений
12 тем

Отправлено 13 января 2015 - 17:24

а еще лучше бы - .pas закинул

А еще лучше выкинуть нафиг свой комп и пойти гулять

мой комп мне дороже всех денег

Если ты запишешь на диск свою xe7, так чтобы bds менялся автоматически, и продать этот диск на рынок, у тебя хватит денег купить два таких же компьютера.

кстати о движке, я заметил надпись AOBskan разве СЕ не написан на AOBskan?

Сообщение отредактировал dima dima: 13 января 2015 - 17:26

0

Наверх

#52 Jimmy

Рядовой

Пользователи

Репутация

10

5 сообщений
2 тем

Отправлено 13 января 2015 - 19:23

Норм)

3

Наверх

#53 ..::MEM::.

Уорэнт-офицер 3

Пользователи

Репутация

28

62 сообщений
1 тем

Отправлено 26 января 2015 - 18:38

правда есть один минус-при запуске от ИА процессы не показываются))

-1

Наверх

#54 Lakha

Мастер-сержант

Пользователи

Репутация

-16

38 сообщений
0 тем

Отправлено 26 января 2015 - 19:00

АФИГЕННЫЙ СПОСОБ))

СТАВЬ В РЕПУ ++++

ЕСЛИ НЕ ЖАЛКО))

0

Наверх

#55 MrMihsa

Рядовой

Пользователи

Репутация

-1

8 сообщений
0 тем

Отправлено 26 января 2015 - 21:25

ктонибуть ешё заметил что у него на ПК есть программа которая Фотографирует его действия ?
спс видео норм и спс за модуль +
советую удалить нахер ту прогу которая фоткает постоянно

0

Наверх

#56 Bl1n4ik

Сержант

Пользователи

Репутация

3

26 сообщений
2 тем

Отправлено 24 апреля 2015 - 15:11

Отличный движок, спасибо за него, и за помощь)

0

Наверх

#57 MByte

Генералиссимус

Пользователи

Репутация

572

278 сообщений
5 тем

Отправлено 24 апреля 2015 - 15:18

Отличный движок, спасибо за него, и за помощь)

пожалуйста

0

Наверх

#58 Vl4dislav

Новобранец

Пользователи

Репутация

0

1 сообщений
0 тем

Отправлено 03 мая 2015 - 17:56

Всем доброго времени суток, давно я делал движок для читов, весьма мощный, но медленно сканирует...

Вот вам видео демонстрация:

Пожалуйста Войдите или Зарегистрируйтесь чтобы увидеть скрытый текст