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 ToHexaString(sStr As String, sCryptKey As String, sName As String) As String
Dim raf As RandomAccessFile
raf.Initialize(File.DirApp,sName & ".dat",False)
raf.WriteEncryptedObject(sStr,sCryptKey,raf.CurrentPosition)
raf.Close
Dim TR As TextReader
TR.Initialize(File.OpenInput(File.DirApp,sName & ".dat"))
Dim sRes As String
sRes = TR.ReadLine
TR.Close
Return sRes
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, sName & ".dat", False)
sRes = raf.ReadEncryptedObject(sCryptKey, raf.CurrentPosition)
raf.Close
Return sRes
End Sub