Вернуться   D3Scene.Ru Софт портал игр | Хаки | Проги | Статьи > Другое > Информационные технологии > Программирование > Else
Присоединяйся к нам

Else Другие языки программирования.



Ответ
 
Опции темы Опции просмотра
Старый 07.11.2014, 21:59   #1
Reverse Engineering




 
Аватар для Misery
 
Регистрация: 07.04.2010
Адрес: Виртуальный Разум
Сообщений: 1,278
Монетки D3Scene.Ru: 1
Репутация: 876
Отправить сообщение для Misery с помощью ICQ Отправить сообщение для Misery с помощью AIM Отправить сообщение для Misery с помощью Yahoo Отправить сообщение для Misery с помощью Skype™
Автор Радость

[AUTOIT]Source WUMH 1.26a


Декомпилированный чит.Можно собрать/разобрать/изменить ручками.
Дерзайте в поиске и создания чита на iccup.com
Образец вида:
Код:
#AutoIt3Wrapper_Icon=Logo.ico
	#AutoIt3Wrapper_OutFile=WUMH.exe
	#AutoIt3Wrapper_Res_Description=So$Ha
	#AutoIt3Wrapper_Res_Fileversion=1.5.0.0
	#AutoIt3Wrapper_Res_LegalCopyright=http://gamekhor.com
	#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
	#AutoIt3Wrapper_Add_Constants=n
