Proteger programa con nº de licencia

[elcolo83]

Ahi te lo mande al correo...

[dec]

Holas,

Los moderadores igual pueden hacer algo... pero, nada que no puedas hacer tú mismo. Es decir, nada te impide editar tu mensaje, hasta que quede como tiene que quedar. Para eso puedes hacer "vistas previas", formatear el código fuente hasta que todo quede "bien", en fin, no dejar la tarea a los moderadores del foro. ¿No te parece?

Comprendo que cuando edites tu mensaje y veas el pifostio que hay montado dirás, ¡madre mía! Esto que lo arregle otro. Pero, igual que yo comprendo eso, ahora ponte tú en mi posición y dime si no te parecerá igual pifostio o peor aún, porque además nosotros no contamoso con el código fuente "original", así que no nos quedaría más remedio que formatear el pifostio disponible.

Disculpa si te mi respuesta te parece odiosa, pero, no es mi intención sino recalcar el hecho de que tú puedes editar tus mensajes (como todos los usuarios de los foros pueden editar sus propios mensajes) y además te será más fácil arreglar el problema a ti que no a los moderadores, que no disponemos del código fuente original. Por otro lado, si lo haces, tal vez hasta evitemos decenas de mensajes pidiéndote que envíes a una dirección de correo el código fuente que ahora mismo es ilegible.

¿Qué te parece? En todo caso, estoy dispuesto a comerme mis palabras si el siguiente código fuente no se muestra correctamente "formateado":

Código PHP:

function __autoload($className){
  global $gbClassDirs;
  if(empty($gbClassDirs)){
    $gbClassDirs = GbClassDirs();
  }
  $class = strtolower($className).
   GB_CLASS_SCRIPT_EXTENSION;
  $const = strtolower($className).
   GB_CLASS_CONSTS_EXTENSION;
  foreach($gbClassDirs as $dir){
    if(is_readable($dir.$class)){
      require($dir.$class);
      if(is_readable($dir.$const)){
        require($dir.$const);
      }
      break;
    }
  }
} 


Código Delphi [-]
{ The main algorithm this component (just bellow) is written for Zarco Gajic
  on Delphi.About (http://delphi.about.com/od/graphics/l/aa120198.htm) Thanks!

  We use "GetSysTemMetrics" instead of variable Screen of Forms.pas unit to
  obtain the width and height of monitor resolution and use a particular Pen
  to the optional crosshair via component property.
}
procedure TCCDZoomPanel.ZoomTimer(sender: TObject);
var
  cnv: TCanvas;
  hDesktop: Hwnd;
  cursorPos: TPoint;
  iTmpX, iTmpY: Real;
  sRect, dRect: TRect;
  sWidth, sHeight, iWidth, iHeight, DmX, DmY: integer;
begin
  iWidth := self.Width;
  iHeight := self.Height;
  GetCursorPos(cursorPos);
  hDesktop:= GetDesktopWindow();
  dRect := Rect(0, 0, iWidth, iHeight);
  iTmpX := iWidth / (FZoomLevel * 4);
  iTmpY := iHeight / (FZoomLevel * 4);
  sRect := Rect(cursorPos.x, cursorPos.y, cursorPos.x, cursorPos.y);
  sWidth := GetSysTemMetrics(SM_CXSCREEN);
  sHeight := GetSysTemMetrics(SM_CYSCREEN);
  InflateRect(sRect, Round(iTmpX), Round(iTmpY));
  // move sRect if outside visible area of the screen
  if (sRect.Left < 0) then OffsetRect(sRect, -Srect.Left, 0);
  if (sRect.Top < 0) then OffsetRect(sRect, 0, -Srect.Top);
  if (sRect.Right > sWidth) then
    OffsetRect(sRect, -(sRect.Right-sWidth), 0);
  if (sRect.Bottom > sHeight) then
    OffsetRect(sRect, 0, -(sRect.Bottom-sHeight));
  cnv := TCanvas.Create();
  try
    cnv.Handle := GetDC(hDesktop);
    self.Canvas.CopyRect(dRect,cnv,sRect);
  finally
    ReleaseDC(hDesktop, cnv.Handle);
    cnv.Free();
  end;
  if FShowCrosshair then begin
    with self.Canvas do begin
      Pen.Width := FCrosshairWidth;
      Pen.Color := FCrosshairColor;
      DmX:= (FZoomLevel * 2) * (cursorPos.X-Srect.Left);
      DmY:= (FZoomLevel * 2) * (cursorPos.Y-Srect.Top);
      MoveTo(DmX - (iWidth div 10), DmY); // -
      LineTo(DmX + (iWidth div 10), DmY); // -
      MoveTo(DmX,DmY - (iHeight div 10)); // |
      LineTo(DmX,DmY + (iHeight div 10)); // |
    end;
  end;
end;

¿Cómo se ve? En todo caso, no tomes esta respuesta (ya demasiado larga, me temo) como algo personal. ¿Eh? No se trata de eso, te lo aseguro. De todas formas, he editado tu mensaje para añadir las etiquetas "DELPHI", que, aunque tú añadiste, por algún motivo se perdieron. Como tú tienes el código fuente original (y supongo que formateado), si quieres, cópialo de nuevo en tu mensaje y prueba a ver qué tal "sale".

[Bauhaus1975]

Muchas gracias, ya lo tengo. Otra pregunta me ronda:
Si cuando entra el usuario se detecta que caducó la licencia ¿dónde puede almacenarse el último acceso o qué hacer para bloquear acceso en posteriores arranques aunque se cambie la fecha del sistema?

[elcolo83]

Hola Dec, Tanto tiempo... No tomo para nada a tu mensaje como personal. En lo que a mi respecta no me gusta para nada el codigo mal escrito o sin las tabulaciones que debe llevar un código legible. He posteado varias veces codigo y use tambien el FTP del foro y es la primera vez que me pasa esto de que quede todo amontonado y junto como si fuera un geroglifico y por eso pedi disculpas.
Dije que lo tendrian que ver los moderadores por dos cosas... una es que el codigo no se muestra como lo edito por masde que intente cualquier cosa (en este caso) y otra es que en mi opinion dentro de las etiquetas Delphi (o de cualquier otro lenguaje) no deverian aparecer las caritas como me paso. Lo que digo no lo digo de mala manera sino que intento hacer una critica constructiva al foro que tanto nos ha dado dia a dia.
Un abrazo


el Colo.

[elcolo83]

Tenes varias opciones:

1) archivos INI
2) archivos XML
3) Registro del sistema
4) un archivo propio
etc..

