Título: keylogger ftp :D Publicado por: yalosabes en 8 Febrero 2006, 04:45 am 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. ;D
Título: Re: keylogger ftp :D Publicado por: NYlOn en 8 Febrero 2006, 06:50 am A que te referis con 'personalizar'??
Que suba el log a determinado ftp que nosotros queramos, por ejemplo?? Título: Re: keylogger ftp :D Publicado por: Kizar en 11 Febrero 2006, 13:56 pm Supongo k se refiere a cambiar un poko el diseño, hacerle un editor y cosas asi....
Pero no se si es eso. Salu2 Título: Re: keylogger ftp :D Publicado por: yalosabes en 12 Febrero 2006, 02:47 am 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?
Título: Re: keylogger ftp :D Publicado por: Hendrix en 12 Febrero 2006, 11:32 am 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 Título: Re: keylogger ftp :D Publicado por: Kizar en 12 Febrero 2006, 16:59 pm Usa apis
Fuente Api-Guide: Nombre de el ordenador: Citar 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: Citar 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 Título: Re: keylogger ftp :D Publicado por: yalosabes en 14 Febrero 2006, 04:16 am gracias, por la informacion, spero que asi sigan colaborando con el foro. hasta la proxima
Título: Re: keylogger ftp :D Publicado por: Kizar en 14 Febrero 2006, 23:04 pm spero que asi sigan colaborando con el foro Para eso estamos, colabora tu tambien ;)Salu2 |