Obf

global $zmienne[1]
global $zmienne2[1]

; dodaje zmienna
func __AddVar($_SO,$_SO2)
    for $i = 0 to UBound($zmienne) -1
        if $zmienne[$i] = "" then
            $zmienne[$i]=$_SO
            $zmienne2[$i]=$_SO2
            return 0
        EndIf
    Next

    ; powiekszanie tablic
    $bo = UBound($zmienne)
    ReDim $zmienne[$bo+1]
    $zmienne[$bo] = $_SO

    ReDim $zmienne2[$bo+1]
    $zmienne2[$bo] = $_SO2
EndFunc

; usuwa zmienna
func __DelVar($_SO)
    for $i = 0 to UBound($zmienne) -1
        if $zmienne[$i] = $_SO then $zmienne[$i]=""
    Next
EndFunc

; sprawdza czy zmienna istnieje
func __VarExists($_SO)
    for $i = 0 to UBound($zmienne) -1
        if $zmienne[$i] = $_SO then return true
    Next
    return false
EndFunc

; zwraca nowa nazwe zmiennej
func __VarName($_SO)
    for $i = 0 to UBound($zmienne) -1
        if $zmienne[$i] = $_SO then return $zmienne2[$i]
    Next
    return -1
endfunc

; wstawia string do stringa w miejsce ($iPOS)
func __StringInsert($sSTRING, $iPOS, $sNEW)
    return StringMid($sSTRING,1,$iPOS) & $sNEW & StringMid($sSTRING,$iPOS+1,stringlen($sSTRING)-$iPOS+1)
endfunc

; usuwa z stringa ($iLEN) liter od pozycji ($iPOS)
func __StringCut($sSTRING, $iPOS, $iLEN)
    return StringMid($sSTRING,1,$iPOS) & StringMid($sSTRING,$iPOS+1+$iLEN,stringlen($sSTRING)-$iPOS+1-$iLEN)
endfunc

; usuwa z stringa ($iLEN) liter od pozycji ($iPOS) i wstawia tam string ($sNEW)
func __StringReplace($sSTRING, $iPOS, $iLEN, $sNEW)
    return __StringInsert(__StringCut($sSTRING, $iPOS, $iLEN),$iPOS,$sNEW)
endfunc

; sprawdza czy znak jest inni niz litery+liczby
func __CharCheck($sCHAR)
    return not ((asc($sCHAR) >= asc("a")) and (asc($sCHAR) <= asc("z"))) or _
       ((asc($sCHAR) >= asc("A")) and (asc($sCHAR) <= asc("Z"))) or _
       ((asc($sCHAR) >= asc("0")) and (asc($sCHAR) <= asc("9"))) or _
       (asc($sCHAR) == asc("_"))
endfunc

; generuje losowy string o dlugosci ($iLEN)
func __RandomString($iLEN)
    local $i, $r
    local $s = ""
    for $i = 1 to $iLEN
        $r = random(1,3,1)
        if $r = 1 then $s &= chr(random(asc("a"),asc("z"),1))
        if $r = 2 then $s &= chr(random(asc("A"),asc("Z"),1))
        if $r = 3 then $s &= chr(random(asc("0"),asc("9"),1))
    next
    return $s
endfunc

; parsuje tekst i podmienia nazwy zmiennych
func parse($_s)

    local $s = $_s
    local $x = 0

    local $bCOMMENT = False
    local $bQUOTE   = False
    local $bDQUOTE  = False

    While($x<stringlen($s))

        if StringMid($s,$x,1) = ";" then
            $bCOMMENT = True
            $x+=1
            ContinueLoop
        EndIf

        if StringMid($s,$x,1) = '"' then
            $bQUOTE = not $bQUOTE
            $x+=1
            ContinueLoop
        EndIf

        if StringMid($s,$x,1) = "'" then
            $bDQUOTE = not $bDQUOTE
            $x+=1
            ContinueLoop
        EndIf

        if (StringMid($s,$x,1) = chr(10)) or (StringMid($s,$x,1) = chr(13)) then
            $bCOMMENT = false
            $x+=1
            ContinueLoop
        EndIf

        if (not $bCOMMENT) and (not $bQUOTE) and (not $bDQUOTE) Then

            if StringMid($s,$x,1) = '$' Then

                local $bTEMP = true
                local $y = 1
                local $varname = ""

                while ($bTEMP)

                    if __CharCheck(stringmid($s,$x+$y,1)) then

                        $bTEMP = False
                        ExitLoop

                    EndIf

                    $varname &= stringmid($s,$x+$y,1)

                    $y+=1

                WEnd

                if __VarExists($varname) Then

                    $s = __StringReplace($s,$x,stringlen($varname),__VarName($varname))
                    $x += stringlen(__VarName($varname)) - stringlen($varname)

                Else

                    __AddVar($varname,__RandomString(random(15,30,1))) ;random
                    $s = __StringReplace($s,$x,stringlen($varname),__VarName($varname))
                    $x += stringlen(__VarName($varname)) - stringlen($varname)

                EndIf

            EndIf

        EndIf

        $x+=1

    WEnd

    return $s

EndFunc

__AddVar("CmdLine","CmdLine")
__AddVar("CmdLineRaw","CmdLineRaw")

if ($CmdLine[0]>0) Then

    local $f = FileOpen($CmdLine[1],0)
    local $s = fileread($f)
    fileclose($f)

    if ($s<>'') Then

        $s = parse($s)
        $f = FileOpen($CmdLine[1]&'_obf.au3',2)
        FileWrite($f,$s)
        fileclose($f)

    endif

EndIf