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

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-10-2007
maco2007 maco2007 is offline
No confirmado
 
Registrado: may 2007
Posts: 70
Poder: 0
maco2007 Va por buen camino
Smile codigo hash

hol soy max y disculpen por lo anterior(BarcodeMax08) ahora tengo una duda, como puedo hacer un codigo hash osea Codificarlo y Decodificarlo esta instruccion ocupo para codificar:

Código Delphi [-]
uses Registry;

const
  Clave = 1978;

function Cifrar(Texto: string; Clave: Longint): string;
var
  i: integer;
begin
  Result:= '';
  RandSeed:= Clave;
  for i:= 1 to Length(Texto) do
    Result:= Result + IntToHex(Byte(Texto[ i ]) xor Byte(Random(256)),2);
end;

y necesito como volver a decodificarla...,GRACIAS

Última edición por dec fecha: 20-10-2007 a las 07:39:31.
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
contraer por codigo, cxGrid (+) los nodos abiertos cerrarlos por codigo sakuragi OOP 6 27-07-2005 19:23:07
Hash RaulChemical Varios 1 07-09-2004 21:10:11
de codigo VB a codigo Delphi ingel Impresión 2 20-07-2004 15:15:44
DB por Codigo P@kito Conexión con bases de datos 1 20-08-2003 02:04:19
¿Hash or not Hash? hgiacobone Varios 5 17-07-2003 20:43:26


La franja horaria es GMT +2. Ahora son las 17:26:21.


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