INPUT BOX FOR PASSWORD

[star2]

when I run my GUI it starts with an input box asking for password

and I've set the password and a MsgBox to apear if password entered not correct

but I can't just make it go back to the input box to make the user try again using [ OK & Cancel ] MsgBox

if anyone can help

this is the gui

#include <GUIConstants.au3>

GUICreate("test", 300, 250)
GUISetFont(12)

$pass = InputBox ("enter password", "please enter your password","","!",150,80)
    

GUICtrlCreateLabel("one line input", 4, 4)
$put1 = GUICtrlCreateInput("", 4, 25, 200, 25)
GUICtrlCreateLabel("Multi line input", 4, 60)
$put2 = GUICtrlCreateEdit("", 4, 80, 150, 100)
$send = GUICtrlCreateButton("send all to file", 4, 215, 150, 25)

GUISetState()



While  1
    $msg = GUIGetMsg()
    If $pass <> "my-pass" Then
        MsgBox (1,"warning" , "incorrect password" & @CRLF & "tRY AGAIN ?")
    EndIf
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $send Then SendMyData ()
WEnd



Func SendMyData()
    FileDelete('test.inf')
    $data = "[General]" & @CRLF & GUICtrlRead($put1) & @CRLF & @CRLF & GUICtrlRead($put2)
    FileWrite('\test.inf', $data)
    MsgBox(0,'Info','Data written to test.inf')
EndFunc

Edited April 30, 2007 by star2

[Generator]

expandcollapse popup

#include <GUIConstants.au3>

Do
    $pass = InputBox ("enter password", "please enter your password","","*",150,80)
    If $pass<>"my-pass"Then
        $msgbox=MsgBox (1,"warning" , "incorrect password" & @CRLF & "tRY AGAIN ?")
        If $msgbox=2 Then
            Exit
        EndIf
    EndIf
Until $pass="my-pass"

GUICreate("test", 300, 250)
GUISetFont(12)


   

GUICtrlCreateLabel("one line input", 4, 4)
$put1 = GUICtrlCreateInput("", 4, 25, 200, 25)
GUICtrlCreateLabel("Multi line input", 4, 60)
$put2 = GUICtrlCreateEdit("", 4, 80, 150, 100)
$send = GUICtrlCreateButton("send all to file", 4, 215, 150, 25)

GUISetState()



While  1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $send Then SendMyData ()
WEnd



Func SendMyData()
    FileDelete('test.inf')
    $data = "[General]" & @CRLF & GUICtrlRead($put1) & @CRLF & @CRLF & GUICtrlRead($put2)
    FileWrite('\test.inf', $data)
    MsgBox(0,'Info','Data written to test.inf')
EndFunc

Not Tested.

[Dickb]

Is this maybe what you are looking for?

#include <GUIConstants.au3>

Do
    $pass = InputBox ("enter password", "please enter your password","","!",150,80)
    If $pass <> "my-pass" Then
        MsgBox (1,"warning" , "incorrect password" & @CRLF & "tRY AGAIN ?")
    EndIf
Until $pass == "my-pass"

GUICreate("test", 300, 250)
GUISetFont(12)
GUICtrlCreateLabel("one line input", 4, 4)
$put1 = GUICtrlCreateInput("", 4, 25, 200, 25)
GUICtrlCreateLabel("Multi line input", 4, 60)
$put2 = GUICtrlCreateEdit("", 4, 80, 150, 100)
$send = GUICtrlCreateButton("send all to file", 4, 215, 150, 25)

GUISetState()

While  1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $send Then SendMyData ()
WEnd

Func SendMyData()
    FileDelete('test.inf')
    $data = "[General]" & @CRLF & GUICtrlRead($put1) & @CRLF & @CRLF & GUICtrlRead($put2)
    FileWrite('\test.inf', $data)
    MsgBox(0,'Info','Data written to test.inf')
EndFunc

[smashly]

