Mensajes

yo te apoyo en tu ilusion...como dice mi abuelo de ilusiones se vive.

he estado mirando el tema de saltarte la autentificaion/autorizacion  utilizando el programa bt info, y creo que no se puede, por lo menos de un movil a otro, pero  lei que si que se podia utilizando un pc en linux.Sabeis que programas hay que utilizar para saltarte la autentificacion/autorizacion?si no recuerdo mal era con el bdaddr, cambiando la mac... si me pudieran decir el proceso y los progrmas ademas de este utlizados

ok me lo leere....aunque despues me teneis que ayudar..adios y gracias

[winsock1.senddata orden.text]

tughack echame una manita...que yo se que tu sabes y a los tambien.. el fallo creo que esta  en la linea 11winsock1.senddata orden.text. Men echale un vistazo!gracias.

te recomiendo que no utilices el winsock de visual basic... ya que haz pensado como le haras para enviarle aparte de troyano... el OCX de winsock... porke sin este archivo no funcionara tu troyano... y todas las computadoras no siempre tienen este archivo...

YA lo sabia pero no voy a utilizarlo , estaba intentado aprender como dije en otro post,tengo un manual de basic que me baje de aqui y decidi empezar con un troyano para tocar sobretodo los comandos,... no se..., yo creo que un pokito si que he aprendido, pero por dios no me considero un experto, mas bien un newbies,pues que no llevo mas de mes y medio con esto...

joder si molesta tanto el post que lo borren...adios

bueno como dije en mi post anterior estoy haciendo un troyano en visual basic ,bueno copiandome los codigos....de un manual. y nada hasta ahora he hecho que funcione el servidor pero el cliente no funciona...si alguien tiene tiempo que mire haber lo q es...

este es el servidor que si que me funciona:

Private Sub Command1_Click()
Winsock1.LocalPort = puerto.Text
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Winsock1_Close()
txtrecibido = txtrecibido & "conexion cerrada:" & Winsock1.RemoteHostIP
Winsock1.Close
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
txtrecibido = "id de la solicitud de la conexión" & requestID & " de " & Winsock1.RemoteHostIP
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim vtdata As String
Winsock1.GetData vtdata, vbString
txtrecibido.Text = ""
txtrecibido.Text = txtrecibido & vtdata
End Sub


y este el programa cliente que no funciona!:

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub conectar_Click()
Winsock1.RemoteHost = host.Text
winsock1remoteport = puerto.Text
Winsock1.Connect
End Sub

Private Sub enviar_Click()
Winsock1.SendData orden.Text
End Sub

Private Sub localhost_Change()

End Sub

Private Sub Winsock1_Connect()
If (Winsock1.State = sckConnected) Then
Form1.Caption = "conectado con exito..."
Else
Form1.Caption = "esperando..."
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim vtdata As String
Winsock1.GetData vtdata, vbString
orden = ""
orden = orden & vtdata & vbCrLf
End Sub



abstenerse newbies,jeje...

lo prove primero como dijo nakpanzer pero me daba error y si que me funciono como halck12...eso lo dejo para vosotros que sois los expertos...

[" de]

 en este tambien me da error en lo que esta en negro:

Private Sub Command1_Click()
Winsock1.LocalPort = puerto.Text
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtrecibido = txtrecibido & "conexion cerrada:" & Winsock1.RemoteHostIP
Winsock1.Close
txtrecibido = "id de la solicitud de la conexión" & requestid& " de "&winsock1.remotehostip"
Winsock1.Close
End Sub

y me lo he copiado exactamente de un manual...?

halc12 si que era eso......aunque despues de eso me he encontado mas errores en el  code(varios espacios en blanco que habia dejado) pero los he sabido solucionar....gracias otra vez.

gracias por la ayuda halc12,la verdad es que no tengo mucha idea aun, y la ayuda se agradece...
a ti tughack, coño tambien me aburro de leer manuales, yo creo que un poquito de practica tambien va bien, por lo menos se hace mas ameno.....no les estoy dicendo a nadie que siga mis pasos...jeje, de todas formas gracias a los dos..