Achat's tiny Obfuscator

[Achat]

Hi epvp!

Here I release my tiny Obfuscator:

Code:

 Spoiler

Local $sScript = FileOpenDialog('Choose AutoIt Script to obfuscate', @ScriptDir, '(*.au3)', 1), $sSource = FileRead($sScript), $hTimer = TimerInit(), $aVariables = StringRegExp($sSource, '\$\w+', 3), $aFunctions = StringRegExp($sSource, '(?i)Func (\w+)\(', 3)
For $i = 0 To UBound($aVariables) + UBound($aFunctions) - 1
	If $i < UBound($aVariables) Then $sSource = StringRegExpReplace($sSource, '(\' & $aVariables[$i] & ')([^\w])', '$' &Chr(Random(65,90,1))& StringTrimLeft(StringToBinary($i),2) & '\2')
	If $i < UBound($aFunctions) Then $sSource = StringRegExpReplace($sSource, '(' & $aFunctions[$i] & ')([^\w])',  Chr(Random(65,90,1)) & StringTrimLeft(StringToBinary($i),2) & '\2')
Next
FileWrite(FileOpen(StringTrimRight($sScript, 4) & '.o.au3',2), $sSource)
MsgBox(0x40040, 'AtO', 'Obfuscation successful.' & @CRLF & UBound($aVariables) & ' Variables obfuscated.' & @CRLF & UBound($aFunctions) & ' Functions obfuscated.' & @CRLF & 'Duration: ' & Round(TimerDiff($hTimer)) & 'ms')

Features:

• Rename all functions irreversible
• Rename all variables irreversible

How to use:

1. Select an AutoIt Script
2. wait a sec
3. Now you'll find a scriptname.o.au3 file in your script's directory, in which all variable & function names are replaced by some random names. That makes it impossible to get the original variable/function names back.

Note: #include,Assign,Eval are not supported and will lead to errors!

Kind Regards

[MIROELHACKER]

i didnt under stand Give a video tut

[Achat]

of course

 Spoiler

not

Kind Regards

[YatoDev]

Ja schonmal gut aber.willst du den noch weiter verbessern oder bleibt bei dieser funktion ? Jeder obfuscator benennt vars und funcs um deswegen hab ich halt keine verwendung fuer deinen aber trotzdem sehr gute arbeit

[Achat]

[04.05.2013 23:39:51] S!r Achat: Alles, was über das Umbennenen von Variablen und Funktionsnamen hinausgeht, gefährdet die fehlerfreie Ausführung des Scripts, verlangsamt es auf jeden Fall!
Und es ist mit Aufwand sowieso wieder umzukehren.
[04.05.2013 23:44:10] S!r Achat: @error und @extended auslesen
[04.05.2013 23:44:15] S!r Achat: könnte Fehlschlagen

evtl. kommt noch was dazu^^

MfG

[YatoDev]

Eine schoene funktion waere wenn das script alle strings die z.b. so aussehen : $test = "hallo" irgendwie "verschluesselt"

[Achat]

Originally Posted by »FlutterShy™

Eine schoene funktion waere wenn das script alle strings die z.b. so aussehen : $test = "hallo" irgendwie "verschluesselt"

Bringt dir nichts, da der String ja im Endeffekt wieder ausgegeben werden muss. Mit Aufwand kannst du das wieder "entschlüsseln"
Es macht das ganze nur langsamer und fehleranfälliger.
Am besten sensible Daten gar nicht erst im Skript speichern (Adressen etc.).
Oder noch besser: Gar nicht erst releasen -> keiner kann es leechen.

Originally Posted by Achat

[04.05.2013 23:39:51] S!r Achat: Alles, was über das Umbennenen von Variablen und Funktionsnamen hinausgeht, gefährdet die fehlerfreie Ausführung des Scripts, verlangsamt es auf jeden Fall!
Und es ist mit Aufwand sowieso wieder umzukehren.

und btw

Originally Posted by Achat

Here I release my tiny Obfuscator:

