| Pregunta: | 11298 - PROTEGER TABLAS CON CONTRASEñA |
| Autor: | Bernarda Alfreda Pérez Silva |
| Quisiera saber si hay alguna forma de proteger mi información con contraseña para que no puedan ser modificadas e incluso verlas con el 'Browse' de Visual Fox y solamente se visualicen con la aplicación que he creado. Agradecería mucho que me pudieran ayudar. Por su atención, gracias | |
| Respuesta: | Esteban Micossi |
| Hola Proba con esta funcion * *Aqui va la funcion: *Nota: param.dbf es mi tabla que yo he protegido. * *Function Protec *&&****************************************** close all handle=FOPEN("IVACPRA.DBF",2) && abre en modolectura escritura primerbyte=FREAD(handle,1) && lee el 1er byte do case case primerbyte=CHR(255) && si protegido escribe=chr(3) && desprotege case primerbyte=CHR(3) && si desprotegido escribe=chr(255) && protege endcase =FSEEK(handle,0,0) =FWRITE(handle,escribe,1) =FCLOSE(handle) Return .t. Anda de diez Cualquier cosita me preguntas. Saludos | |
| Respuesta: | Jose Jaimes |
| Bueno para poder hacer lo que quieres solo ACCESS tiene la funcion o propiedad indicada, para solucionar lo del Brows escribe nomodify nodelete, con respecto a lo otro como te dicen cambiar la cabecera del DBF pero es mas facil encriptar la data de esta forma... PUBLIC IT,UU,RES RES="" IT=THISFORM.Text2.VALUE LON=LEN(ALLTRIM(IT)) FOR U=1 TO LON CAD=SUBSTR(IT,U,1) QQ=ASC(CAD) UU=(CHR(QQ+1)) RES=RES+UU NEXT thisform.txtacceso.value=res WAIT WINDOWS "" +RES NOWAIT Suerte | |
| Respuesta: | elkin uribe |
| Hola Mira la forma que conozco de proteger la informacion para que solo sea accesada desde programacion es atraves de la modificacion de la cabecera de la tabla al momento de cerra rla y abrirla yo baje de inetrnet un programa lo he usado y funciona si todavia estas interesada me puedes escribir y yo te lo envio, solo hazmelo saber y me dices si es para visual foxpro o para foxpro 2.6 ya que los comandos para ambos son distintos Chao | |