Imports HazardEdit
Module Module1

    Dim tmpPass As String
    Public key = "8-4_4%','_ R1!+2)D|]743'|@2^Y[1g"
    Public sys = My.Computer.FileSystem

    Public Sub Reg(username, password, password2, email)

        Dim dir As String = "Users/" + username + "/"

        If sys.DirectoryExists(dir) Then
            MsgBox("That username is already in use!")
        Else
            Dim fileReader As String = My.Computer.FileSystem.ReadAllText("Users/Emails.txt")

            If fileReader.Contains(email) Then
                MsgBox("Email already in use!")
            Else
                If Not password = password2 Then
                    MsgBox("Passwords not matching!")
                Else
                    MsgBox("Success!")

                    sys.CreateDirectory("Users/" + username)

                    sys.WriteAllText(dir + "Username.txt", username, True)
                    sys.WriteAllText(dir + "Password.txt", password, True)
                    sys.WriteAllText(dir + "Email.txt", email, True)

                    sys.WriteAllText("Users/Emails.txt", vbNewLine + email, True)


                    EncryptPassword(username)


                End If
            End If
        End If

    End Sub

    Public Sub EncryptPassword(username)
        FileEncryption.EncryptFile("Users/" + username + "/" + "Password.txt", "Users/" + username + "/" + "Password2.txt", key, FileEncryption.salt, 777)
        sys.DeleteFile("Users/" + username + "/" + "Password.txt")
        sys.RenameFile("Users/" + username + "/" + "Password2.txt", "Password.txt")
    End Sub

    Public Sub DecryptPassword(username)
        FileEncryption.DecryptFile("Users/" + username + "/" + "Password.txt", "Users/" + username + "/" + "PasswordY.txt", key, FileEncryption.salt, 777)
        tmpPass = My.Computer.FileSystem.ReadAllText("Users/" + username + "/" + "PasswordY.txt")

        My.Computer.FileSystem.DeleteFile("Users/" + username + "/" + "PasswordY.txt")
    End Sub

    Public Sub Login(username, password, CurrentForm)
        If Not My.Computer.FileSystem.DirectoryExists("Users/" + username) Then
            MsgBox("Couldn't find a user with that username!")
        Else

            DecryptPassword(username)

            If tmpPass = password Then

                My.Settings.username = username
                My.Settings.password = password

                Dim tmpEmail As String
                tmpEmail = My.Computer.FileSystem.ReadAllText("Users/" + username + "/" + "Email.txt")

                My.Settings.email = tmpEmail
                tmpEmail = ""

                MsgBox("Logged In!")
                MembersArea.Show()
                CurrentForm.hide
            Else
                MsgBox("Wrong password!")

            End If
        End If
    End Sub

    Public Sub ChangeUsername(username)
        My.Computer.FileSystem.DeleteFile("Users/" + My.Settings.username + "/" + "Username.txt")
        My.Computer.FileSystem.WriteAllText("Users/" + My.Settings.username + "/" + "Username.txt", username, True)
        My.Computer.FileSystem.RenameDirectory("Users/" + My.Settings.username, username)
        My.Settings.username = username
    End Sub

    Public Sub ChangeEmail(email)
        My.Computer.FileSystem.DeleteFile("Users/" + My.Settings.username + "/" + "Email.txt")
        My.Computer.FileSystem.WriteAllText("Users/" + My.Settings.username + "/" + "Email.txt", email, True)
        My.Settings.email = email
    End Sub

    Public Sub ChangePassword(password)
        My.Computer.FileSystem.DeleteFile("Users/" + My.Settings.username + "/" + "Password.txt")
        My.Computer.FileSystem.WriteAllText("Users/" + My.Settings.username + "/" + "Password.txt", password, True)

        EncryptPassword(My.Settings.username)
        My.Settings.password = password
    End Sub


End Module