keylogger ftp :D

[yalosabes]

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.

[NYlOn]

A que te referis con 'personalizar'??
Que suba el log a determinado ftp que nosotros queramos, por ejemplo??

[Kizar]

Supongo k se refiere a cambiar un poko el diseño, hacerle un editor y cosas asi....

Pero no se si es eso.

Salu2

[yalosabes]

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?

[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

[Kizar]

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

[yalosabes]

gracias, por la informacion, spero que asi sigan colaborando con el foro. hasta la proxima

[Kizar]

spero que asi sigan colaborando con el foro

Para eso estamos, colabora tu tambien 

Salu2