Multi Username og Password ???

well you could use MS Access (database)and its buildt in security, otherwise you need some way of saving the user information and from stopping them getting at it!

Hæng på, svar lige om lidt! :)

Hej..

Opret to tekstboxe. Den ene skal hede txtbruger den anden txtpassword

Opret en commandbutton som skal hede cmdOpret.

Opret en list som skal hede listBrugere.


Skriv denne kode i formload:

-----------form load-----------
Private Sub Form_Load()
cmdOpret.Caption = "Opret bruger"
txtBruger.Text = ""
TXTPassword.Text = ""
TXTPassword.PasswordChar = "*"

On Error GoTo fejl

igen:


Dim Xbruger As String
listBrugere.Clear

Open "c:\windows\system\log-KantoRaZa.txt" For Input As #1
Do While EOF(1) = False
    Line Input #1, Xbruger
    listBrugere.AddItem Xbruger
Loop
Close #1


Exit Sub:
fejl:
' Opretter filen

Open "c:\windows\system\log-KantoRaZa.txt" For Output As #1
    Print #1, "Admin"
Close #1

Open "c:\windows\system\Admin.txt" For Output As #1
    Print #1, "hej" ' password for admin
Close #1

GoTo igen

End Sub

---------
skriv denne i knappen cmdOPRET.

-----------CMD OPRET-----------------

Private Sub cmdOpret_Click()
If txtBruger.Text = "" Or TXTPassword.Text = "" Then: GoTo fejl
''''''''''''''''''

listBrugere.AddItem UCase(txtBruger.Text)

Open "c:\windows\system\log-KantoRaZa.txt" For Output As #1
    For n = 0 To listBrugere.ListCount - 1
        Print #1, UCase(listBrugere.List(n))
    Next n
Close #1

' Brugerens password
Open "c:\windows\system\" & UCase(txtBruger.Text) & ".txt" For Output As #1
    Print #1, UCase(TXTPassword.Text) ' password for brugeren
Close #1


Exit Sub
fejl:

MsgBox "Du skal udfylde alle felterne!!!", vbCritical
End Sub



-------------------------

Puha!

Jeg skriver hvordan du logger på lige om lidt!

/KantoRaZa\

Opret en knap som hedder LoOn:

Private Sub logon_Click()
On Error GoTo fejl

Dim BR As String
BR = UCase(txtBruger.Text)

For n = 0 To listBrugere.ListCount - 1
    If UCase(listBrugere.List(n)) = BR Then
        ' rigtig bruger
        GoTo videre
        Else
        MsgBox "Brugeren findes ikke!!", vbCritical
        Exit Sub
    End If
Next n

videre:

' Checker password
Dim WORDx As String

Open "c:\windows\system\" & UCase(txtBruger.Text) & ".txt" For Input As #1
    Line Input #1, WORDx
Close #1

WORDx = UCase(WORDx)

If UCase(TXTPassword) = WORDx Then
    MsgBox "OK du er logget ind!", vbInformation
End If



fejl:
End Sub



Håber at det kunne hjælpe!
vender tilbage i morgen!!

/KantoRaZa\

Puuuhhaaaaaaaaaa!

Det kræver også 200 point!

Et helt program på bare 10 min..

he...  :o)
takker !

Jeg skal lige teste det !
Så hvis der er noget der ikke virke kan du så ikke lige hjælpe mig igen ?

I may have over seen something but where is the security?

?

jeg har fået hjælp af en fra PSC !!!

Terry -> Hvorfor skriver du engelsk ??

light>> det som terry mener er at det program er ca. lige så svært at "bryde" som det er at gå ind af en åben dør.

he he !

så er det da godt jeg ikke brugte det men jeg gav ham alligevel nogle points ! Jeg har lavet noget med at skrive til RegDB men så er jeg lige igang med at kryptere det !!

er det sikkert nok til at kunne bruges på win9x systemer ?

Det er let at lave det sværere at bryde, du skal bare tænke dig om!

Tak for de 140 point, det var også tidskrævende at lave.

jeg fik også en ide eller to så selv tak !