Dann wäre es kein 8-Zeiler mehr.

MfG

[YatoDev]

Jo aber trotzdem . naja ich brauch autoit eh nicht mehr so oft

[Shadow992]

Originally Posted by Achat

Bringt dir nichts, da der String ja im Endeffekt wieder ausgegeben werden muss. Mit Aufwand kannst du das wieder "entschlüsseln"
Es macht das ganze nur langsamer und fehleranfälliger.
Am besten sensible Daten gar nicht erst im Skript speichern (Adressen etc.).
Oder noch besser: Gar nicht erst releasen -> keiner kann es leechen.



und btw


Dann wäre es kein 8-Zeiler mehr.

MfG

Noch nicht getestet aber werde ich definitiv noch tun :-D
Zu deiner Aussage, natürlich ist das Umkehrbar aber du musstfolgende Sachen im hinterkopf behalten:
1. Deobfuscaten per Hand:
Der Source-Code wird weiestgehend analysiert und die Stelle wird gesucht an der die sensiblen Daten stehen könnten. Hier ist es wichtig strings usw. zu verschlüsseln, damit es nicht einfach ist diese Stelle zu finden.
2. Per programm:
Hier muss man es dem programm so schwer wie moeglich machen also bringen zusätzliche masnahmen schon etwas.


Edit:
Wenn du nur auch RegEx setzt hast du ein Problem, nämlich folgendes:

$text&="Start bot first"
Func start()

endfunc

In den Strings würde "Start" jetzt auch umbenannt werden. In diesem Fall ist das nur ein Schönheitsfehler, aber was ist, wenn man einen kleinen Interpreten selbst schreiben möchte?

if($string="start") then
start()
endif

func start()

endfunc

Sicher das Ganze mag nicht oft passieren und dennoch gibt es dort Probleme.

[Achat]

Originally Posted by Shadow992

In den Strings würde "Start" jetzt auch umbenannt werden. In diesem Fall ist das nur ein Schönheitsfehler, aber was ist, wenn man einen kleinen Interpreten selbst schreiben möchte?

Strings müssen zuerst obfuscated werden.
Ich habe schon eine eigene Verschlüsselungsfunktion für Strings, diese würde ich aber ungern in .au3 weitergeben.
Vielleicht lasse ich Strings dann auf einem Server entschlüsseln.

String obfuscation gestaltet sich auch etwas schwierig, wenn " und ' vermischt werden.

MsgBox(0,"Ein Test",'Nur ein ''Test",''"')

MfG

[Lawliet]

Originally Posted by Achat

Vielleicht lasse ich Strings dann auf einem Server entschlüsseln.

Sowas in der Art hab ich früher schonmal gemacht. Kann man vergessen. Das Script wird viel zu langsam.

[Shadow992]

Originally Posted by Achat

Strings müssen zuerst obfuscated werden.
Ich habe schon eine eigene Verschlüsselungsfunktion für Strings, diese würde ich aber ungern in .au3 weitergeben.
Vielleicht lasse ich Strings dann auf einem Server entschlüsseln.

String obfuscation gestaltet sich auch etwas schwierig, wenn " und ' vermischt werden.

MsgBox(0,"Ein Test",'Nur ein ''Test",''"')

MfG

Bei meinen Obfuscatoren klappt es. :P

[Achat]

Habe den Code noch um eine Zeile verkürzt

FileDelete(StringTrimRight($sScript, 4) & '.o.au3')
FileWrite(StringTrimRight($sScript, 4) & '.o.au3', $sSource)

FileWrite(FileOpen(StringTrimRight($sScript, 4) & '.o.au3',2), $sSource)

€dit:

Originally Posted by »FlutterShy™

Ja schonmal gut aber.willst du den noch weiter verbessern oder bleibt bei dieser funktion ? Jeder obfuscator benennt vars und funcs um deswegen hab ich halt keine verwendung fuer deinen aber trotzdem sehr gute arbeit

Danke. Habe ihn mittlerweile erweitert.

MfG