Mensajes

Si, la verdad es que GDS ha estado acosando mis post en Taringa, por eso me bajan los mismos.

Pero, bueno, si me dejan lo que quieren y un mail, les mando lo que tengo:

1) Keygen para:

Boutique Plus v5.80
Computación Plus v5.80
Ferretería Plus v5.80
Gestión Integral v5.80
Punto de Ventas Plus v5.80

2) Keygen para: Peluqueria v5.31

3) Keygen para: Estacionamiento v5.33

Saludos!

[Buscador del Foro]

Bueno, fijate en estos ejemplos:

Código [Seleccionar] Expandir


http://foro.elhacker.net/empty-t211153.0.html
http://foro.elhacker.net/empty-t73941.0.html
http://foro.elhacker.net/empty-t225135.0.html
http://foro.elhacker.net/empty-t237547.0.html


La lista es más larga, pero sólo me limité a copiar los links de la primera página del Buscador del Foro.

Saludos!

Hola!

De aquí la aprendí a usar yo:

Código [Seleccionar] Expandir


ReadProcessMemory
The ReadProcessMemory function reads memory in a specified process. The entire area to be read must be accessible, or the operation fails.

BOOL ReadProcessMemory(
  HANDLE hProcess,  // handle to the process whose memory is read
  LPCVOID lpBaseAddress,
                    // address to start reading
  LPVOID lpBuffer,  // address of buffer to place read data
  DWORD nSize,      // number of bytes to read
  LPDWORD lpNumberOfBytesRead
                    // address of number of bytes read
);

Parameters
hProcess
Handle to the process whose memory is being read. The handle must have PROCESS_VM_READ access to the process.
lpBaseAddress
Pointer to the base address in the specified process to be read. Before any data transfer occurs, the system verifies that all data in the base address and memory of the specified size is accessible for read access. If this is the case, the function proceeds; otherwise, the function fails.
lpBuffer
Pointer to a buffer that receives the contents from the address space of the specified process.
nSize
Specifies the requested number of bytes to read from the specified process.
lpNumberOfBytesRead
Pointer to the actual number of bytes transferred into the specified buffer. If lpNumberOfBytesRead is NULL, the parameter is ignored.
Return Values
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero. To get extended error information, call GetLastError.

The function fails if the requested read operation crosses into an area of the process that is inaccessible.

Remarks
ReadProcessMemory copies the data in the specified address range from the address space of the specified process into the specified buffer of the current process. Any process that has a handle with PROCESS_VM_READ access can call the function. The process whose address space is read is typically, but not necessarily, being debugged.

The entire area to be read must be accessible. If it is not, the function fails as noted previously.


Espero te sea útil...

Hola!

Bajando a ver que tal...

Saludos!

Hola!

Mira por aqui:

Código [Seleccionar] Expandir

El link ya no funciona

No te olvides de comentar!  

Saludos!

Está posteada

Hola!

Quizás puedas sacar algo de esto:

Código [Seleccionar] Expandir


Public Sub AdaptarToResolucion(Formulario As Form)
'Propósito:
'          Adapta los controles de un formulario en tiempo de ejecución
'          dependiendo de la resolución de la pantalla.
'Parámetros:
'           Formulario: Variable tipo form que será redimensionada.
'
Dim ControlForm
Dim ES_TAB As Boolean
Dim Cuad As RECT
Dim Res As Long
Dim CoordX As Single

Err.Clear

Res = GetWindowRect(GetDesktopWindow, Cuad)
If Res = 0 Then Exit Sub
CoordX = Cuad.Right 'Screen.Width / Screen.TwipsPerPixelX

If (Not ResOK) Or (CoordX = ResXDisenio) Then Exit Sub

On Error Resume Next

proporcional = CoordX / 800

If Formulario.WindowState <> 2 Then
  Formulario.Width = Formulario.Width * proporcional
  Formulario.Height = Formulario.Height * proporcional
End If