expandcollapse popup

#include <GUIConstants.au3>

GUICreate("test", 300, 250)
GUISetFont(12)

$pass = InputBox ("enter password", "please enter your password","","!",150,80)
   

GUICtrlCreateLabel("one line input", 4, 4)
$put1 = GUICtrlCreateInput("", 4, 25, 200, 25)
GUICtrlCreateLabel("Multi line input", 4, 60)
$put2 = GUICtrlCreateEdit("", 4, 80, 150, 100)
$send = GUICtrlCreateButton("send all to file", 4, 215, 150, 25)

GUISetState()



While  1
    $msg = GUIGetMsg()
    If $pass <> "my-pass" Then
            $WrongPass = MsgBox (1,"warning" , "incorrect password" & @CRLF & "tRY AGAIN ?")
            If  $WrongPass = 1 Then
                $pass = InputBox ("enter password", "please enter your password","","!",150,80)
            ElseIf $WrongPass = 2 Then
                $Exting = MsgBox (0,"Exiting" , "Due to cancelation by user.." & @CRLF & "Now exiting test.")
                ExitLoop
            EndIf
    EndIf
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $send Then SendMyData ()
WEnd



Func SendMyData()
    FileDelete('test.inf')
    $data = "[General]" & @CRLF & GUICtrlRead($put1) & @CRLF & @CRLF & GUICtrlRead($put2)
    FileWrite('\test.inf', $data)
    MsgBox(0,'Info','Data written to test.inf')
EndFunc

[star2]

Generator

Dickb

smashly

thanks alot

this is what I've beedn looking for

thanks again

[enaiman]

I guess this is working fine if you dont' need a case-sensitive password.

If you need to be case-sensitive, the easiest way I've found is to use _StringToHex to convert the input and the password to a hex string and then to do the check.

(case-sensitive means that "PaSSword" <> "password" ... sorry for this explanation - it is obvious but ... )

[star2]

I guess this is working fine if you dont' need a case-sensitive password.

If you need to be case-sensitive, the easiest way I've found is to use _StringToHex to convert the input and the password to a hex string and then to do the check.

(case-sensitive means that "PaSSword" <> "password" ... sorry for this explanation - it is obvious but ... )

thanks didn't try it yet but I will soon

thank you

[arejae]

thanks for scripts. muttley

additionally, i just add one line to trigger CANCEL button.

$pass = InputBox ("enter password", "please enter your password","","*",150,80)

if (@Error == 1) Then Exit ; *** new line added

[TerarinKerowyn]

If you want a true password you use Encryption/Decryption on the input box while keeping it in RAM and never entering the real password decrypt onto the hard drive. Lookup _StringEncrypt($i_Encrypt, $s_EncryptText, $s_EncryptPassword[, $i_EncryptLevel = 1])

[BrettF]

If you want a true password you use Encryption/Decryption on the input box while keeping it in RAM and never entering the real password decrypt onto the hard drive. Lookup _StringEncrypt($i_Encrypt, $s_EncryptText, $s_EncryptPassword[, $i_EncryptLevel = 1])

Look at the other 'more secure' examples, floating around the forum. There is MD5, SHA1, blowfish... Its all there muttley

EDIT: Oh! And did I mention that this was a wonderful bump of an old topic?

Edited July 21, 2008 by Bert

[mmavipc]

I guess this is working fine if you dont' need a case-sensitive password.

If you need to be case-sensitive, the easiest way I've found is to use _StringToHex to convert the input and the password to a hex string and then to do the check.

(case-sensitive means that "PaSSword" <> "password" ... sorry for this explanation - it is obvious but ... muttley )

You could just use ==

[enaiman]

You could just use ==

Good point muttley

Thanks

[ProgrammerKid]

But I have 1 question:

Can you insert more passwords?

[water]

Wunderful bump. The last post in this thread is over 3 years old

And no. The script as it now is can only save one password because it deletes the file before saving.