Feedback

VB - Portnummer in Name übersetzen

Veröffentlicht von am 19.11.2007
(5 Bewertungen)
Die nachrolgende Funktion ermittelt aus den TCP/IP Ports die zugehörigen Namen.

Es werden nur die gängigsten verwandt.


Kleiner Nachtrag:

Nun kann ich doch direct General Bison nachempfinden. Normalerweise wird hier fast nie etwas gewertet. Jedoch - wenn man gewinnen will - mal alles andere mit dem schlechtesten bewerten. Acuh OK

Wenn man etwas so schlecht - mit 1 - bewertet, sollte man doch auch eine Erklärung dazu schreiben, warum das so schlecht sein soll.
GFU-Schulungen  [Anzeige]

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

VB.NET 2017/2015/2013 Einführung

Das Seminar befähigt Sie zur eigenständigen Entwicklung von anwenderorientierten Programmen in VB.NET, worin auch der Einsatz von Datenbanken enthalten ist.

Public Function portname(PortToRecognize) 
If PortToRecognize = 1 Then portname = "TCP Port Service Multiplexer" 
If PortToRecognize = 2 Then portname = "Management Utility" 
If PortToRecognize = 3 Then portname = "Compression Process" 
If PortToRecognize = 5 Then portname = "Remote Job Entry" 
If PortToRecognize = 7 Then portname = "Echo" 
If PortToRecognize = 9 Then portname = "Discard" 
If PortToRecognize = 11 Then portname = "Active Users" 
If PortToRecognize = 13 Then portname = "Daytime" 
If PortToRecognize = 17 Then portname = "Quote of the Day" 
If PortToRecognize = 18 Then portname = "Message Send Protocol" 
If PortToRecognize = 19 Then portname = "Character Generator" 
If PortToRecognize = 20 Then portname = "File Transfer [Default Data]" 
If PortToRecognize = 21 Then portname = "File Transfer Protocol [Control]" 
If PortToRecognize = 22 Then portname = "SSH Remote Login Protocol" 
If PortToRecognize = 23 Then portname = "Telnet" 
If PortToRecognize = 24 Then portname = "any private mail system" 
If PortToRecognize = 25 Then portname = "Simple Mail Transfer" 
If PortToRecognize = 27 Then portname = "NSW User System FE" 
If PortToRecognize = 29 Then portname = "MSG ICP" 
If PortToRecognize = 31 Then portname = "MSG Authentication" 
If PortToRecognize = 33 Then portname = "Display Support Protocol" 
If PortToRecognize = 35 Then portname = "any private printer server" 
If PortToRecognize = 37 Then portname = "Time" 
If PortToRecognize = 38 Then portname = "Route Access Protocol" 
If PortToRecognize = 39 Then portname = "Resource Location Protocol" 
If PortToRecognize = 41 Then portname = "Graphics" 
If PortToRecognize = 42 Then portname = "WINS Host Name Server" 
If PortToRecognize = 43 Then portname = "Who Is" 
If PortToRecognize = 44 Then portname = "MPM FLAGS Protocol" 
If PortToRecognize = 45 Then portname = "Message Processing Module [recv]" 
If PortToRecognize = 46 Then portname = "MPM [default send]" 
If PortToRecognize = 47 Then portname = "NI FTP" 
If PortToRecognize = 48 Then portname = "Digital Audit Daemon" 
If PortToRecognize = 49 Then portname = "Login Host Protocol (TACACS)" 
If PortToRecognize = 50 Then portname = "Remote Mail Checking Protocol" 
If PortToRecognize = 51 Then portname = "IMP Logical Address Maintenance" 
If PortToRecognize = 52 Then portname = "XNS Time Protocol" 
If PortToRecognize = 53 Then portname = "Domain Name Server" 
If PortToRecognize = 54 Then portname = "XNS Clearinghouse" 
If PortToRecognize = 55 Then portname = "ISI Graphics Language" 
If PortToRecognize = 56 Then portname = "XNS Authentication" 
If PortToRecognize = 57 Then portname = "any private terminal access" 
If PortToRecognize = 58 Then portname = "XNS Mail" 
If PortToRecognize = 59 Then portname = "any private file service" 
If PortToRecognize = 60 Then portname = "Unassigned" 
If PortToRecognize = 61 Then portname = "NI MAIL" 
If PortToRecognize = 62 Then portname = "ACA Services" 
If PortToRecognize = 63 Then portname = "whois" 
If PortToRecognize = 64 Then portname = "Communications Integrator (CI)" 
If PortToRecognize = 65 Then portname = "TACACS-Database Service" 
If PortToRecognize = 66 Then portname = "Oracle SQL*NET" 
If PortToRecognize = 67 Then portname = "Bootstrap Protocol Server" 
If PortToRecognize = 68 Then portname = "Bootstrap Protocol Client" 
If PortToRecognize = 69 Then portname = "Trivial File Transfer" 
If PortToRecognize = 70 Then portname = "Gopher" 
If PortToRecognize = 71 Then portname = "Remote Job Service" 
If PortToRecognize = 72 Then portname = "Remote Job Service" 
If PortToRecognize = 73 Then portname = "Remote Job Service" 
If PortToRecognize = 74 Then portname = "Remote Job Service" 
If PortToRecognize = 75 Then portname = "any private dial out service" 
If PortToRecognize = 76 Then portname = "Distributed External Object Store" 
If PortToRecognize = 77 Then portname = "any private RJE service" 
If PortToRecognize = 78 Then portname = "vettcp" 
If PortToRecognize = 79 Then portname = "Finger" 
If PortToRecognize = 80 Then portname = "World Wide Web HTTP" 
If PortToRecognize = 81 Then portname = "HOSTS2 Name Server" 
If PortToRecognize = 82 Then portname = "XFER Utility" 
If PortToRecognize = 83 Then portname = "MIT ML Device" 
If PortToRecognize = 84 Then portname = "Common Trace Facility" 
If PortToRecognize = 85 Then portname = "MIT ML Device" 
If PortToRecognize = 86 Then portname = "Micro Focus Cobol" 
If PortToRecognize = 87 Then portname = "any private terminal link" 
If PortToRecognize = 88 Then portname = "Kerberos" 
If PortToRecognize = 89 Then portname = "SU/MIT Telnet Gateway" 
If PortToRecognize = 90 Then portname = "DNSIX Securit Attribute Token Map" 
If PortToRecognize = 91 Then portname = "MIT Dover Spooler" 
If PortToRecognize = 92 Then portname = "Network Printing Protocol" 
If PortToRecognize = 93 Then portname = "Device Control Protocol" 
If PortToRecognize = 94 Then portname = "Tivoli Object Dispatcher" 
If PortToRecognize = 95 Then portname = "SUPDUP" 
If PortToRecognize = 96 Then portname = "DIXIE Protocol Specification" 
If PortToRecognize = 97 Then portname = "Swift Remote Virtural File Protocol" 
If PortToRecognize = 98 Then portname = "TAC News" 
If PortToRecognize = 99 Then portname = "Metagram Relay" 
If PortToRecognize = 100 Then portname = "[unauthorized use]" 
If PortToRecognize = 101 Then portname = "NIC Host Name Server" 
If PortToRecognize = 102 Then portname = "ISO-TSAP Class 0" 
If PortToRecognize = 103 Then portname = "Genesis Point-to-Point Trans Net" 
If PortToRecognize = 104 Then portname = "ACR-NEMA Digital Imag. & Comm. 300" 
If PortToRecognize = 105 Then portname = "CCSO name server protocol" 
If PortToRecognize = 106 Then portname = "3COM-TSMUX" 
If PortToRecognize = 107 Then portname = "Remote Telnet Service" 
If PortToRecognize = 108 Then portname = "SNA Gateway Access Server" 
If PortToRecognize = 109 Then portname = "Post Office Protocol - Version 2" 
If PortToRecognize = 110 Then portname = "Post Office Protocol - Version 3" 
If PortToRecognize = 111 Then portname = "SUN Remote Procedure Call" 
If PortToRecognize = 112 Then portname = "McIDAS Data Transmission Protocol" 
If PortToRecognize = 113 Then portname = "Authentication Service" 
If PortToRecognize = 114 Then portname = "Audio News Multicast" 
If PortToRecognize = 115 Then portname = "Simple File Transfer Protocol" 
If PortToRecognize = 116 Then portname = "ANSA REX Notify" 
If PortToRecognize = 117 Then portname = "UUCP Path Service" 
If PortToRecognize = 118 Then portname = "SQL Services" 
If PortToRecognize = 119 Then portname = "Network News Transfer Protocol" 
If PortToRecognize = 120 Then portname = "CFDPTKT" 
If PortToRecognize = 121 Then portname = "Encore Expedited Remote Pro.Call" 
If PortToRecognize = 122 Then portname = "SMAKYNET" 
If PortToRecognize = 123 Then portname = "Network Time Protocol" 
If PortToRecognize = 124 Then portname = "ANSA REX Trader" 
If PortToRecognize = 125 Then portname = "Locus PC-Interface Net Map Ser" 
If PortToRecognize = 126 Then portname = "Unisys Unitary Login" 
If PortToRecognize = 127 Then portname = "Locus PC-Interface Conn Server" 
If PortToRecognize = 128 Then portname = "GSS X License Verification" 
If PortToRecognize = 129 Then portname = "Password Generator Protocol" 
If PortToRecognize = 130 Then portname = "cisco FNATIVE" 
If PortToRecognize = 131 Then portname = "cisco TNATIVE" 
If PortToRecognize = 132 Then portname = "cisco SYSMAINT" 
If PortToRecognize = 133 Then portname = "Statistics Service" 
If PortToRecognize = 134 Then portname = "INGRES-NET Service" 
If PortToRecognize = 135 Then portname = "DCE endpoint resolution" 
If PortToRecognize = 136 Then portname = "PROFILE Naming System" 
If PortToRecognize = 137 Then portname = "NETBIOS Name Service" 
If PortToRecognize = 138 Then portname = "NETBIOS Datagram Service" 
If PortToRecognize = 139 Then portname = "NETBIOS Session Service" 
If PortToRecognize = 140 Then portname = "EMFIS Data Service" 
If PortToRecognize = 141 Then portname = "EMFIS Control Service" 
If PortToRecognize = 142 Then portname = "Britton-Lee IDM" 
If PortToRecognize = 143 Then portname = "Internet Message Access Protocol" 
If PortToRecognize = 144 Then portname = "NewS" 
If PortToRecognize = 145 Then portname = "UAAC Protocol" 
If PortToRecognize = 146 Then portname = "ISO-IP0" 
If PortToRecognize = 147 Then portname = "ISO-IP" 
If PortToRecognize = 148 Then portname = "Jargon" 
If PortToRecognize = 149 Then portname = "AED 512 Emulation Service" 
If PortToRecognize = 150 Then portname = "SQL-NET" 
If PortToRecognize = 151 Then portname = "HEMS" 
If PortToRecognize = 152 Then portname = "Background File Transfer Program" 
If PortToRecognize = 153 Then portname = "SGMP" 
If PortToRecognize = 154 Then portname = "NETSC" 
If PortToRecognize = 155 Then portname = "NETSC" 
If PortToRecognize = 156 Then portname = "SQL Service" 
If PortToRecognize = 157 Then portname = "KNET/VM Command/Message Protocol" 
If PortToRecognize = 158 Then portname = "PCMail Server" 
If PortToRecognize = 159 Then portname = "NSS-Routing" 
If PortToRecognize = 160 Then portname = "SGMP-TRAPS" 
If PortToRecognize = 161 Then portname = "SNMP" 
If PortToRecognize = 162 Then portname = "SNMPTRAP" 
If PortToRecognize = 163 Then portname = "CMIP Manager" 
If PortToRecognize = 164 Then portname = "CMIP Agent" 
If PortToRecognize = 165 Then portname = "Xerox" 
If PortToRecognize = 166 Then portname = "Sirius Systems" 
If PortToRecognize = 167 Then portname = "NAMP" 
If PortToRecognize = 168 Then portname = "RSVD" 
If PortToRecognize = 169 Then portname = "SEND" 
If PortToRecognize = 170 Then portname = "Network PostScript" 
If PortToRecognize = 171 Then portname = "Network Innovations Multiplex" 
If PortToRecognize = 172 Then portname = "Network Innovations CL/1" 
If PortToRecognize = 173 Then portname = "Xyplex" 
If PortToRecognize = 174 Then portname = "MAILQ" 
If PortToRecognize = 175 Then portname = "VMNET" 
If PortToRecognize = 176 Then portname = "GENRAD-MUX" 
If PortToRecognize = 177 Then portname = "X Display Manager Control Protocol" 
If PortToRecognize = 178 Then portname = "NextStep Window Server" 
If PortToRecognize = 179 Then portname = "Border Gateway Protocol" 
If PortToRecognize = 180 Then portname = "Intergraph" 
If PortToRecognize = 181 Then portname = "Unify" 
If PortToRecognize = 182 Then portname = "Unisys Audit SITP" 
If PortToRecognize = 183 Then portname = "OCBinder" 
If PortToRecognize = 184 Then portname = "OCServer" 
If PortToRecognize = 185 Then portname = "Remote-KIS" 
If PortToRecognize = 186 Then portname = "KIS Protocol" 
If PortToRecognize = 187 Then portname = "Application Communication Interface" 
If PortToRecognize = 188 Then portname = "Plus Five's MUMPS" 
If PortToRecognize = 189 Then portname = "Queued File Transport" 
If PortToRecognize = 190 Then portname = "Gateway Access Control Protocol" 
If PortToRecognize = 191 Then portname = "Prospero Directory Service" 
If PortToRecognize = 192 Then portname = "OSU Network Monitoring System" 
If PortToRecognize = 193 Then portname = "Spider Remote Monitoring Protocol" 
If PortToRecognize = 194 Then portname = "Internet Relay Chat Protocol" 
If PortToRecognize = 195 Then portname = "DNSIX Network Level Module Audit" 
If PortToRecognize = 196 Then portname = "DNSIX Session Mgt Module Audit Redir" 
If PortToRecognize = 197 Then portname = "Directory Location Service" 
If PortToRecognize = 198 Then portname = "Directory Location Service Monitor" 
If PortToRecognize = 199 Then portname = "SMUX" 
If PortToRecognize = 200 Then portname = "IBM System Resource Controller" 
If PortToRecognize = 201 Then portname = "AppleTalk Routing Maintenance" 
If PortToRecognize = 202 Then portname = "AppleTalk Name Binding" 
If PortToRecognize = 203 Then portname = "AppleTalk Unused" 
If PortToRecognize = 204 Then portname = "AppleTalk Echo" 
If PortToRecognize = 205 Then portname = "AppleTalk Unused" 
If PortToRecognize = 206 Then portname = "AppleTalk Zone Information" 
If PortToRecognize = 207 Then portname = "AppleTalk Unused" 
If PortToRecognize = 208 Then portname = "AppleTalk Unused" 
If PortToRecognize = 209 Then portname = "The Quick Mail Transfer Protocol" 
If PortToRecognize = 210 Then portname = "ANSI Z39.50" 
If PortToRecognize = 211 Then portname = "Texas Instruments 914C/G Terminal" 
If PortToRecognize = 212 Then portname = "ATEXSSTR" 
If PortToRecognize = 213 Then portname = "IPX" 
If PortToRecognize = 214 Then portname = "VM PWSCS" 
If PortToRecognize = 215 Then portname = "Insignia Solutions" 
If PortToRecognize = 216 Then portname = "Computer Associates Int'l License Server" 
If PortToRecognize = 217 Then portname = "dBASE Unix" 
If PortToRecognize = 218 Then portname = "Netix Message Posting Protocol" 
If PortToRecognize = 219 Then portname = "Unisys ARPs" 
If PortToRecognize = 220 Then portname = "Interactive Mail Access Protocol v3" 
If PortToRecognize = 221 Then portname = "Berkeley rlogind with SPX auth" 
If PortToRecognize = 222 Then portname = "Berkeley rshd with SPX auth" 
If PortToRecognize = 223 Then portname = "Certificate Distribution Center" 
If PortToRecognize = 242 Then portname = "Direct" 
If PortToRecognize = 243 Then portname = "Survey Measurement" 
If PortToRecognize = 244 Then portname = "Dayna" 
If PortToRecognize = 245 Then portname = "LINK" 
If PortToRecognize = 246 Then portname = "Display Systems Protocol" 
If PortToRecognize = 256 Then portname = "RAP" 
If PortToRecognize = 257 Then portname = "Secure Electronic Transaction" 
If PortToRecognize = 258 Then portname = "Yak Winsock Personal Chat" 
If PortToRecognize = 259 Then portname = "Efficient Short Remote Operations" 
If PortToRecognize = 260 Then portname = "Openport" 
If PortToRecognize = 261 Then portname = "IIOP Naming Service (SSL)" 
If PortToRecognize = 262 Then portname = "Arcisdms" 
If PortToRecognize = 263 Then portname = "HDAP" 
If PortToRecognize = 280 Then portname = "http-mgmt" 
If PortToRecognize = 281 Then portname = "Personal Link" 
If PortToRecognize = 282 Then portname = "Cable Port A/X" 
If PortToRecognize = 309 Then portname = "EntrustTime" 
If PortToRecognize = 344 Then portname = "Prospero Data Access Protocol" 
If PortToRecognize = 345 Then portname = "Perf Analysis Workbench" 
If PortToRecognize = 346 Then portname = "Zebra server" 
If PortToRecognize = 347 Then portname = "Fatmen Server" 
If PortToRecognize = 348 Then portname = "Cabletron Management Protocol" 
If PortToRecognize = 349 Then portname = "mftp" 
If PortToRecognize = 350 Then portname = "MATIP Type A" 
If PortToRecognize = 351 Then portname = "MATIP Type B" 
If PortToRecognize = 371 Then portname = "Clearcase" 
If PortToRecognize = 372 Then portname = "ListProcessor" 
If PortToRecognize = 373 Then portname = "Legent Corporation" 
If PortToRecognize = 374 Then portname = "Legent Corporation" 
If PortToRecognize = 375 Then portname = "Hassle" 
If PortToRecognize = 376 Then portname = "Amiga Envoy Network Inquiry Proto" 
If PortToRecognize = 377 Then portname = "NEC Corporation" 
If PortToRecognize = 378 Then portname = "NEC Corporation" 
If PortToRecognize = 379 Then portname = "TIA/EIA/IS-99 modem client" 
If PortToRecognize = 380 Then portname = "TIA/EIA/IS-99 modem server" 
If PortToRecognize = 381 Then portname = "hp performance data collector" 
If PortToRecognize = 382 Then portname = "hp performance data managed node" 
If PortToRecognize = 383 Then portname = "hp performance data alarm manager" 
If PortToRecognize = 384 Then portname = "A Remote Network Server System" 
If PortToRecognize = 385 Then portname = "IBM Application" 
If PortToRecognize = 386 Then portname = "ASA Message Router Object Def." 
If PortToRecognize = 387 Then portname = "Appletalk Update-Based Routing Pro." 
If PortToRecognize = 388 Then portname = "Unidata LDM Version 4" 
If PortToRecognize = 389 Then portname = "Lightweight Directory Access Protocol" 
If PortToRecognize = 390 Then portname = "UIS" 
If PortToRecognize = 391 Then portname = "SynOptics SNMP Relay Port" 
If PortToRecognize = 392 Then portname = "SynOptics Port Broker Port" 
If PortToRecognize = 393 Then portname = "Data Interpretation System" 
If PortToRecognize = 394 Then portname = "EMBL Nucleic Data Transfer" 
If PortToRecognize = 395 Then portname = "NETscout Control Protocol" 
If PortToRecognize = 396 Then portname = "Novell Netware over IP" 
If PortToRecognize = 397 Then portname = "Multi Protocol Trans. Net." 
If PortToRecognize = 398 Then portname = "Kryptolan" 
If PortToRecognize = 399 Then portname = "ISO Transport Class 2 Non-Control over TCP" 
If PortToRecognize = 400 Then portname = "Workstation Solutions" 
If PortToRecognize = 401 Then portname = "Uninterruptible Power Supply" 
If PortToRecognize = 402 Then portname = "Genie Protocol" 
If PortToRecognize = 403 Then portname = "decap" 
If PortToRecognize = 404 Then portname = "nced" 
If PortToRecognize = 405 Then portname = "ncld" 
If PortToRecognize = 406 Then portname = "Interactive Mail Support Protocol" 
If PortToRecognize = 407 Then portname = "Timbuktu" 
If PortToRecognize = 408 Then portname = "Prospero Resource Manager Sys. Man." 
If PortToRecognize = 409 Then portname = "Prospero Resource Manager Node Man." 
If PortToRecognize = 410 Then portname = "DECLadebug Remote Debug Protocol" 
If PortToRecognize = 411 Then portname = "Remote MT Protocol" 
If PortToRecognize = 412 Then portname = "Trap Convention Port" 
If PortToRecognize = 413 Then portname = "SMSP" 
If PortToRecognize = 414 Then portname = "InfoSeek" 
If PortToRecognize = 415 Then portname = "BNet" 
If PortToRecognize = 416 Then portname = "Silverplatter" 
If PortToRecognize = 417 Then portname = "Onmux" 
If PortToRecognize = 418 Then portname = "Hyper-G" 
If PortToRecognize = 419 Then portname = "Ariel" 
If PortToRecognize = 420 Then portname = "SMPTE" 
If PortToRecognize = 421 Then portname = "Ariel" 
If PortToRecognize = 422 Then portname = "Ariel" 
If PortToRecognize = 423 Then portname = "IBM Operations Planning and Control Start" 
If PortToRecognize = 424 Then portname = "IBM Operations Planning and Control Track" 
If PortToRecognize = 425 Then portname = "ICAD" 
If PortToRecognize = 426 Then portname = "smartsdp" 
If PortToRecognize = 427 Then portname = "Server Location" 
If PortToRecognize = 428 Then portname = "OCS_CMU" 
If PortToRecognize = 429 Then portname = "OCS_AMU" 
If PortToRecognize = 430 Then portname = "UTMPSD" 
If PortToRecognize = 431 Then portname = "UTMPCD" 
If PortToRecognize = 432 Then portname = "IASD" 
If PortToRecognize = 433 Then portname = "NNSP" 
If PortToRecognize = 434 Then portname = "MobileIP-Agent" 
If PortToRecognize = 435 Then portname = "MobilIP-MN" 
If PortToRecognize = 436 Then portname = "DNA-CML" 
If PortToRecognize = 437 Then portname = "comscm" 
If PortToRecognize = 438 Then portname = "dsfgw" 
If PortToRecognize = 439 Then portname = "dasp Thomas Obermair" 
If PortToRecognize = 440 Then portname = "sgcp" 
If PortToRecognize = 441 Then portname = "decvms-sysmgt" 
If PortToRecognize = 442 Then portname = "cvc_hostd" 
If PortToRecognize = 443 Then portname = "https MCom" 
If PortToRecognize = 444 Then portname = "Simple Network Paging Protocol" 
If PortToRecognize = 445 Then portname = "Microsoft-DS" 
If PortToRecognize = 446 Then portname = "DDM-RDB" 
If PortToRecognize = 447 Then portname = "DDM-RFM" 
If PortToRecognize = 448 Then portname = "DDM-BYTE" 
If PortToRecognize = 449 Then portname = "AS Server Mapper" 
If PortToRecognize = 450 Then portname = "TServer" 
If PortToRecognize = 451 Then portname = "Cray Network Semaphore server" 
If PortToRecognize = 452 Then portname = "Cray SFS config server" 
If PortToRecognize = 453 Then portname = "CreativeServer" 
If PortToRecognize = 454 Then portname = "ContentServer" 
If PortToRecognize = 455 Then portname = "CreativePartnr" 
If PortToRecognize = 456 Then portname = "macon-tcp" 
If PortToRecognize = 457 Then portname = "scohelp" 
If PortToRecognize = 458 Then portname = "apple quick time" 
If PortToRecognize = 459 Then portname = "ampr-rcmd" 
If PortToRecognize = 460 Then portname = "skronk" 
If PortToRecognize = 461 Then portname = "DataRampSrv" 
If PortToRecognize = 462 Then portname = "DataRampSrvSec" 
If PortToRecognize = 463 Then portname = "alpes" 
If PortToRecognize = 464 Then portname = "kpasswd" 
If PortToRecognize = 465 Then portname = "ssmtp" 
If PortToRecognize = 466 Then portname = "digital-vrc" 
If PortToRecognize = 467 Then portname = "mylex-mapd" 
If PortToRecognize = 468 Then portname = "proturis" 
If PortToRecognize = 469 Then portname = "Radio Control Protocol" 
If PortToRecognize = 470 Then portname = "scx-proxy" 
If PortToRecognize = 471 Then portname = "Mondex" 
If PortToRecognize = 472 Then portname = "ljk-login" 
If PortToRecognize = 473 Then portname = "hybrid-pop" 
If PortToRecognize = 474 Then portname = "tn-tl-w1" 
If PortToRecognize = 475 Then portname = "tcpnethaspsrv" 
If PortToRecognize = 476 Then portname = "tn-tl-fd1" 
If PortToRecognize = 477 Then portname = "ss7ns" 
If PortToRecognize = 478 Then portname = "spsc" 
If PortToRecognize = 479 Then portname = "iafserver" 
If PortToRecognize = 480 Then portname = "iafdbase" 
If PortToRecognize = 481 Then portname = "Ph service" 
If PortToRecognize = 482 Then portname = "bgs-nsi" 
If PortToRecognize = 483 Then portname = "ulpnet" 
If PortToRecognize = 484 Then portname = "Integra Software Management Environment" 
If PortToRecognize = 485 Then portname = "Air Soft Power Burst" 
If PortToRecognize = 486 Then portname = "avian" 
If PortToRecognize = 487 Then portname = "saft" 
If PortToRecognize = 488 Then portname = "gss-http" 
If PortToRecognize = 489 Then portname = "nest-protocol" 
If PortToRecognize = 490 Then portname = "micom-pfs" 
If PortToRecognize = 491 Then portname = "go-login" 
If PortToRecognize = 492 Then portname = "Transport Independent Convergence for FNA" 
If PortToRecognize = 493 Then portname = "Transport Independent Convergence for FNA" 
If PortToRecognize = 494 Then portname = "POV-Ray" 
If PortToRecognize = 495 Then portname = "intecourier" 
If PortToRecognize = 496 Then portname = "PIM-RP-DISC" 
If PortToRecognize = 497 Then portname = "dantz" 
If PortToRecognize = 498 Then portname = "siam" 
If PortToRecognize = 499 Then portname = "ISO ILL Protocol" 
If PortToRecognize = 500 Then portname = "isakmp" 
If PortToRecognize = 501 Then portname = "STMF" 
If PortToRecognize = 502 Then portname = "asa-appl-proto" 
If PortToRecognize = 503 Then portname = "Intrinsa" 
If PortToRecognize = 504 Then portname = "citadel" 
If PortToRecognize = 505 Then portname = "mailbox-lm" 
If PortToRecognize = 506 Then portname = "ohimsrv" 
If PortToRecognize = 507 Then portname = "crs" 
If PortToRecognize = 508 Then portname = "xvttp" 
If PortToRecognize = 509 Then portname = "snare" 
If PortToRecognize = 510 Then portname = "FirstClass Protocol" 
If PortToRecognize = 511 Then portname = "mynet-as" 
If PortToRecognize = 512 Then portname = "remote process execution;" 
If PortToRecognize = 513 Then portname = "remote login a la telnet;" 
If PortToRecognize = 514 Then portname = "cmd" 
If PortToRecognize = 515 Then portname = "spooler" 
If PortToRecognize = 516 Then portname = "videotex" 
If PortToRecognize = 517 Then portname = "like tenex link" 
If PortToRecognize = 518 Then portname = "?" 
If PortToRecognize = 519 Then portname = "unixtime" 
If PortToRecognize = 520 Then portname = "extended file name server" 
If PortToRecognize = 521 Then portname = "ripng" 
If PortToRecognize = 522 Then portname = "ULP" 
If PortToRecognize = 523 Then portname = "IBM-DB2" 
If PortToRecognize = 524 Then portname = "NCP" 
If PortToRecognize = 525 Then portname = "timeserver" 
If PortToRecognize = 526 Then portname = "newdate" 
If PortToRecognize = 527 Then portname = "Stock IXChange" 
If PortToRecognize = 528 Then portname = "Customer IXChange" 
If PortToRecognize = 529 Then portname = "IRC-SERV" 
If PortToRecognize = 530 Then portname = "rpc" 
If PortToRecognize = 531 Then portname = "chat" 
If PortToRecognize = 532 Then portname = "readnews" 
If PortToRecognize = 533 Then portname = "for emergency broadcasts" 
If PortToRecognize = 534 Then portname = "MegaMedia Admin" 
If PortToRecognize = 535 Then portname = "iiop" 
If PortToRecognize = 536 Then portname = "opalis-rdv" 
If PortToRecognize = 537 Then portname = "Networked Media Streaming Protocol" 
If PortToRecognize = 538 Then portname = "gdomap" 
If PortToRecognize = 539 Then portname = "Apertus Technologies Load Determination" 
If PortToRecognize = 540 Then portname = "uucpd" 
If PortToRecognize = 541 Then portname = "uucp-rlogin" 
If PortToRecognize = 542 Then portname = "commerce" 
If PortToRecognize = 543 Then portname = "?" 
If PortToRecognize = 544 Then portname = "krcmd" 
If PortToRecognize = 545 Then portname = "appleqtcsrvr" 
If PortToRecognize = 546 Then portname = "DHCPv6 Client" 
If PortToRecognize = 547 Then portname = "DHCPv6 Server" 
If PortToRecognize = 548 Then portname = "AFP over TCP" 
If PortToRecognize = 549 Then portname = "IDFP" 
If PortToRecognize = 550 Then portname = "new-who" 
If PortToRecognize = 551 Then portname = "cybercash" 
If PortToRecognize = 552 Then portname = "deviceshare" 
If PortToRecognize = 553 Then portname = "pirp" 
If PortToRecognize = 554 Then portname = "Real Time Stream Control Protocol" 
If PortToRecognize = 555 Then portname = "?" 
If PortToRecognize = 556 Then portname = "rfs server" 
If PortToRecognize = 557 Then portname = "openvms-sysipc" 
If PortToRecognize = 558 Then portname = "SDNSKMP" 
If PortToRecognize = 559 Then portname = "TEEDTAP" 
If PortToRecognize = 560 Then portname = "rmonitord" 
If PortToRecognize = 561 Then portname = "?" 
If PortToRecognize = 562 Then portname = "chcmd" 
If PortToRecognize = 563 Then portname = "snews" 
If PortToRecognize = 564 Then portname = "plan 9 file service" 
If PortToRecognize = 565 Then portname = "whoami" 
If PortToRecognize = 566 Then portname = "streettalk" 
If PortToRecognize = 567 Then portname = "banyan-rpc" 
If PortToRecognize = 568 Then portname = "microsoft shuttle" 
If PortToRecognize = 569 Then portname = "microsoft rome" 
If PortToRecognize = 570 Then portname = "demon" 
If PortToRecognize = 571 Then portname = "udemon" 
If PortToRecognize = 572 Then portname = "sonar" 
If PortToRecognize = 573 Then portname = "banyan-vip" 
If PortToRecognize = 574 Then portname = "FTP Software Agent System" 
If PortToRecognize = 575 Then portname = "VEMMI" 
If PortToRecognize = 576 Then portname = "ipcd" 
If PortToRecognize = 577 Then portname = "vnas" 
If PortToRecognize = 578 Then portname = "ipdd" 
If PortToRecognize = 579 Then portname = "decbsrv" 
If PortToRecognize = 580 Then portname = "SNTP HEARTBEAT" 
If PortToRecognize = 581 Then portname = "Bundle Discovery Protocol" 
If PortToRecognize = 600 Then portname = "Sun IPC server" 
If PortToRecognize = 606 Then portname = "Cray Unified Resource Manager" 
If PortToRecognize = 607 Then portname = "nqs" 
If PortToRecognize = 608 Then portname = "Sender-Initiated/Unsolicited File Transfer" 
If PortToRecognize = 609 Then portname = "npmp-trap" 
If PortToRecognize = 610 Then portname = "npmp-local" 
If PortToRecognize = 611 Then portname = "npmp-gui" 
If PortToRecognize = 612 Then portname = "HMMP Indication" 
If PortToRecognize = 613 Then portname = "HMMP Operation" 
If PortToRecognize = 614 Then portname = "SSLshell" 
If PortToRecognize = 615 Then portname = "Internet Configuration Manager" 
If PortToRecognize = 616 Then portname = "SCO System Administration Server" 
If PortToRecognize = 617 Then portname = "SCO Desktop Administration Server" 
If PortToRecognize = 618 Then portname = "DEI-ICDA" 
If PortToRecognize = 619 Then portname = "Digital EVM" 
If PortToRecognize = 620 Then portname = "SCO WebServer Manager" 
If PortToRecognize = 633 Then portname = "Service Status update (Sterling Software)" 
If PortToRecognize = 634 Then portname = "ginad" 
If PortToRecognize = 635 Then portname = "RLZ DBase" 
If PortToRecognize = 636 Then portname = "ssl-ldap" 
If PortToRecognize = 637 Then portname = "lanserver" 
If PortToRecognize = 666 Then portname = "?" 
If PortToRecognize = 667 Then portname = "campaign contribution disclosures - SDR Technologies" 
If PortToRecognize = 668 Then portname = "MeComm" 
If PortToRecognize = 669 Then portname = "MeRegister" 
If PortToRecognize = 670 Then portname = "VACDSM-SWS" 
If PortToRecognize = 671 Then portname = "VACDSM-APP" 
If PortToRecognize = 672 Then portname = "VPPS-QUA" 
If PortToRecognize = 673 Then portname = "CIMPLEX" 
If PortToRecognize = 674 Then portname = "ACAP" 
If PortToRecognize = 704 Then portname = "errlog copy/server daemon" 
If PortToRecognize = 705 Then portname = "AgentX" 
If PortToRecognize = 709 Then portname = "Entrust Key Management Service Handler" 
If PortToRecognize = 710 Then portname = "Entrust Administration Service Handler" 
If PortToRecognize = 729 Then portname = "IBM NetView DM/6000 Server/Client" 
If PortToRecognize = 730 Then portname = "IBM NetView DM/6000 send" 
If PortToRecognize = 731 Then portname = "IBM NetView DM/6000 receive" 
If PortToRecognize = 741 Then portname = "netGW" 
If PortToRecognize = 742 Then portname = "Network based Rev. Cont. Sys." 
If PortToRecognize = 744 Then portname = "Flexible License Manager" 
If PortToRecognize = 747 Then portname = "Fujitsu Device Control" 
If PortToRecognize = 748 Then portname = "Russell Info Sci Calendar Manager" 
If PortToRecognize = 749 Then portname = "kerberos administration" 
If PortToRecognize = 750 Then portname = "?" 
If PortToRecognize = 751 Then portname = "?" 
If PortToRecognize = 752 Then portname = "?" 
If PortToRecognize = 753 Then portname = "?" 
If PortToRecognize = 754 Then portname = "send" 
If PortToRecognize = 758 Then portname = "?" 
If PortToRecognize = 759 Then portname = "?" 
If PortToRecognize = 760 Then portname = "?" 
If PortToRecognize = 761 Then portname = "?" 
If PortToRecognize = 762 Then portname = "?" 
If PortToRecognize = 763 Then portname = "?" 
If PortToRecognize = 764 Then portname = "?" 
If PortToRecognize = 765 Then portname = "?" 
If PortToRecognize = 767 Then portname = "phone" 
If PortToRecognize = 769 Then portname = "?" 
If PortToRecognize = 770 Then portname = "?" 
If PortToRecognize = 771 Then portname = "?" 
If PortToRecognize = 772 Then portname = "?" 
If PortToRecognize = 773 Then portname = "?" 
If PortToRecognize = 774 Then portname = "?" 
If PortToRecognize = 775 Then portname = "?" 
If PortToRecognize = 776 Then portname = "?" 
If PortToRecognize = 780 Then portname = "?" 
If PortToRecognize = 786 Then portname = "Concert" 
If PortToRecognize = 800 Then portname = "?" 
If PortToRecognize = 801 Then portname = "?" 
If PortToRecognize = 886 Then portname = "ICL coNETion locate server" 
If PortToRecognize = 887 Then portname = "ICL coNETion server info" 
If PortToRecognize = 888 Then portname = "AccessBuilder" 
If PortToRecognize = 911 Then portname = "xact-backup" 
If PortToRecognize = 991 Then portname = "Netnews Administration System" 
If PortToRecognize = 995 Then portname = "SSL based POP3" 
If PortToRecognize = 996 Then portname = "vsinet" 
If PortToRecognize = 997 Then portname = "?" 
If PortToRecognize = 998 Then portname = "?" 
If PortToRecognize = 999 Then portname = "?" 
If PortToRecognize = 1000 Then portname = "?" 
If PortToRecognize = 1001 Then portname = "WEB ex trojan" 
If PortToRecognize = 1023 Then portname = "Reserved" 
If PortToRecognize = 1024 Then portname = "Reserved" 
If PortToRecognize = 1025 Then portname = "network blackjack" 
If PortToRecognize = 1027 Then portname = "ICQ?" 
If PortToRecognize = 1030 Then portname = "BBN IAD" 
If PortToRecognize = 1031 Then portname = "BBN IAD" 
If PortToRecognize = 1032 Then portname = "BBN IAD" 
If PortToRecognize = 1047 Then portname = "Sun's NEO Object Request Broker" 
If PortToRecognize = 1048 Then portname = "Sun's NEO Object Request Broker" 
If PortToRecognize = 1058 Then portname = "nim" 
If PortToRecognize = 1059 Then portname = "nimreg" 
If PortToRecognize = 1067 Then portname = "Installation Bootstrap Proto. Serv." 
If PortToRecognize = 1068 Then portname = "Installation Bootstrap Proto. Cli." 
If PortToRecognize = 1080 Then portname = "Socks" 
If PortToRecognize = 1083 Then portname = "Anasoft License Manager" 
If PortToRecognize = 1084 Then portname = "Anasoft License Manager" 
If PortToRecognize = 1089 Then portname = "SocksServer trojan" 
If PortToRecognize = 1110 Then portname = "Cluster status info" 
If PortToRecognize = 1123 Then portname = "Murray" 
If PortToRecognize = 1155 Then portname = "Network File Access" 
If PortToRecognize = 1212 Then portname = "lupa" 
If PortToRecognize = 1222 Then portname = "SNI R&D network" 
If PortToRecognize = 1248 Then portname = "?" 
If PortToRecognize = 1313 Then portname = "BMC_PATROLDB" 
If PortToRecognize = 1314 Then portname = "Photoscript Distributed Printing System" 
If PortToRecognize = 1345 Then portname = "VPJP" 
If PortToRecognize = 1346 Then portname = "Alta Analytics License Manager" 
If PortToRecognize = 1347 Then portname = "multi media conferencing" 
If PortToRecognize = 1348 Then portname = "multi media conferencing" 
If PortToRecognize = 1349 Then portname = "Registration Network Protocol" 
If PortToRecognize = 1350 Then portname = "Registration Network Protocol" 
If PortToRecognize = 1351 Then portname = "Digital Tool Works (MIT)" 
If PortToRecognize = 1352 Then portname = "Lotus Note" 
If PortToRecognize = 1353 Then portname = "Relief Consulting" 
If PortToRecognize = 1354 Then portname = "RightBrain Software" 
If PortToRecognize = 1355 Then portname = "Intuitive Edge" 
If PortToRecognize = 1356 Then portname = "CuillaMartin Company" 
If PortToRecognize = 1357 Then portname = "Electronic PegBoard" 
If PortToRecognize = 1358 Then portname = "CONNLCLI" 
If PortToRecognize = 1359 Then portname = "FTSRV" 
If PortToRecognize = 1360 Then portname = "MIMER" 
If PortToRecognize = 1361 Then portname = "LinX" 
If PortToRecognize = 1362 Then portname = "TimeFlies" 
If PortToRecognize = 1363 Then portname = "Network DataMover Requester" 
If PortToRecognize = 1364 Then portname = "Network DataMover Server" 
If PortToRecognize = 1365 Then portname = "Network Software Associates" 
If PortToRecognize = 1366 Then portname = "Novell NetWare Comm Service Platform" 
If PortToRecognize = 1367 Then portname = "DCS" 
If PortToRecognize = 1368 Then portname = "ScreenCast" 
If PortToRecognize = 1369 Then portname = "GlobalView to Unix Shell" 
If PortToRecognize = 1370 Then portname = "Unix Shell to GlobalView" 
If PortToRecognize = 1371 Then portname = "Fujitsu Config Protocol" 
If PortToRecognize = 1372 Then portname = "Fujitsu Config Protocol" 
If PortToRecognize = 1373 Then portname = "Chromagrafx" 
If PortToRecognize = 1374 Then portname = "EPI Software Systems" 
If PortToRecognize = 1375 Then portname = "Bytex" 
If PortToRecognize = 1376 Then portname = "IBM Person to Person Software" 
If PortToRecognize = 1377 Then portname = "Cichlid License Manager" 
If PortToRecognize = 1378 Then portname = "Elan License Manager" 
If PortToRecognize = 1379 Then portname = "Integrity Solutions" 
If PortToRecognize = 1380 Then portname = "Telesis Network License Manager" 
If PortToRecognize = 1381 Then portname = "Apple Network License Manager" 
If PortToRecognize = 1382 Then portname = "?" 
If PortToRecognize = 1383 Then portname = "GW Hannaway Network License Manager" 
If PortToRecognize = 1384 Then portname = "Objective Solutions License Manager" 
If PortToRecognize = 1385 Then portname = "Atex Publishing License Manager" 
If PortToRecognize = 1386 Then portname = "CheckSum License Manager" 
If PortToRecognize = 1387 Then portname = "Computer Aided Design Software Inc LM" 
If PortToRecognize = 1388 Then portname = "Objective Solutions DataBase Cache" 
If PortToRecognize = 1389 Then portname = "Document Manager" 
If PortToRecognize = 1390 Then portname = "Storage Controller" 
If PortToRecognize = 1391 Then portname = "Storage Access Server" 
If PortToRecognize = 1392 Then portname = "Print Manager" 
If PortToRecognize = 1393 Then portname = "Network Log Server" 
If PortToRecognize = 1394 Then portname = "Network Log Client" 
If PortToRecognize = 1395 Then portname = "PC Workstation Manager software" 
If PortToRecognize = 1396 Then portname = "DVL Active Mail" 
If PortToRecognize = 1397 Then portname = "Audio Active Mail" 
If PortToRecognize = 1398 Then portname = "Video Active Mail" 
If PortToRecognize = 1399 Then portname = "Cadkey License Manager" 
If PortToRecognize = 1400 Then portname = "Cadkey Tablet Daemon" 
If PortToRecognize = 1401 Then portname = "Goldleaf License Manager" 
If PortToRecognize = 1402 Then portname = "Prospero Resource Manager" 
If PortToRecognize = 1403 Then portname = "Prospero Resource Manager" 
If PortToRecognize = 1404 Then portname = "Infinite Graphics License Manager" 
If PortToRecognize = 1405 Then portname = "IBM Remote Execution Starter" 
If PortToRecognize = 1406 Then portname = "NetLabs License Manager" 
If PortToRecognize = 1407 Then portname = "DBSA License Manager" 
If PortToRecognize = 1408 Then portname = "Sophia License Manager" 
If PortToRecognize = 1409 Then portname = "Here License Manager" 
If PortToRecognize = 1410 Then portname = "HiQ License Manager" 
If PortToRecognize = 1411 Then portname = "AudioFile" 
If PortToRecognize = 1412 Then portname = "InnoSys" 
If PortToRecognize = 1413 Then portname = "Innosys-ACL" 
If PortToRecognize = 1414 Then portname = "IBM MQSeries" 
If PortToRecognize = 1415 Then portname = "DBStar" 
If PortToRecognize = 1416 Then portname = "Novell LU6.2" 
If PortToRecognize = 1417 Then portname = "Timbuktu Service 1 Port" 
If PortToRecognize = 1418 Then portname = "Timbuktu Service 2 Port" 
If PortToRecognize = 1419 Then portname = "Timbuktu Service 3 Port" 
If PortToRecognize = 1420 Then portname = "Timbuktu Service 4 Port" 
If PortToRecognize = 1421 Then portname = "Gandalf License Manager" 
If PortToRecognize = 1422 Then portname = "Autodesk License Manager" 
If PortToRecognize = 1423 Then portname = "Essbase Arbor Software" 
If PortToRecognize = 1424 Then portname = "Hybrid Encryption Protocol" 
If PortToRecognize = 1425 Then portname = "Zion Software License Manager" 
If PortToRecognize = 1426 Then portname = "Satellite-data Acquisition System 1" 
If PortToRecognize = 1427 Then portname = "mloadd monitoring tool" 
If PortToRecognize = 1428 Then portname = "Informatik License Manager" 
If PortToRecognize = 1429 Then portname = "Hypercom NMS" 
If PortToRecognize = 1430 Then portname = "Hypercom TPDU" 
If PortToRecognize = 1431 Then portname = "Reverse Gossip Transport" 
If PortToRecognize = 1432 Then portname = "Blueberry Software License Manager" 
If PortToRecognize = 1433 Then portname = "Microsoft-SQL-Server" 
If PortToRecognize = 1434 Then portname = "Microsoft-SQL-Monitor" 
If PortToRecognize = 1435 Then portname = "IBM CICS" 
If PortToRecognize = 1436 Then portname = "Satellite-data Acquisition System 2" 
If PortToRecognize = 1437 Then portname = "Tabula" 
If PortToRecognize = 1438 Then portname = "Eicon Security Agent/Server" 
If PortToRecognize = 1439 Then portname = "Eicon X25/SNA Gateway" 
If PortToRecognize = 1440 Then portname = "Eicon Service Location Protocol" 
If PortToRecognize = 1441 Then portname = "Cadis License Management" 
If PortToRecognize = 1442 Then portname = "Cadis License Management" 
If PortToRecognize = 1443 Then portname = "Integrated Engineering Software" 
If PortToRecognize = 1444 Then portname = "Marcam License Management" 
If PortToRecognize = 1445 Then portname = "Proxima License Manager" 
If PortToRecognize = 1446 Then portname = "Optical Research Associates License Manager" 
If PortToRecognize = 1447 Then portname = "Applied Parallel Research LM" 
If PortToRecognize = 1448 Then portname = "OpenConnect License Manager" 
If PortToRecognize = 1449 Then portname = "PEport" 
If PortToRecognize = 1450 Then portname = "Tandem Distributed Workbench Facility" 
If PortToRecognize = 1451 Then portname = "IBM Information Management" 
If PortToRecognize = 1452 Then portname = "GTE Government Systems License Man" 
If PortToRecognize = 1453 Then portname = "Genie License Manager" 
If PortToRecognize = 1454 Then portname = "interHDL License Manager" 
If PortToRecognize = 1455 Then portname = "ESL License Manager" 
If PortToRecognize = 1456 Then portname = "DCA" 
If PortToRecognize = 1457 Then portname = "Valisys License Manager" 
If PortToRecognize = 1458 Then portname = "Nichols Research Corp." 
If PortToRecognize = 1459 Then portname = "Proshare Notebook Application" 
If PortToRecognize = 1460 Then portname = "Proshare Notebook Application" 
If PortToRecognize = 1461 Then portname = "IBM Wireless LAN" 
If PortToRecognize = 1462 Then portname = "World License Manager" 
If PortToRecognize = 1463 Then portname = "Nucleus" 
If PortToRecognize = 1464 Then portname = "MSL License Manager" 
If PortToRecognize = 1465 Then portname = "Pipes Platform" 
If PortToRecognize = 1466 Then portname = "Ocean Software License Manager" 
If PortToRecognize = 1467 Then portname = "CSDMBASE" 
If PortToRecognize = 1468 Then portname = "CSDM" 
If PortToRecognize = 1469 Then portname = "Active Analysis Limited License Manager" 
If PortToRecognize = 1470 Then portname = "Universal Analytics" 
If PortToRecognize = 1471 Then portname = "csdmbase" 
If PortToRecognize = 1472 Then portname = "csdm" 
If PortToRecognize = 1473 Then portname = "OpenMath" 
If PortToRecognize = 1474 Then portname = "Telefinder" 
If PortToRecognize = 1475 Then portname = "Taligent License Manager" 
If PortToRecognize = 1476 Then portname = "clvm-cfg" 
If PortToRecognize = 1477 Then portname = "ms-sna-server" 
If PortToRecognize = 1478 Then portname = "ms-sna-base" 
If PortToRecognize = 1479 Then portname = "dberegister" 
If PortToRecognize = 1480 Then portname = "PacerForum" 
If PortToRecognize = 1481 Then portname = "AIRS" 
If PortToRecognize = 1482 Then portname = "Miteksys License Manager" 
If PortToRecognize = 1483 Then portname = "AFS License Manager" 
If PortToRecognize = 1484 Then portname = "Confluent License Manager" 
If PortToRecognize = 1485 Then portname = "LANSource" 
If PortToRecognize = 1486 Then portname = "nms_topo_serv" 
If PortToRecognize = 1487 Then portname = "LocalInfoSrvr" 
If PortToRecognize = 1488 Then portname = "DocStor" 
If PortToRecognize = 1489 Then portname = "dmdocbroker" 
If PortToRecognize = 1490 Then portname = "insitu-conf" 
If PortToRecognize = 1491 Then portname = "anynetgateway" 
If PortToRecognize = 1492 Then portname = "stone-design-1" 
If PortToRecognize = 1493 Then portname = "netmap_lm" 
If PortToRecognize = 1494 Then portname = "ica" 
If PortToRecognize = 1495 Then portname = "cvc" 
If PortToRecognize = 1496 Then portname = "liberty-lm" 
If PortToRecognize = 1497 Then portname = "rfx-lm" 
If PortToRecognize = 1498 Then portname = "Watcom-SQL" 
If PortToRecognize = 1499 Then portname = "Federico Heinz Consultora" 
If PortToRecognize = 1500 Then portname = "VLSI License Manager" 
If PortToRecognize = 1501 Then portname = "Satellite-data Acquisition System 3" 
If PortToRecognize = 1502 Then portname = "Shiva" 
If PortToRecognize = 1503 Then portname = "Databeam" 
If PortToRecognize = 1504 Then portname = "EVB Software Engineering License Manager" 
If PortToRecognize = 1505 Then portname = "Funk Software" 
If PortToRecognize = 1506 Then portname = "Universal Time daemon (utcd)" 
If PortToRecognize = 1507 Then portname = "symplex" 
If PortToRecognize = 1508 Then portname = "diagmond" 
If PortToRecognize = 1509 Then portname = "Robcad" 
If PortToRecognize = 1510 Then portname = "Midland Valley Exploration Ltd. Lic. Man." 
If PortToRecognize = 1511 Then portname = "3l-l1" 
If PortToRecognize = 1512 Then portname = "Microsoft's Windows Internet Name Service" 
If PortToRecognize = 1513 Then portname = "Fujitsu Systems Business of America" 
If PortToRecognize = 1514 Then portname = "Fujitsu Systems Business of America" 
If PortToRecognize = 1515 Then portname = "ifor-protocol" 
If PortToRecognize = 1516 Then portname = "Virtual Places Audio data" 
If PortToRecognize = 1517 Then portname = "Virtual Places Audio control" 
If PortToRecognize = 1518 Then portname = "Virtual Places Video data" 
If PortToRecognize = 1519 Then portname = "Virtual Places Video control" 
If PortToRecognize = 1520 Then portname = "atm zip office" 
If PortToRecognize = 1521 Then portname = "nCube License Manager" 
If PortToRecognize = 1522 Then portname = "Ricardo North America License Manager" 
If PortToRecognize = 1523 Then portname = "cichild" 
If PortToRecognize = 1524 Then portname = "ingres" 
If PortToRecognize = 1525 Then portname = "oracle" 
If PortToRecognize = 1526 Then portname = "Prospero Data Access Prot non-priv" 
If PortToRecognize = 1527 Then portname = "oracle" 
If PortToRecognize = 1528 Then portname = "micautoreg" 
If PortToRecognize = 1529 Then portname = "oracle" 
If PortToRecognize = 1530 Then portname = "rap-service" 
If PortToRecognize = 1531 Then portname = "rap-listen" 
If PortToRecognize = 1532 Then portname = "miroconnect" 
If PortToRecognize = 1533 Then portname = "Virtual Places Software" 
If PortToRecognize = 1534 Then portname = "micromuse-lm" 
If PortToRecognize = 1535 Then portname = "ampr-info" 
If PortToRecognize = 1536 Then portname = "ampr-inter" 
If PortToRecognize = 1537 Then portname = "isi-lm" 
If PortToRecognize = 1538 Then portname = "3ds-lm" 
If PortToRecognize = 1539 Then portname = "Intellistor License Manager" 
If PortToRecognize = 1540 Then portname = "rds" 
If PortToRecognize = 1541 Then portname = "rds2" 
If PortToRecognize = 1542 Then portname = "gridgen-elmd" 
If PortToRecognize = 1543 Then portname = "simba-cs" 
If PortToRecognize = 1544 Then portname = "aspeclmd" 
If PortToRecognize = 1545 Then portname = "vistium-share" 
If PortToRecognize = 1546 Then portname = "abbaccuray" 
If PortToRecognize = 1547 Then portname = "laplink" 
If PortToRecognize = 1548 Then portname = "Axon License Manager" 
If PortToRecognize = 1549 Then portname = "Shiva Hose" 
If PortToRecognize = 1550 Then portname = "Image Storage license manager 3M Company" 
If PortToRecognize = 1551 Then portname = "HECMTL-DB" 
If PortToRecognize = 1552 Then portname = "pciarray" 
If PortToRecognize = 1553 Then portname = "sna-cs" 
If PortToRecognize = 1554 Then portname = "CACI Products Company License Manager" 
If PortToRecognize = 1555 Then portname = "livelan" 
If PortToRecognize = 1556 Then portname = "AshWin CI Tecnologies" 
If PortToRecognize = 1557 Then portname = "ArborText License Manager" 
If PortToRecognize = 1558 Then portname = "xingmpeg" 
If PortToRecognize = 1559 Then portname = "web2host" 
If PortToRecognize = 1560 Then portname = "asci-val" 
If PortToRecognize = 1561 Then portname = "facilityview" 
If PortToRecognize = 1562 Then portname = "pconnectmgr" 
If PortToRecognize = 1563 Then portname = "Cadabra License Manager" 
If PortToRecognize = 1564 Then portname = "Pay-Per-View" 
If PortToRecognize = 1565 Then portname = "WinDD" 
If PortToRecognize = 1566 Then portname = "CORELVIDEO" 
If PortToRecognize = 1567 Then portname = "jlicelmd" 
If PortToRecognize = 1568 Then portname = "tsspmap" 
If PortToRecognize = 1569 Then portname = "ets" 
If PortToRecognize = 1570 Then portname = "orbixd" 
If PortToRecognize = 1571 Then portname = "Oracle Remote Data Base" 
If PortToRecognize = 1572 Then portname = "Chipcom License Manager" 
If PortToRecognize = 1573 Then portname = "itscomm-ns" 
If PortToRecognize = 1574 Then portname = "mvel-lm" 
If PortToRecognize = 1575 Then portname = "oraclenames" 
If PortToRecognize = 1576 Then portname = "moldflow-lm" 
If PortToRecognize = 1577 Then portname = "hypercube-lm" 
If PortToRecognize = 1578 Then portname = "Jacobus License Manager" 
If PortToRecognize = 1579 Then portname = "ioc-sea-lm" 
If PortToRecognize = 1580 Then portname = "tn-tl-r1" 
If PortToRecognize = 1581 Then portname = "vmf-msg-port" 
If PortToRecognize = 1582 Then portname = "MSIMS" 
If PortToRecognize = 1583 Then portname = "simbaexpress" 
If PortToRecognize = 1584 Then portname = "tn-tl-fd2" 
If PortToRecognize = 1585 Then portname = "intv" 
If PortToRecognize = 1586 Then portname = "ibm-abtact" 
If PortToRecognize = 1587 Then portname = "pra_elmd" 
If PortToRecognize = 1588 Then portname = "triquest-lm" 
If PortToRecognize = 1589 Then portname = "VQP" 
If PortToRecognize = 1590 Then portname = "gemini-lm" 
If PortToRecognize = 1591 Then portname = "ncpm-pm" 
If PortToRecognize = 1592 Then portname = "commonspace" 
If PortToRecognize = 1593 Then portname = "mainsoft-lm" 
If PortToRecognize = 1594 Then portname = "sixtrak" 
If PortToRecognize = 1595 Then portname = "radio" 
If PortToRecognize = 1596 Then portname = "radio-sm" 
If PortToRecognize = 1597 Then portname = "orbplus-iiop" 
If PortToRecognize = 1598 Then portname = "picknfs" 
If PortToRecognize = 1599 Then portname = "simbaservices" 
If PortToRecognize = 1600 Then portname = "?" 
If PortToRecognize = 1601 Then portname = "aas" 
If PortToRecognize = 1602 Then portname = "inspect" 
If PortToRecognize = 1603 Then portname = "pickodbc" 
If PortToRecognize = 1604 Then portname = "icabrowser" 
If PortToRecognize = 1605 Then portname = "Salutation Manager (Salutation Protocol)" 
If PortToRecognize = 1606 Then portname = "Salutation Manager (SLM-API)" 
If PortToRecognize = 1607 Then portname = "stt" 
If PortToRecognize = 1608 Then portname = "Smart Corp. License Manager" 
If PortToRecognize = 1609 Then portname = "isysg-lm" 
If PortToRecognize = 1610 Then portname = "taurus-wh" 
If PortToRecognize = 1611 Then portname = "Inter Library Loan" 
If PortToRecognize = 1612 Then portname = "NetBill Transaction Server" 
If PortToRecognize = 1613 Then portname = "NetBill Key Repository" 
If PortToRecognize = 1614 Then portname = "NetBill Credential Server" 
If PortToRecognize = 1615 Then portname = "NetBill Authorization Server" 
If PortToRecognize = 1616 Then portname = "NetBill Product Server" 
If PortToRecognize = 1617 Then portname = "Nimrod Inter-Agent Communication" 
If PortToRecognize = 1618 Then portname = "skytelnet" 
If PortToRecognize = 1619 Then portname = "xs-openstorage" 
If PortToRecognize = 1620 Then portname = "faxportwinport" 
If PortToRecognize = 1621 Then portname = "softdataphone" 
If PortToRecognize = 1622 Then portname = "ontime" 
If PortToRecognize = 1623 Then portname = "jaleosnd" 
If PortToRecognize = 1624 Then portname = "udp-sr-port" 
If PortToRecognize = 1625 Then portname = "svs-omagent" 
If PortToRecognize = 1636 Then portname = "CableNet Control Protocol" 
If PortToRecognize = 1637 Then portname = "CableNet Admin Protocol" 
If PortToRecognize = 1638 Then portname = "CableNet Info Protocol" 
If PortToRecognize = 1639 Then portname = "cert-initiator" 
If PortToRecognize = 1640 Then portname = "cert-responder" 
If PortToRecognize = 1641 Then portname = "InVision" 
If PortToRecognize = 1642 Then portname = "isis-am" 
If PortToRecognize = 1643 Then portname = "isis-ambc" 
If PortToRecognize = 1644 Then portname = "Satellite-data Acquisition System 4" 
If PortToRecognize = 1645 Then portname = "datametrics" 
If PortToRecognize = 1646 Then portname = "sa-msg-port" 
If PortToRecognize = 1647 Then portname = "rsap" 
If PortToRecognize = 1648 Then portname = "concurrent-lm" 
If PortToRecognize = 1649 Then portname = "inspect" 
If PortToRecognize = 1650 Then portname = "?" 
If PortToRecognize = 1651 Then portname = "shiva_confsrvr" 
If PortToRecognize = 1652 Then portname = "xnmp" 
If PortToRecognize = 1653 Then portname = "alphatech-lm" 
If PortToRecognize = 1654 Then portname = "stargatealerts" 
If PortToRecognize = 1655 Then portname = "dec-mbadmin" 
If PortToRecognize = 1656 Then portname = "dec-mbadmin-h" 
If PortToRecognize = 1657 Then portname = "fujitsu-mmpdc" 
If PortToRecognize = 1658 Then portname = "sixnetudr" 
If PortToRecognize = 1659 Then portname = "Silicon Grail License Manager" 
If PortToRecognize = 1660 Then portname = "skip-mc-gikreq" 
If PortToRecognize = 1661 Then portname = "netview-aix-1" 
If PortToRecognize = 1662 Then portname = "netview-aix-2" 
If PortToRecognize = 1663 Then portname = "netview-aix-3" 
If PortToRecognize = 1664 Then portname = "netview-aix-4" 
If PortToRecognize = 1665 Then portname = "netview-aix-5" 
If PortToRecognize = 1666 Then portname = "netview-aix-6" 
If PortToRecognize = 1667 Then portname = "netview-aix-7" 
If PortToRecognize = 1668 Then portname = "netview-aix-8" 
If PortToRecognize = 1669 Then portname = "netview-aix-9" 
If PortToRecognize = 1670 Then portname = "netview-aix-10" 
If PortToRecognize = 1671 Then portname = "netview-aix-11" 
If PortToRecognize = 1672 Then portname = "netview-aix-12" 
If PortToRecognize = 1673 Then portname = "Intel Proshare Multicast" 
If PortToRecognize = 1674 Then portname = "Intel Proshare Multicast" 
If PortToRecognize = 1675 Then portname = "Pacific Data Products" 
If PortToRecognize = 1676 Then portname = "netcomm1" 
If PortToRecognize = 1677 Then portname = "groupwise" 
If PortToRecognize = 1678 Then portname = "prolink" 
If PortToRecognize = 1679 Then portname = "darcorp-lm" 
If PortToRecognize = 1680 Then portname = "microcom-sbp" 
If PortToRecognize = 1681 Then portname = "sd-elmd" 
If PortToRecognize = 1682 Then portname = "lanyon-lantern" 
If PortToRecognize = 1683 Then portname = "ncpm-hip" 
If PortToRecognize = 1684 Then portname = "SnareSecure" 
If PortToRecognize = 1685 Then portname = "n2nremote" 
If PortToRecognize = 1686 Then portname = "cvmon" 
If PortToRecognize = 1687 Then portname = "nsjtp-ctrl" 
If PortToRecognize = 1688 Then portname = "nsjtp-data" 
If PortToRecognize = 1689 Then portname = "firefox" 
If PortToRecognize = 1690 Then portname = "ng-umds" 
If PortToRecognize = 1691 Then portname = "empire-empuma" 
If PortToRecognize = 1692 Then portname = "sstsys-lm" 
If PortToRecognize = 1693 Then portname = "rrirtr" 
If PortToRecognize = 1694 Then portname = "rrimwm" 
If PortToRecognize = 1695 Then portname = "rrilwm" 
If PortToRecognize = 1696 Then portname = "rrifmm" 
If PortToRecognize = 1697 Then portname = "rrisat" 
If PortToRecognize = 1698 Then portname = "RSVP-ENCAPSULATION-1" 
If PortToRecognize = 1699 Then portname = "RSVP-ENCAPSULATION-2" 
If PortToRecognize = 1700 Then portname = "mps-raft" 
If PortToRecognize = 1701 Then portname = "l2f" 
If PortToRecognize = 1702 Then portname = "deskshare" 
If PortToRecognize = 1703 Then portname = "hb-engine" 
If PortToRecognize = 1704 Then portname = "bcs-broker" 
If PortToRecognize = 1705 Then portname = "slingshot" 
If PortToRecognize = 1706 Then portname = "jetform" 
If PortToRecognize = 1707 Then portname = "vdmplay" 
If PortToRecognize = 1708 Then portname = "gat-lmd" 
If PortToRecognize = 1709 Then portname = "centra" 
If PortToRecognize = 1710 Then portname = "impera" 
If PortToRecognize = 1711 Then portname = "pptconference" 
If PortToRecognize = 1712 Then portname = "resource monitoring service" 
If PortToRecognize = 1713 Then portname = "ConferenceTalk" 
If PortToRecognize = 1714 Then portname = "sesi-lm" 
If PortToRecognize = 1715 Then portname = "houdini-lm" 
If PortToRecognize = 1716 Then portname = "xmsg" 
If PortToRecognize = 1717 Then portname = "fj-hdnet" 
If PortToRecognize = 1718 Then portname = "h323gatedisc" 
If PortToRecognize = 1719 Then portname = "h323gatestat" 
If PortToRecognize = 1720 Then portname = "h323hostcall" 
If PortToRecognize = 1721 Then portname = "caicci" 
If PortToRecognize = 1722 Then portname = "HKS License Manager" 
If PortToRecognize = 1723 Then portname = "pptp" 
If PortToRecognize = 1724 Then portname = "csbphonemaster" 
If PortToRecognize = 1725 Then portname = "iden-ralp" 
If PortToRecognize = 1726 Then portname = "IBERIAGAMES" 
If PortToRecognize = 1727 Then portname = "winddx" 
If PortToRecognize = 1728 Then portname = "TELINDUS" 
If PortToRecognize = 1729 Then portname = "CityNL License Management" 
If PortToRecognize = 1730 Then portname = "roketz" 
If PortToRecognize = 1731 Then portname = "MSICCP" 
If PortToRecognize = 1732 Then portname = "proxim" 
If PortToRecognize = 1733 Then portname = "sipat" 
If PortToRecognize = 1734 Then portname = "Camber Corporation License Management" 
If PortToRecognize = 1735 Then portname = "PrivateChat" 
If PortToRecognize = 1736 Then portname = "street-stream" 
If PortToRecognize = 1737 Then portname = "ultimad" 
If PortToRecognize = 1738 Then portname = "GameGen1" 
If PortToRecognize = 1739 Then portname = "webaccess" 
If PortToRecognize = 1740 Then portname = "encore" 
If PortToRecognize = 1741 Then portname = "cisco-net-mgmt" 
If PortToRecognize = 1742 Then portname = "3Com-nsd" 
If PortToRecognize = 1743 Then portname = "Cinema Graphics License Manager" 
If PortToRecognize = 1744 Then portname = "ncpm-ft" 
If PortToRecognize = 1745 Then portname = "remote-winsock" 
If PortToRecognize = 1746 Then portname = "ftrapid-1" 
If PortToRecognize = 1747 Then portname = "ftrapid-2" 
If PortToRecognize = 1748 Then portname = "oracle-em1" 
If PortToRecognize = 1749 Then portname = "aspen-services" 
If PortToRecognize = 1750 Then portname = "Simple Socket Library's PortMaster" 
If PortToRecognize = 1751 Then portname = "SwiftNet" 
If PortToRecognize = 1752 Then portname = "Leap of Faith Research License Manager" 
If PortToRecognize = 1753 Then portname = "Translogic License Manager" 
If PortToRecognize = 1754 Then portname = "oracle-em2" 
If PortToRecognize = 1755 Then portname = "ms-streaming" 
If PortToRecognize = 1756 Then portname = "capfast-lmd" 
If PortToRecognize = 1757 Then portname = "cnhrp" 
If PortToRecognize = 1758 Then portname = "tftp-mcast" 
If PortToRecognize = 1759 Then portname = "SPSS License Manager" 
If PortToRecognize = 1760 Then portname = "www-ldap-gw" 
If PortToRecognize = 1761 Then portname = "cft-0" 
If PortToRecognize = 1762 Then portname = "cft-1" 
If PortToRecognize = 1763 Then portname = "cft-2" 
If PortToRecognize = 1764 Then portname = "cft-3" 
If PortToRecognize = 1765 Then portname = "cft-4" 
If PortToRecognize = 1766 Then portname = "cft-5" 
If PortToRecognize = 1767 Then portname = "cft-6" 
If PortToRecognize = 1768 Then portname = "cft-7" 
If PortToRecognize = 1769 Then portname = "bmc-net-adm" 
If PortToRecognize = 1770 Then portname = "bmc-net-svc" 
If PortToRecognize = 1771 Then portname = "vaultbase" 
If PortToRecognize = 1772 Then portname = "EssWeb Gateway" 
If PortToRecognize = 1773 Then portname = "KMSControl" 
If PortToRecognize = 1774 Then portname = "global-dtserv" 
If PortToRecognize = 1776 Then portname = "Federal Emergency Management Information System" 
If PortToRecognize = 1777 Then portname = "powerguardian" 
If PortToRecognize = 1778 Then portname = "prodigy-internet" 
If PortToRecognize = 1779 Then portname = "pharmasoft" 
If PortToRecognize = 1780 Then portname = "dpkeyserv" 
If PortToRecognize = 1781 Then portname = "answersoft-lm" 
If PortToRecognize = 1782 Then portname = "hp-hcip" 
If PortToRecognize = 1783 Then portname = "Fujitsu Remote Install Service" 
If PortToRecognize = 1784 Then portname = "Finle License Manager" 
If PortToRecognize = 1785 Then portname = "Wind River Systems License Manager" 
If PortToRecognize = 1786 Then portname = "funk-logger" 
If PortToRecognize = 1787 Then portname = "funk-license" 
If PortToRecognize = 1788 Then portname = "psmond" 
If PortToRecognize = 1789 Then portname = "hello" 
If PortToRecognize = 1790 Then portname = "Narrative Media Streaming Protocol" 
If PortToRecognize = 1791 Then portname = "EA1" 
If PortToRecognize = 1792 Then portname = "ibm-dt-2" 
If PortToRecognize = 1793 Then portname = "rsc-robot" 
If PortToRecognize = 1794 Then portname = "cera-bcm" 
If PortToRecognize = 1795 Then portname = "dpi-proxy" 
If PortToRecognize = 1796 Then portname = "Vocaltec Server Administration" 
If PortToRecognize = 1797 Then portname = "UMA" 
If PortToRecognize = 1798 Then portname = "Event Transfer Protocol" 
If PortToRecognize = 1799 Then portname = "NETRISK" 
If PortToRecognize = 1800 Then portname = "ANSYS-License manager" 
If PortToRecognize = 1801 Then portname = "Microsoft Message Que" 
If PortToRecognize = 1802 Then portname = "ConComp1" 
If PortToRecognize = 1803 Then portname = "HP-HCIP-GWY" 
If PortToRecognize = 1804 Then portname = "ENL" 
If PortToRecognize = 1805 Then portname = "ENL-Name" 
If PortToRecognize = 1806 Then portname = "Musiconline" 
If PortToRecognize = 1807 Then portname = "Fujitsu Hot Standby Protocol" 
If PortToRecognize = 1808 Then portname = "Oracle-VP2" 
If PortToRecognize = 1809 Then portname = "Oracle-VP1" 
If PortToRecognize = 1810 Then portname = "Jerand License Manager" 
If PortToRecognize = 1811 Then portname = "Scientia-SDB" 
If PortToRecognize = 1812 Then portname = "RADIUS" 
If PortToRecognize = 1813 Then portname = "RADIUS Accounting" 
If PortToRecognize = 1814 Then portname = "TDP Suite" 
If PortToRecognize = 1815 Then portname = "MMPFT" 
If PortToRecognize = 1818 Then portname = "Enhanced Trivial File Transfer Protocol" 
If PortToRecognize = 1819 Then portname = "Plato License Manager" 
If PortToRecognize = 1820 Then portname = "mcagent" 
If PortToRecognize = 1821 Then portname = "donnyworld" 
If PortToRecognize = 1822 Then portname = "es-elmd" 
If PortToRecognize = 1823 Then portname = "Unisys Natural Language License Manager" 
If PortToRecognize = 1824 Then portname = "metrics-pas" 
If PortToRecognize = 1901 Then portname = "Fujitsu ICL Terminal Emulator Program A" 
If PortToRecognize = 1902 Then portname = "Fujitsu ICL Terminal Emulator Program B" 
If PortToRecognize = 1903 Then portname = "Local Link Name Resolution" 
If PortToRecognize = 1904 Then portname = "Fujitsu ICL Terminal Emulator Program C" 
If PortToRecognize = 1905 Then portname = "Secure UP.Link Gateway Protocol" 
If PortToRecognize = 1906 Then portname = "TPortMapperReq" 
If PortToRecognize = 1907 Then portname = "IntraSTAR" 
If PortToRecognize = 1908 Then portname = "Dawn" 
If PortToRecognize = 1909 Then portname = "Global World Link" 
If PortToRecognize = 1911 Then portname = "Starlight Networks Multimedia Transport Protocol" 
If PortToRecognize = 1912 Then portname = "Unassigned" 
If PortToRecognize = 1913 Then portname = "armadp" 
If PortToRecognize = 1914 Then portname = "Elm-Momentum" 
If PortToRecognize = 1915 Then portname = "FACELINK" 
If PortToRecognize = 1916 Then portname = "Persoft Persona" 
If PortToRecognize = 1917 Then portname = "nOAgent" 
If PortToRecognize = 1918 Then portname = "Candle Directory Service - NDS" 
If PortToRecognize = 1919 Then portname = "Candle Directory Service - DCH" 
If PortToRecognize = 1920 Then portname = "Candle Directory Service - FERRET" 
If PortToRecognize = 1944 Then portname = "close-combat" 
If PortToRecognize = 1945 Then portname = "dialogic-elmd" 
If PortToRecognize = 1946 Then portname = "tekpls" 
If PortToRecognize = 1947 Then portname = "hlserver" 
If PortToRecognize = 1948 Then portname = "eye2eye" 
If PortToRecognize = 1949 Then portname = "ISMA Easdaq Live" 
If PortToRecognize = 1950 Then portname = "ISMA Easdaq Test" 
If PortToRecognize = 1951 Then portname = "bcs-lmserver" 
If PortToRecognize = 1973 Then portname = "Data Link Switching Remote Access Protocol" 
If PortToRecognize = 1985 Then portname = "Folio Remote Server" 
If PortToRecognize = 1986 Then portname = "cisco license management" 
If PortToRecognize = 1987 Then portname = "cisco RSRB Priority 1 port" 
If PortToRecognize = 1988 Then portname = "cisco RSRB Priority 2 port" 
If PortToRecognize = 1989 Then portname = "cisco RSRB Priority 3 port" 
If PortToRecognize = 1990 Then portname = "cisco STUN Priority 1 port" 
If PortToRecognize = 1991 Then portname = "cisco STUN Priority 2 port" 
If PortToRecognize = 1992 Then portname = "cisco STUN Priority 3 port" 
If PortToRecognize = 1993 Then portname = "cisco SNMP TCP port" 
If PortToRecognize = 1994 Then portname = "cisco serial tunnel port" 
If PortToRecognize = 1995 Then portname = "cisco perf port" 
If PortToRecognize = 1996 Then portname = "cisco Remote SRB port" 
If PortToRecognize = 1997 Then portname = "cisco Gateway Discovery Protocol" 
If PortToRecognize = 1998 Then portname = "cisco X.25 service (XOT)" 
If PortToRecognize = 1999 Then portname = "cisco identification port" 
If PortToRecognize = 2000 Then portname = "?" 
If PortToRecognize = 2001 Then portname = "?" 
If PortToRecognize = 2002 Then portname = "?" 
If PortToRecognize = 2004 Then portname = "?" 
If PortToRecognize = 2005 Then portname = "?" 
If PortToRecognize = 2006 Then portname = "?" 
If PortToRecognize = 2007 Then portname = "?" 
If PortToRecognize = 2008 Then portname = "?" 
If PortToRecognize = 2009 Then portname = "n" 
If PortToRecognize = 2010 Then portname = "?" 
If PortToRecognize = 2011 Then portname = "raid" 
If PortToRecognize = 2012 Then portname = "?" 
If PortToRecognize = 2013 Then portname = "?" 
If PortToRecognize = 2014 Then portname = "?" 
If PortToRecognize = 2015 Then portname = "?" 
If PortToRecognize = 2016 Then portname = "?" 
If PortToRecognize = 2017 Then portname = "?" 
If PortToRecognize = 2018 Then portname = "?" 
If PortToRecognize = 2019 Then portname = "?" 
If PortToRecognize = 2020 Then portname = "?" 
If PortToRecognize = 2021 Then portname = "?" 
If PortToRecognize = 2022 Then portname = "?" 
If PortToRecognize = 2023 Then portname = "?" 
If PortToRecognize = 2024 Then portname = "?" 
If PortToRecognize = 2025 Then portname = "?" 
If PortToRecognize = 2026 Then portname = "?" 
If PortToRecognize = 2027 Then portname = "?" 
If PortToRecognize = 2028 Then portname = "?" 
If PortToRecognize = 2030 Then portname = "?" 
If PortToRecognize = 2032 Then portname = "?" 
If PortToRecognize = 2033 Then portname = "?" 
If PortToRecognize = 2034 Then portname = "?" 
If PortToRecognize = 2035 Then portname = "?" 
If PortToRecognize = 2038 Then portname = "?" 
If PortToRecognize = 2040 Then portname = "?" 
If PortToRecognize = 2041 Then portname = "?" 
If PortToRecognize = 2042 Then portname = "isis" 
If PortToRecognize = 2043 Then portname = "isis-bcast" 
If PortToRecognize = 2044 Then portname = "?" 
If PortToRecognize = 2045 Then portname = "?" 
If PortToRecognize = 2046 Then portname = "?" 
If PortToRecognize = 2047 Then portname = "?" 
If PortToRecognize = 2048 Then portname = "?" 
If PortToRecognize = 2049 Then portname = "?" 
If PortToRecognize = 2065 Then portname = "Data Link Switch Read Port Number" 
If PortToRecognize = 2067 Then portname = "Data Link Switch Write Port Number" 
If PortToRecognize = 2102 Then portname = "Zephyr server" 
If PortToRecognize = 2103 Then portname = "Zephyr serv-hm connection" 
If PortToRecognize = 2104 Then portname = "Zephyr hostmanager" 
If PortToRecognize = 2105 Then portname = "MiniPay" 
If PortToRecognize = 2201 Then portname = "Advanced Training System Program" 
If PortToRecognize = 2202 Then portname = "Int. Multimedia Teleconferencing Cosortium" 
If PortToRecognize = 2213 Then portname = "Kali" 
If PortToRecognize = 2221 Then portname = "Allen-Bradley unregistered port" 
If PortToRecognize = 2222 Then portname = "Allen-Bradley unregistered port" 
If PortToRecognize = 2223 Then portname = "Allen-Bradley unregistered port" 
If PortToRecognize = 2232 Then portname = "IVS Video default" 
If PortToRecognize = 2233 Then portname = "INFOCRYPT" 
If PortToRecognize = 2234 Then portname = "DirectPlay" 
If PortToRecognize = 2235 Then portname = "Sercomm-WLink" 
If PortToRecognize = 2236 Then portname = "Nani" 
If PortToRecognize = 2237 Then portname = "Optech Port1 License Manager" 
If PortToRecognize = 2238 Then portname = "AVIVA SNA SERVER" 
If PortToRecognize = 2239 Then portname = "Image Query" 
If PortToRecognize = 2241 Then portname = "IVS Daemon" 
If PortToRecognize = 2279 Then portname = "xmquery" 
If PortToRecognize = 2280 Then portname = "LNVPOLLER" 
If PortToRecognize = 2281 Then portname = "LNVCONSOLE" 
If PortToRecognize = 2282 Then portname = "LNVALARM" 
If PortToRecognize = 2283 Then portname = "LNVSTATUS" 
If PortToRecognize = 2284 Then portname = "LNVMAPS" 
If PortToRecognize = 2285 Then portname = "LNVMAILMON" 
If PortToRecognize = 2286 Then portname = "NAS-Metering" 
If PortToRecognize = 2287 Then portname = "DNA" 
If PortToRecognize = 2288 Then portname = "NETML" 
If PortToRecognize = 2301 Then portname = "Compaq Insight Manager" 
If PortToRecognize = 2307 Then portname = "pehelp" 
If PortToRecognize = 2401 Then portname = "cvspserver" 
If PortToRecognize = 2500 Then portname = "Resource Tracking system server" 
If PortToRecognize = 2501 Then portname = "Resource Tracking system client" 
If PortToRecognize = 2564 Then portname = "HP 3000 NS/VT block mode telnet" 
If PortToRecognize = 2583 Then portname = "Wincrash V2.0 trojan" 
If PortToRecognize = 2592 Then portname = "netrek" 
If PortToRecognize = 2700 Then portname = "tqdata" 
If PortToRecognize = 2784 Then portname = "world wide web - development" 
If PortToRecognize = 2785 Then portname = "aic-np" 
If PortToRecognize = 2786 Then portname = "aic-oncrpc - Destiny MCD database" 
If PortToRecognize = 2787 Then portname = "piccolo - Cornerstone Software" 
If PortToRecognize = 2788 Then portname = "NetWare Loadable Module - Seagate Software" 
If PortToRecognize = 2789 Then portname = "Media Agent" 
If PortToRecognize = 2801 Then portname = "Phineas trojan" 
If PortToRecognize = 2908 Then portname = "mao" 
If PortToRecognize = 2909 Then portname = "Funk Dialout" 
If PortToRecognize = 2910 Then portname = "TDAccess" 
If PortToRecognize = 2911 Then portname = "Blockade" 
If PortToRecognize = 2912 Then portname = "Epicon" 
If PortToRecognize = 3000 Then portname = "HBCI" 
If PortToRecognize = 3001 Then portname = "Redwood Broker" 
If PortToRecognize = 3002 Then portname = "EXLM Agent" 
If PortToRecognize = 3010 Then portname = "Telerate Workstation" 
If PortToRecognize = 3011 Then portname = "Trusted Web" 
If PortToRecognize = 3047 Then portname = "Fast Security HL Server" 
If PortToRecognize = 3048 Then portname = "Sierra Net PC Trader" 
If PortToRecognize = 3049 Then portname = "?" 
If PortToRecognize = 3128 Then portname = "Squid Proxy" 
If PortToRecognize = 3141 Then portname = "VMODEM" 
If PortToRecognize = 3142 Then portname = "RDC WH EOS" 
If PortToRecognize = 3143 Then portname = "Sea View" 
If PortToRecognize = 3144 Then portname = "Tarantella" 
If PortToRecognize = 3145 Then portname = "CSI-LFAP" 
If PortToRecognize = 3264 Then portname = "cc:mail/lotus" 
If PortToRecognize = 3333 Then portname = "DEC Notes" 
If PortToRecognize = 3421 Then portname = "Bull Apprise portmapper" 
If PortToRecognize = 3454 Then portname = "Apple Remote Access Protocol" 
If PortToRecognize = 3455 Then portname = "RSVP Port" 
If PortToRecognize = 3456 Then portname = "VAT default data" 
If PortToRecognize = 3457 Then portname = "VAT default control" 
If PortToRecognize = 3883 Then portname = "Deep Throat 2 trojan" 
If PortToRecognize = 3900 Then portname = "Unidata UDT OS" 
If PortToRecognize = 3984 Then portname = "MAPPER network node manager" 
If PortToRecognize = 3985 Then portname = "MAPPER TCP/IP server" 
If PortToRecognize = 3986 Then portname = "MAPPER workstation server" 
If PortToRecognize = 4008 Then portname = "NetCheque accounting" 
If PortToRecognize = 4009 Then portname = "Chimera HWM" 
If PortToRecognize = 4132 Then portname = "NUTS Daemon" 
If PortToRecognize = 4133 Then portname = "NUTS Bootp Server" 
If PortToRecognize = 4134 Then portname = "NIFTY-Serve HMI protocol" 
If PortToRecognize = 4321 Then portname = "Remote Who Is" 
If PortToRecognize = 4343 Then portname = "UNICALL" 
If PortToRecognize = 4444 Then portname = "KRB524" 
If PortToRecognize = 4445 Then portname = "UPNOTIFYP" 
If PortToRecognize = 4446 Then portname = "N1-FWP" 
If PortToRecognize = 4447 Then portname = "N1-RMGMT" 
If PortToRecognize = 4448 Then portname = "ASC Licence Manager" 
If PortToRecognize = 4449 Then portname = "ARCrypto IP" 
If PortToRecognize = 4450 Then portname = "Camp" 
If PortToRecognize = 4451 Then portname = "CTI System Msg" 
If PortToRecognize = 4452 Then portname = "CTI Program Load" 
If PortToRecognize = 4453 Then portname = "NSS Alert Manager" 
If PortToRecognize = 4454 Then portname = "NSS Agent Manager" 
If PortToRecognize = 4500 Then portname = "sae-urn" 
If PortToRecognize = 4501 Then portname = "urn-x-cdchoice" 
If PortToRecognize = 4672 Then portname = "remote file access server" 
If PortToRecognize = 5000 Then portname = "?" 
If PortToRecognize = 5001 Then portname = "?" 
If PortToRecognize = 5002 Then portname = "radio free ethernet" 
If PortToRecognize = 5003 Then portname = "Claris FileMaker Pro" 
If PortToRecognize = 5004 Then portname = "avt-profile-1" 
If PortToRecognize = 5005 Then portname = "avt-profile-2" 
If PortToRecognize = 5010 Then portname = "TelepathStart" 
If PortToRecognize = 5011 Then portname = "TelepathAttack" 
If PortToRecognize = 5020 Then portname = "zenginkyo-1" 
If PortToRecognize = 5021 Then portname = "zenginkyo-2" 
If PortToRecognize = 5050 Then portname = "multimedia conference control tool" 
If PortToRecognize = 5145 Then portname = "?" 
If PortToRecognize = 5150 Then portname = "Ascend Tunnel Management Protocol" 
If PortToRecognize = 5190 Then portname = "America-Online" 
If PortToRecognize = 5191 Then portname = "AmericaOnline1" 
If PortToRecognize = 5192 Then portname = "AmericaOnline2" 
If PortToRecognize = 5193 Then portname = "AmericaOnline3" 
If PortToRecognize = 5236 Then portname = "?" 
If PortToRecognize = 5300 Then portname = "# HA cluster heartbeat" 
If PortToRecognize = 5301 Then portname = "# HA cluster general services" 
If PortToRecognize = 5302 Then portname = "# HA cluster configuration" 
If PortToRecognize = 5303 Then portname = "# HA cluster probing" 
If PortToRecognize = 5304 Then portname = "# HA Cluster Commands" 
If PortToRecognize = 5305 Then portname = "# HA Cluster Test" 
If PortToRecognize = 5400 Then portname = "Excerpt Search" 
If PortToRecognize = 5401 Then portname = "Excerpt Search Secure" 
If PortToRecognize = 5555 Then portname = "Personal Agent" 
If PortToRecognize = 5631 Then portname = "pcANYWHEREdata" 
If PortToRecognize = 5632 Then portname = "pcANYWHEREstat" 
If PortToRecognize = 5678 Then portname = "Remote Replication Agent Connection" 
If PortToRecognize = 5679 Then portname = "Direct Cable Connect Manager" 
If PortToRecognize = 5713 Then portname = "proshare conf audio" 
If PortToRecognize = 5714 Then portname = "proshare conf video" 
If PortToRecognize = 5715 Then portname = "proshare conf data" 
If PortToRecognize = 5716 Then portname = "proshare conf request" 
If PortToRecognize = 5717 Then portname = "proshare conf notify" 
If PortToRecognize = 5729 Then portname = "Openmail User Agent Layer" 
If PortToRecognize = 5742 Then portname = "Wincrash V1.03" 
If PortToRecognize = 5745 Then portname = "fcopy-server" 
If PortToRecognize = 5755 Then portname = "OpenMail Desk Gateway server" 
If PortToRecognize = 5757 Then portname = "OpenMail X.500 Directory Server" 
If PortToRecognize = 5766 Then portname = "OpenMail NewMail Server" 
If PortToRecognize = 5767 Then portname = "OpenMail Suer Agent Layer (Secure)" 
If PortToRecognize = 5800 Then portname = "Virtual Network Computing server" 
If PortToRecognize = 5900 Then portname = "Virtual Network Computing server" 
If PortToRecognize = 6000 Then portname = "6000-6063 X Window System" 
If PortToRecognize = 6110 Then portname = "HP SoftBench CM" 
If PortToRecognize = 6111 Then portname = "HP SoftBench Sub-Process Control" 
If PortToRecognize = 6112 Then portname = "dtspcd" 
If PortToRecognize = 6123 Then portname = "Backup Express" 
If PortToRecognize = 6141 Then portname = "Meta Corporation License Manager" 
If PortToRecognize = 6142 Then portname = "Aspen Technology License Manager" 
If PortToRecognize = 6143 Then portname = "Watershed License Manager" 
If PortToRecognize = 6144 Then portname = "StatSci License Manager - 1" 
If PortToRecognize = 6145 Then portname = "StatSci License Manager - 2" 
If PortToRecognize = 6146 Then portname = "Lone Wolf Systems License Manager" 
If PortToRecognize = 6147 Then portname = "Montage License Manager" 
If PortToRecognize = 6148 Then portname = "Ricardo North America License Manager" 
If PortToRecognize = 6149 Then portname = "tal-pod" 
If PortToRecognize = 6253 Then portname = "CRIP" 
If PortToRecognize = 6389 Then portname = "clariion-evr01" 
If PortToRecognize = 6455 Then portname = "SKIP Certificate Receive" 
If PortToRecognize = 6456 Then portname = "SKIP Certificate Send" 
If PortToRecognize = 6558 Then portname = "?" 
If PortToRecognize = 6588 Then portname = "AnalogX Web Proxy" 
If PortToRecognize = 6670 Then portname = "Vocaltec Global Online Directory" 
If PortToRecognize = 6672 Then portname = "vision_server" 
If PortToRecognize = 6673 Then portname = "vision_elmd" 
If PortToRecognize = 6831 Then portname = "ambit-lm" 
If PortToRecognize = 6969 Then portname = "acmsoda" 
If PortToRecognize = 7000 Then portname = "file server itself" 
If PortToRecognize = 7001 Then portname = "callbacks to cache managers" 
If PortToRecognize = 7002 Then portname = "users & groups database" 
If PortToRecognize = 7003 Then portname = "volume location database" 
If PortToRecognize = 7004 Then portname = "AFS/Kerberos authentication service" 
If PortToRecognize = 7005 Then portname = "volume managment server" 
If PortToRecognize = 7006 Then portname = "error interpretation service" 
If PortToRecognize = 7007 Then portname = "basic overseer process" 
If PortToRecognize = 7008 Then portname = "server-to-server updater" 
If PortToRecognize = 7009 Then portname = "remote cache manager service" 
If PortToRecognize = 7010 Then portname = "onlinet uninterruptable power supplies" 
If PortToRecognize = 7099 Then portname = "lazy-ptop" 
If PortToRecognize = 7100 Then portname = "X Font Service" 
If PortToRecognize = 7121 Then portname = "Virtual Prototypes License Manager" 
If PortToRecognize = 7174 Then portname = "Clutild" 
If PortToRecognize = 7200 Then portname = "FODMS FLIP" 
If PortToRecognize = 7201 Then portname = "DLIP" 
If PortToRecognize = 7395 Then portname = "winqedit" 
If PortToRecognize = 7491 Then portname = "telops-lmd" 
If PortToRecognize = 7511 Then portname = "pafec-lm" 
If PortToRecognize = 7777 Then portname = "cbt" 
If PortToRecognize = 7781 Then portname = "accu-lmgr" 
If PortToRecognize = 7999 Then portname = "iRDMI2" 
If PortToRecognize = 8000 Then portname = "iRDMI/Shoutcast Server" 
If PortToRecognize = 8010 Then portname = "Wingate web logfile" 
If PortToRecognize = 8032 Then portname = "ProEd" 
If PortToRecognize = 8080 Then portname = "Standard HTTP Proxy" 
If PortToRecognize = 8450 Then portname = "npmp" 
If PortToRecognize = 8888 Then portname = "NewsEDGE server TCP (TCP 1)" 
If PortToRecognize = 8889 Then portname = "Desktop Data TCP 1" 
If PortToRecognize = 8890 Then portname = "Desktop Data TCP 2" 
If PortToRecognize = 8891 Then portname = "Desktop Data TCP 3: NESS application" 
If PortToRecognize = 8892 Then portname = "Desktop Data TCP 4: FARM product" 
If PortToRecognize = 8893 Then portname = "Desktop Data TCP 5: NewsEDGE/Web application" 
If PortToRecognize = 8894 Then portname = "Desktop Data TCP 6: COAL application" 
If PortToRecognize = 9000 Then portname = "CSlistener" 
If PortToRecognize = 9100 Then portname = "HP JetDirect Printer Server" 
If PortToRecognize = 9535 Then portname = "?" 
If PortToRecognize = 9876 Then portname = "Session Director" 
If PortToRecognize = 9992 Then portname = "Palace" 
If PortToRecognize = 9993 Then portname = "Palace" 
If PortToRecognize = 9994 Then portname = "Palace" 
If PortToRecognize = 9995 Then portname = "Palace" 
If PortToRecognize = 9996 Then portname = "Palace" 
If PortToRecognize = 9997 Then portname = "Palace" 
If PortToRecognize = 9998 Then portname = "Distinct32" 
If PortToRecognize = 9999 Then portname = "distinct" 
If PortToRecognize = 10000 Then portname = "Network Data Management Protocol" 
If PortToRecognize = 11000 Then portname = "SSTROJG trojan" 
If PortToRecognize = 12345 Then portname = "Win95/NT Netbus backdoor" 
If PortToRecognize = 12753 Then portname = "tsaf port" 
If PortToRecognize = 13223 Then portname = "PowWow chat program" 
If PortToRecognize = 17007 Then portname = "?" 
If PortToRecognize = 18000 Then portname = "Beckman Instruments" 
If PortToRecognize = 20001 Then portname = "Millenium trojan" 
If PortToRecognize = 20024 Then portname = "Netbus 2.0 Pro" 
If PortToRecognize = 21554 Then portname = "GirlFriend trojan" 
If PortToRecognize = 21845 Then portname = "webphone" 
If PortToRecognize = 21846 Then portname = "NetSpeak Corp. Directory Services" 
If PortToRecognize = 21847 Then portname = "NetSpeak Corp. Connection Services" 
If PortToRecognize = 21848 Then portname = "NetSpeak Corp. Automatic Call Distribution" 
If PortToRecognize = 21849 Then portname = "NetSpeak Corp. Credit Processing System" 
If PortToRecognize = 22273 Then portname = "wnn6" 
If PortToRecognize = 22347 Then portname = "WIBU dongle server" 
If PortToRecognize = 22555 Then portname = "Vocaltec Web Conference" 
If PortToRecognize = 22800 Then portname = "Telerate Information Platform LAN" 
If PortToRecognize = 22951 Then portname = "Telerate Information Platform WAN" 
If PortToRecognize = 23456 Then portname = "Evil FTP trojan" 
If PortToRecognize = 25000 Then portname = "icl-twobase1" 
If PortToRecognize = 25001 Then portname = "icl-twobase2" 
If PortToRecognize = 25002 Then portname = "icl-twobase3" 
If PortToRecognize = 25003 Then portname = "icl-twobase4" 
If PortToRecognize = 25004 Then portname = "icl-twobase5" 
If PortToRecognize = 25005 Then portname = "icl-twobase6" 
If PortToRecognize = 25006 Then portname = "icl-twobase7" 
If PortToRecognize = 25007 Then portname = "icl-twobase8" 
If PortToRecognize = 25008 Then portname = "icl-twobase9" 
If PortToRecognize = 25009 Then portname = "icl-twobase10" 
If PortToRecognize = 25793 Then portname = "Vocaltec Address Server" 
If PortToRecognize = 25867 Then portname = "WebCam32 Admin" 
If PortToRecognize = 26000 Then portname = "quake" 
If PortToRecognize = 26208 Then portname = "wnn6-ds" 
If PortToRecognize = 30303 Then portname = "Sockets De Troie trojan" 
If PortToRecognize = 47557 Then portname = "Databeam Corporation" 
If PortToRecognize = 47806 Then portname = "ALC Protocol" 
If PortToRecognize = 47808 Then portname = "Building Automation and Control Networks" 
If PortToRecognize = 54320 Then portname = "Back Orifice 2000" 
If PortToRecognize = 65000 Then portname = "Devil trojan" 
  
