Salut j'ai besoin de test mon trainer sur des cobayes (non je rigole)
bon voila je l'ai crée grace a l'aide de "Tara" et "Splinter" si vous voulez voir le script il est ici :
je suis sous 32 bits mais sa marche pas donc pour ceux qui ont 64 bits pourriez vous essayer ... merci ^^
virustotal : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
le telechargement est ici : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
merci de m'aidez au plus vite
bon voila je l'ai crée grace a l'aide de "Tara" et "Splinter" si vous voulez voir le script il est ici :
Global Const $WS_GROUP = 0x00020000
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_BKCOLOR_TRANSPARENT = -2
Global Const $WS_POPUP = -2147483648
Global Const $WS_EX_LAYERED = 0x00080000
Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
If Not ProcessExists($iv_Pid) Then
SetError(1)
Return 0
EndIf
Local $ah_Handle[2] = [DllOpen('kernel32.dll')]
If @Error Then
SetError(2)
Return 0
EndIf
Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $if_InheritHandle, 'int', $iv_Pid)
If @Error Then
DllClose($ah_Handle[0])
SetError(3)
Return 0
EndIf
$ah_Handle[1] = $av_OpenProcess[0]
Return $ah_Handle
EndFunc
Func _MemoryWrite($iv_Address, $ah_Handle, $v_Data, $sv_Type = 'dword')
If Not IsArray($ah_Handle) Then
SetError(1)
Return 0
EndIf
Local $v_Buffer = DllStructCreate($sv_Type)
If @Error Then
SetError(@Error + 1)
Return 0
Else
DllStructSetData($v_Buffer, 1, $v_Data)
If @Error Then
SetError(6)
Return 0
EndIf
EndIf
DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
If Not @Error Then
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc
Func _WinAPI_SetLayeredWindowAttributes($hWnd, $i_transcolor, $Transparency = 255, $dwFlags = 0x03, $isColorRef = False)
If $dwFlags = Default Or $dwFlags = "" Or $dwFlags < 0 Then $dwFlags = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $aResult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $hWnd, "dword", $i_transcolor, "byte", $Transparency, "dword", $dwFlags)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0]
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("trainer by fsadki", 310, 210, 306, 167, $WS_POPUP, $WS_EX_LAYERED)
Global $Checkbox1 = GUICtrlCreateCheckbox("no Slang", 40, 96, 105, 33)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
Global $Checkbox2 = GUICtrlCreateCheckbox("no intro", 160, 96, 105, 33)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
Global $Button1 = GUICtrlCreateButton("Start !!!", 40, 8, 121, 57, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
Global $Button2 = GUICtrlCreateButton("Exit", 160, 8, 121, 57, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $color = 0x121314
GUISetBkColor($color, $Form1_1)
_WinAPI_SetLayeredWindowAttributes($Form1_1, $color)
GUISetState()
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_hack()
exit
Case $Button2
Exit
EndSwitch
WEnd
Func _hack()
$PID = ProcessWait("S4Client.exe")
Sleep(1000)
Local $HPROCESS = _MEMORYOPEN($PID)
Sleep(1000)
If GUICtrlRead($Checkbox1) = 1 Then
_MEMORYWRITE(0x00F1D5DA, $HPROCESS, "no_slang", "char[5]")
_MEMORYWRITE(0x00F1D60A, $HPROCESS, "no_slang", "char[5]")
_MEMORYWRITE(0X00F1D63A, $HPROCESS, "no_slang", "char[5]")
EndIf
If GUICtrlRead($Checkbox2) = 1 Then
_MEMORYWRITE(0x00F6CFE4, $HPROCESS, "no_intro" , "char[5]")
_MemoryWrite(0x010F50C0, $HPROCESS, "no_into" , "char[4]")
_MEMORYWRITE(0x404B5C0C, $HPROCESS, "no_into" , "char[4]")
EndIf
EndFunc
Exit
Global Const $GUI_EVENT_CLOSE = -3
Global Const $GUI_BKCOLOR_TRANSPARENT = -2
Global Const $WS_POPUP = -2147483648
Global Const $WS_EX_LAYERED = 0x00080000
Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
If Not ProcessExists($iv_Pid) Then
SetError(1)
Return 0
EndIf
Local $ah_Handle[2] = [DllOpen('kernel32.dll')]
If @Error Then
SetError(2)
Return 0
EndIf
Local $av_OpenProcess = DllCall($ah_Handle[0], 'int', 'OpenProcess', 'int', $iv_DesiredAccess, 'int', $if_InheritHandle, 'int', $iv_Pid)
If @Error Then
DllClose($ah_Handle[0])
SetError(3)
Return 0
EndIf
$ah_Handle[1] = $av_OpenProcess[0]
Return $ah_Handle
EndFunc
Func _MemoryWrite($iv_Address, $ah_Handle, $v_Data, $sv_Type = 'dword')
If Not IsArray($ah_Handle) Then
SetError(1)
Return 0
EndIf
Local $v_Buffer = DllStructCreate($sv_Type)
If @Error Then
SetError(@Error + 1)
Return 0
Else
DllStructSetData($v_Buffer, 1, $v_Data)
If @Error Then
SetError(6)
Return 0
EndIf
EndIf
DllCall($ah_Handle[0], 'int', 'WriteProcessMemory', 'int', $ah_Handle[1], 'int', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int', DllStructGetSize($v_Buffer), 'int', '')
If Not @Error Then
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc
Func _WinAPI_SetLayeredWindowAttributes($hWnd, $i_transcolor, $Transparency = 255, $dwFlags = 0x03, $isColorRef = False)
If $dwFlags = Default Or $dwFlags = "" Or $dwFlags < 0 Then $dwFlags = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $aResult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $hWnd, "dword", $i_transcolor, "byte", $Transparency, "dword", $dwFlags)
If @error Then Return SetError(@error, @extended, False)
Return $aResult[0]
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes
#Region ### START Koda GUI section ### Form=
Global $Form1_1 = GUICreate("trainer by fsadki", 310, 210, 306, 167, $WS_POPUP, $WS_EX_LAYERED)
Global $Checkbox1 = GUICtrlCreateCheckbox("no Slang", 40, 96, 105, 33)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
Global $Checkbox2 = GUICtrlCreateCheckbox("no intro", 160, 96, 105, 33)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
Global $Button1 = GUICtrlCreateButton("Start !!!", 40, 8, 121, 57, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
Global $Button2 = GUICtrlCreateButton("Exit", 160, 8, 121, 57, $WS_GROUP)
GUICtrlSetFont(-1, 16, 800, 2, "Californian FB")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $color = 0x121314
GUISetBkColor($color, $Form1_1)
_WinAPI_SetLayeredWindowAttributes($Form1_1, $color)
GUISetState()
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_hack()
exit
Case $Button2
Exit
EndSwitch
WEnd
Func _hack()
$PID = ProcessWait("S4Client.exe")
Sleep(1000)
Local $HPROCESS = _MEMORYOPEN($PID)
Sleep(1000)
If GUICtrlRead($Checkbox1) = 1 Then
_MEMORYWRITE(0x00F1D5DA, $HPROCESS, "no_slang", "char[5]")
_MEMORYWRITE(0x00F1D60A, $HPROCESS, "no_slang", "char[5]")
_MEMORYWRITE(0X00F1D63A, $HPROCESS, "no_slang", "char[5]")
EndIf
If GUICtrlRead($Checkbox2) = 1 Then
_MEMORYWRITE(0x00F6CFE4, $HPROCESS, "no_intro" , "char[5]")
_MemoryWrite(0x010F50C0, $HPROCESS, "no_into" , "char[4]")
_MEMORYWRITE(0x404B5C0C, $HPROCESS, "no_into" , "char[4]")
EndIf
EndFunc
Exit
je suis sous 32 bits mais sa marche pas donc pour ceux qui ont 64 bits pourriez vous essayer ... merci ^^
virustotal : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
le telechargement est ici : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
merci de m'aidez au plus vite
