Registrierungscript

  • hi ich bräuchte mal eine hilfe. undzwar geht es darum das ich ein loginscript habe. aber ich dafür noch eine scripts brauche zum registrieren . also die daten sollen an mein ftpserver gesendet werden auf eine .ini datei.

  • so sieht mein loginscript aus . jetzt brauche ich halt dazu ein dazugehöriges regiscript. indem man auch name und pw eingiebt und dan in eine .ini datei auf meinem ftp server speichert.und wen es es die datei schon giebt also die .ini datei dan soll es die neuen benutzerdaten reinkopieren.
    so soll es dan aussehn.
    Name:passwort der verschlüssel werden soll
    also so:
    (Name:C1CAA1B411F1FF3E16584F9B176F26CA)


    Spoiler anzeigen

    ; Lade die DLL
    $MD5Plugin = PluginOpen('MD5Hash.dll')
    #compiler_plugin_funcs = MD5Hash

    $urlpasswortini = '*Kein pfad*'

    #include <inet.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Anmeldung", 218, 134, -1, -1, 0, $WS_EX_TOOLWINDOW)
    $lblBenutzer = GUICtrlCreateLabel("Benutzer:", 8, 8, 49, 17)
    $txtBenutzer = GUICtrlCreateInput("", 64, 8, 129, 21)
    $lblPasswort = GUICtrlCreateLabel("Passwort:", 8, 40, 50, 17)
    $txtPasswort = GUICtrlCreateInput("", 64, 40, 129, 21,BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
    $cmdAnmelden = GUICtrlCreateButton("Anmelden", 64, 72, 89, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $cmdAnmelden
    $pwOK = False
    $src = _INetGetSource($urlpasswortini)
    GUISetState(@SW_DISABLE)
    $lines = StringSplit(StringStripCR($src),@LF)
    $userinput = MD5Hash(GUICtrlRead($txtBenutzer) & GUICtrlRead($txtPasswort),2,True)
    For $x = 1 to UBound($lines) -1
    If $lines[$x] = GUICtrlRead($txtBenutzer) & ":" & $userinput Then $pwOK = True
    Next
    If $pwOK Then
    ExitLoop
    Else
    Exit
    EndIf
    EndSwitch
    WEnd

    MsgBox(64,"INFO","Du wurdest erfolgreich angemeldet....")