Temas

Me pueden recomendar algún ofuscador freeware o que me permita ofuscar en su versión Trial sin agregarle restricciones a mi ejecutable, he conseguido unos ofuscadores que casi que vuelven el exe una pelota de acero gigantesca además de resumir el peso en más del 50% pero sus licencias sobrepasan los 1000$

Pd: Es una aplicación en .NET, y tambien tengo otra pregunta no menos importante, Como se llama la propiedad de algunos ofuscadores que hace que la aplicación pierda  la "firma" (por decirlo así) que fue emsamblado en .NET y así los desensambladores no aceptan el ejecutable ya que no es de .NET?

[Download:]

Es un CrackME hecho por mi en .NET soy nuevo en esto de la ingieria inversa, me ha llamado mucho la atención y bueno aqui se los dejo es de dificultad regular exploten el primer error que consigan

Download:
http://www.speedyshare.com/files/20092009/CrackME.rar

@Down
Lo lograstes bien hecho iva a ofuscar el codigo pero les deje esa hueco de seguridad alli para ver quien lo agarraba
Aproposito el la clase Trialer es de una DLL que hice para hacer versiones demo pero es open source porque no la uso en ningun programa si quieren tambien pueden desemsamblar para ver un ejemplo de una version demo hecha por ustedes mismos...

Hice está función para inyección de una dll en un proceso pero cuando la llamo el proceso a inyectar da error y se cierra, que está mal?

Código (vbnet) [Seleccionar] Expandir

   Public Function InyectDLL(ByVal Dll As String, ByVal PID As Integer) As Boolean
        On Error GoTo 0

       Dim Buffer1 As Integer, _
        Buffer2 As Integer, _
        OpenedP As Integer = OpenProcess(PROCESS_ALL_ACCESS, False, PID), _
        AddressP As Integer = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryW"), _
        rems As Integer = VirtualAllocEx(OpenedP, 0, Len(Dll), MEM_COMMIT, PAGE_READWRITE)

       WriteProcessMemory(OpenedP, rems, Dll, Len(Dll), Buffer2)

       CreateRemoteThread(OpenedP, 0, 0, AddressP, rems, 0, Buffer1)
       WaitForSingleObject(rems, &HFFFFFF)

       CloseHandle(OpenedP) : CloseHandle(rems)
       Return True

   End Function

En un programa llamado Sin Espias un programa antiespias (¬¬ que tonto es obvio); Tiene un modulo que se encarga de monitorear todos los procesos en busca de keylogger nose como lo hace tengo 2 posibilidades una es que detecte el api GetAsciiKeyState o que intercepte el teclado haciendo un Hook a Windows...
Si es detectando el api entonces me supongo que se podra hacer con mas apis que no sean esa.... En fin lo que quiero es detectar el uso de la api ReadProcessMemory
Si me pudieran ayudar estaria muy agredecido

Será posible cambiar el StartTime de un proceso, quiero decir cambiar la hora en que inicio sin necesidad de reiniciarlo ni cerrarlo...

Gracias 

[No se puede tener acceso a 'xxxx'Acceso Denegado.]

Estoy tratando de leer el Static de una ventana de Dialog de Windows, la que dice:

No se puede tener acceso a 'xxxx'

Acceso Denegado.

Ya logre obtener el handle del dialog con:

Código [Seleccionar] Expandir

FindWindow("#32770", "Explorador de Windows")

Y comprobando que ese fuera el hWnd usando a SendMessage par obtener el caption y asi comprobar si realmente es la ventana, entonces... uso FindWindowEx para obtener el Static interno del dialog cuya class es "Static" y retorna 0 el handle:

Código [Seleccionar] Expandir

FindWindowEx(FindWindow("#32770", "Explorador de Windows"), 0, 0, "Static")

Que debo hacer para obtener el texto de ese Static?

Gracias.

Hice un Auto Login para un juego en linea dejo de funcionar por algo que no explicare porque seria muy largo de hacer, el punto es que necesito usar SendMessage para enviar pulsasciones del teclado y del mouse he investigado mucho pero mucho al parecer todo esta como deberia pero aun así no funciona nada y eso me hace querer pegarle con martillo a la PC xD, en serio quisiera que me ayudaran
Aqui les va todo:

