Opiniones para mejorar

[camiz]

Hola amigos del foro, de nuevo por aqui. Esta vez ya no boy a preguntar es decir por ahora, pero quiero que me den su opinion.

He desarrollado una aplicacion para mi, es que no soy muy bueno para memorizar algunas cosillas que uso a diario y para evitar olvidarme he desarrollado esta aplicacion y quiero que den su opinion, porque quiero mejorarla, quiero hacerla mucho mejor.

les comparto el link a ver si a alguien le sirve o de lo contrario quiero su opinion.

http://www.mediafire.com/download/vp...CPer-setup.exe

[Casimiro Notevi]

Hola camiz, se agradece el detalle, aunque... esto es clubdelphi, compartimos conocimiento, ¿de qué nos sirve un ejecutable si no tienes el código fuente?
Pues eso, si no hay código fuente... no hay nada

[camiz]

Empezado por Casimiro Notevi

Hola camiz, se agradece el detalle, aunque... esto es clubdelphi, compartimos conocimiento, ¿de qué nos sirve un ejecutable si no tienes el código fuente?
Pues eso, si no hay código fuente... no hay nada

Mil disculpas Casimiro, tienes toda la razon solo queria que un experto lo testeara para saber si el programa es estable y seguro para guardar datos con toda la sinceridad no soy tan experto es por eso nesecitaba que alguien lo pruebe. bueno de todas maneras hay dejarlo ahy por si a alguien le sirva.

[Casimiro Notevi]

Un ejecutable puede tener virus, o puede hacer cualquier cosa sin que lo sepamos, etc.
Debes poner el código fuente y que cada uno se lo compile, si le gusta.
Saludos.

[juanelo]

Que tal camiz,
Lo pruebo y te comento.
Saludos

[TiammatMX]

Soy muy curioso, ¿y qué función realiza tu aplicación?

[juanelo]

Casimiro, en el mensaje #9 no se nota que confíes mucho en el compañero camiz. Y claro que he entendido tus comentarios, El que al parecer no entiende la intención de camiz eres tu.
Por cierto no veo que punto contraviene el no compartir los fuentes, de la famosa guía de estilo.

[camiz]

Con respecto a la proteccion de información para luego guardar a la base de datos, boy a ponerlo lo más detallado posible. uso los componentes DCPcrypt que son muy buenos y gratuitos y funciona perfecto hasta en la version XE6 lo he probado.

unas funciones de propias de los componentes que encontre en la web.

Código Delphi [-]
// Codigo para cifrar
function TForm1.Cifrar(Texto, Clave: AnsiString): String;
var
  Cipher: TDCP_Rijndael;
begin
  Cipher:= TDCP_Rijndael.Create(nil);
  Cipher.InitStr(Clave,TDCP_sha512);
  result := Cipher.EncryptString(Texto);
  Cipher.Burn;
  Cipher.Free;
end;
 
// Codigo para desencriptar
function TForm1.Descifrar(Texto, Clave: AnsiString): String;
var
  Cipher: TDCP_Rijndael;
begin
  Cipher:= TDCP_Rijndael.Create(nil);
  Cipher.InitStr(Clave,TDCP_sha512);
  result := Cipher.DecryptString(Texto);
  Cipher.Burn;
  Cipher.Free;
end;

Y aca unas funciones que hagan el trabajo mas fácil...

Código Delphi [-]
// Encripta la cadena de texto
function TForm1.Encriptar(texto :string ) : string;
var
a, b, miClave :string;
begin
  a := '/.._=?%$8¡*¿_["}';
  b := '!_*-.;.,"/$Glk*';
  miClave := Edit1.text;
  result := '';
  result := Cifrar(texto,a);
  result := Cifrar(result,b);
  result := Cifrar(Result,miClave);
end;
// Desencripta la cadena de texto
function TForm1.Desencriptar(texto :string) : string;
var
a, b, miClave :string;
begin
  a := '/.._=?%$8¡*¿_["}';
  b := '!_*-.;.,"/$Glk*';
  miClave := Edit1.text;
  result := '';
  result := Descifrar(texto,miClave);
  result := Descifrar(result,b);
  result := Descifrar(result,a);
end;

