PalmMap (Rootscan updated).

From: Shaun Colley <shaunige(at)yahoo.co.uk>
Date: Fri Aug 01 2003 - 12:58:25 EDT

I recently posted a PalmOS port scanner to the list, and I have recently updated it (posted under the name "Shaun Moore", not my real name). This tool with be eventually made to act a lot like Nmap (hence the name PalmMap, Fyodor knows about this project). Here is the latest code:

# PalmMap.bas
# PalmMap v1.0 - Nmap for Palm.

fn set_auto_off(0)

s$(0) = "Host:"
s$(2) = "Start Port:"
s$(4) = "End Port:"

f = form(9, 3, "PalmMap v1.2")
if f = 0 then end
if f = 2 then gosub about

let h$ = s$(1)
let p = val(s$(3))
let e = val(s$(5))

let i = p
let t$ = "PalmMap.log"
open new "memo", t$ as #4
form2:
cls

form btn 30 , 40 , 40 , 18, "connect()", 1
form btn 85 , 40, 40 , 18 , "TCP SYN" , 1
form btn 60 , 80 , 40 , 18 , "UDP scan" , 1
form btn 60 , 120, 40 , 18 , "Ping scan" , 1

draw "Scan type?", 50, 20, 1
while
x = asc(input$(1))
if x = 14 then gosub scan
if x = 15 then print "Scan type not implemented as of yet."
if x = 16 then print "Scan type not implemented as of yet."
if x = 17 then print "Scan type not implemented as of yet."
wend

sub scan
cls
print at 50, 40
while(i <= e)
c = fn tcp(1, h$, i)
if(c = 0)
print "Port ", i, "Open"
fn tcp(-1, "", 0)
print #4, "Port ", i, "Open"
else
fn tcp(-1, "", 0)
print #4, "Port ", i, "Closed"
endif
let i = i + 1
wend
close #4
print "Scan complete!"
end

sub about
cls
msgbox("PalmMap - Nmap for Palm.", "About PalmMap 1.5")

Enjoy.

Thank you for your time.
Shaun.

---

Want to chat instantly with your online friends? Get the FREE Yahoo! Messenger http://uk.messenger.yahoo.com/ Received on Fri Aug 1 14:14:26 2003