Declaración API's y Constantes:

Código (vb) [Seleccionar] Expandir


    'Keyboards Events Consts
   Const WM_KEYDOWN As Integer = &H100
   Const WM_KEYUP As Integer = &H101
   Const WM_CHAR As Integer = &H102

   Const WM_LBUTTONDOWN As Integer = &H201
   Const WM_LBUTTONUP As Integer = &H202

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hWnd As Integer, ByVal wMsg As Integer, _
   ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Funciones:

Código (vb) [Seleccionar] Expandir


'Enviar Texto a una Ventana
Public Sub SendString(ByVal mHandle As Integer, ByVal str As String)
       For Each i As String In str
           SendMessage(mHandle, WM_KEYDOWN, Asc(i), 0)
           SendMessage(mHandle, WM_KEYUP, Asc(i), 0)
       Next
   End Sub

'Enviar Tecla (ENTER, ESC, UP, DOWN, ETC...) a una Ventana
Public Sub SendKey(ByVal mHandle As Integer, ByVal Key As Keys)
           SendMessage(mHandle, WM_KEYDOWN, key, 0)
           SendMessage(mHandle, WM_KEYUP, key, 0)
   End Sub


Código (vb) [Seleccionar] Expandir


'Funciones para Crear lParam de SendMessage
Public Function MAKELPARAM(ByVal wLow As Integer, ByVal wHigh As Integer) As Integer
       Return LoWord(wLow) Or (&H10000 * LoWord(wHigh))
   End Function

   Public Function LoWord(ByVal lDWord As Integer) As Integer
       If lDWord And &H8000& Then
           LoWord = lDWord Or &HFFFF0000
       Else
           LoWord = lDWord And &HFFFF&
       End If
   End Function

Código (vb) [Seleccionar] Expandir


'Enviar Clicks a Ventana
Public Sub SendClick(Byval mHandle as Integer,  Byval XY As Point)
       SendMessage(WM_LBUTTONUP, 0, 0)
       Dim lpara As Integer = MAKELPARAM(XY.X, XY.Y)
       SendMessage(WM_LBUTTONDOWN, 0, lpara)
       SendMessage(WM_LBUTTONUP, 0, lpara)
   End Sub

Gracias por adenlantado 

Descarge un archivo BIN del juego Dragon Ball Z; ahora quisiera saber que debo hacer para quemarlo tengo el Alcohol y el Nero, he leido que los archivos deben ser CUE, ISO y otra variedad de formatos más, entonces estoy muy confundido y quisiera que alguien me diga la verdad de que debo hacer para poder quemar un juego de PSX

Gracias 

Como hago para que hay darle segundo click al NotifyIcon salgan esas opciones de tipo lista en las que se puede selecionar una, Gracias. 

El titulo habla más que yo xD por favor si alguien sabe como descargar un archivo desde está pagina con Vb NET.
Gracias 

[Acceso Denagado a: "C:\XXX"]

Ufff como me ha costado hacer este Sub .__. y la traigo al mejor foro

Actualizado tambien para archivos...

Bueno marca los permisos de una carpeta o archivo para que salga

Acceso Denagado a: "C:\XXX"

Al intentar eliminar, explorar, renombrar, etc, etc, etc; quita todos los permisos, pero tambien los restablece

Primero debemos Importar:

Código (vb) [Seleccionar] Expandir

Imports System.IO
Imports System.Security.AccessControl

y e aqui el Sub ^^

Código (vb) [Seleccionar] Expandir


   Public Sub ProtectedFolderOrFile(ByVal F As String, ByVal bool As Boolean)        
Dim dInfo As New DirectoryInfo(F), _
        dSecurity As DirectorySecurity = dInfo.GetAccessControl()

       Select Case bool
           Case True
               dSecurity.SetAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
           Case False
               dSecurity.RemoveAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
               dInfo.SetAccessControl(dSecurity)
               dSecurity.AddAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Allow))
       End Select
       dInfo.SetAccessControl(dSecurity)
   End Sub