*En el caso de este programa ICPer que estamos hablando...
supongamos que Edit1.text es la clave que uno crea al momento de usar por primera vez la aplicación
a y b son caracteres que se puede usar para encriptar el texto ya encriptado mas claro en mi aplicación los datos que se guarda está triple Encriptado con las claves a y b + la clave que crea el que usa el programa. de esta manera ni el que crea el software puede desencriptar la informacion de la BD.

Ahora para guardar encriptado asi...

Código Delphi [-]
  with Query do
  begin
    SQL.Clear;
    SQL.Text := 'select * from tabla';
    Active := True;
    Open;
    Insert;
    FieldByName('usuario').AsString := Encriptar(Edit2.Text);
    FieldByName('clave').AsString := Encriptar(Edit3.Text);
    FieldByName('acceso').AsString := Encriptar(Edit4.Text);
    FieldByName('....').AsString := Encriptar(Edit5.Text);
    Post;
    Close;
    Active := False;
  end;

Para desencriptar desde la bd y mostralo en los edits

Código Delphi [-]
with Query do
  begin
    SQL.Clear;
    SQL.Text := 'select * from tabla';
    Active := True;
    if Locate('id',Encriptar(txtid.text),[]) then
    begin
      Edit2.Text := Desencriptar(FieldByName('usuario').AsString);
      Edit3.Text := Desencriptar(FieldByName('clave').AsString);
      Edit4.Text := Desencriptar(FieldByName('acceso').AsString);
      Edit5.Text := Desencriptar(FieldByName('....').AsString);
    end;
    Active := False;
  end;

Bueno espero que sirva de algo, esta es la forma más parecida a como se está usando en la aplicación que se está en discusion en este foro, ademas cada uno puede adaptarlo de acuerdo a la nesesidad.

[blackx5n]

Gracias camiz, es justo lo que necesitaba, voy a probar estas funciones, si tengo alguna duda vuelvo a postear.

Salu2

[Casimiro Notevi]

Empezado por juanelo

Casimiro, en el mensaje #9 no se nota que confíes mucho en el compañero camiz. Y claro que he entendido tus comentarios, El que al parecer no entiende la intención de camiz eres tu.
Por cierto no veo que punto contraviene el no compartir los fuentes, de la famosa guía de estilo.

En el #9 informo y comento sobre la "ingeniería social" mediante un enlace a wikipedia.

Contraviene la guía de estilo en que no hay ninguna duda que resolver, mostrando el código fuente, para que podamos ayudar. Tampoco comparte el código fuente completo del programa para que podamos verlo, opinar sobre el mismo, aprender o debatir sobre el mismo.
Además contraviene la guía de estilo en pedir que se envien información mediante email, cosa que va totalmente en contra de la filosofía de los foros, donde estamos para aprender compartiendo conocimientos. Si se usa el email, entonces ¿para qué sirven los foros?, usen un chat.

Y para finalizar, sí entiendo la intención de camiz, ha hecho un programa y quiere que cualquiera lo instale (sin saber qué hace o qué no hace, o si tiene un fallo que te lo bloquea o que te borra el disco duro) para que se le informe de qué bonito y útil le quedó, pero de que no va a compartirlo contigo ni con nadie.

Empezado por camiz

teniendo en cuenta que no todo se puede liberar no es porque sea un codigo fuente esquisito que todo el mundo desea, mas bien cuestiones personales

Ni que el programa fuese un nuevo sistema operativo Linux. ¡Ah!, que Linux es libre y te entregan el código fuente, pues no lo entiendo

[TiammatMX]

Empezado por Casimiro Notevi

...¡Ah!, que Linux es libre y te entregan el código fuente, pues no lo entiendo...

"La confianza mata al hombre y embaraza a la mujer" - Les Luthiers

Estoy de acuerdo con Casimiro en un punto fundamental. No podemos evaluar si tiene "algún mal funcionamiento", esencialmente por que no conocemos su funcionamiento. En cuanto a la presentación visual, Microsoft ha dictado un estándard gráfico que abarca desde el ancho de los bordes, los íconos a usar (tamaño, colores, orientación), colores de fondo, presentación de botones, etc., y todo lo que se aparte de éste estándard ES CUESTIÓN MERAMENTE PERSONAL, por lo tanto no es 100% evaluable para otras personas a menos que tengan un acuerdo previo o similares gustos.

