Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-01-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: nov 2003
Ubicación: Valencia city
Posts: 1.481
Poder: 22
ArdiIIa Va por buen camino
MINI PROTECCION DE APLICACIONES

Hace tiempo puse un truco que estaba en la sección de columnas pero no he llegado a encontrarlo, así que vuelvo a ponerlo por considerarlo de interés general:

En sí, lo que hace es introducir la información del disco duro dentro de un RESOURCE del programa. Posteriormente verifica que esa información introducida en el RESOURCE, se corresponda con el número de serie del disco duro donde se ejecuta el programa, en el caso de que existan diferencias quiere decir que el programa se está ejecutando en otro ordenador (o disco duro) o que el disco duro formateado.
De un modo u otro, si la aplicación detecta esto último, deja de ejecutarse.
El procedimiento, una vez que se "automodifica", se autoejecuta, por ese motivo siempre trata de borrar la copia antigua del programa "borrame.dat".
Ni que decir tiene que este procedimiento ha de ser llamado cuando el programa comienza a ejecutarse, a mi juicio el modo mas apropiado es cuando el Form principal se está creando.

A título informativo, diré que las funciones utilizadas en este procedimiento, referentes a recursos, pueden ser utilizadas por cualquier programa para introducir cualquier información o fichero dentro de nuestro propio ejecutable. Esto lo comento porque he visto mensajes por ahí preguntando como se podría meter un fichero ejecutable dentro de nuestro programa y este modelo podría servir como introducción haciéndole alguna pequeña modificación.

En fin espero que resulte útil.


Código Delphi [-]
// ESTE PROCEDIMIENDO DETECTA Y MARCA EL EJECUABLE SI ES EL CASO PARA QUE SOLAMENTE
// SE EJECUTE EN UN ORDENADOR EN CONCRETO

Procedure TFormMain.CheckSecurity;

Function Check_HD : string;
Var
   VolumeNameBuffer : array [0..MAX_PATH -1] of Char;
   VolumeSerialNumber : DWord;
   MaximumComponentLength : DWord;
   FileSystemFlags : DWord;
Begin
Result := '*';
      GetVolumeInformation( '\'
                           ,VolumeNameBuffer
                           ,DWORD(sizeof(VolumeNameBuffer))
                           ,@VolumeSerialNumber
                           ,MaximumComponentLength
                           ,FileSystemFlags
                           ,nil
                           ,0);
Check_HD := IntToHEX(VolumeSerialNumber,8);
End;



Function Check_RES : String;
Var
    ResData: HGLOBAL;
    ResInfo: HRSRC;
Begin
 Result := '';
 ResInfo := FindResource(hInstance, 'FULANO', RT_RCDATA);
 if ResInfo <> 0 then
    Begin
      ResData := LoadResource(hInstance, ResInfo);
      if ResData <> 0 then
      try
        Result := PChar(LockResource(ResData));
        Check_Res := TRIM(Result);
        UnlockResource(ResData);
      finally
        FreeResource(ResData);
      End;
    End;

End;


Function Write_Exe : Boolean;
Var hRes : THandle;
    cHD  : String;
Begin
     cHD := Check_HD;
     hRes := BeginUpdateResource(PChar(cAtom+'.exe'),False);
     UpdateResource(hRes,RT_RCDATA,'FULANO',0,Pointer(cHD),Length(cHD));
     Result :=  EndUpdateResource(hRes,False);
End;



var
cTemp : String;
proc_info: TProcessInformation;
startinfo: TStartupInfo;

Begin //Comienzo del Procedimiento
Deletefile('borrame.dat');
cTemp := Check_Res;
If cTemp = '' then
Begin
Aviso('SE VA A REALIZAR UNA OPERACIÓN DE AUTOPROTECCIÓN QUE PUEDE SER DETECTADA POR PROGRAMAS ANTIVIRUS');
CopyFile(Pchar(Application.Exename),cAtom+'.exe',False);
If Write_Exe then
    if MoveFileEx(PChar(Application.Exename),'BORRAME.DAT',MOVEFILE_COPY_ALLOWED) then
        if MoveFileEx(cAtom + '.exe',PChar(Application.Exename),MOVEFILE_COPY_ALLOWED) then
        Begin
            FillChar(proc_info, sizeof(TProcessInformation), 0);
            FillChar(startinfo, sizeof(TStartupInfo), 0);
            startinfo.cb := sizeof(TStartupInfo);
            if CreateProcess(PChar(Application.exename),'',nil,nil,False,IDLE_PRIORITY_CLASS ,nil,nil,startinfo,proc_info) then
               CloseHandle(proc_info.hProcess);
            Application.Terminate;
        End;
End
else if cTemp <> Check_HD then
Begin
AVISO('ESTE PROGRAMA ES UNA COPIA ILEGAL Y NO ESTA AUTORIZADO A EJECUTARSE EN ESTE ORDENADOR');
Application.Terminate;
Sleep(10000);
End;
End;

P.D.
(FULANO) es el nombre del recurso, que obviamente puede ser cualquier nombre...
(cAtom) es una variable de texto que contiene un nombre para asignar al fichero...
Responder Con Cita
  #2  
Antiguo 31-01-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
hola que tal mi pregunta por ahi es algo basica o peco de ignorante!!
pero lo quize probar y nose que hace esto

Procedure TFormMain.CheckSecurity; me tira error ahi
despues esta otra

