 Autor
|
Tema: keylogger ftp :D (Leído 2,555 veces)
|
yalosabes
 Desconectado
Mensajes: 87
|
Holaz a todos, weno soy nuevo en sto y pos keria colaborar con algo, miren he hecho un keylogger , que manda el log(lo grabado) a una pagina web(por ftp), ahora el problema es que kisiera personlizarlo un poko, si les interesa el proyecto que ia esta hecho pero falta personalizar para ustedes puedan usarlo, escriban sus mensajes en el foro, o kisas no tengan interes , weno hay los veo cuidenseeeeee y pos spero respuestasss. 
|
|
|
|
|
En línea
|
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
A que te referis con 'personalizar'??
Que suba el log a determinado ftp que nosotros queramos, por ejemplo??
|
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Supongo k se refiere a cambiar un poko el diseño, hacerle un editor y cosas asi....
Pero no se si es eso.
Salu2
|
|
|
|
|
En línea
|
|
|
|
yalosabes
Desconectado
Mensajes: 87
|
a lo que em refiero es a que por ejemplo , si lo instalo en la makina de juanito, me mande el log a a una pagina con nombre juanito, lo uniko que quiero es saber como averiguar el nombre de la pc donde se ejecuta, me captan?
|
|
|
|
|
En línea
|
|
|
|
|
Hendrix
|
yo lo se hacer 50%VB y 50% batch, seria de esta forma:
Dim nombre As String * 10
Dim nombre2 As String
Open "C:\nombre.bat" For Output As #1
Print #1, "@echo off"
Print #1, "echo %username% > C:\nombre.txt"
Print #1, "exit"
Close #1
Shell ("C:\nombre.bat"), vbhide
Open "C:\nombre.txt" For Binary As #1
Get #1, , nombre
Close #1
nombre2 = Trim (nombre)
Asi konsigues poner en nombre2 el nombre del que usa el PC...
Espero te sirva...
PD: existe kode en VB para hacer esto, pero asi yo lo enkuentro mas facil...
Salu2
Hendrix
|
|
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián |
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
Usa apis Fuente Api-Guide: Nombre de el ordenador:Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Nombre de el usuario:Private Enum EXTENDED_NAME_FORMAT NameUnknown = 0 NameFullyQualifiedDN = 1 NameSamCompatible = 2 NameDisplay = 3 NameUniqueId = 6 NameCanonical = 7 NameUserPrincipal = 8 NameCanonicalEx = 9 NameServicePrincipal = 10 End Enum Private Declare Function GetUserNameEx Lib "secur32.dll" Alias "GetUserNameExA" (ByVal NameFormat As EXTENDED_NAME_FORMAT, ByVal lpNameBuffer As String, ByRef nSize As Long) As Long Private Sub Form_Load() 'KPD-Team 2001 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@allapi.net Dim sBuffer As String, Ret As Long sBuffer = String(256, 0) Ret = Len(sBuffer) If GetUserNameEx(NameSamCompatible, sBuffer, Ret) <> 0 Then MsgBox "Username: " + Left$(sBuffer, Ret) Else MsgBox "Error while retrieving the username" End If End Sub Salu2 |
|
|
|
|
En línea
|
|
|
|
yalosabes
Desconectado
Mensajes: 87
|
gracias, por la informacion, spero que asi sigan colaborando con el foro. hasta la proxima
|
|
|
|
|
En línea
|
|
|
|
Kizar
Desconectado
Mensajes: 1.325
kizar_net
|
spero que asi sigan colaborando con el foro
Para eso estamos, colabora tu tambien  Salu2
|
|
|
|
|
En línea
|
|
|
|
|
 |