Como puedo obtener el peso de un archivo apartir del link?, por ejemplo el link de una imagen...

Gracias 

Como dice el titulo .__. como puedo guardar una imagen que se encuentra en el clipboard...

Gracias

[(1024 * 1024) / X]

Saludos a todos...

Estoy tratando de calcular la velocidad de rellanado de una RAM por segundo...

Mi idea es correr un timer cada 1 seg que sume una varible +1, y en un backgroundworker llenar una variable con Space(1024 * 1024) (1024Kb) pero el backgroundworker termina el trabajo cuando ejecuta la linea habria una forma de esperar a que se llene el buffer que estoy creando?

Para luego dividir (1024 * 1024) / X cantidad de segundos que duró el llenado del buffer que fue contado con un Timer y así obtener la velocidad aproximada de llenado por segundo en Bytes

Quisas es algo loco o hay otra forma de hacerlo?

Gracias

[Saber si un proceso está corriendo por medio de su nombre]

Saber si un proceso está corriendo por medio de su nombre

Código (vb) [Seleccionar] Expandir

     Public Function IsRuning(ByVal ProcessName As String) As Boolean
        Return Process.GetProcessesByName(ProcessName).Count > 0
    End Function

Saber si un string es Multilinea

Código (vb) [Seleccionar] Expandir

String.Contains(Chr(13))

True y False repectivamente para Es y No Es, Siendo String el nombre de la variable o texto a consultar.

Leer una determinada linea de un archivo

Necesitamos importar

Código (vbnet) [Seleccionar] Expandir

Imports System.IO

Código (vbnet) [Seleccionar] Expandir

    Public Function ReadFileLine(ByVal filer As String, ByVal line As Integer) As String
        Return File.ReadAllLines(filer).ElementAt(line - 1)
    End Function

Explorar Ruta y seleccionar archivo (Método no Común)

Código (vbnet) [Seleccionar] Expandir


    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Dim Folder As String = "C:\", _
    nFile As String = "Archivo"

        ShellExecute(0, "Open", Folder, vbNullString, vbNullString, 1)
        For Each i As Process In Process.GetProcessesByName("explorer")
            While i.MainWindowTitle <> Mid(Folder, InStrRev(Folder, "\") + 1, Len(Folder))
            End While
            Exit For
        Next
        SendKeys.SendWait(nFile)


Folder el directorio a abrir y nFile el nombre del archivo a seleccionar sin incluir la extensión...

Usar la API Sleep sin declararla

Solo debemos importar la siguiente libreria

Código (vb) [Seleccionar] Expandir

Imports System.Threading.Thread

Libererar la memoria RAM usada en nuestra aplicación

Declaramos la siguiente API

Código (vbnet) [Seleccionar] Expandir


Public Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean


Para Liberar nuestra memoria ahora solo tenemos que usar

Código (vbnet) [Seleccionar] Expandir

SetProcessWorkingSetSize(Process.GetCurrentProcess.Handle, -1, -1)

Agregaré más

Bueno les traigo mi método de cifrado preferido en una sola función que sirve tanto para cifrar como para descifrar, los carácteres no se repiten, El unico debug que le he encontrado y quisiera ayuda para solucionarlo es el siguiente:
Si el largo del texto es mayor al valor ASCII maximo (255) y los carácteres son los mimos en una cadena seguida de 255+1 carácter da debug...
Por ejemplo:
256 Caráracteres "a"

aaaaaaaaaaaaaaaaaa......
aaaaaaaaaaaaaaaaaaa....

Aqui el codigo:

Código (vb) [Seleccionar] Expandir

Public Function DEncriptStr(ByVal str As String) As String
       Dim int As Long = str.Length
       DEncriptStr = Nothing
       For Each x As String In str
           DEncriptStr = DEncriptStr & Chr(Asc(x) Xor int)
       Next
       Return DEncriptStr
   End Function

Gracias de adelantado...

Primero un saludo a todos soy nuevo en elhacker.net y soy programador vb aficionado xD, uso visual basic 2008 express
Como cargo un archivo skn como skin para mi aplicación; ya registre el actskin4.ocx

Gracias de antemano