Network mapper

[ksdroid]

Is it possible to make something like a network mapper(http://www.google.nl/url?sa=t&source=web&cd=6&ved=0CEgQFjAF&url=https%3A%2F%2Fplay.google.com%2Fstore%2Fapps%2Fdetails%3Fid%3Dorg.prowl.networkmapper&ei=Pt3dUb2wMue44ATX2YDwDA&usg=AFQjCNEiy5_EeqnR47plgeSslYlMvCQR7Q&sig2=egttbAeRVoP8XejseK7i5w)
With b4a

 

[Erel]

Seems like some port scanner. You can try to connect to many different ports with the Network library.

 

[ksdroid]

Ok thanks Erel
but can I retrieve a mac address from a ip or something else to receive the mac address from a remote device

Sorry for my english

 

[Erel]

I don't think so. Maybe this app implements the SNMP protocol:
Simple Network Management Protocol - Wikipedia, the free encyclopedia

It allows you to communicate with the router.

 

[melamoud]

To get mac address you either need to implement SNMP or ARP/RARP protocol

 

[ksdroid]

i found a solution with the arp protocol can somebody test it on an other device then the htc one x

* requires: Busybox mabey can someone help me with this issue

thanks melamoud for the idea to use arp

#Region  Project Attributes
    #ApplicationLabel: Network Mapper
    #VersionCode: 1
    #VersionName: 1.0
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region
Sub Process_Globals
Dim sb As StringBuilder
Dim p As Phone
End Sub
Sub Globals
Dim ClientList As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
sb.Initialize
Activity.LoadLayout("main")
Activity.AddMenuItem("Refresh","Refresh")
Activity.AddMenuItem("Exit","Shutdown")
GetList
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ClientList_ItemClick (Position As Int, Value As Object)
End Sub
Sub ClientList_ItemLongClick (Position As Int, Value As Object)
 
End Sub
Sub GetList
    ClientList.Clear
    p.Shell("cat /proc/net/arp", Null, sb, Null)
    File.WriteString(File.DirInternal,"Catch.arp",sb.ToString)
    Dim TextReader1 As TextReader
    TextReader1.Initialize(File.OpenInput(File.DirInternal, "Catch.arp"))
    Dim line As String
    line = TextReader1.ReadLine
    Do While line <> Null
    If line.Contains("HW") Then
    line = TextReader1.ReadLine
    Else
    Dim v As String
    v = line
    ClientList.AddTwoLines(v.SubString2(41,59),v.SubString2(0,14))
    line = TextReader1.ReadLine
    End If
    Loop
    TextReader1.Close
    File.Delete(File.DirInternal,"Catch.arp")
    sb.Remove(0,sb.Length)
End Sub
Sub Refresh_click
GetList
End Sub
Sub Shutdown_click
Activity.Finish
End Sub

sorry for my english