Beiträge von Kleiner

  • AVI startet nicht

    Hi!

    Hast du mal in die Hilfe geschaut?

    Beispiel der Hilfe!

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)

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

    Example()

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

    Func Example()
    Local $ani1, $buttonstart, $buttonstop, $msg

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

    GUICreate("Meine GUI-Animation", 360, 200)
    $ani1 = GUICtrlCreateAvi(@SystemDir & "\shell32.dll", 165, 50, 10)

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

    $buttonstart = GUICtrlCreateButton("Start", 95, 150, 70, 22)
    $buttonstop = GUICtrlCreateButton("Stopp", 195, 150, 70, 22)

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

    GUISetState()

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

    ; Die Schleife wiederholt sich, bis der Benutzer eine Beenden-Aktion auslöst
    While 1
    $msg = GUIGetMsg()

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

    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

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

    Case $msg = $buttonstart
    GUICtrlSetState($ani1, 1)

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

    Case $msg = $buttonstop
    GUICtrlSetState($ani1, 0)

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

    EndSelect
    WEnd
    EndFunc ;==>Example

    [/autoit]

    Lg Kleiner

  • $Inhalt + $Inhalt2 + $Button1

    Hi!


    Schau mal!

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <EditConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 265, 163, 193, 125)
    $Input1 = GUICtrlCreateInput("Dein Name", 8, 16, 241, 21)
    $Input2 = GUICtrlCreateInput("123456", 8, 48, 241, 21, $ES_PASSWORD)
    $Button1 = GUICtrlCreateButton("LOGIN", 56, 96, 161, 41, 0)
    GUICtrlSetFont(-1, 12, 800, 0, "@Meiryo")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    If GUICtrlRead($Input1) And GUICtrlRead($Input2) Then
    MsgBox(0, 0, 'Dein Name: ' & GUICtrlRead($Input1) & ' Password ' & GUICtrlRead($Input2))
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    Lg Kleiner

  • Übersetzer

    Hi!

    Diese Methode nennt man Vernam Verschlüsselung von (Gilbert Sandford Vernam)!
    Es werden in mein Beispiel alle ASCII-Zeichensätze angewandt das heißt dass, Tabulator Zeichen Verwendet werden darum in der Konsole nicht all so viel zu Sehne ist Schreib die Ausgabe in einer Datei und Interpretiere die Datei mit Verschiedene Editoren.

    Zitat aus Wiki: Der Spezialfall, dass der Schlüssel genauso lang ist wie der zu verschlüsselnde Text, heißt Vernam-Verschlüsselung, wobei der Schlüssel XOR mit dem Klartext verknüpft wird. Handelt es sich bei dem Schlüssel um eine zufällige Folge von Buchstaben, und wird der Schlüssel nur ein einziges Mal verwendet, nennt man das Verfahren auch One-Time-Pad. Bei diesem ist eine Dechiffrierung ohne Kenntnis des korrekten Schlüssels absolut unmöglich.

    Lg Kleiner

  • Übersetzer

    Hi!

    Eine einfache und sichere Veschlüsselung! ;)

    Spoiler anzeigen
    [autoit]

    Dim $Te = VerEnd_S('Hier ist eine tolle Implentierund des Cäsar-Chiffres http://www.autoit.de/index.php?page…6455#post196455 muss leider noch etwas angepasst werden')
    ConsoleWrite($Te & @CRLF)
    ConsoleWrite(@CRLF & @CRLF)
    Dim $Te_ = VerEnd_S($Te)
    ConsoleWrite($Te_ & @CRLF)
    ;===================================================================================================================================#
    ;~ Function Name......: VerEnd_S($sEncDec, $sPass)
    ;~ Description........: Verschlüsselung von String´s
    ;
    ;~ $sEncDec...........: String der Verschlüsselt werden soll
    ;~ $sPass.............: Verslüsselung metode ( Passwor ) kann leer gelassen werden
    ;
    ;~ Return Value(s)....: Erfolg String mit der Verschlüsslung
    ;
    ;~ Author(s).........: Kleiner (http://www.autoit.de)
    ;====================================================================================================================================#
    Func VerEnd_S($sEncDec, $sPass = '')
    If Not $sPass Then $sPass = 'abcdefghijklmnopqrstuvwxyz'
    Local $iEncDec, $iPass, $UB, $UB_1, $UB_2
    $UB = StringLen($sEncDec)
    $UB_1 = StringLen($sPass)
    For $i = 1 To $UB_1
    $iPass &= StringMid($sPass, $i, 1) & Asc(StringMid($sPass, $i, 1)) & Chr(122 - $i)
    Next
    $sPass = ''
    $UB_2 = Round($UB / StringLen($iPass)) + 1
    For $i = 0 To $UB_2
    $sPass &= $iPass
    Next
    For $i = 1 To $UB
    $iEncDec &= Chr(BitXOR(Asc(StringMid($sEncDec, $i, 1)), Asc(StringMid($sPass, $i, 1))))
    Next
    Return $iEncDec
    EndFunc ;==>VerEnd_S

    [/autoit]

    Lg Kleiner

  • Treeview FileExplorer

    Hi!


    Leg doch eine Console-ausgabe dazwischen schau mal ob die datein eingelesen werden wenn ja weiter Prüfung in der Rekrusiven darstellung! wenn du keine Fehle findes können wir von hir aus nich viel machen, Programieren ist eiene Wissenschaft ^^ schau mal auf eigner weise du wirst die Lösung finden und uns bescheit geben!


    Lg Kleiner

  • MouseOver UDF

    Hi!


    Zitat

    ...kann nicht mehr klar denken... ?(

    Dann mach eine Kleine Pause!

    Ansprechen:

    $sPic = 'Path+Datei'
    $sPic1 = 'Path+Datei'
    $Pic1 = GUICtrlCreatePic($sPic1, 58, 34, 153, 149)

    Durch die Variablen! ;)

    Lg Kleiner