Amigos buen dia.
Necesito me puedan ayudar por favor.
Requiero proteger una informaci贸n almacenada en una DBF, y para ello existe un campo Rut, que identifica a un paciente, requiero Encriptarlo, pero ademas debe ser un campo indice, cosa que cuando pida la informacion de ese rut, el sistema me entregue todo los examenes asociados.
Como puedo Encriptar este campo y que adem谩s sea parte del archivo indice?
Muchos Saludos.
Antonio.
FWH 17.9
#Include "FiveWin.ch"
FUNCTION Main()
LOCAL ACRIPA, ACRIPB, ACRIPC, ACRIPD, ACRIPE, ACRIPF, CRIPTA, CRIPTB, ;
CRIPTC, CRIPTD, CRIPTE, CRIPTF
// Texto a encryptar:
LOCAL Texto_01 := 0
LOCAL Texto_02 := "TEXT02"
LOCAL Texto_03 := "TEXTO03"
LOCAL DATE_4 := DTOC( Date() )
LOCAL EDIT_6 := "EDICION6"
LOCAL CHECK_5 := "CHECKOUT5"
// -------------------- Encriptado -----------------------------*
AcripA := Texto_01
AcripB := ALLTRIM( LOWER( Texto_02 ) )
AcripC := ALLTRIM( LOWER( Texto_03 ) )
AcripD := DATE_4
AcripE := CHECK_5
AcripF := EDIT_6
// --------------------------------------------------------------*
// ENCRYPT
CriptA := Encrypt( AcripA, Chr( 077 ) + Chr( 085 ) + Chr( 083 ) + Chr( 084 ) + Chr( 065 ) )
CriptB := Encrypt( AcripB, Chr( 077 ) + Chr( 085 ) + Chr( 083 ) + Chr( 084 ) + Chr( 065 ) )
CriptC := Encrypt( AcripC, Chr( 077 ) + Chr( 085 ) + Chr( 083 ) + Chr( 084 ) + Chr( 065 ) )
CriptD := Encrypt( AcripD, Chr( 077 ) + Chr( 085 ) + Chr( 083 ) + Chr( 084 ) + Chr( 065 ) )
CriptE := Encrypt( AcripE, Chr( 077 ) + Chr( 085 ) + Chr( 083 ) + Chr( 084 ) + Chr( 065 ) )
CriptF := Encrypt( AcripF, Chr( 077 ) + Chr( 085 ) + Chr( 083 ) + Chr( 084 ) + Chr( 065 ) )
// --------------------------------------------------------------*
? ACRIPA, ACRIPB, ACRIPC, ACRIPD, ACRIPE, ACRIPF, CRIPTA, CRIPTB, ;
CRIPTC, CRIPTD, CRIPTE, CRIPTF
/*
USE TESTE
APPEND BLANK
REPLACE CODE WITH CriptA
REPLACE FIRST WITH CriptB
REPLACE LAST WITH CriptC
REPLACE BIRTH WITH CriptD
REPLACE MARRIED WITH CriptE
REPLACE BIO WITH CriptF
*/
RETURN NIL
// FIN / ENDremtec wrote:Amigos buen dia.
Necesito me puedan ayudar por favor.
Requiero proteger una informaci贸n almacenada en una DBF, y para ello existe un campo Rut, que identifica a un paciente, requiero Encriptarlo, pero ademas debe ser un campo indice, cosa que cuando pida la informacion de ese rut, el sistema me entregue todo los examenes asociados.
Como puedo Encriptar este campo y que adem谩s sea parte del archivo indice?
Muchos Saludos.
Antonio.
FWH 17.9
function fnct_prueba()
聽Local cRut, cShow
聽cRut:=Encrypt('Prueba de Encriptacion')
聽msginfo(cRut)
聽cShow:='Desencriptar->'+Decrypt(cRut)
聽msginfo(cShow)
聽*******************
聽* Para Indexar
聽*******************
聽// 聽Tabla->Field_Name:=Encrypt(cRut)
聽// 聽Index on Decrypt(Tabla->Field_Name) to index1
return .t.Antonio
Two things :
1) Encrypt your database field and index on that field
2) encrypt the value of your variable you are going to use in your search ..
Now you can search an encrypted value against your indexed encrypted field in your .dbf .. I do it all the time ...
Rick Lipkin
Amigos.
Doy las gracias a Karinha, Jose y Rick, por su gesto de ayuda.
Lamentablmente me tuve que ausentar por unos dias de mi trabajo, motivo por el cual no habia podido ingresar al foro.
Revisare las opciones que me indican y vere cual es la que se acomoda mejor a mi necesidad, ahora ya tengo que probar y adaptar a mi codigo.
Mil gracias a todos.
Saludos.
Antonio
