Beiträge von James

  • SB Zitate #4

    Ich kann dazu auch nicht mehr sagen als: :rofl:

    Aber das letzte Zitat hättest du schon ganz einfügen können:

    MfG, James

  • IDO-Interpreter

    chesstiger Gute Idee, gefällt mir!

    @Marsi So ähnlich hatte ich den Interpreter auch von Anfang an (hatte mich gleich 'ne eigene Version gebaut):

    [autoit]

    ConsoleWrite(IDO("IdddOriiiiOiiiiiiiOOiiiORDDDdddOrDOIIiiiiOiiiOddddddOddddddddODDDDDDDiiiO") & @LF)
    Func IDO($script)
    Local $command, $i, $data = "", $n = 65
    $command = StringSplit($script, "")
    For $i = 1 To $command[0] Step 1
    Switch Asc($command[$i])
    Case Asc("i")
    $n += 1
    Case Asc("d")
    $n -= 1
    Case Asc("I")
    $n += 10
    Case Asc("D")
    $n -= 10
    Case Asc("r")
    $n = Asc("a")
    Case Asc("R")
    $n = Asc("A")
    Case Asc("O"), Asc("o")
    $data &= Chr($n)
    Case Else
    Return SetError(1, $i, "")
    EndSwitch
    Next
    Return $data
    EndFunc

    [/autoit]

    Und weil wir schon gerade bei so sinnlosen Sprachen sind, hier mal meine Idee:
    Mit < und > verschiebt man den Pointer in einer 16bit-Integer und mit , flippt man das aktuelle Bit. Mit . gibt man den Wert der Int als Unicode-Zeichen aus:

    [autoit]

    ConsoleWrite(XorBitFlip(",<<<<<<,.") & @LF)
    Func XorBitFlip($script)
    Local $command, $i, $data = "", $n = 0, $p = 0
    $command = StringSplit($script, "")
    For $i = 1 To $command[0] Step 1
    Switch $command[$i]
    Case "<"
    $p += 1
    If ($p = 16) Then $p = 0
    Case ">"
    $p -= 1
    If ($p = -1) Then $p = 15
    Case ","
    $n = BitXOR($n, 2^$p)
    Case "."
    $data &= ChrW($n)
    Case Else
    Return SetError(1, $i, "")
    EndSwitch
    Next
    Return $data
    EndFunc

    [/autoit]

  • Text aus String herausfiltern

    Durch sich selbst ersetzen wird nicht so ohne weiteres möglich sein.
    Das "\b" in der regular Expression markiert die Begrenzungen eines Wortes, sodass "a" eben nicht in "var" ersetzt wird, sondern nur wenn es einzeln auftritt.
    Du könntest entweder ein Array mit Variablennamen erstellen und diese dann wie in meinem Beispiel einzeln durchgehen und mit Eval() durch den eigentlichen Wert ersetzen.
    Oder du setzt vor jedes "Wort" ein "$" und übergibst das Ganze dann an Execute():

    [autoit]

    StringRegExpReplace($String, "\b([a-z]+)\b", "\$$1")

    [/autoit]

  • Suche Anregung für Bonus System

    Ich würde die Schlüssel einfach verschlüsselt in eine Datei schreiben und dann mit dieser arbeiten, das ist einfach und mit Abstand sicher genug für ein 7 jähriges Kind.

    MfG, James

    Beispiel
    [autoit]

    #include <String.au3>

    [/autoit] [autoit][/autoit] [autoit]

    ;~ GenerateKeyFile(100, "123456", @ScriptDir & "\backup-07132012.dll")

    [/autoit] [autoit][/autoit] [autoit]

    If UseKeyFile("ABCD-EFGH-IJKL-MNOP", "123456", @ScriptDir & "\backup-07132012.dll") Then
    MsgBox(64, "", "Der Code 'ABCD-EFGH-IJKL-MNOP' wurde aktiviert!")
    Else
    MsgBox(16, "", "Der Code 'ABCD-EFGH-IJKL-MNOP' wurde nicht gefunden!" & @CRLF & "Bitte überprüfe deine Eingabe und versuche es erneut.")
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    Func GenerateKeyFile($nKeys, $Password, $Filename)
    Local $Data = "", $i, $File
    For $i = 1 To $nKeys
    $Data &= "<" & RandomKey() & ">"
    Next
    $Data = _StringEncrypt(1, $Data, $Password)
    $File = FileOpen($Filename, 2)
    FileWrite($File, $Data)
    FileClose($File)
    EndFunc
    Func RandomKey()
    Local $Key = "", $i, $j
    For $i = 1 To 4
    For $j = 1 To 4
    $Key &= Chr(Random(65, 90, 1))
    Next
    If ($i <> 4) Then $Key &= "-"
    Next
    Return $Key
    EndFunc
    Func UseKeyFile($Key, $Password, $Filename)
    Local $File, $Data
    $File = FileOpen($Filename)
    $Data = FileRead($File)
    FileClose($File)
    $Data = _StringEncrypt(0, $Data, $Password)
    If (StringInStr($Data, "<" & $Key & ">") > 0) Then
    $Data = StringReplace($Data, "<" & $Key & ">", "")
    $Data = _StringEncrypt(1, $Data, $Password)
    $File = FileOpen($Filename, 2)
    FileWrite($File, $Data)
    FileClose($File)
    Return True
    Else
    Return False
    EndIf
    EndFunc

    [/autoit]

  • Eigenschaften einer Gui

    Es kann auch ein anderer exStyle sein, mein Gedächtnis war damals leider nicht soo gut. :D
    Meine Skripte aus dieser Zeit habe ich leider auch nicht mehr, sonst hätte ich nachgeschaut...

    Ich kann mich nur noch erinnern damals eine Bildschirmlupe mit AutoIt programmiert zu haben, bei der das Fenster automatisch der Maus gefolgt ist und man die darunterliegenden Fenster trotzdem noch benutzen konnte.

  • Chat-Server UDF

    Ich mag die Idee auch sehr.

    Cheater Dieter die autoit.de-Shoutbox kann man ja auch als Gast sehen...

    @Matthias Allerdings würde ich am Anfang vom Skript noch folgenden Header senden (dann werden die Daten auch im Browser gut angezeigt):

    Code
    Content-Type: text/plain

    MfG, James