En cualquiera de los casos recomiendo que cifres los datos con AES256 o alguno parecido usando tambien los datos de la pc. De esa manera si por ejemplo tenes esos datos en un XML y alguien lo copia a otra pc, esos datos no le van a servir para que el programa se inicie.
Yo generalmente guardo:

-FUI //Fecha del ultimo inicio
-CID //Cantidad de Inicios Diarios hechos (Generalmente lo limito a 15)
-LIC //Licencia
-CCJ //Para el caso de programas contables: el ultimo cierre de caja

1) Cuando inicio el programa compruevo que la licencia contenga una fecha mayor a la actual.
2) Comparo FUI con la fecha actual:
-Si es Menor: CID:= 0;
-Si es Igual y CID < 15: CID:= CID+1;
-Si es mayor: CID:= 16; (15+1)
Luego escribo en FUI la fecha actual para actualizar el valor.
3) Compruevo que el valor de CID sea menor o igual que 16 para iniciar el programa.

Esto es solo una de las formas de hacerlo tenes varias formas mas y mucho mas seguras que esta pero esta es facil y funciona bastante bien.

[dec]

Hola,

Bueno. Ahora que lo pienso, siento si mi anterior mensaje pudo molestarte en algún punto. No era mi intención. De todas formas, puedo asegurarte que lo que a ti te ha pasado no es común, pero, tampoco tan extraño, y, puede arreglarse editando el mensaje, si es necesario borrándolo todo y comenzándolo de nuevo (se supone que copiando y pegando, pero, no la parte del código fuente, que parece la problemática). Si todavía así tienes problemas... igual descubrimos un "bug" y podemos por tanto tratar de arreglarlo.

[elcolo83]

estube haciendo pruevas hasta recien con el codigo que queria mandar... y de 10 pruebas 2 salen bien y 8 me cambia el texto y le saca todos los espacios y retornos de linea al mensaje cuando hago la vista previa... sera ese el bug??

[dec]

Hola,

Empezado por elcolo83

estube haciendo pruevas hasta recien con el codigo que queria mandar... y de 10 pruebas 2 salen bien y 8 me cambia el texto y le saca todos los espacios y retornos de linea al mensaje cuando hago la vista previa... sera ese el bug??

Pues no lo sé, pero, ¿por qué no lo dejaste alguna de las dos veces que salió bien? Ya te he dicho que a veces, efectivamente, "falla" la etiqueta Delphi, pero, que, editando el mensaje y empezando desde un principio no suele haber más problemas. A no ser que nos encontremos con un problema nuevo o "mayor", pero, no creo. Prueba de nuevo a editar tu mensaje, el que todavía está "mal", y trata de dejarlo bien.

[elcolo83]

Te digo lo que hice...
1) Empiezo de cero.
2) Copio y pego el codigo.
3) Hago una vista previa.
Si se ve bien edito el texto, hago otra vista previa y falla. Vuelvo a el paso 1).

Lo mas provable es que parte del codigo no es soportado por la etiqueta Delphi.
Si copio y pego el texto sin la etiqueta este pierde los tabs, pero por lo menos se ve a lo largo... jajaja!!!
El problema es la etiqueta... no hay muchas vueltas que darle.

Otra cosa que se podria tener en cuenta es que si alguien pega un codigo bien escrito sin la etiqueta Delphi, que mantenga este formato, ya que para mi hacen un Trim(Line[i]) de cada linea del post nuevo antes de publicarlo y no le veo mucho sentido.