Keyconsole - Serialprotect für deinen Script!

Da jeder DAU Autoit mit zwei Klicks decompilieren kann nicht wirklich nützlich.

Es heißt AutoIt

Jedenfalls, ich stimme chip zu, und es gibt genügend (einfache) Wege, um herauszufinden, ob ein Programm mit AutoIt geschrieben ist.

Obfuscaten bringt dir wenig. Es verändert nur den Code. Hat der h4xx0r eine AutoIt Executable und einen Decompiler, dann hat er das Skript. Ob es nun aufgrund des Obfuscators "hässlich" aussieht macht keinen Unterschied: Er hat das Skript. Dann kann er systematisch Funktionen außer Kraft setzen und so weiter ... ich glaube du verstehst das Problem

Ich sehe es ähnlich wie die anderen. AutoIt ist viel zu einfach zu decompilieren. Wenn ich vorhabe, ein Programm zu erstellen und dieses dann kommerziell zu verbreiten, würde ich auch sicher nicht zu AutoIt greifen. Auf der anderen Seite: Jeder Schutzmechanismus lässt sich irgendwie umgehen, ein bisschen Schwund ist immer, wie man so schön sagt. Man könnte es ja auch so halten wie die Entwickler von WinRAR, die sich scheinbar einen feuchten Kehricht drum scheren, wer ihr Programm nutzt ohne dafür zu zahlen.

Cheater Dieter:
A bissl schwund ist immer
Beziehst du dich darauf :D?

Prinzipiell stimme ich den anderen zu, AutoIt ist zu einfach zu decompilieren, eine Idee für eine Lizenzierung wäre jedoch einen Online Abgleich zu machen

Zitat von Xorianator

A bissl schwund ist immer
Beziehst du dich darauf :D?

Um Gottes Willen Ne, war eigentlich nicht darauf bezogen.
Aber das ist doch Satire, oder?

Oh ha,... Wenn ich mir mal deine Funktion _Licensegenerator() anschaue. O.o
Das kann man wunderbar auf 15 Zeilen kürzen. :o

FileDelete('Keys.txt')
_Licensegenerator(100) ; 100 Keys generieren

Func _Licensegenerator($iKeys, $z1 = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', $z2 = '0123456789')
$z1 = StringSplit($z1, '')
$z2 = StringSplit($z2, '')
For $i = 1 To $iKeys
$Serial = ''
For $n = 1 To 16
$Serial &= (Random(0, 1, 1)) ? ($z1[Random(1, $z1[0], 1)]) : ($z1[Random(1, $z2[0], 1)])
If Not Mod($n, 4) And $n <> 16 Then $Serial &= '-'
Next
FileWrite('Keys.txt', $Serial & @CRLF)
Next
EndFunc

@MG: Es geht sogar noch kürzer

FileDelete('Keys.txt')
L(100) ; 100 Keys generieren

; 1. Random anpassen wie du es willst, finde eine 7 zu 1 Chance für Buchstaben besser, damit nicht so viele Zahlen drin sind
Func L($iKeys, $z1 = StringSplit('ABCDEFGHIJKLMNOPQRSTUVWXYZ', ''), $z2 = StringSplit('0123456789', ''), $i = 1, $s = '', $n = 1)
Return (($i <= $iKeys) ? L($iKeys, $z1, $z2, ($i + (($n = 16) ? (1) : (0))), ($s & (($n = 16) ? (@CRLF) : (((Random(0, 7, 1)) ? ($z1[Random(1, $z1[0], 1)]) : ($z2[Random(1, $z2[0], 1)])) & ((Not Mod($n, 4) And ($n <> 16)) ? ('-') : (''))))), (($n = 16) ? (1) : ($n + 1))) : FileWrite('Keys.txt', $s & @CRLF))
EndFunc