Aviso('SE VA A REALIZAR UNA OPERACIÓN DE AUTOPROTECCIÓN QUE PUEDE SER DETECTADA POR PROGRAMAS ANTIVIRUS');
probe reemplazarlo por un showmessage,

despues en la variable catom tambien tengo problemas hacerla global string pero me da incompatible string and pchar
bueno aver quien se rie un rato y me explica un poquito!!
Responder Con Cita
  #3  
Antiguo 31-01-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: nov 2003
Ubicación: Valencia city
Posts: 1.481
Poder: 22
ArdiIIa Va por buen camino
Hola Dalmine:
Date cuenta que el código está adaptado a un programa concreto, y solo como "muestra", lo que quiere decir que eres tu quien ha de realizar los cambios oportunos para que te funcione, es obvio que por ejemplo Aviso, es una función que muestra un mensaje, por lo cual con un simple ShowMessage es válido, y así para el resto de código...
Responder Con Cita
  #4  
Antiguo 31-01-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
ok gracias, si eso del mensaje me imagine pero lo de catom seria el nombre del archivo compilado y lo de la primerera linea no se de que es ni como anda, ya que me gustaria aplicarlo para unos programas que tengo echo. Esto iria en el form principal del programa, y tendria que hacer que chequee antes de que pueda usar algo del menu para que se sierre solo si no es el numero de serie adecuado

gracias
Responder Con Cita
  #5  
Antiguo 31-01-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
ok gracias, si eso del mensaje me imagine pero lo de catom seria el nombre del archivo compilado y lo de la primerera linea no se de que es ni como anda, ya que me gustaria aplicarlo para unos programas que tengo echo. Esto iria en el form principal del programa, y tendria que hacer que chequee antes de que pueda usar algo del menu para que se sierre solo si no es el numero de serie adecuado

gracias
Responder Con Cita
  #6  
Antiguo 31-01-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
ok gracias, si eso del mensaje me imagine pero lo de catom seria el nombre del archivo compilado y lo de la primerera linea no se de que es ni como anda, ya que me gustaria aplicarlo para unos programas que tengo echo. Esto iria en el form principal del programa, y tendria que hacer que chequee antes de que pueda usar algo del menu para que se sierre solo si no es el numero de serie adecuado

gracias
Responder Con Cita
  #7  
Antiguo 31-01-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
ok gracias, si eso del mensaje me imagine pero lo de catom seria el nombre del archivo compilado y lo de la primerera linea no se de que es ni como anda, ya que me gustaria aplicarlo para unos programas que tengo echo. Esto iria en el form principal del programa, y tendria que hacer que chequee antes de que pueda usar algo del menu para que se sierre solo si no es el numero de serie adecuado

gracias
Responder Con Cita
  #8  
Antiguo 31-01-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: nov 2003
Ubicación: Valencia city
Posts: 1.481
Poder: 22
ArdiIIa Va por buen camino
Vaya, Dalmine; que persona más agradecida...
Ya se que esto de los comentarios a los trucos no funciona bien... Unas veces se ven y la mayoría NO.
Responder Con Cita
  #9  
Antiguo 31-01-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
hola que tal al final lo pude hacer andar a medias!! tengo que ver mas que pasa con la ruta cuando copia el archivo que ahi no me lo copia donde lo pongo, pero sino me crea un archivo solo, o sino dos archivos en el mismo path, pero anda re bien!!
gracias
Responder Con Cita
  #10  
Antiguo 31-01-2007
Dalmine Dalmine is offline
No confirmado
 
Registrado: ago 2006
Ubicación: Argentina Campana Buenos Aires
Posts: 19
Poder: 0
Dalmine Va por buen camino
bueno me gano!! ajja, no entiendo en el tema donde mueve los archivos, yo le pongo al catom
hRes := BeginUpdateResource(PChar('c:\delia\bloqueado.exe'),False);
ahi me crea en archivo en ese path

CopyFile(Pchar(Application.Exename),pchar('c:\delia\bloqueado.exe'),False);
aca nose que hace lo copia en donde le digo
if MoveFileEx(pchar('c:\delia\bloqueado.exe'),PChar(Application.Exename),MOVEFILE_COPY_ALLOWED) then
y bueno lo demas nose

si tiene que dejar un solo archivo anda, ahora si son dos nose, y bueno si es como vos veces que los trucos aveces andan o no, nose se me dio por hacerlo andar a toda costa!!
Responder Con Cita
  #11  
Antiguo 21-02-2007
Avatar de nuk3zito
nuk3zito nuk3zito is offline
Miembro
 
Registrado: ago 2003
Ubicación: "Z" Land
Posts: 244
Poder: 22
nuk3zito Va por buen camino
Este tipo de protecciones aunque no son seguras son dignas de tenerlas como material didáctico.

Gracias ArdiIIa
Responder Con Cita
  #12  
Antiguo 28-03-2007
Avatar de martinzcr
martinzcr martinzcr is offline
Miembro
 
Registrado: jun 2006
Ubicación: San Jose, Costa Rica
Posts: 53
Poder: 19
martinzcr Va por buen camino
Hola:

Esta muy interesante. Sólo tengo una consulta. Si necesito que la aplicación también se ejecute desde una PC de la red cómo hago para que no me detecte la aplicación como "COPIA ILEGAL"?. Puede ser mapeando la unidad?... si es así, que pasa si el recurso esta en una carpeta diferente a la que se mapea (o no esta campartida en la red?

Saludos!
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


La franja horaria es GMT +2. Ahora son las 01:15:19.


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