Hi Everyone,

Can You help me on Cryptor 5.0 from Xitech.

I am in the initial stages of testing the Cryptor 5.0 from Xitech.
I want to encrypt all the dbf files of a folder.
I have written the following procedure:
*------------------------------------------------------------------------
clea all
Set Safe Off
set talk on
clea
*------------------------------------------------------------------------
XiCr = CREATEOBJECT("XitechCryptor.Cryptor")
XiCr.Deep=.t.
* Watch Visual FoxPro
XiCr.WatchDLL("VFP6.EXE") && Visual FoxPro 6.0 IDE
XiCr.WatchDLL("VFP6R.DLL") && Visual FoxPro 6.0 Runtime
XiCr.WatchDLL("VFP6T.DLL") && Visual FoxPro 6.0 Runtime MT

XiCr.Register("G:\1\*.dbf","pass",0)
? XiCr.Register("G:\1\*.dbf","pass",0)
create table 1\mydbf (name c(30))
brow
use
? XiCr.Unregister("G:\1\*.dbf")
use G:\1\mydbf && it is not encrypted.
*Q: How do I encrypt all dbf files in a folder? Below procedure works
for a single file.
*------------------------------------------------------------------------
clea all
XiCr = CREATEOBJECT("XitechCryptor.Cryptor")
XiCr.Deep=.t.

* Watch Visual FoxPro
XiCr.WatchDLL("VFP6.EXE") && Visual FoxPro 7.0 IDE
XiCr.WatchDLL("VFP6R.DLL") && Visual FoxPro 7.0 Runtime
XiCr.WatchDLL("VFP6T.DLL") && Visual FoxPro 7.0 Runtime MT

XiCr.Register("G:\1\mydbf.dbf","pass",0)
? XiCr.Register("G:\1\mydbf.dbf","pass",0)
create table G:\1\mydbf (clrcode c(6), clrname c(30) )
brow
use
? XiCr.Unregister("G:\1\mydbf.dbf")
use G:\1\mydbf && it is encrypted.
*------------------------------------------------------------------------


Regards,
kmedia (AT) rediffmail (DOT) com.

When I last use Cryptor, I believe you had to encrypt them one at a time - there was no "group" encrypt. (After all if you are really paranoid, you could encrypt each one with a different key!) You could always use ADIR(aDBFS, "*.DBF") and use the array to loop through the files in that directory.

Rick

"kmedia" <kmedia (AT) rediffmail (DOT) com> wrote