Codigo sin utilidad

[[seoane]]

Empezado por Caral

Ahora, esta contraseña se genera y guarda en algún sitio?

No, no se guarda en ningun sitio y precisamente esa es lo mejor de todo

Empezado por Caral

Por que si genera una contraseña cada vez de que serviría, verdad.

Porque para una misma etiqueta y clave, siempre genera la misma contraseña.

Creo que no explique bien el funcionamiento del programa. Voy a probar de nuevo. Imagínate que encuentras un sitio nuevo, por ejemplo www.fllickr.com y que quieres darte de alta en el sitio, cuando te pregunte que contraseña quieres usar abres este programa y en "sitio" colocas "www.fllickr.com" y en "Clave" pones la clave que utilizas para generar todas tus contraseñas, por ejemplo "secreto". La clave generada sera "b3QKNeYw" y esa sera la que debes indicar cuando te des de alta en el sitio.

Ahora puedes cerrar el programa y la contraseña no se ha guardado en ninguna parte. Pero imagínate que un mes después necesitas la clave, solo tienes que abrir el programa colocar los valores correctos de "Sitio" y "Clave" y se volverá a generar exactamente la misma contraseña "b3QKNeYw".

¿Me explique bien ahora?

[[Caral]]

Hola
Perfecto.
Pero me queda una duda.
Por que en codigo sin utilidad, me parece todo lo contrario.
La verdad yo movería mucho del codigo que tienes aqui a un nuevo hilo, codigo con mucha utilidad, y como nota a ver que lo supera.
Gracias Seoane, esta genial.
Saludos

[[Gabo]]

A saber lo que entenderá seoane por "codigo con utilidad" entonces...

Por lo menos esto último, además de tener utilidad, sirve perfectamente para que los que no nos hemos metido nunca con estos algoritmos de encriptación lo podamos hacer y comprender...

Felicitaciones!!!! Este hilo está genial...

[dec]

Hola,

Empezado por Domingo

Lo mismo me pasa a mi, confiar todas mis contraseñas a un programa con el código cerrado no me convence, no sabes si es seguro, no sabes si en un futuro el programa va a dejar de funcionar dejándote sin claves, etc ... Este programa, sin embargo utiliza un algoritmo muy sencillo, que puede ser reproducido en multitud de lenguajes, desde php hasta freepascal.

Si el caso es que hay algún programa libre para ese menester, pero, a mí lo que me apabulla es la cantidad de opciones que suele haber. Se puede generar una contraseña de mil formas distintas, por ejemplo. En general los veo "liosos", pero, es sólo mi opinión.

Empezado por Domingo

Y que mas decir, porque no te animas y haces algo bonito seguro que se te ocurre algo mas que añadirle

Porque las cosas se complican... se lían... se retuercen... se dan de sí... sabes cuándo empiezas pero no cuándo acabas...

Pero quién sabe... desde luego tu "sistema" sería ya algo a tener en cuenta.

[[seoane]]

Empezado por dec

Porque las cosas se complican... se lían... se retuercen... se dan de sí... sabes cuándo empiezas pero no cuándo acabas...

Ya veo que eres como yo, te gusta empezar las cosas pero no acabarlas

[dec]

Hola,

Bueno... a mí me gusta empezar y acabar, lo que pasa es que las cosas son como son... esto de los programas y tal... no se sabe nunca dónde acaban. Siempre pueden mejorarse (y empeorarse) más. Pero, también es verdad que necesito de motivación, es decir, que lo que se me hace complicado es precisamente empezar algo... una vez metidos en harina ya es otro cantar.

[[seoane]]

Empezado por dec

Bueno... a mí me gusta empezar y acabar, lo que pasa es que las cosas son como son... esto de los programas y tal... no se sabe nunca dónde acaban.

Tampoco quería decir que dejaras todo a medias Es verdad que al final los detalles finales pueden alargarse indefinidamente, y cuando crees que ya lo tienes se te ocurre algo mejor ... en fin, que la cosa nunca acaba.

Y como comentaba antes, lo bueno de usar un algoritmo sencillo es que puede portarse fácilmente. Por ejemplo a freepascal.

Código Delphi [-]
program passhash;

uses Sysutils, md5;

function PassGen(Str: String): String;
const
  Alfa = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';
var
  i: Integer;
begin
  PassGen:= '';
  Str:= MD5Print(MD5String(Str));
  for i:= 0 to (Length(Str) div 4) - 1 do
    PassGen:= PassGen +
      Alfa[(StrToInt('$'+Copy(Str,(i*4)+1,4)) mod Length(Alfa))+1];
end;

var
  i: Integer;
  Str: String;
begin
  Str:= '';
  for i:= 1 to ParamCount do
    Str:= Str + ParamStr(i);
  Writeln('Hash: ' + PassGen(Str));
end.

./passhash www.clubdelphi.com secreto
Hash: EEOWyCST

[[Caral]]

Hola
Me da un error:
XPManifest1.
No tiene el correspondiente componente.
Pregunto:
Necesita un componente XPMan.
Saludos

[[seoane]]

Empezado por Caral

Pregunto:
Necesita un componente XPMan.

No, solo se lo puse para que fuera mas bonito

Quitalo, y la unit XPMan de las uses tambien.

[[Caral]]

Hola
Gracias, me lo imaginaba, solo que no lo queria romper.
Por cierto, no seria bueno un combobox en el que se guarden las direcciones? o algo asi.
Asi no se tienen que poner cada vez, es solo una idea, esta muy bien ya lo probé.
Saludos