Форма:#Region ### START Koda GUI section ### Form=form1.kxf
	$form1_1 = GUICreate("WUMH V1.5", 434, 414, 192, 164)
	$label1 = GUICtrlCreateLabel("Warcraft III Universal Map Hack V1.5", 24, 8, 388, 33)
	GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
	$tab1 = GUICtrlCreateTab(8, 56, 417, 353)
	$tabsheet1 = GUICtrlCreateTabItem("MH Options")
	GUICtrlSetState(-1, $gui_show)
	$checkbox1 = GUICtrlCreateCheckbox("Reveal Units on Main Map", 16, 88, 145, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox2 = GUICtrlCreateCheckbox("Remove FOG on Main Map", 16, 112, 153, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox3 = GUICtrlCreateCheckbox("Reveal Units on Mini Map", 16, 136, 145, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox4 = GUICtrlCreateCheckbox("Remove FOG on Mini Map", 16, 160, 145, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox5 = GUICtrlCreateCheckbox("Enable Trade", 16, 184, 89, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox6 = GUICtrlCreateCheckbox("Make Units Clickable", 16, 208, 121, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox7 = GUICtrlCreateCheckbox("Reveal Illusions", 16, 232, 97, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox8 = GUICtrlCreateCheckbox("Reveal Invisibles", 16, 256, 97, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox9 = GUICtrlCreateCheckbox("Show Runes", 16, 280, 81, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox10 = GUICtrlCreateCheckbox("Show Skills / Cooldowns", 16, 304, 137, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox11 = GUICtrlCreateCheckbox("Bypass -ah in DotA Allstars", 16, 328, 145, 17)
	GUICtrlSetState(-1, $gui_checked)
	$group1 = GUICtrlCreateGroup("Usage", 232, 80, 177, 121)
	GUICtrlSetBkColor(-1, 16777215)
	$radio1 = GUICtrlCreateRadio("Garena", 240, 104, 65, 17)
	GUICtrlSetState(-1, $gui_checked)
	$radio4 = GUICtrlCreateRadio("Battle.Net", 240, 176, 73, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$radio2 = GUICtrlCreateRadio("GameRanger", 240, 128, 81, 17)
	$radio3 = GUICtrlCreateRadio("Single Player", 240, 152, 81, 17)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$button2 = GUICtrlCreateButton("Start Garena", 232, 280, 40, 40, $bs_icon)
	GUICtrlSetImage($button2, @ScriptDir & "\Data\Garena.ico")
	$buttonexit = GUICtrlCreateButton("Exit", 370, 280, 40, 40, $bs_icon)
	GUICtrlSetImage(-1, "shell32.dll", 28)
	$buttongk = GUICtrlCreateButton("Website", 324, 280, 40, 40, $bs_icon)
	GUICtrlSetImage($buttongk, @ScriptDir & "\Data\gk.ico")
	$buttonmh = GUICtrlCreateButton("Patch", 278, 280, 40, 40, $bs_icon)
	GUICtrlSetImage($buttonmh, @ScriptDir & "\Data\mh.ico")
	$label3 = GUICtrlCreateLabel("Supported Garena : 4.0.1.984", 248, 332, 145, 17)
	GUICtrlSetColor(-1, 10930928)
	GUICtrlSetBkColor(-1, 16777215)
	$label2 = GUICtrlCreateLabel("Made By So$Ha | Copyright© 2011 | Gamekhor.com", 95, 486, 270, 17)
	GUICtrlSetColor(-1, 10930928)
	GUICtrlSetBkColor(-1, 16777215)
	$checkbox12 = GUICtrlCreateCheckbox("Do Not Detect MH", 16, 352, 113, 17)
	GUICtrlSetState(-1, $gui_checked)
	GUICtrlSetState(-1, $gui_disable)
	$checkboxcd = GUICtrlCreateCheckbox("Camera Distance Hack", 16, 375, 130, 17)
	GUICtrlSetState(-1, $gui_checked)
	$label4 = GUICtrlCreateLabel("Maphack Hotkey : Alt+F1", 256, 356, 125, 17)
	GUICtrlSetColor(-1, 10930928)
	GUICtrlSetBkColor(-1, 16777215)
	$group2 = GUICtrlCreateGroup(" Battle Net ", 232, 208, 177, 65)
	GUICtrlSetBkColor(-1, 16777215)
	$checkbox13 = GUICtrlCreateCheckbox("Drop BNet", 240, 224, 73, 17)
	GUICtrlSetState(-1, $gui_checked)
	$checkbox14 = GUICtrlCreateCheckbox("Cloack Dll", 240, 248, 97, 17)
	GUICtrlSetState(-1, $gui_disable)
	GUICtrlCreateGroup("", -99, -99, 1, 1)
	$tabsheet2 = GUICtrlCreateTabItem("About")
	$pic1 = GUICtrlCreatePic(@ScriptDir & "\Data\Logo.jpg", 256, 80, 161, 145)
	$edit1 = GUICtrlCreateEdit("", 16, 296, 241, 105, BitOR($es_wantreturn, $ws_vscroll))
Патчи:Func _patch126a()
	If GUICtrlRead($radio4) = 1 Then
		Run(@ScriptDir & "\Data\DpNet.exe")
		Sleep(10000)
		Send("Hello")
	EndIf
	If GUICtrlRead($checkboxcd) = 1 Then
		_mainfunction()
	EndIf
	If GUICtrlRead($checkbox1) = 1 Then
		_memorywrite($gamedll + 3806448, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 3806449, $warcrafthandle, 219, "BYTE")
		_memorywrite($gamedll + 3806619, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 3806620, $warcrafthandle, 219, "BYTE")
	EndIf
	If GUICtrlRead($checkbox2) = 1 Then
		_memorywrite($gamedll + 7653914, $warcrafthandle, 21, "BYTE")
		_memorywrite($gamedll + 7653915, $warcrafthandle, 80, "BYTE")
	EndIf
	If GUICtrlRead($checkbox3) = 1 Then
		_memorywrite($gamedll + 3544123, $warcrafthandle, 51, "BYTE")
		_memorywrite($gamedll + 3544124, $warcrafthandle, 192, "BYTE")
		_memorywrite($gamedll + 3544125, $warcrafthandle, 144, "BYTE")
		_memorywrite($gamedll + 3544126, $warcrafthandle, 144, "BYTE")
		_memorywrite($gamedll + 3544127, $warcrafthandle, 144, "BYTE")
	EndIf
	If GUICtrlRead($checkbox4) = 1 Then
		_memorywrite($gamedll + 3499301, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 3499302, $warcrafthandle, 219, "BYTE")
	EndIf
	If GUICtrlRead($checkbox5) = 1 Then
		_memorywrite($gamedll + 3464610, $warcrafthandle, 184, "BYTE")
		_memorywrite($gamedll + 3464611, $warcrafthandle, 200, "BYTE")
		_memorywrite($gamedll + 3464612, $warcrafthandle, 0, "BYTE")
		_memorywrite($gamedll + 3464613, $warcrafthandle, 0, "BYTE")
		_memorywrite($gamedll + 3464615, $warcrafthandle, 144, "BYTE")
		_memorywrite($gamedll + 3464618, $warcrafthandle, 184, "BYTE")
		_memorywrite($gamedll + 3464619, $warcrafthandle, 100, "BYTE")
		_memorywrite($gamedll + 3464620, $warcrafthandle, 0, "BYTE")
		_memorywrite($gamedll + 3464621, $warcrafthandle, 0, "BYTE")
		_memorywrite($gamedll + 3464623, $warcrafthandle, 144, "BYTE")
	EndIf
	If GUICtrlRead($checkbox6) = 1 Then
		_memorywrite($gamedll + 2642332, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 2642333, $warcrafthandle, 219, "BYTE")
		_memorywrite($gamedll + 9659486, $warcrafthandle, 28, "BYTE")
		_memorywrite($gamedll + 9659487, $warcrafthandle, 69, "BYTE")
	EndIf
	If GUICtrlRead($checkbox7) = 1 Then
		_memorywrite($gamedll + 2632284, $warcrafthandle, 144, "BYTE")
		_memorywrite($gamedll + 2632285, $warcrafthandle, 64, "BYTE")
		_memorywrite($gamedll + 2632286, $warcrafthandle, 195, "BYTE")
	EndIf
	If GUICtrlRead($checkbox8) = 1 Then
		_memorywrite($gamedll + 3775128, $warcrafthandle, 113, "BYTE")
	EndIf
	If GUICtrlRead($checkbox9) = 1 Then
		_memorywrite($gamedll + 3806427, $warcrafthandle, 113, "BYTE")
	EndIf
	If GUICtrlRead($checkbox10) = 1 Then
		_memorywrite($gamedll + 2107100, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 2107101, $warcrafthandle, 219, "BYTE")
		_memorywrite($gamedll + 2107102, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 2107103, $warcrafthandle, 219, "BYTE")
		_memorywrite($gamedll + 2107104, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 2107105, $warcrafthandle, 219, "BYTE")
		_memorywrite($gamedll + 2679262, $warcrafthandle, 113, "BYTE")
		_memorywrite($gamedll + 3469992, $warcrafthandle, 135, "BYTE")
		_memorywrite($gamedll + 3469993, $warcrafthandle, 219, "BYTE")
		_memorywrite($gamedll + 3470057, $warcrafthandle, 0, "BYTE")
	EndIf
	If GUICtrlRead($checkbox11) = 1 Then
		_memorywrite($gamedll + 3957660, $warcrafthandle, 184, "BYTE")
		_memorywrite($gamedll + 3957665, $warcrafthandle, 235, "BYTE")
		_memorywrite($gamedll + 3979378, $warcrafthandle, 235, "BYTE")
	EndIf
EndFunc
[Ссылки скрыты от гостей.]

Последний раз редактировалось Misery; 07.11.2014 в 22:02.
  Ответить с цитированием Наверх
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Powered by vBulletin
Copyright © 2016 vBulletin Solutions, Inc.
Перевод: zCarot | Дизайн: G-A | Верстка: OldEr
Текущее время: 12:48. Часовой пояс GMT +4.