Registered: Aug 01
Location:
Posts: 11
VB Version: vb6 profesional

anyone know how i can make an ip sniffer/tracker?

Report this post to a moderator

Registered: Jul 00
Location: Lethbridge Alberta
Posts: 690
VB Version: VB6 SP5 Ent.

You mean something like nuke nabber...where it listens to specified ports for any possible connection attempts? Well you can use the winsock control and do that...it would be just like having a sever/client type of deal, but having the code only for the server..listening for any requests.

Hope that makes sense,
D!m

__________________
Dimitri Reizvikh
Visual Basic 6 Ent. SP3
pos_8@hotmail.com

Report this post to a moderator

Registered: Aug 01
Location: usa
Posts: 6
VB Version: 6

Dim Active As Boolean
'in the declarations of the form


This will get the IP of the attacker
i have the full source code, cant remember where i got it.
if you want it just reply me i will get your reply.

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim intIndex As Integer, AttackedPort As String
Winsock1(intIndex).Close
Winsock1(intIndex).Accept requestID
AttackedPort$ = Winsock1(intIndex).LocalPort
If Text1 = "" Then
Text1 = Text1 + "Connection attemp from " + Winsock1(intIndex).RemoteHostIP + " on port " + AttackedPort$
Else
Text1 = Text1 + Chr(13) & Chr(10) + "Connection attemp from " + Winsock1(intIndex).RemoteHostIP + " on port " + AttackedPort$
End If
Winsock1(intIndex).Close
Text6 = Winsock1(intIndex).RemoteHostIP
End Sub

'enabled scan
Private Sub Command3_Click()
Dim X As Integer
If List1.ListCount <= 0 Then
MsgBox "You must have atleast one port in the port listbox!", vbCritical, "FireWall Example"
Exit Sub
End If
Command3.Enabled = False
Command4.Enabled = True
For X = 0 To List1.ListCount - 1
List1.ListIndex = X
Load Winsock1(List1.ListIndex + 1)
Winsock1(List1.ListIndex + 1).LocalPort = List1.Text
On Error GoTo yu88
Winsock1(List1.ListIndex + 1).Listen
Dim FDCount
If Text3 = 32676 Then
'If Text3 = 1000 Then
Text3 = 80
End If

Do While DoEvents
Text4 = Text4 + 1
If Text4 = 990 Then
Text4 = 0
Winsock1(List1.ListIndex + 1).Close
Text3 = Text3 + 1

List1.Clear
List1.AddItem Text3
Command4_Click
GoTo uui
Exit Do
End If
Loop

Next X
Active = True
uui:
Exit Sub
yu88:
'MsgBox "Error"
'Form1.Caption = "error" + Text3
'Winsock1(List1.ListIndex + 1).Close
Command4_Click
Exit Sub

End Sub

'-------------------------------------------------------
'disable scan

Private Sub Command4_Click()
On Error GoTo dkldk
Dim X As Integer
Command3.Enabled = True
Command4.Enabled = False
For X = 0 To List1.ListCount - 1
List1.ListIndex = X
Winsock1(List1.ListIndex + 1).Close
Unload Winsock1(List1.ListIndex + 1)
Next X
dkldk:
Active = False

Command3_Click
'Winsock1(List1.ListIndex + 1).Close
'Unload Winsock1(List1.ListIndex + 1)

Exit Sub
End Sub


This will get the IP of the attacker
i have the full source code, cant remember were i got it.
if you want it just reply me i will get your reply.


code to add to port, i've modified it so the full source code
wont work the same as this code, i made it scan 1 port at u time

Last edited by Tommytoy on 08-09-2001 at 07:22 PM

Report this post to a moderator

Registered: Aug 01
Location:
Posts: 11
VB Version: vb6 profesional

thanx. could u send the source code? i like to c how a program runs before i use it thanx

Report this post to a moderator

Registered: Aug 01
Location: usa
Posts: 6
VB Version: 6

ok.. i make a zip of it..

Report this post to a moderator

Registered: Nov 00
Location: Western New York, USA
Posts: 1223
VB Version: VS6 Pro SP5 on Win2K

Note that having Winsock controls listening on ports is NOT a very secure thing to do...

__________________
Josh

Report this post to a moderator

Registered: Aug 01
Location: usa
Posts: 6
VB Version: 6

Lol you do have to be connected to the net you no that hu yep

Flameboy download the intruder.zip file


<below i made to show you how the program works>
so far i did not detect internet intruders with it, perhaps
someone can add on. good luck. : )



Flameboy to start the program

