Чит на делфи
Загрузил
Admin
Дата загрузки
7/2020
Размер файла
11 Mb
OC
Windows/MacOs/Android
Язык
русский/английский
Лицензия
бесплатно
27.06.2020
HPAlert_AoB = '83 78 ?? 00 56 8B F1';
HPMPBase_AoB = '8B 0D ?? ?? ?? ?? 52 6A ?? 56 E8 ?? ?? ?? ?? 8B BF';
HPOffset_AoB = '89 8E ?? ?? 00 00 80 BE ?? ?? 00 00 00 75 52 8B';
for x := 0 to SizeOf(AoB)-1 do
for x := 0 to SizeOf(AoB)-1 do
TempString := TempString + inttohex(AoB[x], 2);
AoB1, AoB2:array of byte;
function Read_Bytes (Addy, Size:integer; out Bytes:array of byte):bool;
CopyMemory(@Bytes, pointer(Addy), Size);
if length(TempByte) > 0 then begin // check if any bytes to add
if (TempByte <> '?') and (TempByte <> '??') then begin
AoB[y] := strtoint('$' + TempByte);
// if not last run
if StringAoB[x] = ' ' then begin
if (TempByte = '?') or (TempByte = '??') then begin // if ignore
end else begin // if Check
AoB[y] := strtoint('$' + TempByte);
TempByte := TempByte + StringAoB[x];
if ToCheck[x] = $01 then // if do not Check
AoB_Pos_To_Check:array of byte;
result := $00000000; // Result := $00000000 if nothing found
Read_Bytes(x, Number_Of_Bytes, AoB2); //Get Current Addy
function ReadPointer(Addy, offset:integer):integer;
CopyMemory(@result, pointer(Addy), 4);
CopyMemory(@result, pointer(result+offset), 4);
CopyMemory(@result, pointer(Addy+offset), 4);
CopyMemory(@x, pointer(Addy), 4);
CopyMemory(pointer(x+offset), @value, 4);
HPMPAlert := AoB_Scanner_Stack(StartScan, EndScan, HPMPAlert_AoB);
HPMPAlert := GetPointer_Offset(HPMPAlert+1, 4);
HPAlertOffset := AoB_Scanner_Stack(StartScan, EndScan, HPAlert_AoB);
HPAlertOffset := GetPointer_Offset(HPAlertOffset+2, 1);
HPMPBase := AoB_Scanner_Stack(StartScan, EndScan, HPMPBase_AoB);
HPMPBase := GetPointer_Offset(HPMPBase+2, 4);
HPOffset := AoB_Scanner_Stack(StartScan, EndScan, HPOffset_AoB);
HPOffset := GetPointer_Offset(HPOffset+2, 4);
window := FindWindowA('MapleStoryClass', nil);
PostMessage(window, WM_KEYDOWN, 0, A);
MapleHandle := FindWindowA('MapleStoryClass', nil);
PostMessage(MapleHandle, WM_KEYDOWN, Key, A);
PostMessage(MapleHandle, WM_KEYUP, Key, A);
if ReadPointer(HPMPBase, HPOffset) < 1 then // if 0 Hp dont spam.
if ReadPointer(HPMPBase, MPOffset) = -1 then // if nil dont spam
i: DWORD; j: byte; p: array[0..5] of byte; find: boolean;
for i:= startAddy to $FFFFFFFF do
CopyMemory(@p, Pointer(i), sizeof(p));
for j := 0 to 5 do
if StrToHex(copy(Bytes, j*2+1, 2))=p[j] then
Взлом Test Drive Unlimited на деньги или читы на Test Drive Unlimited The Elder Scrolls 5: Skyrim. ID персонажей и мобов для спавна Читы хак ру Скачать торрент XCOM.Enemy Unknown.v 1.0.0.20072 + 2 DLC (1С-СофтКлаб) (RUS) (2xDVD5 или 1xDVD9) (обновлён от 08.02.2013) [Repack] от Fenixx Читы в поле чудес игра