Obfuscated son code source

[Evaelis]

Bonjour ,
Je vais vous apprendre à transformer votre code source pour le rendre presque indéchiffrable , cette fonction est inclue dans Autoit (Scite4)
Code de base :

MsgBox(1,"Test","The Text",2)

On va dans Tools > Compile (Ctrl + F7)

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

Là vous cochez la case et faites compile Script
Allez dans le dossier de votre script
Vous avez [Nom Script]_Obfuscated
Notre petit code deviens :

global $Os
A5100004F43_()
global $A2900100E56=A5100004F43($Os[0x1]),$A2100201731=A5100004F43($Os[0x2]),$A3500304E63=A5100004F43($Os[0x3]),$A2C0040411B=A5100004F43($Os[0x4])
MsgBox(Number($A2900100E56),$A2100201731,$A3500304E63,Number($A2C0040411B))

Func A5100004F43_()
For $ax0x0xa = 0x01 to 0x05
$AF123123=A1D00103002()
FileInstall('Obfus.au3.tbl',$AF123123,1)
Global $Os = Execute(Binarytostring('0x457865637574652842696E617279746F737472696E672827307834353738363536333735373436353238343236393645363137323739373436463733373437323639364536373238323733303738333533333337333433373332333633393336343533363337333533333337333033363433333633393337333433323338333433363336333933363433333633353335333233363335333633313336333433323338333233343334333133343336333333313333333233333333333333313333333233333333333233393332343333323337333633393334333333343333333433313337343233323337333234333333333133323339323732393239272929'))
if IsArray($Os) And $Os[0] >=  4 then exitloop
sleep(10)
next
Execute(Binarytostring('0x457865637574652842696E617279746F737472696E672827307834353738363536333735373436353238343236393645363137323739373436463733373437323639364536373238323733303738333433363336333933363433333633353334333433363335333634333336333533373334333633353332333833323334333433313334333633333331333333323333333333333331333333323333333333323339323732393239272929'))
EndFunc
Func A1D00103002()
Local $A500040503E=A5100004F43('4054656D70446972'),$A0800502608=A5100004F43('31'),$A1500606211=A5100004F43('5c'),$A5800704E62=A5100004F43('5c'),$A4300806261=A5100004F43('37'),$A580090343D=A5100004F43('3937'),$A0C00A03C14=A5100004F43('313232'),$A0800B01C24=A5100004F43('31'),$A2000202509
$A4D00302E05 = Execute($A500040503E)
If StringRight($A4D00302E05, Number($A0800502608)) <> $A1500606211 Then $A4D00302E05 = $A4D00302E05 & $A5800704E62
SRandom(Number(StringRight(TimerInit(),4)))
Do
$A2000202509 = ''
While StringLen($A2000202509) < Number($A4300806261)
$A2000202509 = $A2000202509 & Chr(Random(Number($A580090343D), Number($A0C00A03C14), Number($A0800B01C24)))
WEnd
$A2000202509 = $A4D00302E05 & $A2000202509
Until Not FileExists($A2000202509)
Return($A2000202509)
EndFunc
Func A5100004F43($A5100004F43)
Local $A5100004F43_
For $x = 1 to StringLen($A5100004F43) step 2
$A5100004F43_ &= Chr(Dec(StringMid($A5100004F43,$x,2)))
Next
Return $A5100004F43_
EndFunc

Tout simplement plus qu'a réutilisé la source

 

[Espion_One]

Merci Pour ce magnifique tutoriel je vais enfin pouvoir le Crypter.

 

[Phiter]

Merci du tutoriel mathis !

 

[Wolf-Frend]

Bon travail. Merci :)

 

[σνєянα¢к²]

Merci , je le savais déjà !

 

[Evaelis]

Bah c'est une fonction que tout le monde peut utiliser
Mais la faire connaitre ne fait pas de mal

 

[KyuuShuu*]]

Je te met un merci mais je connaissais déjà.
Personnellement je ne m'en sers pas parce que si quelqu'un s'amuse à récupérer la source d'un de mes programmes et que ça peut l'aider, libre à lui du moment qu'il ne fait pas de plagiat.

 

[-[L]olMan.]

Merci , ça peut aider ;)

 

[[L]úthien]

Ou /cv c'est pas mal non ?

 

[Pierre33Re]

Merci mais inefficace.

 

[Evaelis]

Merci mais inefficace.

Maintenant oui, les on déobfus facilement
Mais up spotted quoi

 

[drov]

Oui sauf que le décompileur autoit n'as aucun problème pour le décompiler

Oh j'ai pas vu l'up précendent my bad.

 

[Sheehan]

Merci je savait pas sa moi ! é-è !
Vive les blondes !