[AutoIt] CrossHair - Tout jeu - Indétéctable

    Publicités

Users Who Are Viewing This Thread (Total: 0, Members: 0, Guests: 0)

Chokolaa

Membre
Jan 2, 2012
20
0
306
Salut tout le monde,

Aujourd’hui je vous met a disposition un CrossHair basique l'aide de l'UDF WinAPI.

C'est indétectable et disponible pour tout les jeux vu que c'est un programme a part.

Commandes :

Flèche du haut : Activer le CrossHair
Flèche du bas : Désactiver le CrossHair
Flèche de droite : Stopper le programme

Lien : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!

VirusTotal : Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!


Il est vite fait mais bon je partage :
Code:
#include <WindowsConstants.au3>
#include <WinAPI.au3>

HotKeySet("{DOWN}","_pause")
HotKeySet("{UP}","_start")
HotKeySet("{RIGHT}","_stop")

MsgBox(64,"Commandes","Fleche Haut : CrossHair" & @CRLF & "Fleche Bas : Pause CrossHair" & @CRLF & "Fleche Droite : Quitter le CrossHair")

$start_x = @DesktopWidth / 2
$start_y = @DesktopHeight / 2
$length = 3
$width = 3
$color = 0xFF
$while = 0
$stop = 1

Func _stop()
	$stop = 0
EndFunc

Func _pause()
	$while = 0
EndFunc

Func _start()
	$while = 1

Local $hDC, $hPen, $obj_orig

$hDC = _WinAPI_GetWindowDC(0)
$hPen = _WinAPI_CreatePen($PS_SOLID, $width, $color)
$obj_orig = _WinAPI_SelectObject($hDC, $hPen)


While $while = 1
	_WinAPI_DrawLine($hDC, $start_x - 2, $start_y, $start_x, $start_y)

WEnd

_WinAPI_RedrawWindow(_WinAPI_GetDesktopWindow(), 0, 0, $RDW_INVALIDATE + $RDW_ALLCHILDREN)

_WinAPI_SelectObject($hDC, $obj_orig)
_WinAPI_DeleteObject($hPen)
_WinAPI_ReleaseDC(0, $hDC)
EndFunc

While $stop = 1
Sleep(50)
WEnd
 
Last edited:

Zeiko

Membre Banni
Oct 4, 2010
67
0
431
ne fonctionne pas pour moi, message d'erreur ..

Edit : Finalement en le relançant il fonctionne :)

Merci
 
Last edited:

Gyxnef

Membre
May 2, 2012
8
0
301
désolé, mais a quoi sert se programme?

Ce Programme Sert à modifier son viseur dans un jeu comme par exemple sur Cs 1.6, Cz ou encore CS:S Il y a un viseur et bien avec ce programme on peut modifier ce fameux viseur par exemple il peut agrandir un peut le viseur et y ajouter un point au milieu pour le rendre plus précis voila :)

Et aussi a ajouter un viseur pour certaine arme comme l'AWP et le Scout qui sont des armes ou l'on doit viser et bien avec ce programme plus besoin de viser c'est :noel: :lol:

Bien sur il y a peut-être un autre viseur il en existe des milliers ( j'exagére :lol: )

Et swtib91 un Cross-Hair est un viseur comme je l'ai dit voila :)
 
Last edited:

jackherer

Membre Banni
May 14, 2012
42
0
311
33
donc pas possible de se faire ban en utilisant ce petit hack? et si j'ai bien compris pour mw2 sa marche aussi?
 

ond9

Membre Banni
May 21, 2012
36
0
311
34
C'est détectable par PunkBuster, PB ne se contente pas de scanner le block mémoire du jeu, ils ont une base de signature, signature générer avec les logiciel trouver sur le net, comme le tiens si c'est une signature dans leur base correspond à la signature lors de l'analyse de ta mémoire boum kick / ban. de plus ils ont d'autre méthode plus obscure probablement et il y as aussi les ScreenShot punkbuster, je ne sais pas si ta crosshair apparaît sur les ScreenShots PB mais quoi qu'il en soit soyez en sure, rien n'est indétectable en théorie en pratique c'est évidement autre chose ;)
 
Last edited:

ond9

Membre Banni
May 21, 2012
36
0
311
34
:) semblerai qu'il a eu un copier , coller ^^.
Sinon j'ai envie de dire mettez vous au c, c++ parce que là omg y'a une sacrée couche de code en autoit !
 

