Dim MyPassword As String ' = "ABC123" ... OK This is Removed !
'And This ...
' Dim raf As RandomAccessFile
' raf.Initialize(File.DirInternal, "1.dat", False)
' raf.WriteEncryptedObject(MyPassword, "some secret password", raf.CurrentPosition)
' raf.Close
Dim raf As RandomAccessFile
raf.Initialize(File.DirInternal, "1.dat", False)
MyPassword = raf.ReadEncryptedObject("some secret password", raf.CurrentPosition)
raf.Close
If MyPassword = "ABC123" Then .... ' @@@ isnt this defeating the purpose ???
'Open the Safe