Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > C++ Builder
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-09-2010
FrianxD FrianxD is offline
Miembro
 
Registrado: dic 2007
Posts: 65
Poder: 17
FrianxD Va por buen camino
Arrow Autorizar el uso de mi aplicacion por internet.

Hola dsp de un tiempo aca estoy de nuevo, tengo una duda y quisiera saber si podrian ayudarme con ella, les paso a contar lo siguiente, hice una aplicacion, y quiero saber si puedo hacerle algo para q solo ande cuando yo quiera, ejemplo, alguien tiene mi aplicacion y la quiere abrir, cuando lo intenta, quiero que mi aplicacion antes de abrirse verifique no se, mediante una pagina o algo que tiene permiso para poder usarse, y de lo contrario q se cierre automaticamente.

se podria hacer algo como poner q el programa lea de la pagina una serie de numeros que si es distinta a la q tiene dentro la aplicacion, no le de permiso a abrirse y si es igual que se abra correctamente?

espero haberme expresado bien =P

Desde ya Muchas gracias.!
Responder Con Cita
  #2  
Antiguo 09-09-2010
_cero_ _cero_ is offline
Miembro
 
Registrado: abr 2007
Posts: 147
Poder: 18
_cero_ Va por buen camino
ps veamos sería algo así.

Creación de un archivo binario:
Código:
//    Se crea el archivo local para después subirlo al servidor ftp
  TFileStream* fs=new TFileStream("c:\\mi_archivo.miextencin", fmCreate);

//    Se eligen los datos que introducirás en el archivo
  int MiNum=12345;
  char MiCad[40]="Esta cadena debería ir encriptada";

//    Se escriben los datos en el archivo, pueden ser simples como en este caso o
//    metes estructuras, imágenes, ejecutables, etc.
  fs->Write(&MiNum, sizeof(MiNum));
  fs->Write(&MiCad, sizeof(MiCad));

  delete fs;
Lectura de un archivo desde el servidor:
Código:
    TMemoryStream* ms=new TMemoryStream;
    int MiNum;
    char MiCad[40];

//    Se configura un TIdFTP con datos que debes encriptar ya que las cadenas son
//    visibles en los binarios en este caso tu exe.
    ftp->Host="ftp://MiFTP";
    ftp->Username="MiUsu";
    ftp->Password="**";

//    Se conecta y se carga la carpeta en donde tienes tyu archivo
    ftp->Connect();
    ftp->ChangeDir("/miDirEnFtp");

//    Se descarga a memoria, cuidado con los tiempos relacionados con peso/ancho de banda
//  y cantidad de memoria en la PC
    ftp->Get("mi_archivo.miextencin", ms, false);

//  Se posiciona y se leen los datos
    ms->Seek(0, 0);
    ms->Read(&MiNum, sizeof(MiNum));

    ms->Seek(sizeof(MiNum), 0);
    ms->Read(&MiCad, sizeof(MiCad));

    delete ms;
    ftp->Disconnect();

    ShowMessage(MiNum);
    ShowMessage(MiCad);
//  Aquí hago lo que quiera con las variables las desencripto y las trabajo.
//    Pd. El código necesita un poco más de trabajo como un try en la conexión al
//    ftp o puedes poner datos más complejos en el archivo, pero a grandes rasgos este es el procedimiento.
}

Última edición por _cero_ fecha: 09-09-2010 a las 04:10:45. Razón: arreglo
Responder Con Cita
  #3  
Antiguo 09-09-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.286
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Sí se puede hacer, el problema es qué pasará cuando un cliente registrado tenga problemas para acceder a internet y no pueda utilizar tu aplicación (no va a estar muy contento) . O imagina que por un problema con tu ISP, o con telefónica (o la compañía de tu servidor), este está OFFLINE durante 2 días; ¿Qué pasará con tus clientes? ¿Los que tienen un número válido y que durante 2 días no van a poder entrar en su aplicación?
No creo que estén muy contentos...

Hay que tener presente todas las posibles opciones (sobre todo pensado en los clientes "legales") antes de implementar algun sistema de protección como este.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 09-09-2010
_cero_ _cero_ is offline
Miembro
 
Registrado: abr 2007
Posts: 147
Poder: 18
_cero_ Va por buen camino
Muy cierto Neftali creo que se me paso mencionar los inconvenientes como ya hiciste.

Este método no es del todo inviolable y causa muchas molestias, sin mencionar que la popularidad es inversamente proporcional a la seguridad (o al menos en la mayoría de los casos), por lo tanto en teoría no vale la pena gastar recursos del pc y del servidor para esta tarea, sin embargo el código que subí bien puede servir para un sistema de actualización (que es para lo que lo uso), así que a alguien más le podría servir.

Nos vemos.
Responder Con Cita
  #5  
Antiguo 11-09-2010
FrianxD FrianxD is offline
Miembro
 
Registrado: dic 2007
Posts: 65
Poder: 17
FrianxD Va por buen camino
Gracias por la ayuda y los consejos algo asi era lo q buscaba, gracias
Responder Con Cita
Respuesta



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
Aplicacion de cobreo por internet edca Internet 2 12-03-2009 01:18:12
Aplicación w32 e internet AnaliaT Internet 3 11-03-2009 20:39:26
Ampliar aplicacíon C/S a Internet nfrfabian Internet 4 27-05-2007 16:34:51
Aplicacion delphi en internet makalexe Internet 3 20-04-2007 23:04:14
Ejecutar mi aplicacion en internet auribe Internet 4 13-09-2004 18:53:41


La franja horaria es GMT +2. Ahora son las 11:40:15.


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