Prepare for the worst – IT security issues continue to plague companies of all sizes. From being an area where companies could prepare well and prevent issues, the sheer complexity of IT today means that many companies are focusing on when they get hacked, not if.
method _save
example what I have at the moment:
oKontakt := TData():New(,Setup():Daten + "datagast\kontakte")
oKontakt:use()
oKontakt:append()
oKontakt:KDNR := VAL(cKdNr)
if ::lAdd = .t.
oKontakt:Text := "neue Adresse"
else
oKontakt:Text := "Änderung"
endif
oKontakt:datum := date()
oKontakt:zeit := val(substr(time(),1,2) + substr(time(),4,2) )/100
//oKontakt:user_time :=
oKontakt:save()
oKontakt:end()
::super():save()
Dr. Markus Knasmüller hat Ihren Gruppenbeitrag kommentiert: "O.T.: GDPR - General Data Protection Regulation"
"Meine Vorredner haben ja schon einiges dazu gesagt, aber egal wie es ist viel zu tun, und es wird eine noch größere Herausforderung als die RKSV traue ich mir sagen. Wir haben mal eine XING-Gruppe gegründet: https://www.xing.com/communities/groups ... df-1098433, vielleicht wird diese ja ein ähnlicher Erfolg wie diese Gruppe. BTW das Gesetz ist schon beschlossen, wenn tatsächlich wohl auch etwas unglücklich."
https://www.xing.com/via/communities/po ... t=35316874
Enrico Maria Giordano wrote:This is a way:
- Code: Select all Expand view RUN
DBINFO( DBI_PASSWORD, cPsw )
EMG
hmpaquito wrote:Enrico,Enrico Maria Giordano wrote:This is a way:
- Code: Select all Expand view RUN
DBINFO( DBI_PASSWORD, cPsw )
EMG
How to ? Harbour or xHarbour ?
hmpaquito wrote:With memo fields too ?
fSet = ! pArea->fHasMemo && HB_IS_STRING( pPasswd ) && ( ! fRaw || nLen == 8 );
-
fEncrypt ? ! pArea->fTableEncrypted && ! pArea->fHasMemo :
pArea->fTableEncrypted )
-
/* This enables record encryption in update operation */
if( pArea->bCryptType == DB_CRYPT_SIX && ! pArea->fHasMemo )
pArea->fEncrypted = HB_TRUE;
fSet = ! pArea->fHasMemo && HB_IS_STRING( pPasswd ) && ( ! fRaw || ulLen == 8 );
-
fEncrypt ? ! pArea->fTableEncrypted && ! pArea->fHasMemo :
pArea->fTableEncrypted )
-
pArea->fEncrypted = pArea->pCryptKey != NULL && ! pArea->fHasMemo;
-
if( ! pArea->fHasMemo )
pArea->fEncrypted = TRUE;
-
if( pArea->bCryptType == DB_CRYPT_SIX && ! pArea->fHasMemo )
pArea->fEncrypted = TRUE;
hmpaquito wrote:So, it seems dbf files with memo field is not possible for encrypting, neither in harbour nor in xharbour.
hmpaquito wrote:do you use DBI_PASSWORD in production programs ? pls
hmpaquito wrote:how to encrypt dbf files ? pls
DBINFO( DBI_PASSWORD, cPsw )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 47 guests