For Each ControlForm In Formulario.Controls
   ControlForm.Top = ControlForm.Top * proporcional
   If ControlForm.Left >= 0 Then
       ControlForm.Left = ControlForm.Left * proporcional
       ControlForm.Width = ControlForm.Width * proporcional
       Err = 0
       ControlForm.FontSize = Int(Val(ControlForm.FontSize * proporcional)) - 1
       If Err <> 0 Then
           Err = 0
           ControlForm.Font.Size = Int(Val(ControlForm.Font.Size * proporcional)) - 1
       End If
       If Err <> 0 Then
           ControlForm.Title.Font.Size = Int(Val(ControlForm.Title.Font.Size * proporcional)) - 1
       End If
       Err = 0
       ControlForm.Font.Name = "Arial"
       If Err <> 0 Then
           Err = 0
           ControlForm.FontName = "Arial"
       End If
       If Err <> 0 Then
           Err = 0
           ControlForm.Font = "Arial"
       End If
       If Err <> 0 Then
           ControlForm.Title.Font.Name = "Arial"
       End If
   Else
       If ControlForm.Tag = "ANCHO" Then
           ControlForm.Left = (75000 - Abs(ControlForm.Left)) * proporcional
           ControlForm.Width = ControlForm.Width * proporcional
           ControlForm.FontSize = Int(Val(ControlForm.FontSize * proporcional)) - 1
           ControlForm.Font.Size = Int(Val(ControlForm.Font.Size * proporcional)) - 1
           ControlForm.Font.Name = "Arial"
           ControlForm.FontName = "Arial"
           ControlForm.Font = "Arial"
           ControlForm.Title.Font.Name = "Arial"
           ControlForm.Title.Font.Size = Int(Val(ControlForm.Title.Font.Size * proporcional)) - 1
       End If
   End If
   ControlForm.TabMaxWidth = ControlForm.TabMaxWidth * proporcional
   ControlForm.Height = ControlForm.Height * proporcional
   ControlForm.X1 = ControlForm.X1 * proporcional
   ControlForm.X2 = ControlForm.X2 * proporcional
   ControlForm.Y1 = ControlForm.Y1 * proporcional
   ControlForm.Y2 = ControlForm.Y2 * proporcional
Next ControlForm
End Sub


No sé si anda para todos los controles pues es algo que hice hace mucho...

Ah! Adapta a 800x600...
Osea:

Código [Seleccionar] Expandir


Public Const ResXDisenio = 800

Public Function ResOK() As Boolean
Dim Cuad As RECT
Dim Res As Long
Dim CoordX As Single

ResOK = False


Res = GetWindowRect(GetDesktopWindow, Cuad)
If Res = 0 Then
    ResOK = True
    Exit Function
End If

CoordX = Cuad.Right 'Screen.Width / Screen.TwipsPerPixelX

If CoordX >= ResXDisenio Then
    ResOK = True
End If
End Function


NOTA: Fíjate que el if que compara el Left del control, es paradeterminar si es un Tab. Las orejas del Tab tienen left negativo cuando no estan visibles.

Me faltaba eso  ...
Saludos!

Ya te lo he mandado...

Saludos!

Hola!

He mirado lo que subiste y.... la verdad, no sé que necesitas. El programa VIENE con el crack.

Asi que... 

Hola cesar_cell

Primero: Aquí puedes aprender sobre Ingeniería Inversa (Cracking), no Hacking (es distinto).

Segundo: ¿ Cuál es el programa que te pide el archivo key ? ¿ De dónde se puede descargar ?

Tercero: Si lo que quieres, es aprender sobre Ingenieria Inversa (Cracking), te recomiendo el curso de Ricardo Narvaja: Olly desde cero. Al curso lo bajas desde aqui:

Código [Seleccionar] Expandir

http://ricardonarvaja.info/WEB/INTRODUCCION%20AL%20CRACKING%20CON%20OLLYDBG%20DESDE%20CERO/

Saludos!