Mirage Source

Function PasswordOK(ByVal Name As String, ByVal Password As String) As Boolean
Dim FileName As String
Dim RightPassword As String * NAME_LENGTH
Dim nFileNum As Integer

    PasswordOK = False
   
    If AccountExist(Name) Then
        FileName = App.Path & "\Accounts\" & Trim$(Name) & ".dat"
        nFileNum = FreeFile
        Open FileName For Binary As #nFileNum
       
        Get #nFileNum, 20, RightPassword
       
        Close #nFileNum
       
        If UCase$(Trim$(Password)) = UCase$(Trim$(RightPassword)) Then
            PasswordOK = True
        End If
    End If
   
End Function

Sub SavePlayer(ByVal index As Long)
Dim FileName As String
Dim i As Long
Dim n As Long
Dim nFileNum As Integer

    FileName = App.Path & "\Accounts\" & Trim$(Player(index).Login) & ".dat"
   
    If FileExist(FileName, True) Then Kill FileName
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum