Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-03-2007
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: Mar 2007
Posts: 856
Poder: 12
anubis Va por buen camino
encryptado de datos

Hola a todos. Estoy haciendo un programa en el que el acceso sera por clave, de administrador y usuarios. ME gustaria saber si se puede hacer que los datos esten encryptados aunque se entre por clave de usuario para evitar manipulacion desde fuera del programa o sin ser administrador.
Responder Con Cita
  #2  
Antiguo 27-03-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: Dec 2004
Ubicación: Alcobendas, Madrid, España
Posts: 12.626
Poder: 27
dec Va camino a la famadec Va camino a la fama
Hola,

En Delphi cuentas con no pocas herramientas (clases, componentes, funciones, procedimientos, etc.) que puedes usar para cifrar archivos, cadenas, etc. Si buscas un poco por estos mismos Foros encontrarás seguro información al respecto.

Ahora habría que ver qué hay que cifrar, cómo y de qué manera. Y eso depende de lo que tengas pensado o necesites hacer. O sea, que me parece que has de proporcionar más información al respecto.
__________________
David Esperalta
www.davidesperalta.com
Responder Con Cita
  #3  
Antiguo 28-03-2007
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: Mar 2007
Posts: 856
Poder: 12
anubis Va por buen camino
gracias por contestar, la cuestion es que estoy haciendo un programa en delphi, con clave de entrada para usuario y administrador.......evidentemente el administrador podra borrar cosas pero los usuarios no, pero como alguno de los usuarios sabe algo de computacion seria encryptar los datos para evitar que manipule los datos ya sea dentro dle programa o intentando sacar la informacion desde el exterior y la verdad es una de las cosas que no se como va.
gracias por la ayuda
Responder Con Cita
  #4  
Antiguo 28-03-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: Dec 2004
Ubicación: Alcobendas, Madrid, España
Posts: 12.626
Poder: 27
dec Va camino a la famadec Va camino a la fama
Hola,

Ya te digo. Hay no pocos componentes que pueden echarte una mano a la hora de cifrar datos en memoria o en un archivo, por ejemplo. Eres tú quien sabe de qué datos hablamos, cuándo se "sacan" de algún sitio esos datos... en fin, es cuestión de que donde digas "esto tendría que ser cifrado" utilizes alguno de los componentes que tienes disponibles. ¿No?

Si ya te pones a ello y encuentras algún problema... coméntalo en los Foros y alguien habrá que tal vez pueda echarte una mano.
__________________
David Esperalta
www.davidesperalta.com
Responder Con Cita
  #5  
Antiguo 28-03-2007
ckaki ckaki is offline
Miembro
 
Registrado: Oct 2003
Posts: 18
Poder: 0
ckaki Va por buen camino
A mi juicio tu lo que quieres es encriptar los caracteres de una contraseña en una tabla y a la hora de leerlas desencriptarlas. si es así puedes escribir a mi correo y te envio dos funciones que realizan estas operaciones.

Saludos
kaki
Responder Con Cita
  #6  
Antiguo 28-03-2007
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: May 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Esas funciones sería mejor publicarlas en los Foros para conocimiento general o al menos la idea de como actúan y no mandarlo únicamente al correo privado, pues el espíritu de los Foros es el compartir conocimientos entre todos.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #7  
Antiguo 28-03-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: Nov 2003
Ubicación: Valencia city
Posts: 1.481
Poder: 16
ArdiIIa Va por buen camino
Algo sencillo:


Código Delphi [-]

function Encrypt(const S: String; Key: Word): String;
var
  I: integer;
begin
  SetLength(Result, length(S));
  for I := 1 to Length(S) do
    begin
     Result[i] := char(byte(S[i]) xor (Key shr 8));
     Key := (byte(Result[i]) + Key) * EncryptC1 + EncryptC2;
    end;
end;


function Decrypt(const S: String; Key: Word): String;
var
  I: integer;
begin
  SetLength(Result, length(S));
  for I := 1 to Length(S) do
    begin
      Result[i] := char(byte(S[i]) xor (Key shr 8));
      Key := (byte(S[i]) + Key) * EncryptC1 + EncryptC2;
    end;
end;


EncryptC1 y EncryptC2 son dos constantes a elección de cada uno... Y porsupuesto Key, también a elección de cada uno.
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO
Responder Con Cita
  #8  
Antiguo 28-03-2007
ckaki ckaki is offline
Miembro
 
Registrado: Oct 2003
Posts: 18
Poder: 0
ckaki Va por buen camino
Marcos tiene toda la razón, además las funciones no se si las tomé del propio foro o de trucomannia

Código Delphi [-]
function Encript(aFrase: String; aClave: Integer): String;
Var
  aa: Integer;
begin
   Result:='';
   RandSeed:=aClave;
   for aa:=1 to Length(aFrase) do
       Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end
;

Código Delphi [-]
function Decript(aFrase: String; aClave: Integer): String;
var
  aa: Integer;
begin
   Result:='';
   RandSeed:=aClave;
   for aa:=1 to Length(aFrase) do
       Result:=Result+Chr(Byte(aFrase[aa]) xor random(256));
end
;


Salud y suerte
Kaki
Responder Con Cita
  #9  
Antiguo 31-03-2007
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: Mar 2007
Posts: 856
Poder: 12
anubis Va por buen camino
os lo agradezco, siento no haber escrito antes pero no tenia internet. En cuanto lo pruebe os comento.

Muchas gracias otra vez por la ayuda.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Herramienta case para diccionario de datos de base de datos firebird mcalmanovici Firebird e Interbase 1 11-02-2007 15:17:37
Como pasar datos de una hoja de Excel a Bases de Datos de Paradox Goyo OOP 1 06-02-2007 01:57:20
Guardar en 1 base de datos SQL, datos procedentes de 2 tablas distintas adaypr C++ Builder 1 05-09-2006 11:56:33
ubicar archivo, con datos sacados de base de datos Giniromero Varios 19 20-10-2005 16:23:02
Reto Para Expertos En Base De Datos Y Tipos De Datos.... (blob) frankmch Conexión con bases de datos 2 08-09-2003 19:44:52


La franja horaria es GMT +2. Ahora son las 03:59:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi