73 lines
1.5 KiB
Plaintext
73 lines
1.5 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
How to DBFEncrypt/DBFDecrypt EXISTING DBF
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cFile1 := "test\test.dbf"
|
|
|
|
?
|
|
? 'Opening TEST.DBF and Copy to NEWTEST.DBF ...'
|
|
USE cFile1 ALIAS MYALIAS EXCLUSIVE
|
|
sx_CopyFile( "NEWTEST.DBF" )
|
|
USE "NEWTEST.DBF" ALIAS NEWTEST EXCLUSIVE
|
|
sx_Close( "MYALIAS" )
|
|
? 'Now BROWSE NEWTEST .. Press any key ...'
|
|
PAUSE
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|
|
CLS
|
|
|
|
?
|
|
? 'Now ENCRYPTING NEWTEST.DBF'
|
|
? 'And BROWSE with CORRECT PASSWORD ... Press any key ...'
|
|
PAUSE
|
|
USE "NEWTEST" ALIAS NEWTEST EXCLUSIVE
|
|
SX_SETPASSWORD( "HARBOUR" ) // Password
|
|
? 'Working ...'
|
|
? SX_DBFEncrypt()
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|
|
|
|
CLS
|
|
?
|
|
? 'BROWSE with WRONG PASSWORD .. Press any key ...'
|
|
PAUSE
|
|
USE "NEWTEST" ALIAS MYALIAS EXCLUSIVE
|
|
SX_SETPASSWORD( "XHARBOUR" ) // Wrong Password
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|
|
|
|
CLS
|
|
?
|
|
? 'BROWSE with CORRECT PASSWORD .. Press any key ...'
|
|
PAUSE
|
|
USE "NEWTEST" ALIAS MYALIAS EXCLUSIVE
|
|
SX_SETPASSWORD( "HARBOUR" ) // Wrong Password
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|
|
|
|
CLS
|
|
?
|
|
? 'Now PHYSICALLY DECRYPTING NEWTEST.DBF'
|
|
? 'Reset PASSWORD and BROWSE with NO PASSWORD.. Press any key ...'
|
|
PAUSE
|
|
USE "NEWTEST" ALIAS MYALIAS EXCLUSIVE
|
|
SX_SETPASSWORD( "HARBOUR" ) // Wrong Password
|
|
? sx_DBFDecrypt()
|
|
SX_SETPASSWORD( "" ) // Reset Password
|
|
// No longer required because DBF is normal now
|
|
CLS
|
|
BROWSE
|
|
CLOSE ALL
|