Local And Remote Trojan Port Scanner

This scans your computer locally for 86 well known trojans ports and tells you if they are opened. This scan  takes about 1 second. The remote scan scans an ip address or host name. You set the interval between scans. Uses the Microsoft Winsock Control.


 

Private Sub Command1_Click()

On Error GoTo Error
Command1.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
For i = 0 To List3.ListCount - 1
If stopnow.Value = True Then
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Exit Sub
End If
Text4 = List3.List(i)
Winsock1.Close
Winsock1.LocalPort = List3.List(i)
Winsock1.Listen
Next i
Error:
If Err.Number = 10048 Then
List1.AddItem List4.List(i)
Resume Next
End If
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
stopnow = False
End Sub

Private Sub Command2_Click()
stopnow.Value = True

End Sub

Private Sub Command3_Click()
On Error Resume Next
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
For i = 0 To List3.ListCount - 1
Text3 = i
Text4 = List3.List(i)
Winsock1.RemotePort = List3.List(i)
Winsock1.RemoteHost = Text1
Winsock1.Connect
Timeout Text2
If stopnow.Value = True Then
Text3 = 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
stopnow.Value = False
Exit Sub
End If
Next i
Text3 = 0
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Command4_Click()
stopnow.Value = True
End Sub

Private Sub Form_Load()
List4.AddItem "21 - Fore, Invisible FTP, FTP, WebEx, WinCrash"
List4.AddItem "23 - Tiny Telnet Server, Telnet, Wingate"
List4.AddItem "25 - Antigen, Email Password Sender, Haebu Coceda, Shtrilitz Stealth, Terminator"
List4.AddItem "31 - Hackers Paradise"
List4.AddItem "80 - Executor"
List4.AddItem "456 - Hackers Paradise"
List4.AddItem "555 - Ini-Killer, Phase Zero, Stealth Spy"
List4.AddItem "666 - Satanz Backdoor"
List4.AddItem "1001 - Silencer, WebEx"
List4.AddItem "1011 - Doly Trojan"
List4.AddItem "1170 - Psyber Stream Server, Voice"
List4.AddItem "1234 - Ultors Trojan"
List4.AddItem "1243 - SubSeven Default "
List4.AddItem "1245 - VooDoo Doll"
List4.AddItem "1492 - FTP99CMP"
List4.AddItem "1600 - Shivka-Burka"
List4.AddItem "1807 - SpySender"
List4.AddItem "1981 - Shockrave"
List4.AddItem "1999 - BackDoor"
List4.AddItem "2001 - Trojan Cow"
List4.AddItem "2023 - Ripper"
List4.AddItem "2115 - Bugs"
List4.AddItem "2140 - Deep Throat, The Invasor"
List4.AddItem "2801 - Phineas Phucker"
List4.AddItem "3024 - WinCrash"
List4.AddItem "3129 - Masters Paradise"
List4.AddItem "3150 - Deep Throat, The Invasor"
List4.AddItem "3700 - al of Doom"
List4.AddItem "4092 - WinCrash"
List4.AddItem "4590 - ICQTrojan"
List4.AddItem "5000 - Sockets de Troie"
List4.AddItem "5001 - Sockets de Troie"
List4.AddItem "5321 - Firehotcker"
List4.AddItem "5400 - Blade Runner"
List4.AddItem "5401 - Blade Runner"
List4.AddItem "5402 - Blade Runner"
List4.AddItem "5569 - Robo-Hack"
List4.AddItem "5742 - WinCrash"
List4.AddItem "6670 - DeepThroat"
List4.AddItem "6771 - DeepThroat"
List4.AddItem "6969 - GateCrasher, Priority"
List4.AddItem "7000 - Remote Grab"
List4.AddItem "7300 - NetMonitor"
List4.AddItem "7301 - NetMonitor"
List4.AddItem "7306 - NetMonitor"
List4.AddItem "7307 - NetMonitor"
List4.AddItem "7308 - NetMonitor"
List4.AddItem "7789 - ICKiller"
List4.AddItem "9872 - al of Doom"
List4.AddItem "9873 - al of Doom"
List4.AddItem "9874 - al of Doom"
List4.AddItem "9875 - al of Doom"
List4.AddItem "9989 - iNi-Killer"
List4.AddItem "10067 - al of Doom"
List4.AddItem "10167 - al of Doom"
List4.AddItem "11000 - Senna Spy"
List4.AddItem "11223 - Progenic trojan"
List4.AddItem "12223 - Hack´99 KeyLogger"
List4.AddItem "12345 - GabanBus, NetBus"
List4.AddItem "12346 - GabanBus, NetBus"
List4.AddItem "12361 - Whack-a-mole"
List4.AddItem "12362 - Whack-a-mole"
List4.AddItem "16969 - Priority"
List4.AddItem "20001 - Millennium"
List4.AddItem "20034 - NetBus 2 Pro"
List4.AddItem "21544 - GirlFriend"
List4.AddItem "22222 - Prosiak"
List4.AddItem "23456 - Evil FTP, Ugly FTP"
List4.AddItem "26274 -  Delta"
List4.AddItem "31337 - Back Orifice"
List4.AddItem "31338 - Back Orifice, DeepBO"
List4.AddItem "31339 - NetSpy DK"
List4.AddItem "31666 - BOWhack"
List4.AddItem "33333 - Prosiak"
List4.AddItem "34324 - BigGluck, TN"
List4.AddItem "40412 - The Spy"
List4.AddItem "40421 - Masters Paradise"
List4.AddItem "40422 - Masters Paradise"
List4.AddItem "40423 - Masters Paradise"
List4.AddItem "40426 - Masters Paradise"
List4.AddItem "47262 - Delta"
List4.AddItem "50505 - Sockets de Troie"
List4.AddItem "50766 - Fore"
List4.AddItem "53001 - Remote Windows Shutdown"
List4.AddItem "61466 - Telecommando"
List4.AddItem "65000 - Devil Trojan"

