Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 1
Регистрация: 08.03.2016
Сообщений: 11
1

Переписать чит с C++ на Delphi

24.03.2016, 16:29. Просмотров 808. Ответов 1
Метки нет (Все метки)

Нужно переписать код чита DLL C++ на DELPHI

там есть функции

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
void *DetourCreate(BYTE *src, const BYTE *dst, const int len)
{
    BYTE *jmp;
    DWORD dwback;
    DWORD jumpto, newjump;
 
    VirtualProtect(src, len, PAGE_READWRITE, &dwback);
 
    if (src[0] == 0xE9)
    {
        jmp = (BYTE*)malloc(10);
        jumpto = (*(DWORD*)(src + 1)) + ((DWORD)src) + 5;
        newjump = (jumpto - (DWORD)(jmp + 5));
        jmp[0] = 0xE9;
        *(DWORD*)(jmp + 1) = newjump;
        jmp += 5;
        jmp[0] = 0xE9;
        *(DWORD*)(jmp + 1) = (DWORD)(src - jmp);
    }
    else
    {
        jmp = (BYTE*)malloc(5 + len);
        memcpy(jmp, src, len);
        jmp += len;
        jmp[0] = 0xE9;
        *(DWORD*)(jmp + 1) = (DWORD)(src + len - jmp) - 5;
    }
    src[0] = 0xE9;
    *(DWORD*)(src + 1) = (DWORD)(dst - src) - 5;
 
    for (int i = 5; i < len; i++)
        src[i] = 0x90;
    VirtualProtect(src, len, dwback, &dwback);
    return (jmp - len);
}
 
void* DetourFunctionTwo(BYTE* src, const BYTE* dest)
{
    PBYTE jump = (PBYTE)malloc(10);
    DWORD dwVirtualProtectBackup;
 
    VirtualProtect(src, 5, PAGE_READWRITE, &dwVirtualProtectBackup);
    
    memcpy(jump, src, 5);
    jump += 5;
    
    jump[0] = 0xE9;
    *(PDWORD)(jump + 1) = (DWORD)(src + 5 - jump) - 5;
    
    src[0] = 0xE9;
    *(PDWORD)(src + 1) = (DWORD)(dest - src) - 5;
    
    VirtualProtect(src, 5, dwVirtualProtectBackup, &dwVirtualProtectBackup);
    
    return jump - 5;
}
нужно их переписать на DELPHI

и чтоб они работали в определённом процессе (Game.exe)

есть например отдача

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DWORD Отдача = 0x9180e0;
DWORD ОтдачаReturn = Отдача + 0x1;
 
bool Otda4a_stat_fun = true;
 
__declspec(naked)void Otda4a()
{
    if (Otda4a_stat_fun == true)
    {
        _asm ret
    }
    else
    {
        _asm push ebp
    }
    _asm jmp dword ptr[ОтдачаReturn]
}
включить её так
C++
1
DetourFunctionTwo((PBYTE)Отдача, (PBYTE)Otda4a);
и защита от бана

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
LONG cdecl get_value(volatile LONG *lpAddend)
{
 return InterlockedIncrement(lpAddend);
}
 
 __declspec(naked) void Obhod_kika_1()
{
    while (true)
    {
        Sleep(5000);
        __asm lea  edx, [ebp + 2Ch]
        __asm push edx
        __asm call get_value
    }
}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2016, 16:29
Ответы с готовыми решениями:

Переписать часть кода с Delphi на ассемблер (ассемблерные вставки в Delphi)
Добрый вечер. Нужно сделать ассемблерные вставки в программе. Первый раз столкнулся с таким...

Переписать из Delphi в QT C++
Всем привет! Помогите переписать небольшой кусок кода из Делфи в Qt procedure RExcept(s:...

Переписать с Delphi на C++
Народ! Помогите, пожалуйста! У меня проблема. Я практически не знаю синтаксис C++, а разбираться...

Переписать код с Delphi
Пожалуйста переделайте из делфи в си. Begin ReadProcessMemory(hProc, ptr((i*$20) + StartAddr +...

1
2644 / 2267 / 278
Регистрация: 24.12.2010
Сообщений: 13,725
24.03.2016, 20:08 2
Цитата Сообщение от CODER_228 Посмотреть сообщение
Нужно переписать
нужно - переписывай, никто не против)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2016, 20:08

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

Переписать код из C++, на Delphi
ребят помогите переписать код

Переписать код Delphi на C#
Пробовал перебрать этот код в С#, но ничего не получается. Может быть кто поможет? unit...

переписать программу на DELPHI на С++
Помогите пожалуйста переписать эту программу на DELPHI на С++ я понимаю что для человека который...

Переписать программу с Delphi на C++
Есть программа на делфи,но надо ее еще на с++,помогите переделать,или кто может переделайте,буду...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.