Protect Apps (Source)

[cobein]

Bueno, estaba aburrido y se me ocurrio hacer este code, es para proteger las aplicaciones, no es infalible pero seguramente va a molestar bastante a un debugger.

Espero que les guste y aprendan algo del code =)

Descarga
http://www.uploadsourcecode.com.ar/d/I0LDiGZnKy25FwuwoMJm408wEN1SIkkT

[FaiF (A¥åHøRå)]

¿Cómo creas la segunda ventana esa? Por más que busco no entiendo como lo haces xD... Archivos .res??

Salu2 

[naderST]

¿Cómo creas la segunda ventana esa? Por más que busco no entiendo como lo haces xD... Archivos .res??

Salu2 

Es el archivo Proyecto1 el que no tiene ninguna extensión.....

[SKL (orignal)]

y... como hace para iniciar el proyecto1?????

[seba123neo]

es un .exe jajja

[naderST]

si... ponle de extension .exe y ahi mismo te cambia al iconito del visual y todo xDDD

[seba123neo]

parece ser que detecta e Sub_Main() o algo asi no??  ,porque si le cambias la forma de inicio no anda...

[naderST]

No tengo ni la menor idea de porque ejecuta el otro archivo xD

[SheKeL_C$]

No tengo ni la menor idea de porque ejecuta el otro archivo xD

Por el CreateProcess....

Mueve el scroll horizontal, lo que ha echo es esconderlo 

[Kizar]

Es lo mas sencillo del mundo...

Código (vb) [Seleccionar] Expandir


'Api para crear procesos a partir de ejecutables
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDirectory As String, lpStartupInfo As Any, lpProcessInformation As Any) As Long

'Aqui empieza el codigo del programa que se ejecuta al iniciar
Public Sub Main()
    'Variables (Curiosa forma de pasar parametros nulos)
    Dim PI(3) As Long, SU(17) As Long
    SU(0) = 68
    'Creamos el proceso a partir de el ejecutable "Proyecto1" que esta en la misma carpera pero no tiene extension exe
    'Renombrarlo a "Proyecto1.exe" y ejecutarlo para probar
    Call CreateProcess(App.Path & "\Proyecto1", vbNullString, 0, 0, 1, &H20, ByVal 0&, vbNullString, SU(0), PI(0))
End Sub