[Leicht] Verschlüsselungs - und Entschlüsselung - Problem

    Hallo allerseits,

    ich habe folgendes Script entworfen:

    #include <String.au3>
    Dim $id = Inputbox(0,"ID","Bitte id eingeben.")
    Dim $pw = Inputbox(0,"PW","Bitte pw eingeben")
    Dim $id0 = $id
    Dim $pw0 = $pw
    Dim $sString = _StringEncrypt(1, $id, "", "")
    Dim $sString0 = _StringEncrypt(1, $pw, "", "")
    Dim $sString1 = _StringEncrypt(0, $id0, "", "")
    Dim $sString2 = _StringEncrypt(0, $pw0, "", "")
    $wahl0 = MsgBox ( 0, "AutoIt.@", "Ergebnis: " & $sString & $sString0)
    Dim $between = _StringBetween($wahl0, $id, $pw)

    ; Ausgabe

    $wahl = MsgBox(0, "Auswahl", "Wollen sie es wieder entschlüsseln? Dann klicken sie weiter.")

    MsgBox ( 0, "AutoIt.@", "Ergebnis: " & $sString1 & $sString2)
    ---

    Und zwar möchte ich, dass es verschlüsselt und später wieder entschlüsselt.

    Der Fehler:
    Er verschlüsselt nicht richtig, bzw. immer auf 00 und entschlüsselt dann wieder auf 00.

    Meine Frage jetzt, liegt es am Sicherheitslevel der Verschlüsselung (_StringEncrypt ( $i_Encrypt, $s_EncryptText, $s_EncryptPassword [, $i_EncryptLevel ] ) ) ??


    Freue mich auf alle Antworten.


    Mit freundlichen Grüssen,


    Beginner095 (Alex)

    Hallo Beginner095,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Skript: 1. Das Passwort für das Ver-/Entschlüsseln ist nicht optional und darf auch nicht leer sein. 2. du musst beim Entschlüsseln auch die zuvor verschlüsselten Strings nehmen.

    Spoiler anzeigen
    [autoit]

    #include <String.au3>
    Dim $id = Inputbox(0,"ID","Bitte id eingeben.")
    Dim $pw = Inputbox(0,"PW","Bitte pw eingeben")
    Dim $id0 = $id
    Dim $pw0 = $pw
    Dim $sString = _StringEncrypt(1, $id, "test")
    Dim $sString0 = _StringEncrypt(1, $pw, "test")
    Dim $sString1 = _StringEncrypt(0, $sString, "test")
    Dim $sString2 = _StringEncrypt(0, $sString0, "test")
    $wahl0 = MsgBox ( 0, "AutoIt.@", "Ergebnis: " & $sString & $sString0)
    Dim $between = _StringBetween($wahl0, $id, $pw)

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

    ; Ausgabe

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

    $wahl = MsgBox(0, "Auswahl", "Wollen sie es wieder entschlüsseln? Dann klicken sie weiter.")

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

    MsgBox ( 0, "AutoIt.@", "Ergebnis: " & $sString1 & $sString2)

    [/autoit]

    mfg autoBert

    Wow, danke für die schnelle und hilfreiche Rückmeldung!

    Ich hätte da noch eine Frage:

    Kann man in AutoIt auch Mysql5 - Verschlüsselungen anwenden? Wenn ja, wie?

    Gruss,

    Beginner095