Visual basic port scan detektor

Är det en bra idé att skriva ett program som lyssnar på 3 portar och om ett IP försöker connecta på 2 eller fler av dom betraktas detta som port scan, är det en bra idé ?
Ex:

Option Explicit
Const intBasePort = 100
Dim sLast As String

Private Sub Form_Load()
    Dim iSockCounter As Integer

    For iSockCounter = sock.LBound To sock.UBound
        sock(iSockCounter).LocalPort = intBasePort + iSockCounter
        sock(iSockCounter).Listen
    Next iSockCounter
End Sub

Private Sub sock_ConnectionRequest(Index As Integer, requestID As Long)
    If sLast = sock(Index).RemoteHostIP Then MsgBox "Attacked by " & sLast
    sLast = sock(Index).RemoteHostIP
End Sub

Alltså, man kan ju säkert göra den bättre och så man kan ställa in vilken bas port och sånt där, men, skulle det vara nödvändigt?
För det tar ju betydligt mindre minne än en vanlig brandvägg...
Sen är det ju kul att ha en hemskriven Brandvägg-wannabe =P

Men... Asså om du läser koden ser du att den inte accepterar anslutningen
Därmed får du attackerarens IP och kan göra mot-attacker. (Läs gärna koden först!)

Hehe okej...
Varför skulle man bli paranoid?!

"Sen är det ju kul att ha en hemskriven Brandvägg-wannabe =P"

För övrigt så gör inte t.ex. ZA så mycket åt saken