enrypt decrypt

[naughtyboy_ading]

Hello VB people

could you help me solve my problem in decrypting and encrypting. Im using Visual Basic 6.0 as front end and MS ACCESS 2003 as my back end.
My problem is even i enter the correct user name and password still the message box is "Unauthorized user"

Here is my code to check.

Private Sub Command1_Click()
Static counter As Integer
Set userdb = OpenDatabase(App.Path & "\finance.mdb")
Set usertb = userdb.OpenRecordset("Login", dbOpenTable)
usertb.Index = "Uname"
usertb.Seek "=", Text1.Text
If usertb.NoMatch Then
MsgBox "User ID is not valid", vbInformation
x.Text = Val(x.Text) + 1
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus

If Val(x.Text) > 3 Then
MsgBox "Unauthorized user"
Unload Me
Exit Sub
End If

Else
If Decrypt(usertb.Fields("Pass")) = Text2.Text Then
VarTest = 0

Command1.Visible = False
Command2.Visible = False

MsgBox "user access granted"
uservar = Text1.Text
usertb.Close
userdb.Close
MAIN.Show
Unload Me
Else
MsgBox ("Wrong password")
x.Text = Val(x.Text) + 1
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
If Val(x.Text) > 3 Then
MsgBox "**** ka!", vbInformation
Unload Me
Exit Sub
End If
End If
End If

End Sub

Module:
Global VarTest As String
Global CatchLogger As String
Global LoggeR As String

Function Encrypt(InputTxt As String)
For ctr = 1 To Len(InputTxt)
Encrypt = Encrypt + Chr(Asc(Mid(InputTxt, ctr, 1)) + 69)
Next ctr
End Function

Function Decrypt(InputTxt As String)
For ctr = 1 To Len(InputTxt)
Decrypt = Decrypt + Chr(Asc(Mid(InputTxt, ctr, 1)) - 69)
Next ctr
End Function

[Kasracer]

Im using Visual Basic 6.0 as front end and MS ACCESS 2003 as my back end.

Wrong forum. You posted in the Visual Basic .Net forum. You want the Classic VB forum.

Hopefully a mod will move this shortly