End Function 
Abgelegt unter TCP/IP Port, Port, TCPIP.

2 Kommentare zum Snippet

General Bison schrieb am 20.11.2007:
Halbe Punktzahl weil die ID und die Fleißarbeit unglaublich gut sind.
Wenn du es per Select Case machst wirds VIEEEEL schneller! Da du ja immer nur einen Port haben willst!
und wenn du den Funkionsaufruf so machst:
Public Function portname(ByVal PortToRecognize as integer)as string 

Gints noch bessere Bewertungen ;)
Werd das mit den Mods in einem Prog drekt verwenden ;)
Wenn du mehr wissen willst mail mir (hab meine Mail freigegeben)

MFG: General Bison
Keks1911 schrieb am 26.07.2010:
Ich habe eine 4 gegeben. Hier sind die Kritikpunkte, die mir spontan auffallen (mit abnehmender Wichtigkeit):
1. Code-Qualität/WTF. Verwende die Portnummer als Adresse für einen Array-Eintrag (die Technik nennt sich "Lookup table" und ist einfacher zu warten und zu erweitern als die If-Kaskade oder der Switch-Case. Obwohl ich den Switch-Case dieser Lösung noch vorziehen würde).
2. Code-Qualität. Verwende mindestens Option Strict und für "Public Functions" ist Option Explicit auch nie ein Fehler. Spart dir später eine Menge ärger. (entspricht in etwa dem, was General gesagt hat.)
3. Nutzen. Die ersten 1024 Ports (well known ports) sind gut zu wissen und werden meistens akkurat verwendet. Die Ports darüber werden in aller Regel nicht gemäß ihrer Registrierung verwendet. Dein Programm wird mit seinem Ergebnis meistens falsch liegen.
4. Code-Layout. Auch VB-Programme sollten mit Klammern und Einrückungen geschrieben werden. Ist einfacher zu lesen.
5. Erweiterbarkeit. Obwohl es prinzipiell nicht falsch ist, mehrere tausend Strings fest in sein Programm einzubauen, so wäre es doch wohl besser, einfach die echte Quelldatei http://www.iana.org/assignments/port-numbers auszulesen und evtl. die Schadports gesondert zu behandeln. Immerhin ändert sich die Liste regelmäßig (letzte Änderung 2010-07-23).
 

Logge dich ein, um hier zu kommentieren!