Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-05-2007
Wellnic Wellnic is offline
Miembro
 
Registrado: mar 2007
Posts: 68
Poder: 18
Wellnic Va por buen camino
Generador de contraseñas

Todos sabemos lo difícil que es crear una buena contraseña, esta ha de ser lo más enrevesada posible para los demás... pero también lo será para nosotros, desgraciadamente.

La siguiente función trata de solucionar el problema. Acepta dos parámetros: una palabra o frase fácil de recordar (o no) y el número de veces que dicha función transformará la frase hasta crear una cadena irreconocible, casi pseudoaleatoria:

Código Delphi [-]
Function transcon(plbi: String; ntrns: Integer): String;
Var hs, sumhs: String;
      x, ch: Integer;

begin
For x:= 1 To ntrns Do
  Begin
  hs:= MD5DigestToStr(MD5String(plbi));
  //(www.killa.com.ar/bk)
  sumhs:= Copy(hs+sumhs, 1, 666);
  plbi:='';
  For ch:=1 To Length(sumhs) Div 2 Do plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, (2*ch)-1, 2)));
  End;
plbi:= Base64EncodeStr(plbi);
//www.cityinthesky.co.uk/files/dcpcrypt2.zip
x:= Length(plbi);
While plbi[x]= '=' Do Dec(x);
transcon:= plbi;
End;

Por ejemplo, si ponemos transcon('Angelina Joli', 729) el resultado será:

MjV1Vqq1oj36D64G4d6I/WgxKkZxbk8J+Wai4hV+SmxF7FUDn4EO0n0VyI9HymHZTcbAvz4XZKpWFF5VBxa0gJ3eJTc1t/JxclMjM9Y+bDxzq9MiJin2grZgx... (así hasta 444 caracteres; ni su madre la reconocería).

No tenemos porqué usar el resultado entero, podemos extraer o copiar cualquier trozo como contraseña (otro posible parámetro).

Esta es una función de lo más versátil y personalizable, cambiando simplemente el número de la bestia por otro cualquiera, el resultado será totalmente distinto...

O podemos cambiar el plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, (2*ch)-1, 2))); por:

plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, (2*ch), 1))
+Chr(StrToInt('$'+Copy(sumhs, (2*ch)-1, 1)));


ó:

plbi:= plbi+Chr(StrToInt('$'+Copy(sumhs, ((4*ch+3) Mod 34), 2));

o cualquer otra fórmula que se nos ocurra para despistar a los amigos de las cuentas ajenas.
Responder Con Cita
  #2  
Antiguo 05-05-2007
mario2000 mario2000 is offline
Miembro
 
Registrado: abr 2007
Posts: 109
Poder: 17
mario2000 Va por buen camino
Un saludo amigo Wellnic, me gustaria usar esa funcion pero no me trabaja, yo tengo delphi5 sera que tiene que ver o hay que agregar algo?
mario2000.
Responder Con Cita
  #3  
Antiguo 06-05-2007
Wellnic Wellnic is offline
Miembro
 
Registrado: mar 2007
Posts: 68
Poder: 18
Wellnic Va por buen camino
Para usar esta función tienes que bajar, por una parte, la unidad md5.pas de

www.esnips.com/doc/91649904-709e-41a0-b97f-46e038dae13a/dmmd5.zip

y por otra la unidad DCPbase64.pas de

www.cityinthesky.co.uk/files/dcpcrypt2.zip

Una vez las tengas, añade estas dos unidades (md5.pas y DCPbase64.pas) al directorio donde tengas las fuentes del programa en el que vayas a usar esta función, y también tienes que añadir md5 y DCPbase64 (sin la extensión .pas) a la línea uses de tu programa.
Responder Con Cita
  #4  
Antiguo 06-05-2007
Wellnic Wellnic is offline
Miembro
 
Registrado: mar 2007
Posts: 68
Poder: 18
Wellnic Va por buen camino
Para usar esta función tienes que bajar, por una parte, la unidad md5.pas de

www.esnips.com/doc/91649904-709e-41a0-b97f-46e038dae13a/dmmd5.zip

y por otra la unidad DCPbase64.pas de

www.cityinthesky.co.uk/files/dcpcrypt2.zip

Una vez las tengas, añade estas dos unidades (md5.pas y DCPbase64.pas) al directorio donde tengas las fuentes del programa en el que vayas a usar esta función, y también tienes que añadir md5 y DCPbase64 (sin la extensión .pas) a la línea uses de tu programa.
Responder Con Cita
  #5  
Antiguo 09-05-2008
cyber_zero cyber_zero is offline
Miembro
 
Registrado: abr 2008
Posts: 22
Poder: 0
cyber_zero Va por buen camino
buenos dias, disculpa si yo tengo el Delphi 7 tambien es necesario que descargue esas librerias??? y pues quiza me escuche algo mal pero soy completamente nuevo en esto de Delphi, me podrias decir que elementos serian necesarios agregar para hacerlo funcionar??? gracias de antemano
Responder Con Cita
  #6  
Antiguo 10-05-2008
Wellnic Wellnic is offline
Miembro
 
Registrado: mar 2007
Posts: 68
Poder: 18
Wellnic Va por buen camino
Hola. Pues, al no tener yo esa versión de Delphi, no te lo puedo decir, lógicamente. Pero quizás ya venga con librerías similares para calcular el MD5 y Base64... pero que funcionarían de otra manera. Mi consejo es que te bajes esas dos librerías.

De todas formas debo decirte que esa función, tal y como la publiqué arriba, tiene un pequeño problema de "redundancia" que la hace más lenta de lo que me gustaría (me di cuenta hace poco). ¿Qué se puede esperar de un aficionado como yo?

Aunque... ejem, no deja de ser una idea que cada uno puede moldear a su manera.
Responder Con Cita
  #7  
Antiguo 10-05-2008
Wellnic Wellnic is offline
Miembro
 
Registrado: mar 2007
Posts: 68
Poder: 18
Wellnic Va por buen camino
(Debería haber añadido que en esta misma sección de trucos hay varias funciones MD5, publicadas por Seoane, pero, como no funcionaban en mi vetusta versión de Delphi, no me acordaba).
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


La franja horaria es GMT +2. Ahora son las 19:54:47.


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