Hi All,
The following code will encrypt a file, but will not decrypt it (Only de header
as long as I can see).
When encrypted, the name becomes unreadable...
proc main()
If !File("CLIENTS.DBF")
DbCreate("CLIENTS", {{"NAME", "C", 40, 0}})
Use CLIENTS
Append Blank
CLIENTS->NAME := 'Ivanhoe'
Close CLIENTS
EndIf
REQUEST SIXCDX
Use CLIENTS Via "SIXCDX" Exclusive NEW
? "NAME = "+CLIENTS->NAME
If sx_TableType() = 1
? "Table not encrypted, will be encrypted"
sx_DBFencrypt("PASS")
Else
? "Table encrypted, will be decrypted"
sx_DBFdecrypt("PASS")
EndIf
? "NAME after encrypting or decrypting = "+CLIENTS->NAME
Close CLIENTS
_________________________________________________________________
Discover the new Windows Vista
http://search.msn.com/results.aspx?q=windows+vista&mkt=en-US&form=QBRE_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