Step 1 .click the "enabled" button

Step 2 .click "now click me" button

it will show your ip as the intruder how to add on more,
i'm currently working on using the
GetTcpTable to report all ports in use works

if i get more replies i post the link if you like.
it will answer most asked questions in a lot of post here at
this forum, most links i found on my own i would've like to
have found the help or link on this forum.

gots to go now c u later k.


email me flameboy

xcobbbagame@yahoo.com

bye

Attachment: intruder.zip
This has been downloaded 4 time(s).

Report this post to a moderator

Registered: Nov 00
Location: Calgary, Alberta, Canada.
Posts: 182
VB Version: Visual Basic 6 (SP 5)

quote:

---

Originally posted by JoshT
Note that having Winsock controls listening on ports is NOT a very secure thing to do...

---

Out of curiosity, why do you say that JoshT? I'm not saying you are wrong, just wanting to learn more.

Michael

__________________
Application/Web Developer

Visual Basic 6.0 SP5
Active Server Pages

quote:

---

- I'm going to live forever, or die trying!

---

Report this post to a moderator

Registered: Aug 01
Location: usa
Posts: 6
VB Version: 6

This link is too old post about ports or ip and more, most
are treads of other forms plus this one

Hosted by Cindy her links to ip code form/post and more
winsock also post, i learned alot there she adds more so she can back later to view these old post to study

I met her in a form
Cheers Cindy



https://xcobbbagame.tripod.com/bmp-to-jpg-maker.htm

Last edited by Tommytoy on 08-09-2001 at 09:41 PM

Report this post to a moderator

Registered: Nov 00
Location: Western New York, USA
Posts: 1223
VB Version: VS6 Pro SP5 on Win2K

quote:

---

Out of curiosity, why do you say that JoshT? I'm not saying you are wrong, just wanting to learn more.

---

__________________
Josh

Report this post to a moderator

Registered: Nov 00
Location: Calgary, Alberta, Canada.
Posts: 182
VB Version: Visual Basic 6 (SP 5)

quote:

---

Originally posted by JoshT


By using the Winsock control to open ports, you're giving attackers open ports to connect to rather than closed ports they can't connect to.

---

__________________
Application/Web Developer

Visual Basic 6.0 SP5
Active Server Pages

quote:

---

- I'm going to live forever, or die trying!

---

Report this post to a moderator

Registered: Aug 01
Location: usa
Posts: 6
VB Version: 6

i have the tc table ListView1 tool on another program my form with the code to get "GetTcpTable" Lib "iphlpapi.dll"


To attempt to close the opened port after you click
Open click the "Close openSocket"


i click the button and get the current opened ports
save the a "binary file".

'all these ports numbers are attenpts by ie5 browser
'downloading the web page, these port close
'but i still save it to scan in the port scanner

Dim Filenume
Dim FileBuffer
Text12 = Text12 + 10

'ect.
'ect.
Put #1, Text12, FileBuffer


' the whole idea is call the
"Winsock1.Connect p, i"
'not the listen the listen causes an error with the open
'port, i have ect >>> Port X open for file shareing
'i connected there and send a command and closed the port.
' this port was aready open but i was still able to connect
'with it and send a command and close it, when i tried to close
'the second time it had an error this time because i closed a
'port that windows open not myself, many post said how to
'cut in on the port & kinda connect to it not with the listen
'code but the connect, then i had a button that
'winsock1.sendsData "test" ' succuess was sent

'by using the i have the tc table ListView1 tool in ur
'code you will get the lastest opened ports.

'this was saved in the i have the tc table ListView1 tool
''''''''project to load in the port scanner connect NOT the LISTEN.

'THE LISTEN generates error, while the Connect to the opened
'port connects to it without error
'only time that that it would not close a busy port.
'like when i was uploading my music ! mp3 file
'to my web space.


' now here is the code of the ports that where opened and
'saved we open it with a command button,
'ect.
'ect.

Text12 = Text12 + 10 ' because it was saved that way in the
' other program
get #1, Text12, FileBuffer 'get it put it in the

' text2.textbox to scann to see if its open

'ect ect ect i have some much code i was not going to put it all
'here

the full zip is ready for download

url is below




More post winsock links IP port scanner and some treads


look under Zip files
IP snifferportclose.zip nearest to button of Cindy's page

if she uploaded it yet ??

updates will be place here if i modify, but i will have to wait
till Cindy can upload when she can, so it may take time for new updates

Last edited by Tommytoy on 08-10-2001 at 07:12 PM

Report this post to a moderator