01-08-2006, 04:55 PM
I guess theres a bug I can succesfully create an account with no problem but when I try to login it says wrong password
Heres my Passwordok function
I been trying alot to make it load right but I cant make it work >.
Heres my Passwordok function
Code:
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
I been trying alot to make it load right but I cant make it work >.