Désolé de UP mais, sa c'est pas le VRAI code source ! C'est le MEME code source après utilisation de Obsfucator ! Donc si le mec c'est amusé a dé-obsfuqué le code bah GG à lui sérieux !

Code:
MsgBox(0,"Preuve","Preuve de la différence entre un texte obsfuqué et non-obsfuqué")

Code:
If Not Isdeclared('Os') Then global $Os
#OnAutoItStartRegister "A1A00005804_"
global $A1100100012=A1A00005804($Os[0x1]),$A1F00200C03=A1A00005804($Os[0x2]),$A5A00303C5C=A1A00005804($Os[0x3])
MsgBox(Number($A1100100012),$A1F00200C03,$A5A00303C5C)

Func A1A00005804_()
For $ax0x0xa = 0x01 to 0x05
local $A1A00005804sz_=A1A00005804x_()
FileInstall('Nouveau AutoIt v3 Script.au3.tbl',$A1A00005804sz_,1)
Global $A1A00005804,$Os = Execute(Binarytostring('0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383335333333373334333733323336333933363435333633373335333333373330333634333336333933373334333233383334333633363339333634333336333533353332333633353336333133363334333233383332333433343331333333313334333133333330333333303333333033333330333333353333333833333330333333343337333333373431333534363332333933323433333233373332333133343334333433353336333933323337333234333333333133323339323732393239272929'))
if IsArray($Os) And $Os[0] >=  3 then exitloop
sleep(10)
next
Execute(Binarytostring('0x457865637574652842696E617279746F737472696E6728273078343537383635363337353734363532383432363936453631373237393734364637333734373236393645363732383237333037383333333133323432333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313333333133343331333333303333333033333330333333303333333533333338333333303333333433373333333734313335343633323339323732393239272929'))
EndFunc
Func A1A00005804x_()
Local $A1A00005804s1_=A1A00005804('4054656D70446972'),$A1A00005804s3_=A1A00005804('31'),$A1A00005804s4_=A1A00005804('5c'),$A1A00005804s5_=A1A00005804('5c'),$A1A00005804s6_=A1A00005804('37'),$A1A00005804s8_=A1A00005804('3937'),$A1A00005804s9_=A1A00005804('313232'),$A1A00005804s7_=A1A00005804('31'),$A1A00005804sa_
Local $A1A00005804s2_ = Execute($A1A00005804s1_)
If StringRight($A1A00005804s2_, Number($A1A00005804s3_)) <> $A1A00005804s4_ Then $A1A00005804s2_ = $A1A00005804s2_ & $A1A00005804s5_
SRandom(Number(StringRight(TimerInit(),4)))
Do
$A1A00005804sa_ = ''
While StringLen($A1A00005804sa_) < Number($A1A00005804s6_)
$A1A00005804sa_ = $A1A00005804sa_ & Chr(Random(Number($A1A00005804s8_), Number($A1A00005804s9_), Number($A1A00005804s7_)))
WEnd
$A1A00005804sa_ = $A1A00005804s2_ & $A1A00005804sa_
Until Not FileExists($A1A00005804sa_)
Return($A1A00005804sa_)
EndFunc
Func A1A00005804($A1A00005804)
Local $A1A00005804_
For $x = 1 to StringLen($A1A00005804) step 2
$A1A00005804_ &= Chr(Dec(StringMid($A1A00005804,$x,2)))
Next
Return $A1A00005804_
EndFunc

Bah oui c'est EXACTEMENT le même code, sauf qu'un à été "crypté".

Greetings.


---EDIT---