For o = 0 To List4.ListCount - 1
a = Trim(List4.List(o))
z = InStr(a, "-")
If z Then
List3.AddItem Left(a, z - 2)
End If
Next o
Text1 = Winsock1.LocalIP
End Sub

Private Sub HScroll1_Change()
If HScroll1.Value = 0 Then Frame6.Caption = "Timeout Int. (0)": Text2 = "0":
If HScroll1.Value = 1 Then Frame6.Caption = "Timeout Int. (.1)": Text2 = ".1":
If HScroll1.Value = 2 Then Frame6.Caption = "Timeout Int. (.2)": Text2 = ".2":
If HScroll1.Value = 3 Then Frame6.Caption = "Timeout Int. (.3)": Text2 = ".3":
If HScroll1.Value = 4 Then Frame6.Caption = "Timeout Int. (.4)": Text2 = ".4":
If HScroll1.Value = 5 Then Frame6.Caption = "Timeout Int. (.5)": Text2 = ".5":
If HScroll1.Value = 6 Then Frame6.Caption = "Timeout Int. (.6)": Text2 = ".6":
If HScroll1.Value = 7 Then Frame6.Caption = "Timeout Int. (.7)": Text2 = ".7":
If HScroll1.Value = 8 Then Frame6.Caption = "Timeout Int. (.8)": Text2 = ".8":
If HScroll1.Value = 9 Then Frame6.Caption = "Timeout Int. (.9)": Text2 = ".9":
If HScroll1.Value = 10 Then Frame6.Caption = "Timeout Int. (1)": Text2 = "1":
If HScroll1.Value = 11 Then Frame6.Caption = "Timeout Int. (1.1)": Text2 = "1.1":
If HScroll1.Value = 12 Then Frame6.Caption = "Timeout Int. (1.2)": Text2 = "1.2":
If HScroll1.Value = 13 Then Frame6.Caption = "Timeout Int. (1.3)": Text2 = "1.3":
If HScroll1.Value = 14 Then Frame6.Caption = "Timeout Int. (1.4)": Text2 = "1.4":
If HScroll1.Value = 15 Then Frame6.Caption = "Timeout Int. (1.5)": Text2 = "1.5":
If HScroll1.Value = 16 Then Frame6.Caption = "Timeout Int. (1.6)": Text2 = "1.6":
If HScroll1.Value = 17 Then Frame6.Caption = "Timeout Int. (1.7)": Text2 = "1.7":
If HScroll1.Value = 18 Then Frame6.Caption = "Timeout Int. (1.8)": Text2 = "1.8":
If HScroll1.Value = 19 Then Frame6.Caption = "Timeout Int. (1.9)": Text2 = "1.9":
If HScroll1.Value = 20 Then Frame6.Caption = "Timeout Int. (2)": Text2 = "2":


End Sub

Private Sub Winsock1_Connect()
List2.AddItem List4.List(Text3)
End Sub