VB - Portnummer in Name übersetzen

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