[FiRe]

I have this:

Code:

'the code to read the file contents
pass = tsStream.ReadAll
'now decode the contents
pass = DeCode(pass)

In a module I have:

Code:

Public pass As String

The decode function can be downloaded at:
http://www.planet-source-code.com/vb...47632&lngWId=1

The word 'admin' is encrypted in the file and I read it and decode it. If I use:

Code:

MsgBox DeCode(pass)

it will popup 'admin' but if I apply it to a password script:

Code:

ps = InputBox("Please enter password:")
If (ps = pass) Then
    Timer1.Enabled = False
    End
Else
    MsgBox "Incorrect Password!", vbExclamation, "Password"
End If
End Sub

it just gives incorrect password :|

[chirag]

Hi,

try!!!
If (trim(ps) = trim(pass))


also if you don't want to keep password case sensitive...
try!!
If (ucase(trim(ps)) = ucase(trim(pass)))

[FiRe]

i solved it!

'the code to read the file contents
pass = tsStream.ReadAll

should be:

'the code to read the file contents
pass = tsStream.ReadLine