Mensajes

[salu2]

Antes que nada un amigo mio de discord lo hizo, espero lo que lo puedan resolver. salu2



PLATAFORMA: Windows x86 & x64.
DIFICULTAD: ¿¿??.
LENGUAJE: CSharp.
OBJETIVO: Conseguir la clave y arreglar completamente el ejecutable.
INFORMACIÓN: Se puede abrir en VM y utilizar cualquier tipo de herramienta, no hay reglas.

DESCARGA: UnpackMe - AnonFile
VIRUSTOTAL: 26/72

[Por cierto gracias por comentar]

ups, no xd. ahora lo pruebo. tal vez mañana. y edito este pots para decir como me fue.

oie tu programas en c++ no? seria genial que se agregara compatibilidad con directx 10 y 11 a esa api xd . es solo un comentario.

Por cierto gracias por comentar



Edición, Probé el code que me pusiste. pero no funciono.

A continuación lo q hice:

Clase - ACCENTPOLICY.vb

Código (vbnet) [Seleccionar] Expandir

Imports System

Public Class ACCENTPOLICY

    Public nAccentState As Integer

    Public nFlags As Integer

    Public nColor As Integer

    Public nAnimationId As Integer
End Class

Public Class WINCOMPATTRDATA

    Public nAttribute As Integer

    Public pData As Object

    Public ulDataSize As UInteger
End Class

Public Class Funcs

    Public Delegate Function pSetWindowCompositionAttribute(ByVal UnnamedParameter As System.IntPtr, ByVal UnnamedParameter2 As WINCOMPATTRDATA) As Boolean


    Friend Declare Function SetWindowCompositionAttribute Lib "user32.dll" (ByVal UnnamedParameter As System.IntPtr, ByVal UnnamedParameter2 As WINCOMPATTRDATA) As Boolean

    Public Shared Sub SetWindowTransparent(ByVal hWnd As IntPtr)
        Dim hModule As IntPtr = New IntPtr
        If hModule Then
            Dim SetWindowCompositionAttribute As pSetWindowCompositionAttribute = SetWindowCompositionAttribute
            If (Not (SetWindowCompositionAttribute) Is Nothing) Then
                Dim policy As ACCENTPOLICY = New ACCENTPOLICY
                ' ACCENT_ENABLE_TRANSPARENTGRADIENT=2...
                Dim data As WINCOMPATTRDATA = New WINCOMPATTRDATA
                ' WCA_ACCENT_POLICY=19
                SetWindowCompositionAttribute(hWnd, data)
            End If

        End If

    End Sub

End Class



Form1.vb

Código (vbnet) [Seleccionar] Expandir

Imports WindowsApplication4.ACCENTPOLICY

Public Class Form1


    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As IntPtr
    Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As IntPtr
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As IntPtr) As Integer
    Public Const PROCESS_VM_ALL As Integer = &H1F0FFF
    Public hWnd As IntPtr, pHandle As IntPtr, processID As Integer
    Const ProcessName As String = "hl2"


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        If ProcessHack() = 1 Then
            WindowsApplication4.Funcs.SetWindowTransparent(pHandle)
        End If

    End Sub

    Private Function ProcessHack() As Integer
        Dim proc As Process() = Process.GetProcessesByName(ProcessName)
        Dim windowname As String
        windowname = proc(0).MainWindowTitle
        hWnd = FindWindow(vbNullString, windowname)
        GetWindowThreadProcessId(hWnd, processID)
        pHandle = OpenProcess(PROCESS_VM_ALL, 0, processID)
        If hWnd = 0 Then
            Return 0
        Else
            Return 1
        End If
    End Function


End Class

Bueno al menos lo intente .-.

[Me resigne a usar la api q Comparti hace tiempo :]

Bueno después de buscar en vano como superponer forms en juegos de pantallas completa  y no encontrar nada, Me resigne a usar la api q Comparti hace tiempo : VB.NET Overlay in Games Full Screen

Bueno hice un mini menu D3D con ella, Solo funciona con juegos que usan Directx 9.

Obiamente si funciona con los juegos en pantalla completa.

Link : DirectX-Menu-Game

Código (bash) [Seleccionar] Expandir

if exist %cadena% copy %cadena% "d:\carpeta_destino"

Bueno primero q nada, yo intente algo parecido de varias maneras. pero no evitaras q los bytes se corrompan. a menos q uses herramientas externas. en mi caso opte por la comandline de winrar. con eso lo lograras fácilmente.

hechale un ojo a mi code :

[batch] [aporte] batch archive security v0.3

Bueno ya te respondieron arriba, el tienes q corregir lo de los segundos, siguen aumentando cuando llegan a 60.

Y Respondiendo a tu pregunta :

Código (bash) [Seleccionar] Expandir

@echo off
@mode con cols=30 lines=10
if exist Registro.txt del Registro.txt >nul
cls
color 0a

set/a s=1

echo.
echo Para Pausar El Cronometro
echo Utiliza (Ctrl+C)
echo.
echo Pulsa cualquier tecla para
echo iniciar
pause>nul

:inicio
cls
echo.
echo       °±² Cronometro ²±°
echo.
echo Segundos : %s%
echo Minutos : %m%
echo Horas : %h%
timeout/t 1 /nobreak>nul
set/a s+=1
set/a m=s
set/a m/=60
set/a h=m
set/a h/=60
(
  echo %s%
   )>Registro.txt
goto inicio

es raro ver un aporte tuyo .  , se agradece. 

[????(Parte de una Cadena Hexadecimal) ??x64x84x54?????]

@Eleкtro @ThunderCls Por las respuestas, me quedo claro.

Es que me parecía raro también a mi. es que vi un video hace días sobre un usuario que hacia un motor antivirus en c# . Lo que hacia Primero era Debuggear un .exe que previamente fue pasado por un Crypter. usaba ollydbg y cuando empezó con el motor declaraba la signatura así :

????(Parte de una Cadena Hexadecimal) ??x64x84x54????? . algo así. y por eso me entro la duda.

[Gracias por ayudarme siempre, xd.]

¿...?. ¿De donde has sacado eso?.

Me han pasado un code por dicord diciendo que es una scaner de antivirus, Y le Scanner funciona bien, de verdad detecta. Pero lo q no se como es que Obtuvieron esa Signatura HEXADECIMAL.

Gracias por ayudarme siempre, xd.

[Hola]

Hola, como dice el titulo, Estoy en busca de una lista de Signaturas Hexadecimal , de las Funciones de WinAPI. por ejemplo :

Funcion :

Código (vbnet) [Seleccionar] Expandir

Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Short

HexType :

Código (vbnet) [Seleccionar] Expandir

Dim KeyboardHook As String() = {"48 6F 6F 6B 43 61 6C 6C 62 61 63 6B", "47 65 74 41 73 79 6E 63 4B 65 79 53 74 61 74 65"}

Entonces con un Scaner Puedo tomar esa signatura Hexadecimal y Identificar los .exe que Usan la funcion GetAsyncKeyState

----------------------------------------------------------------------

En si No se como sacar esa Signatura hexadecimal o no se si hay alguna lista ya con todas las signaturas.


Gracias De antemano