Encriptación. - Foros Club Delphi

04-01-2007

[egostar]

Registrado

Registrado: feb 2006

Posts: 6.572

Poder: 27

Seoane, solo que yo veo un error al traducir el código

en la linea

Cita:

P$ = P$ & Asc(Mid$(PASSWORD$, i, 1))

Estan convirtiendola así

Código Delphi [-] 
S:= S + IntToStr(Ord(Password[i]));

Y estan usando una suma en lugar de AND, eso cambia todo el resultado.

Saludos.

__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Cambiar a Modo Hibrido Modo Hilado

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
Algoritmo de Encriptacion	DarkByte	Varios	22	08-10-2014 19:54:41
Encriptación 3DES	acertij022	Varios	5	17-05-2013 19:59:01
Algoritmo de encriptación	JoeyJordison	Varios	5	21-11-2006 13:01:29
Método de encriptación	eMax	Internet	0	04-05-2006 23:19:49
Encriptacion/Desencriptacion de Archivo TXT	Maury Manosalva	OOP	9	22-09-2005 02:04:55

La franja horaria es GMT +2. Ahora son las 12:51:17.