Password veranderen

[Hertebeest]

Tot zover lukt mijn programma aardig. Ik heb het zo gemaakt dat het een password uit een text file leest en dan laat inloggen of niet (ligt aan of het goed is ). Nou heeft iemand gevraagd of ik er een functie in kan zetten waar je het password in de file zelf verandert.

Hier heb ik problemen mee.

Dit is mijn inlog form.

Private Sub cmdLogin_Click()
Dim strREAD As String
Dim strPassword As String
If txtPassword.Text = "" Then
txtPassword.SetFocus

Else

Open "H:\VB 6.0 apps\text.txt" For Input As #1
Do While Not EOF(1)
    Input #1, strPassword
    strREAD = strPassword
Loop
Close #1

If txtPassword.Text = strREAD Then
    MsgBox "Correct Password!", , ""
    Form2.Show
Else
    MsgBox "Incorrect Password!", , ""
    
End If
End If
End Sub




Private Sub Form_Load()
txtPassword.PasswordChar = "*"
End Sub

Dan opent zich een andere form, form2.

Dit is de code voor form2.

Private Sub cmdLogin_Click()
Dim strREAD As String
Dim strPassword As String
If txtPassword.Text = "" Then
txtPassword.SetFocus

Else

Open "H:\VB 6.0 apps\text.txt" For Input As #1
Do While Not EOF(1)
    Input #1, strPassword
    strREAD = strPassword
Loop
Close #1

If txtPassword.Text = strREAD Then
    Form3.Show
Else
    MsgBox "Incorrect Password!", , ""
    
End If
End If
End Sub

Bij het stukje van If txtPassword.text = strREAD Then.....

Daar wil ik zorgen dat hij het password in de txt file verandert, iemand suggesties?

Gr, Hertebeest,.==.

 

[HUKED]

Roflmao!!
ben jij niet van cef?

 

[Hertebeest]

*corrrectie* Ik was van CEF, maar tis een noob, leecher en weet ik wat nog allemaal meer forum geworden, ik ben gestopt met hacken, ik ga me nu concentreren op het programmeren voor als ik naar de ICT ga.

 

[HUKED]

*corrrectie* Ik was van CEF, maar tis een noob, leecher en weet ik wat nog allemaal meer forum geworden, ik ben gestopt met hacken, ik ga me nu concentreren op het programmeren voor als ik naar de ICT ga.

Leuk, ik ga ook naar een ICT opleiding

 

[Hertebeest]

Alles leuk en wel, maar ik heb antwoord nodig op mijn vraag.!

 

[CoD_NL]

Iets in de vorm van:

open "passwordfile.pwd" for output as #1
   'de string met het nieuwe wachtwoord wegschrijven 
close #1