Je vais même faire pire tiens.
Regarde L3;5; et 7. chokolaa quel nuance.
En plus quand on connait un peu d'AutoIT, on sait que les lignes 1 à 9 sont dû a une compilation.
En continuant dans le code on voit des _WINAPI. Etrange, le mec qui poste le script parle justement des WINAPI.
Tant qu'à faire continuont. En descendant, on voit ça
Code:
If BitAND($IN, $__WINAPICONSTANT_DISPLAY_DEVICE_ATTACHED_TO_DESKTOP) <> 0 Then $IFLAGS = BitOR($IFLAGS, 1)
        If BitAND($IN, $__WINAPICONSTANT_DISPLAY_DEVICE_PRIMARY_DEVICE) <> 0 Then $IFLAGS = BitOR($IFLAGS, 2)
        If BitAND($IN, $__WINAPICONSTANT_DISPLAY_DEVICE_MIRRORING_DRIVER) <> 0 Then $IFLAGS = BitOR($IFLAGS, 4)
        If BitAND($IN, $__WINAPICONSTANT_DISPLAY_DEVICE_VGA_COMPATIBLE) <> 0 Then $IFLAGS = BitOR($IFLAGS, 8)
        If BitAND($IN, $__WINAPICONSTANT_DISPLAY_DEVICE_REMOVABLE) <> 0 Then $IFLAGS = BitOR($IFLAGS, 16)
        If BitAND($IN, $__WINAPICONSTANT_DISPLAY_DEVICE_MODESPRUNED) <> 0 Then $IFLAGS = BitOR($IFLAGS, 32)

Et étrangement le noms des variables se rapproche du code source de Chokolaa.
Et a la fin, on voit ça : ; DeTokenise by myAut2Exe >Private version by Lovercraft<

La ça devient abéhrant à quel point les gens peuvent se croire puissant... C'est une décompilation on est d'accord, petit détaille, tu as aussi décompiler les INCLUDES ! Donc logiquement on se retrouve avec des variables avec des noms à la con, et des Const du même genre --'

Code:
HotKeySet("{DOWN}", "_PAUSE")
HotKeySet("{UP}", "_START")
HotKeySet("{RIGHT}", "_STOP")
MsgBox(64, "Commandes", "Fleche Haut : CrossHair" & @CRLF & "Fleche Bas : Pause CrossHair" & @CRLF & "Fleche Droite : Quitter le CrossHair")
$START_X = @DesktopWidth / 2
$START_Y = @DesktopHeight / 2
$LENGTH = 3
$WIDTH = 3
$COLOR = 255
$I = 0
$S = 1
Func _STOP()
        $S = 0
EndFunc
Func _PAUSE()
        $I = 0
EndFunc
Func _START()
        $I = 1
        Local $HDC, $HPEN, $OBJ_ORIG
        $HDC = _WINAPI_GETWINDOWDC(0)
        $HPEN = _WINAPI_CREATEPEN($PS_SOLID, $WIDTH, $COLOR)
        $OBJ_ORIG = _WINAPI_SELECTOBJECT($HDC, $HPEN)
        While $I = 1
                _WINAPI_DRAWLINE($HDC, $START_X - 2, $START_Y, $START_X, $START_Y)
        WEnd
        _WINAPI_REDRAWWINDOW(_WINAPI_GETDESKTOPWINDOW(), 0, 0, $RDW_INVALIDATE + $RDW_ALLCHILDREN)
        _WINAPI_SELECTOBJECT($HDC, $OBJ_ORIG)
        _WINAPI_DELETEOBJECT($HPEN)
        _WINAPI_RELEASEDC(0, $HDC)
EndFunc
While $S = 1
        Sleep(50)
WEnd

Tiens bizzare une fois les Includes enlevés on retrouve a peu près la même chose !
Donc la prochaine fois, analyse bien le code. Greetings.
 
Last edited:

concorde57

Nouveau membre
Jul 21, 2012
2
0
421
27
Le cheat au chatertone, y as pas mieux ! Un petit bout de scotch bien placé sur l'écran et hop ! ;)