Follow us on Twitter!
You cannot teach a man anything; you can only help him find it within himself. - Galileo
Wednesday, April 23, 2014
Navigation
Home
HellBoundHackers Main:
HellBoundHackers Find:
HellBoundHackers Information:
Learn
Communicate
Submit
Shop
Challenges
HellBoundHackers Exploit:
HellBoundHackers Programming:
HellBoundHackers Think:
HellBoundHackers Track:
HellBoundHackers Patch:
HellBoundHackers Other:
HellBoundHackers Need Help?
Other
Members Online
Total Online: 20
Guests Online: 19
Members Online: 1

Registered Members: 82885
Newest Member: ConiBE
Latest Articles
View Thread

HellBound Hackers | Computer General | Increasing Security

Author

Trying to make a honeypot (badly...):D


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 28-06-06 01:53
here is what I have so far...
Code


Option Explicit
Dim move_cap As Boolean
Dim port As Integer

Private Sub Form_Load()
    port = 84
    move_cap = False
    Label4.Caption = Winsock1.LocalIP
    Label6.Caption = Winsock1.LocalPort
    Label7.Caption = Winsock1.State
End Sub

Private Sub Exit_Click(Index As Integer)
    Unload MainFrm
End Sub

Private Sub Start_Click()
    Start.Visible = False
    Start.Enabled = False
    Stop_prog.Visible = True
    Stop_prog.Enabled = True
    Winsock1.LocalPort = port
    Winsock1.Listen
End Sub

Private Sub Static_Moveable_Click(Index As Integer)
    If move_cap = False Then
        move_cap = True
        MainFrm.Caption = "Exploitarians Honeypot"
    Else
        move_cap = False
        MainFrm.Caption = ""
    End If
   
End Sub

Private Sub Stop_prog_Click()
    Stop_prog.Visible = False
    Stop_prog.Enabled = False
    Start.Visible = True
    Start.Enabled = True
End Sub







i want it to be connected to through telnet, but I can't get it to display a message when you connect... if anyone can help it would be much appreciated.


Author

RE: Trying to make a honeypot (badly...):D

Mr_Cheese




Posts: 2468
Location: Brighton, UK
Joined: 30.11.04
Rank:
Uber Elite
Posted on 28-06-06 01:59
i cant remember the sub names exactly, but you will need to have 2 subs for your winsock1 control.

one that handles connection requests, and the other one that starts when the connection is connected.

once you worked out that, you can make it sve the message in a string, and send the data to the established connection, as soon as it connects.

that should work.

you can also make good honey pots with netcat.. might be worth looking into.


http://www.hellboundhackers.org/