Mensajes

men pasate el reconocimiento de los caracteres =)

de-negocios[arroba]hotmail[punto]com

gracias man, claro que aumentara algo mas el codigo pero wenoO! si entendi, grax

Hola a todos, queria ayuda sobre, un programa que realize,, lo que hace es subir un archivo a una pagina, web:

+ o - , funciona asi :

guarda datos de la pc (keylogger) , y lo manda a  la web en este formato :

www.yalosabes.com/yalosabes/1.233.553.88(ip de la pc).txt

ahora para ver todos los archivos tengo que usar un administrador ftp, sin embargo es algo tedioso, como hago?, para que se junte todas las ips en un solo archivo y por ejemplo al visitar :

www.yalosabes.com/yalosabes/atrapados.html

me apareskan las ips, de las victimas, no se i me habran comprendido, espero su inmediata ayuda, gracias anticipadamente.

[Bluetooth de Toshiba]

En nuestro caso, el PC atacante dispone de un dispositivo Bluetooth USB soportado por la pila de protocolos de Toshiba, por lo que utilizaremos el gestor de conexiones Bluetooth de Toshiba en lugar del gestor de Windows (Mis Sitios Bluetooth). A efectos prácticos, el ataque se desarrolla de igual modo.

Holas a todos  , no se  si habra alguna forma de saber el correo de la ventana con la que estoy hablando en el msn, si hay algun code por hay porfis pasenlo, grax a todos

Holas, no se si habra una forma de saber el correo de la ventana de la conversacion del msn con la que stoy hablando.

sorry no puedo ayudarte, demasiado level para mi, uhmmm kisas  seas mejor o kisas no listar los procesos y si la ventana esta activa entonces mandar una secuencia de teclas.

holas, este codigo te kae a pelo, agregas un timer y nah mas , ah en este kaso se activa con el boton enter.

Código [Seleccionar] Expandir



Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim Men As String, Palabra As Long


Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Palabra = Int((Rnd * 5) + 1)
Select Case Palabra
Case 1
        Men = "1 accion" '<- aky pones la accion o palabra
Case 2
        Men = "2 accion" '<- aky pones la accion o palabra

'vas aumentado por ejemplo
'case 3
'men = "blablabla" y asi sucesivamente , tambien puedes dejar solo el case 1

End Select

KeyResult = GetAsyncKeyState(13)
    If KeyResult = -32767 Then
         SendKeys Men   '
    End If
End Sub


uhmmm lo veo algo complikado, o weno la verdad rekontra-complikado, podrias hacer una secuencia de imagenes y compararlas con un timer, claro dependiendo , para que aplikacion kieras usarlo, lo veo algo imposible ya que los matices siempre kambian, kisiera que des una nocion mas amplia, nos vemos

uhmm, la verdad no entiendo muy bien tu pregunta, pero pos tratare de ayudarte, este es codigo que yo uso para abrir mi msn :

id = shell ("C:\Archivos de programa\MSN Messenger\msnmsgr.exe")`'<- aky pones la ruta del programa

sendkeys "mi correo"
sendkeys "tab <- no me akuerdo que signo era"
sendkeys "mi clave"
sendkeys "{ENTER}" 'este si esta bien

y con eso inicio sesion, ta recontra novato el codigo pero espero que te sirva