Jan my bad, Typo and I did not proof read it, I am depending too much on spell check LOL
Maybe if I could R:Style my emails? Marc From: jan johansen Sent: Thursday, June 03, 2010 1:46 PM To: RBASE-L Mailing List Subject: [RBASE-L] - Re: Data security Marc, >Time to get my Top Terrific thinking cap on! Maybe my age is showing. I thought it was Tom Terrific? Jan -----Original Message----- From: "MDRD" <[email protected]> To: [email protected] (RBASE-L Mailing List) Date: Thu, 3 Jun 2010 10:47:33 -0500 Subject: [RBASE-L] - Re: Data security Thanks Razzak I knew this was possible but thought the user would need the password to restore the backup so I never looked into it further. Time to get my Top Terrific thinking cap on! Showing my age now! Marc -------------------------------------------------- From: "A. Razzak Memon" <[email protected]> Sent: Thursday, June 03, 2010 9:47 AM To: "RBASE-L Mailing List" <[email protected]> Subject: [RBASE-L] - Re: Data security > At 09:57 AM 6/3/2010, Marc Schluter wrote: > >>We have a user and owner password on the DB but if a user looses >>their backup how secure is that data? Could someone use a viewer >>to read the data in the RB2 file? >> >>I am wondering if I should tell my users to encrypt their backups? > > Marc, > > The best approach is to use UNLOAD ALL with "ENCRYPT" technique > to secure your R:BASE backups. > > You may totally automate the entire process as an in-line EEP, or > Custom Form Action (CFA) in External Form File, if you wish. > > Once you have successfully created the encrypted backup, you may > "RBZip" all files and then "RSFTP" the zipped file to your secure > off-site server. > > The entire process can be incorporated in your R:BASE application! > > Here's how: > > -- Example > -- Database_Backup_with_Encryption.RMD > -- A. Razzak Memon > -- June 3, 2010 > -- Supported Versions: > -- R:BASE 7.6 for Windows, R:BASE Turbo V-8 and R:BASE eXtreme 9.0 (32/64) > LABEL Start > CLS > SET VAR vCaption TEXT = ' Backup Entire Database' > SET VARIABLE vDialogMessage TEXT = + > ((CHAR(013))+' You Have Selected to Backup the Entire Database!') > DIALOG .vDialogMessage vYesNo vEndKey Yes + > CAPTION .vCaption ICON STOP + > OPTION TITLE_FONT_COLOR RED + > |TITLE_FONT_NAME VERDANA + > |TITLE_FONT_SIZE 10 + > |TITLE_BOLD OFF + > |BUTTON_OK_CAPTION &Continue + > |BUTTON_CANCEL_CAPTION C&ancel + > |BUTTON_FONT_COLOR GREEN + > |THEMENAME Vista CG > IF vYesNo = 'No' OR vEndKey = '[Esc]' THEN > GOTO Done > ENDIF > -- Define Global Variables > SET VAR vDBName TEXT = NULL > SET VAR vFolderName TEXT = NULL > SET VAR vBackupFileName TEXT = NULL > SET VAR vDirectoryFileName TEXT = NULL > SET VAR vYesNo TEXT = 'YES' > SET VAR vEndKey TEXT = NULL > SET VAR vPause3Message TEXT = NULL > SET VAR vPause4Message TEXT = NULL > -- Step 1 > LABEL GetDBName > IF (CVAL('DATABASE')) <> 'RRBYW14' OR (CVAL('DATABASE')) IS NULL THEN > CONNECT RRBYW14 IDENTIFIED BY NONE > ENDIF > SET VAR vDBName = (CVAL('DATABASE')) > -- Step 2 > LABEL CheckBackupFolder > IF (CHKFILE((CVAL('CURRDIR'))+'\Backup')) <> 1 THEN > MD Backup > ENDIF > SET VAR vFolderName = ((CVAL('CURRDIR'))+'\Backup') > -- Step 3 > LABEL BackupFileName > -- Backup File Name Format: > -- DatabaseName_CurrentDate_CurrentTime.BKP > -- DatabaseName_CurrentDate_CurrentTime.LOB > -- Procudure Used: UNLOAD Command > SET VAR vBackupFileName = + > ((CVAL('DATABASE'))+'_'+(FORMAT(.#NOW,'MMDDYYYY_HHNN'))+'.BKP') > -- Step 4 > LABEL ConfirmData > CLS > SET VAR vDialogMessage = + > ((CHAR(013))+'Database:'+(CHAR(009))&.vDBName+(CHAR(013))+ + > 'Backup Folder:'+(CHAR(009))&.vFolderName+(CHAR(013))+ + > 'Backup Files:'+(CHAR(009))&.vBackupFileName+'.BKP > and'&.vBackupFileName + > +'.LOB') > CLS > DIALOG .vDialogMessage vYesNo vEndKey YES + > CAPTION ' Please Confirm Everything' + > ICON APP + > OPTION MESSAGE_FONT_NAME VERDANA + > |MESSAGE_FONT_COLOR GREEN + > |MESSAGE_FONT_SIZE 9 + > |THEMENAME Vista CG > IF vEndKey = '[Esc]' OR vYesNo = 'No' THEN > GOTO Done > ENDIF > -- Final Step > LABEL DoBackup > CLS > SET VAR vPause3Message = + > ((CHAR(013))+'Database Backup Routine in Process - Please Wait ...') > PAUSE 3 USING .vPause3Message + > CAPTION .vCaption + > ICON APP + > OPTION GAUGE_VISIBLE ON + > |GAUGE_COLOR 2708091 + > |GAUGE_INTERVAL 10 + > |MESSAGE_FONT_NAME VERDANA + > |MESSAGE_FONT_SIZE 8 + > |MESSAGE_FONT_COLOR RED + > |THEMENAME Vista CG > SET VAR vDirectoryFileName = (.vFolderName+'\'+.vBackupFileName) > SET VAR vPause4Message = + > ((CHAR(013))+'Now Creating'&.vDirectoryFileName) > PAUSE 4 USING .vPause4Message + > CAPTION .vCaption + > ICON APP + > OPTION MESSAGE_FONT_NAME VERDANA + > |MESSAGE_FONT_SIZE 9 + > |MESSAGE_FONT_COLOR RED + > |THEMENAME Vista CG > -- Create Output File with R:BASE Encryption > -- Encryption password is case sensitive > OUTPUT .vDirectoryFileName ENCRYPT password > SET NULL -0- > UNLOAD ALL > OUTPUT SCREEN > PAUSE FOR 2 > SET NULL ' ' > CLS > PAUSE 2 USING 'Backup Process Completed Successfully!' + > CAPTION .vCaption + > ICON Confirm + > BUTTON 'Press any key to continue ...' + > OPTION MESSAGE_FONT_NAME VERDANA + > |MESSAGE_FONT_SIZE 10 + > |MESSAGE_FONT_COLOR GREEN + > |BUTTON_COLOR WHITE + > |BUTTON_FONT_COLOR GREEN + > |THEMENAME Vista CG > LABEL Done > CLS > CLEAR VAR vDBName,vFolderName,vBackupFileName,vDirectoryFileName,vCaption, > + > vDialogMessage,vYesNo,vEndKey,vPause3Message,vPause4Message > RETURN > -- End here ... > > Hope that helps! > > Very Best R:egards, > > Razzak. > >