Y reitero mi pregunta, esperando una explicación más extensa, ¿QUÉ SE SUPONE QUE HACE TU APLICACIÓN? ¿Qué aplicación práctica en la vida diaria puede solucionar o soluciona? ¿Para qué tipo de usuario está dirigida?

[[Al González]]

Sin decir nada de lo pernicioso que se volvería la costumbre descargar aplicaciones desconocidas sin su código fuente, me permito comentarle a camiz tres cosas. Advierto que no serán de mucha ayuda por el poco tiempo del que dispongo, pero me anima el deseo de hacer comunidad.

1. Muchas gracias por haberte decidido a mostrar aunque fuera un poco de tu código fuente.
2. Al hacer "Query.SQL.Clear;" y en seguida "Query.SQL.Text := 'select ...';" puedes omitir la primera de las sentencias, ya que cualquier asignación a Text lleva implícito el "clear".
3. No existen las palabras encriptar y desencriptar, en español o castellano es cifrar y descifrar.

Que todo vaya bien con ese proyecto.

Saludos.

[juanelo]

Empezado por Casimiro Notevi

En el #9 informo y comento sobre la "ingeniería social" mediante un enlace a wikipedia.

Si haces referencia a la "ingenieria social", pero además escribiste esto:

Empezado por Casimiro Notevi

El ejemplo del programa de camiz es perfecto, aprovechando que nadie en clubdelphi va a dudar sobre su ética, aprovecha para "colar" un programa (al que no podemos ver su código fuente) para conseguir información privada.
Puede obtener TODO lo que quiera del ordenador donde se ha instalado y juanelo, en este caso, no se enteraría de nada, ya que ha actuado de buena fe.

Entonces, juanelo, ¿el programa usa Informacion encriptada en la bd?, hummm... qué bien, así nadie podrá ver lo que ha recolectado .

Lo cual no demuestra mucho tu confianza o al menos haces parecer a camiz como una persona sin ética, trandose de aprovechar de los ingenuos intengrantes del club para robar sus datos.

Empezado por Casimiro Notevi

Contraviene la guía de estilo en que no hay ninguna duda que resolver, mostrando el código fuente, para que podamos ayudar. Tampoco comparte el código fuente completo del programa para que podamos verlo, opinar sobre el mismo, aprender o debatir sobre el mismo.
Además contraviene la guía de estilo en pedir que se envien información mediante email, cosa que va totalmente en contra de la filosofía de los foros, donde estamos para aprender compartiendo conocimientos. Si se usa el email, entonces ¿para qué sirven los foros?, usen un chat.

Estoy de acuerdo en que no hay duda que resolver, pero tampoco creo es su intencion que le resuelvan dudas, sino mas bien, recibir comentarios de su trabajo. Y creo por eso lo apropiado de ser publicado en la TABERNA, donde creo que no existen tantas restricciones, bueno eso espero .

Empezado por Casimiro Notevi

Y para finalizar, sí entiendo la intención de camiz, ha hecho un programa y quiere que cualquiera lo instale (sin saber qué hace o qué no hace, o si tiene un fallo que te lo bloquea o que te borra el disco duro) para que se le informe de qué bonito y útil le quedó, pero de que no va a compartirlo contigo ni con nadie.

Pues honestamente y con el hecho de que he probado el programa de camiz insisto en que te equivocas en la intencion del compañero, pero esa es mi apreciacion y no espero convencerte de otra cosa.

[Casimiro Notevi]

Me alegro de que te guste este "deporte de riesgo": Probar programas que no sabes lo que hacen. Debe dar un subidón tremendo, como el de la ruleta rusa, que no sabes si te tocará o no

[[Al González]]

Les invito un trago a ambos. ¡Relájense!

[juanelo]

Empezado por Casimiro Notevi

Me alegro de que te guste este "deporte de riesgo": Probar programas que no sabes lo que hacen. Debe dar un subidón tremendo, como el de la ruleta rusa, que no sabes si te tocará o no

Pues hasta eso, no resultó nada emocionante, creo que le faltó a camiz el tratar de abrir algun puerto o borrar mi disco ...

Nota: Al, creeme que de este lado estamos relajados como el mar en la puesta de sol, aunque un par de tragos no le caen mal a nadie.