Public Class frmLive

    Dim prfAdm As Profile

    Private Sub frmLive_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        btnAcc.Text = "Go!"
        btnAcc.BackColor = Color.LimeGreen
        btnExt.Text = "Exit"
        btnExt.BackColor = Color.Red

        lblUsr.Text = "User ID"
        lblPsw.Text = "Passcode"

        Me.Text = "LiveWire DBSys"
    End Sub


    Private Sub btnAcc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAcc.Click
        Dim passcheck, usercheck As String
        Dim MemoryLoc As Integer


        usercheck = Trim(txtUsr.Text)

        If txtUsr.Text = "admin" Then
            If txtPsw.Text = "admin" Then
                AddUser()
            Else
                MsgBox("Wrong Admin Password")
                GoTo finish
            End If

        Else

            MemoryLoc = MemoryLocate(Mid(usercheck, 1, 8))

            FileOpen(1, "C:\psw.temp", OpenMode.Random, OpenAccess.ReadWrite, , Len(prfAdm))
            FileGet(1, prfAdm, MemoryLoc)
            passcheck = Trim(prfAdm.Password)
            FileClose(1)
            If passcheck = txtPsw.Text Then
                MsgBox("Welcome to LiveWire!")
            Else
                MsgBox("Login Failed. Try Again")
            End If
        End If

finish:


    End Sub


    Private Function MemoryLocate(ByVal usrname As String)
        Dim cconv(0 To usrname.Length - 1) As String
        Dim iCount = 1, asctotal As Integer

        For iCount = 1 To usrname.Length
            cconv(iCount - 1) = Asc(Mid(usrname, iCount, 1))
            asctotal += cconv(iCount - 1)
        Next

        MemoryLocate = asctotal Mod 197

    End Function

    Private Function AddUser()
        Dim username, password As String
        Dim MemoryLoc As Integer

        username = InputBox("Enter an Appropriate Username (8 Characters Max)")
        password = InputBox("Now, Enter a Password to the max of 8 Characters, text and numbers only!")

        MemoryLoc = MemoryLocate(username)

        FileOpen(1, "C:\psw.temp", OpenMode.Random, OpenAccess.ReadWrite, , Len(prfAdm))
        prfAdm.UserName = Trim(username)
        prfAdm.Password = Trim(password)

        FilePut(1, prfAdm, MemoryLoc)

        FileClose(1)

    End Function

    Private Sub btnExt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExt.Click
        MsgBox("Thank You For Using LiveWire!")
        Me.Close()
    End Sub
End Class