elrincondelc.com :: Ver tema - Protejer aplicacion con anticopia.

secury.dll -> no es mas que un txt renombrado, en el esta contenido la dirección de un archivo aleatorio generado por el bat. Le pueden renombrar por algo menos obvio xD

Instalador.exe -> Es un zip autoextraíble(SFX), en sus parámetros esta ejecutar TEMP.BAT luego de el autodescompresor, debe descomprimirse dentro de una carpeta vacía. Yo use AlZip para hacerlo. Como hacerlos?? aquí

Programa.exe -> Esta es nuestra aplicación anti copia, yo como utilice VB6 declare en que en el Sub Form_Load() abriera el secury.dll leyera su contenido, luego buscara el archivo generado aleatorio, si lo encontraba siguiera, si no, Produjera un Mensaje de error"No se puede ejecutar la aplicación, intente con privilegios de administrador"(para despistar).

TEMP.BAT  Código: @echo off set dir=%random% set file=%random% mkdir %windir%\%dir%\ echo archivo>>%windir%\%dir%\%file% attrib +s +h +r %windir%\%dir%\%file% attrib +s +h +r %windir%\%dir% if exist secury.dll del secury.dll echo %windir%\%dir%\%file%>>secury.dll del /Q /F instalador.exe del /Q /F temp.bat  Elemetos del bat %random% -> Genera numeros aleatorios set dir=%random% -> Asigna a dir un valor aleatorio ej: 150356 set file=%random% -> Asigna a file un valor aleatorio ej: 895657 %windir% -> Tag universal para el directorio de windows mkdir %windir%\%dir%\ ->[b] Crea un directorio en la carpeta windows ej: C:\Windows\150356 [b]echo archivo>>%windir%\%dir%\%file% -> Imprime la palabra archivo(puede ser cuarquier cosa) en ej: C:\Windows\150356\895657 attrib +s +h +r %windir%\%dir%\%file% -> Agrega atributos de Sistema(+s), Oculto(+h) y Solo lectura(+r) al archivo: C:\Windows\150356\895657 attrib +s +h +r %windir%\%dir% -> Agrega atributos de Sistema(+s), Oculto(+h) y Solo lectura(+r) al folder: C:\Windows\150356 if exist secury.dll del secury.dll -> Si ya existe secury.dll lo borra echo %windir%\%dir%\%file%>>secury.dll -> Imprime la direccion "%windir%\%dir%\%file%" en secury.dll ej: C:\Windows\150356\895657 del /Q /F instalador.exe -> Elimina si pedir confirmacion(/Q) y Fuerza su eliminacion(/F) instalador.exe del /Q /F temp.bat -> Elimina si pedir confirmacion(/Q) y Fuerza su eliminacion(/F) temp.bat  Con esto ya habran generado su archivo token %windir%\%dir%\%file% y el confirmador secury.dll(%windir%\%dir%\%file%) Por si tienen duda de como verificarlo en VB aca va el code  Código: Private Sub Form_Load() 'verificador anticopia On Error GoTo Fallo Dim check As String Dim Direct As String ChDir App.Path ChDrive App.Path Direct = App.Path If Len(Direct) > 3 Then        Direct = Direct & "\secury.dll" End If Open Direct For Input As #1 Line Input #1, check x = GetAttr(check) Exit Sub Fallo: MsgBox ("No se puede ejecutar la aplicacion, intente con privilegios de administrador") End End Sub  Volver arriba

elrincondelc.com :: Ver tema - Protejer aplicacion con anticopia.