Club Delphi  
    Paypal   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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 09-12-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
Tengo entendido que en php existen funciones para generar el hash md5, al menos el compañero dec las utiliza en su proyecto loturak, no se si son propias del lenguaje o usa alguna librería adicional. Pero volviendo al tema de tu pregunta, puedes generar una clave que tenga, por ejemplo, el siguiente formato:
Código:
Fecha+'?'+md5(Fecha+Clave)
Por ejemplo:
Código:
Fecha = 08/12/2006
Clave = 'Clave'
La llave resultante seria = 08/12/2006?e24aa1c25bd93d7e1ec894b79986ae80
Tu programa pediría que se le ingresara esa llave. La fecha sabemos que es todo lo que se encuentre a la izquierda del '?'. Con esa fecha podremos calcular la fecha de caducidad, y calculando su md5 junto con la clave, podemos comprobar que no se manipulo la fecha.

El código en delphi seria algo así:
Código Delphi [-]
const
  Clave = 'Clave';

// Esta funcion nos devuelve la fecha, o una cadena vacia si la llave no es valida
function TestKey(Key: String): String;
var
  i: integer;
begin
  Result:= EmptyStr;
  i:= Pos('?',Key);
  if i > 0 then
    if Copy(Key,i+1,MAXINT) = StrCheckSum(Copy(Key,1,i-1)+Clave) then
      Result:= Copy(Key,1,i-1);
end;

Solo falta el código para generar la clave en php, aunque no creo que resulte difícil es mejor que te ayude alguien con mas experiencia en este lenguaje. Yo te dejo como seria en Delphi, para que te hagas una idea:
Código Delphi [-]
function GenKey(Fecha: String): String;
begin
  Result:= Fecha + '?' + StrCheckSum(Fecha+Clave);
end;

// Por ejemplo
Key:= GenKey(DateToStr(Date));

En los ejemplos anteriores use la siguiente librería para generar los md5:
Archivos Adjuntos
Tipo de Archivo: zip Hashes.zip (1,2 KB, 433 visitas)

Última edición por seoane fecha: 27-03-2007 a las 17:55:34.
Responder Con Cita
 


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
crear una llave alfanumerica con un generador reina SQL 3 17-08-2005 19:49:44
campos llave combinados suppergus Varios 2 02-05-2005 23:32:38
Llave de dos campos jovehe Tablas planas 3 30-09-2004 07:42:52
Validacion llave con ClientDataset JOMABRI Conexión con bases de datos 3 23-06-2004 18:13:10
Adicion de Registros por Codigo con llave principal autonumerica zanfecax Tablas planas 1 20-10-2003 08:17:10


La franja horaria es GMT +2. Ahora son las 18:29:35.


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