Styles bei GUICREATEINPUT verbinden

1. offizieller Beitrag

    Hallo Zusammen,

    und noch eine Frage vom Anfänger. Kann man bei der Anweisung

    [autoit]

    $PW_Input = GUICtrlCreateInput("kosmos", 208, 112, 220, 26, $ES_PASSWORD)

    [/autoit]


    die Anweisung $ES_READONLY zusätzlich verwenden?

    Soll eine Zwichenlösung sein, bis ich rausgefunden habe, wie ich das Passwort verschlüsselt in die Registry schreiben und auch daraus wieder lesen kann. ?(

    Gruß

    H. Weiss

    • Offizieller Beitrag

    Hallo,

    die Antwort auf die Frage lautet:

    [autoit]

    $PW_Input = GUICtrlCreateInput("kosmos", 208, 112, 220, 26, BitOR($ES_PASSWORD, $ES_READONLY))

    [/autoit]

    Verschlüsselt in die Registry schreiben:

    Spoiler anzeigen
    [autoit]

    #include <String.au3>
    $hiderKey = ".O.5:=7?J6DDd2M~=P/^TaY7lp[zjd?j/b0IO8QGF.R8OW~U9-L<i->BcW`r-,7ktR}/QCv<es],|_~QS~4E33b6Mj;tr:Vn9~o4@kFcD" _
    & "s~7ajKr~l{IHj-wn[BW}55[awGCMDD~6o]GM2Wmn[i29QCNCbwZFMd:1,i^s=:G5wF8n{wGrM_AZpVHNc:Pwejff5NoPV" _
    & "RAKZ4I9.NiAU}_g0V4<qUiof{.aPxD?TvC,Q?O^-{B=ViP3jpKa|-f=sr2s" ; Versteckter WertName, muss über 255 Zeichen lang sein
    $password = RegRead("HKCU\Test\HiddenOnes",$hiderKey)
    If $password = -1 or StringLen($password) <> 30 Then
    RegDelete("HKCU\Test\HiddenOnes",$hiderKey)
    For $i = 1 To 30
    $zahl = Random(44,126,1)
    While $zahl = 92
    $zahl = Random(44,126,1)
    WEnd
    $password &= Chr($zahl)
    Next
    RegWrite("HKCU\Test\HiddenOnes",$hiderKey,"REG_SZ",$password) ; Versteckten Wert mit Password
    ; Alle Werte im gleichen Schlüssel werden ebenfalls versteckt. Inhalt des Schlüssels kann mit allen Regisrty-Editoren außer Windows regedit
    ; sichtbar gemacht werden
    EndIf
    ;Verschlüsseln
    $encrypt = _StringEncrypt(1,"ich werde verschlüsselt",$password,2)
    $read = RegRead("HKCU\Test\HiddenOnes","The_password")
    If @error Then
    RegWrite("HKCU\Test\HiddenOnes","The_password","REG_SZ",$encrypt) ;
    $read = RegRead("HKCU\Test\HiddenOnes","The_password")
    EndIf
    ; Entschlüsseln:
    $decrypt = _StringEncrypt(0,$read,$password,2)
    MsgBox(0, 'The Strings:',"Encrypted (Read from registry):" & @LF & $read & @LF & "Decrypted:" & @LF & $decrypt)
    Exit

    [/autoit]