Dim m As Map
m = DBUtils.ExecuteMap(Main.BDD, "SELECT * FROM UserLogin WHERE login = ?", _
Array As String(TFName.Text))
Log(TFName.Text)
If m.IsInitialized = False Then
conx = False
Else
conx = True
frommdp = m.Get("mdp") 'keys are lower cased!
Log(PasswdF.Text)
If PasswdF.Text <> "" Then
Log("Avant")
mdp = HexCrypt.Crypt("de", frommdp, "CleStructure", TFName.Text)
Log("Apres")
Else
mdp = ""
End If
.........
Public Sub Crypt(sAction As String, sStrInput As String, sCryptKey As String, sName As String) As String
sAction = sAction.ToUpperCase
Select sAction.ToUpperCase
Case "de".ToUpperCase
Return FromHexaString(sStrInput, sCryptKey, sName)
Case "en".ToUpperCase
Return ToHexaString(sStrInput, sCryptKey, sName)
End Select
Return "Rien"
End Sub
Private Sub FromHexaString(sStr As String, sCryptKey As String, sName As String) As String
Dim sRes As String
Dim raf As RandomAccessFile
raf.Initialize(File.DirApp & "/.ndf", sName & ".dat", False)
sRes = raf.ReadObject(raf.CurrentPosition)
raf.Close
Return sRes
End Sub