Mirage Source

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

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

RightPassword = Player(Index).Password

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

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

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

    FileName = App.Path & "\Accounts\" & Trim(Name) & ".zap"
    PasswordOK = False
       
    'If AccountExist(Name) Then
       
    nFileNum = FreeFile
    Open FileName For Binary As #nFileNum
       
     
              Get Trim(Name), , Rightpassword '= nFileNum.Password
              Password = Rightpassword
              Rightpassword = Player(Index).Password
           ' Password = Rightpassword
                'RightPassword = Player(Index).Password
       
        If UCase(Trim(Password)) = UCase(Trim(Rightpassword)) Then
               If AccountExist(Name) Then
            PasswordOK = True
                  End If
    End If
End Function

 Put CharName, , RightPassword

Get Trim(Name), , Rightpassword

Password = Rightpassword

Rightpassword = Player(Index).Password

Function PasswordOK(ByVal Name As String, ByVal Password As String) As Boolean
Dim FileName As String
Dim RightPassword As String * NAME_LENGTH  'An empty string of the right length, this lets us pull the right ammount of bytes without using a byte array.... easy peasy
Dim nFileNum As Integer

    PasswordOK = False 'Set it to false incase there's an error
   
    If AccountExist(Name) Then 'If the account is there...
        FileName = App.Path & "\Accounts\" & Trim$(Name) & ".vac"
        nFileNum = FreeFile
        Open FileName For Binary As #nFileNum 'Open the file
       
        Get #nFileNum, 20, RightPassword  'Pull the password from the binary encoded file.  The password's first letter starts on byte 20.  I know this because I know how the file was saved... it may be different for you.  Because RightPassword is a fixed length string, it will pull the next 20 bytes out automaticly.  For more information about how this works, see my binary tutorials
       
        Close #nFileNum 'Dont leave files open...
       
        If Trim$(Password) = Trim$(RightPassword) Then 'compare... Mine is case sensitive, add UCase$ or LCase$ to make it not.
            PasswordOK = True
        End If
    End If
   
End Function