I am quite confused how to encrypt the password store in the database so that if the database found by pupil it cannot take password from the table .Anyone can show me how to encrypt password .I m using microsoft acess as the databese.
Public Function SimpleCrypt(ByVal Text As String)
' Encrypts/decrypts the passed string using
' a simple ASCII value-swapping algorithm
Dim strTempChar As String, i As Integer
For i = 1 To Text.Length
If Asc(Mid$(Text, i, 1)) < 128 Then
strTempChar = _
CType(Asc(Mid$(Text, i, 1)) + 128, String)
ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
strTempChar = _
CType(Asc(Mid$(Text, i, 1)) - 128, String)
End If
Mid$(Text, i, 1) = _
Chr(CType(strTempChar, Integer))
Next i
Return Text
End Function