Mensajes

Bueno habia un tipo en habbo hotel que tenia un programa para hacer scripts en el. No tenia keylogger ni nada tu entrabas y ya te metias normal en una ventana de habbo normal metias tu nombre y tu clave y se conectaba normal. Entonces el publico que el logeaba las claves, nombres y ips de los habbos y los robaba. El hizo su programa en VB6 y no tenia keylogger. ¿ Como se pueden crear estos logs y que se te envien al correo o ftp o que comando ?

Gracias por su ayuda 

pues editó el flash de habbo para que a parte de poder entrar a habbo, se reenviáran los datos a su mail

te refieres al habboclient, ya se

Gracias por tu ayuda =)

Me ha servido de mucho 

y si juegas con la opacidad mucho mejor 

Hi

En VB estoy haciendo un programa que crea users desde el program sin tener que acceder a la web.

Resulta que en las variables, al definirlas usando texts a la vez que otras palabras me da error... ;

Código [Seleccionar] Expandir

Private Sub Winsock1_Connect(Index As Integer)
Dim xd As String
'string para enviar
xd = "nick=Text5.Text & Text4.Text&email="pepe" & Text4.Text &ip=127.0.01&contraseña=holas&contrasena2=holas&nombre=wea&sexo=0&pais=uknown&n_dia=1&n_mes=1&n_ano=2005&boletin=si&registro=Registrar"


Winsock1(Index).SendData ("POST /usuarios.php?id=registro HTTP/1.0" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*" & vbCrLf & _
"Referer: http://www.-----.com/usuarios.php?id=registro" & vbCrLf & _
"Accept-Language: es-mx" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Accept-Encoding: gzip, deflate" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; FunWebProducts)" & vbCrLf & _
"Host: www.---.com" & vbCrLf & _
"Content-Length: " & Len(xd) & vbCrLf & _
"Connection: Keep-Alive" & vbCrLf & _
"Cache-Control: no-cache" & vbCrLf & vbCrLf & _
xd & vbCrLf)

End Sub

El error me da en:

Código [Seleccionar] Expandir

xd = "nick=Text5.Text & Text4.Text&email="pepe" & Text4.Text &ip=127.0.01&contraseña=holas&contrasena2=holas&nombre=wea&sexo=0&pais=uknown&n_dia=1&n_mes=1&n_ano=2005&boletin=si&registro=Registrar"

Si alguien es tan amable de ayudarme para que eso quede de forma correcta y no me diga syntax error...


M3rc1