Mensajes

si puedes karcrack ayudame un poco, mira haber si te puedes conectar al msn y lo hablamos

Ahora no puedo, tengo que acabarme un libro , pero mañana te posteo un ejemplo de multiconexion con Winsock Mientras puedes ir Googleando

mm pero seria mas facil quizas el csocketplus o un array en winsock?¿

cada vez que se me conecte uno, cojo y creo otro csocketplus por lo que estoy viendo aqui

Es completamente distinto!!

Tu ya tienes en el Cliente un Winsock, unicamente has de crear una matriz de controles y empezar por ahi.. si necesitas mas ayuda te hago un code de ejemplo...

Si lo que quieres es que el servidor sea multiconexion (que se conecte a varios servidores a la vez) entonces lo mejor sera que uses CSP, mas que nada por no depende del Winsock.ocx

[con]

No necesitas modificar el CSM, ya que el CSM lo utilizas en la parte del servidor... y tu quieres multiconexion con el cliente, asi que simplemente has de trabajar con el Winsock y un Array de controles...

[cInvoke]

Bueno, despues de estar investigando he conseguido sacar el Puntero de un API llamando a DllFunctionCall@MSVBVM60.DLL...

Como todo programador de VB6 debe saber al llamar un API externa desde VB se llama a DllFunctionCall para sacar el puntero... osea, las APIs declaradas directamente desde el codigo no se agregan a la IAT...

Y bueno, decidi aprovecharme de eso

Código (vb) [Seleccionar] Expandir

Option Explicit
'---------------------------------------------------------------------------------------
' Module    : mGetAPIPtr
' Author    : Karcrack
' Now$      : 11/08/2009  13:07
' WebPage   : http://www.advancevb.com.ar
' Used for? : Get API Pointer withouth calling any external API
' Thanks.   :
'       - Cobein: Support and Unicode-ANSI function (=
'---------------------------------------------------------------------------------------

'MSVBVM60
Private Declare Function DllFunctionCall Lib "MSVBVM60" (ByRef typeAPI As tAPICall) As Long

Private Type tAPICall
    ptsLIB              As Long ' Pointer to ANSI String that contains Library
    ptsProc             As Long ' Pointer to ANSI String that contains Procedure
    lReserved           As Long ' Just reserved...
    lPointer            As Long ' Pointer to the buffer that will contain temp variables from DllFunctionCall
    lpBuffer(3)         As Long ' Buffer that will contain temp variables
End Type

Public Function GetAPIPtr(ByVal sLib As String, ByVal sProc As String) As Long
    Dim tAPI            As tAPICall
    Dim bvLib()         As Byte
    Dim bvMod()         As Byte
   
    Call Unicode2ANSI(sLib, bvLib)
    Call Unicode2ANSI(sProc, bvMod)
   
    With tAPI
        .ptsLIB = VarPtr(bvLib(0))
        .ptsProc = VarPtr(bvMod(0))
        .lReserved = &H40000
        .lPointer = VarPtr(.lpBuffer(0))
    End With
   
    GetAPIPtr = DllFunctionCall(tAPI)
End Function

'COBEIN (=
Private Sub Unicode2ANSI(ByVal sUNICODE As String, ByRef bvANSI() As Byte)
    Dim i           As Long
   
    ReDim bvANSI(Len(sUNICODE))
    For i = 1 To Len(sUNICODE)
        bvANSI(i - 1) = Asc(Mid$(sUNICODE, i, 1))
    Next i
End Sub

Con esto solo no podemos llamar a las APIs, asi que he modificado el codigo de Cobein del cInvoke
para que llama al puntero que le pases... Aqui hay un ejemplo bastante claro:

Código [Seleccionar] Expandir

http://www.box.net/shared/tbbihznz6r

Ah! Si pretendeis llamar APIs que pidan Strings recordar usar la version UNICODE de esa API (*W)

Saludos

Interesante... aunque talvez se podria hacer sin utilizar un tabla que contenga los 255 posibles valores hexadecimales de un byte...

ha hacer un troyano bancario multiconeccion con motor smtp que funcione con conexion inversa  y se propague via USB XD

Eso esta hecho Jajaja, solo es para picarte, a ver si me retas ... ahora no tengo tiempo ni de programar modulitos

Por cierto... Multiconexión con motor SMTP? Prefiero motor P2P

Estoy harto de gente que pide hacer indetectable sus codigos...

Al dia me llegan unos 5 PM (por elhacker y por HackHound) pidiendome ayuda para indetectar ... Esto va para todos el KPC v2 solo cifra cadenas, no hace milagros... y menos indetecta el RunPE viejo de Cobein que no tiene ninguna cadena

No es tan dificil... ademas, si usas codigos de otros ten por seguro que acabara detectandose

Saludos y suerte

Ah! Se me olvidaba si quereis codigos indetectables entrar aqui

Código [Seleccionar] Expandir

http://www.advancevb.com.ar/

Yo creo que para aportar tutoriales/manuales o lo que sea, no hace falta hacer un Abril negro, sencillamente si la gente tiene ganas de escribir el artículo lo va a publicar sea o no Abril negro.

Además, parece que la gente que solo postea en Abril Negro lo hace "por dinero" (por la cuenta), y esa no es la meta.

Un Saludo  

Eso es cierto, Hendrix... anque no siempre se hace por la cuenta... ademas, por lo que tengo entendido el ganador de este año no ha recivido su premio

Yo posteo lo que veo que puede interesar sea o no B.A, pero siempre se hace un esfuerzo por presentar algo si hay un evento

Mi voto se mantiene, tiene que intervenir mas gente ademas de "Jaixon Jax"...

Por cierto, se me ocurre que tambien se puede hacer Wargames... tipo retos... retar a una unica persona, por ejemplo retar a Hendrix a hacer un Driver de W$ que no se puede deshookear (Ni se os ocurra retarle) Se da un tiempo y los usuarios votan... pero bueno, eso ya es mas personal

La idea es interesante... pero siempre participariamos los mismos...

Ademas... No se pueden regalar tantas cuentas de correo

Bueno, mi voto depende de la preposicion de los participantes de este foro... Veamos que opina Hendrix

Si que son APIs... APIs de la libreria de Winsock(ws2_32.dll/wsock32.dll)...

Aqui tienes el enlace al codigo:

Código [Seleccionar] Expandir

http://mzrdzoneforo.tomahost.org/index.php?topic=30.0