Форум программистов, компьютерный форум CyberForum.ru

Перевести код из c++ в delphi - C++

Восстановить пароль Регистрация
 
Microo10
 Аватар для Microo10
23 / 18 / 0
Регистрация: 18.08.2011
Сообщений: 385
13.06.2012, 12:33     Перевести код из c++ в delphi #1
Умоляю помогите,очень нужно((
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
/****************************************************************************
* *
* File : dllmain.c *
* *
* Purpose : Generic Win32 Dynamic Link Library (DLL). *
* *
* History : Date Reason *
* 00/00/00 Created *
* *
****************************************************************************/
 
#define WIN32_LEAN_AND_MEAN /* speed up */
#include <windows.h>
#include <windowsx.h>
#include <commctrl.h>
#include <tchar.h>
 
/*
* Include our "interface" file and define a symbol
* to indicate that we are *building* the DLL.
*/
#define _JF_NOREC_
#include "JF_NOREC.h"
 
#define WeaponMgr 0xC48B90
#define NoRecoil1 0x053C
#define NoRecoil2 0x06A4
#define NoRecoil3 0x2DC5
#define NoRecoil4 0x36F4
#define NoRecoil5 0x0EEC
#define NoRecoil6 0x1054
#define NoRecoil7 0x11BC
 
 
 
 
void Hacks()
{
 
 
DWORD cCShell = (DWORD)GetModuleHandleA( "CShell.dll" );
DWORD pWeaponMgr = *(DWORD*)(cCShell + WeaponMgr);
 
float recoil_Value=0.0f;
while(1)
{
 
if (pWeaponMgr) 
{
for(int i=0; i<577; i++) 
{
if((*(DWORD*)((*(DWORD*)(cCShell+WeaponMgr))+(4*i)) ) != 0) 
{
DWORD pNoRecoil = *(DWORD*)(pWeaponMgr + (4*i));
for(int y=0; y<9; y++)
{
if(pNoRecoil) 
{
*(float*)(pNoRecoil + (NoRecoil1 + (4*y))) =recoil_Value;
*(float*)(pNoRecoil + (NoRecoil2 + (4*y))) =recoil_Value;
*(float*)(pNoRecoil + (NoRecoil3 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil4 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil5 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil6 + (4*y))) = recoil_Value;
*(float*)(pNoRecoil + (NoRecoil7 + (4*y))) = recoil_Value;
 
}
}
}
}
}
 
Sleep(200);
 
}
}
/****************************************************************************
* *
* Function: DllMain *
* *
* Purpose : DLL entry and exit procedure. *
* *
* History : Date Reason *
* 00/00/00 Created *
* *
****************************************************************************/
 
BOOL APIENTRY DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
static int AlreadeRunned=0;
if(!AlreadeRunned)
{
DisableThreadLibraryCalls(hInstDLL);
CreateThread(0, 0, (LPTHREAD_START_ROUTINE)Hacks,0, 0, 0);
AlreadeRunned=1;
MessageBeep(MB_OK);
MessageBox(0,"NoRecoil run! Enjoy ;)","www.crazyfrost.com",MB_OK);
}
/* Return success */
return TRUE;
}
 
Источник: [url]http://fpteam-cheats.com/board/showthread.php?t=180943&page=6[/url]
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2012, 12:33     Перевести код из c++ в delphi
Посмотрите здесь:

Visual c++ код перевести в gcc linux код C++
Перевести с Delphi на C/C++. C++
Перевести с DELPHI в С++ C++
Перевести код программы из Delphi в C++ C++
Перевести код программы Паскаля в код С++ C++
C++ Перевести код на c++
C++ Перевести код с C# на C++
Перевести функцию с Delphi на C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 21:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru