Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Chat biutente (Server) - frmPortScanServer.frm

frmPortScanServer.frm

Caricato da: Roberto VB
Scarica il programma completo

  1. Option Explicit
  2.     Dim lConta As Long
  3.  
  4. Private Sub chkScansione_Click()
  5.     Static Stat As Boolean
  6.     Timer1.Enabled = True
  7.     'Regolo la caption del Command Button
  8.     If Stat = True = True Then
  9.         chkScansione.Caption = "&Esegui scansione"
  10.         Timer1.Enabled = False
  11.         Winsock1.Close
  12.         Stat = False
  13.     Else
  14.         chkScansione.Caption = "&Ferma scansione"
  15.         Stat = True
  16.     End If
  17. End Sub
  18.  
  19. Private Sub cmdAzzera_Click()
  20.     'Azzero la variabile
  21.     lConta = 0
  22.     'Cancello le porte della textbox
  23.     txtPorte.Text = ""
  24.     'Disattivo il Timer
  25.     Timer1.Enabled = False
  26.     'Azzero la progressbar
  27.     ProgressBar1.Value = 0
  28.     lblPercentuale.Caption = "0 su 0"
  29.     'Azzero il checkbox
  30.     chkScansione.Caption = "&Esegui scansione"
  31.     chkScansione.Value = vbUnchecked
  32. End Sub
  33.  
  34. Private Sub cmdEsci_Click()
  35.     frmPortScan.Hide
  36.     frmClient.Show
  37. End Sub
  38.  
  39. Private Sub cmdOpzioni_Click()
  40.     'Visualizzo il form Opzioni
  41.     frmOpzioni.Show 1
  42. End Sub
  43.  
  44.  
  45.  
  46.  
  47.  
  48. Private Sub cmdTrybar_Click()
  49.     'Riduce in traybar il form
  50.     nid.cbSize = Len(nid)
  51.     nid.hWnd = frmPortScan.hWnd
  52.     nid.uId = 0
  53.     nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  54.     nid.uCallBackMessage = WM_MOUSEMOVE
  55.     'nid.hIcon = cmdRiduci.Picture
  56.     Shell_NotifyIcon NIM_ADD, nid
  57.     Me.WindowState = vbMinimized
  58.     Me.Hide
  59. End Sub
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67. Private Sub Form_Activate()
  68.     'Ogni volta che il form viene attivato, es.(dopo aver premuto OK dal form Opzioni)
  69.     'in modo da aggiornare la proprietà Max della ProgressBar1
  70.     ProgressBar1.Max = frmOpzioni.txtPortaFinale
  71. End Sub
  72.  
  73. Private Sub Form_Load()
  74.     lConta = frmOpzioni.txtPortaIniziale
  75.     ProgressBar1.Max = frmOpzioni.txtPortaFinale
  76. End Sub
  77.  
  78.  
  79. Private Sub lblScan_Click()
  80.  
  81. End Sub
  82.  
  83. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  84.     Dim msg As Long
  85.     msg = Me.ScaleX(X, Me.ScaleMode, vbPixels)
  86.     Select Case msg
  87.     Case WM_LBUTTONDBLCLK
  88.         frmPortScan.Show
  89.         frmPortScan.WindowState = 0
  90.         Shell_NotifyIcon NIM_DELETE, nid
  91.     End Select
  92. End Sub
  93.  
  94.  
  95. Private Sub Timer1_Timer()
  96.     On Error GoTo errore
  97.     'Incremento le variabili
  98.     lConta = lConta + 1
  99.     ProgressBar1.Value = ProgressBar1.Value + 1
  100.     lblPercentuale.Caption = lConta & " su " & frmOpzioni.txtPortaFinale
  101.     'Mi connetto alle varie porte
  102.     Winsock1.Close
  103.     Winsock1.Connect txtHost.Text, lConta
  104.     txtPorta.Text = Winsock1.RemotePort
  105.     ' Se iConta raggiunge la porta finale si ferma
  106.     If lConta = frmOpzioni.txtPortaFinale Then
  107.         Timer1.Enabled = False
  108.         Winsock1.Close
  109.         MsgBox "Scansione avvenuta con successo!", vbInformation
  110.     End If
  111.     Exit Sub
  112. errore:
  113.     MsgBox Err.Description, vbExclamation, "ERRORE"
  114.     Timer1.Enabled = False
  115.     MsgBox "Scansione Bloccata a causa di un errore, si consiglia di riavviare l'applicazione", vbInformation, "ERRORE"
  116. End Sub
  117.  
  118. Private Sub Winsock1_Connect()
  119.    
  120.     If Winsock1.RemotePort = 25 Then
  121.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (SMTP)" & vbCrLf
  122.         Call Timer1_Timer
  123.     ElseIf Winsock1.RemotePort = 110 Then
  124.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (POP3)" & vbCrLf
  125.         Call Timer1_Timer
  126.     ElseIf Winsock1.RemotePort = 135 Then
  127.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (loc-srv)" & vbCrLf
  128.         Call Timer1_Timer
  129.     ElseIf Winsock1.RemotePort = 20 Then
  130.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (FTP-data)" & vbCrLf
  131.         Call Timer1_Timer
  132.     ElseIf Winsock1.RemotePort = 21 Then
  133.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (FTP)" & vbCrLf
  134.         Call Timer1_Timer
  135.     ElseIf Winsock1.RemotePort = 22 Then
  136.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (SSH-secure shell)" & vbCrLf
  137.         Call Timer1_Timer
  138.     ElseIf Winsock1.RemotePort = 23 Then
  139.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (Telnet)" & vbCrLf
  140.         Call Timer1_Timer
  141.     ElseIf Winsock1.RemotePort = 43 Then
  142.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (Whois)" & vbCrLf
  143.         Call Timer1_Timer
  144.     ElseIf Winsock1.RemotePort = 53 Then
  145.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (DNS)" & vbCrLf
  146.         Call Timer1_Timer
  147.     ElseIf Winsock1.RemotePort = 68 Then
  148.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (DHCP)" & vbCrLf
  149.         Call Timer1_Timer
  150.     ElseIf Winsock1.RemotePort = 79 Then
  151.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (Finger)" & vbCrLf
  152.         Call Timer1_Timer
  153.     ElseIf Winsock1.RemotePort = 80 Then
  154.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (HTTP)" & vbCrLf
  155.         Call Timer1_Timer
  156.     ElseIf Winsock1.RemotePort = 115 Then
  157.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (SFTP)" & vbCrLf
  158.         Call Timer1_Timer
  159.     ElseIf Winsock1.RemotePort = 119 Then
  160.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (NNTP)" & vbCrLf
  161.         Call Timer1_Timer
  162.     ElseIf Winsock1.RemotePort = 123 Then
  163.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (NTP)" & vbCrLf
  164.         Call Timer1_Timer
  165.     ElseIf Winsock1.RemotePort = 137 Then
  166.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (NetBIOS-ns)" & vbCrLf
  167.         Call Timer1_Timer
  168.     ElseIf Winsock1.RemotePort = 138 Then
  169.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (NetBIOS-dgm)" & vbCrLf
  170.         Call Timer1_Timer
  171.     ElseIf Winsock1.RemotePort = 139 Then
  172.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (NetBIOS)" & vbCrLf
  173.         Call Timer1_Timer
  174.     ElseIf Winsock1.RemotePort = 143 Then
  175.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (IMAP)" & vbCrLf
  176.         Call Timer1_Timer
  177.     ElseIf Winsock1.RemotePort = 161 Then
  178.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (SNMP)" & vbCrLf
  179.         Call Timer1_Timer
  180.     ElseIf Winsock1.RemotePort = 194 Then
  181.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (IRC)" & vbCrLf
  182.         Call Timer1_Timer
  183.     ElseIf Winsock1.RemotePort = 220 Then
  184.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (IMAP3)" & vbCrLf
  185.         Call Timer1_Timer
  186.     ElseIf Winsock1.RemotePort = 389 Then
  187.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (LDAP)" & vbCrLf
  188.         Call Timer1_Timer
  189.     ElseIf Winsock1.RemotePort = 443 Then
  190.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (SSL)" & vbCrLf
  191.         Call Timer1_Timer
  192.     ElseIf Winsock1.RemotePort = 445 Then
  193.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (microsoft-ds)" & vbCrLf
  194.         Call Timer1_Timer
  195.     ElseIf Winsock1.RemotePort = 31 Then
  196.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Master Paraise)" & vbCrLf
  197.         Call Timer1_Timer
  198.     ElseIf Winsock1.RemotePort = 121 Then
  199.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-BO jammerkillahV)" & vbCrLf
  200.         Call Timer1_Timer
  201.     ElseIf Winsock1.RemotePort = 456 Then
  202.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-HackersParadise)" & vbCrLf
  203.         Call Timer1_Timer
  204.     ElseIf Winsock1.RemotePort = 555 Then
  205.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Phase Zero)" & vbCrLf
  206.         Call Timer1_Timer
  207.     ElseIf Winsock1.RemotePort = 666 Then
  208.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Attack FTP)" & vbCrLf
  209.         Call Timer1_Timer
  210.     ElseIf Winsock1.RemotePort = 1000 Then
  211.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (Otrebor Chat)" & vbCrLf
  212.         Call Timer1_Timer
  213.     ElseIf Winsock1.RemotePort = 1001 Then
  214.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Silencer or WebEx)" & vbCrLf
  215.         Call Timer1_Timer
  216.     ElseIf Winsock1.RemotePort = 1010 Then
  217.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Doly Trojan 1.30[subm.Cronco])" & vbCrLf
  218.         Call Timer1_Timer
  219.     ElseIf Winsock1.RemotePort = 1011 Then
  220.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Doly Trojan 1.1+1.2)" & vbCrLf
  221.         Call Timer1_Timer
  222.     ElseIf Winsock1.RemotePort = 1015 Then
  223.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Doly Trojan 1.5[subm.Cronco])" & vbCrLf
  224.         Call Timer1_Timer
  225.     ElseIf Winsock1.RemotePort = 1033 Then
  226.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Netspy)" & vbCrLf
  227.         Call Timer1_Timer
  228.     ElseIf Winsock1.RemotePort = 1042 Then
  229.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Bla1.1)" & vbCrLf
  230.         Call Timer1_Timer
  231.     ElseIf Winsock1.RemotePort = 1170 Then
  232.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Streaming Audio Trojan)" & vbCrLf
  233.         Call Timer1_Timer
  234.     ElseIf Winsock1.RemotePort = 1207 Then
  235.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-SoftWar)" & vbCrLf
  236.         Call Timer1_Timer
  237.     ElseIf Winsock1.RemotePort = 1243 Then
  238.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-SubSeven)" & vbCrLf
  239.         Call Timer1_Timer
  240.     ElseIf Winsock1.RemotePort = 1245 Then
  241.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Vodoo)" & vbCrLf
  242.         Call Timer1_Timer
  243.     ElseIf Winsock1.RemotePort = 1269 Then
  244.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Maverick's Matrix)" & vbCrLf
  245.         Call Timer1_Timer
  246.     ElseIf Winsock1.RemotePort = 1492 Then
  247.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-FTP99CMP)" & vbCrLf
  248.         Call Timer1_Timer
  249.     ElseIf Winsock1.RemotePort = 1509 Then
  250.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-PsyberStreamingServer Nikil G.)" & vbCrLf
  251.         Call Timer1_Timer
  252.     ElseIf Winsock1.RemotePort = 1600 Then
  253.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Shiva Burka)" & vbCrLf
  254.         Call Timer1_Timer
  255.     ElseIf Winsock1.RemotePort = 1807 Then
  256.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-SpySender)" & vbCrLf
  257.         Call Timer1_Timer
  258.     ElseIf Winsock1.RemotePort = 1981 Then
  259.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-ShockRave)" & vbCrLf
  260.         Call Timer1_Timer
  261.     ElseIf Winsock1.RemotePort = 1999 Then
  262.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-BackDoor or TransCout 1.1+1.2)" & vbCrLf
  263.         Call Timer1_Timer
  264.     ElseIf Winsock1.RemotePort = 2001 Then
  265.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-TrojanCow or Derspaeher 3)" & vbCrLf
  266.         Call Timer1_Timer
  267.     ElseIf Winsock1.RemotePort = 2023 Then
  268.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Pass Ripper)" & vbCrLf
  269.         Call Timer1_Timer
  270.     ElseIf Winsock1.RemotePort = 2140 Then
  271.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-The Invasor Nikhil G.)" & vbCrLf
  272.         Call Timer1_Timer
  273.     ElseIf Winsock1.RemotePort = 2283 Then
  274.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-HVL rat5)" & vbCrLf
  275.         Call Timer1_Timer
  276.     ElseIf Winsock1.RemotePort = 2565 Then
  277.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Striker)" & vbCrLf
  278.         Call Timer1_Timer
  279.     ElseIf Winsock1.RemotePort = 2583 Then
  280.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-WinCrash2)" & vbCrLf
  281.         Call Timer1_Timer
  282.     ElseIf Winsock1.RemotePort = 2801 Then
  283.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Phineas Nikhil G.)" & vbCrLf
  284.         Call Timer1_Timer
  285.     ElseIf Winsock1.RemotePort = 3791 Then
  286.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Total Eclypse [FTP])" & vbCrLf
  287.         Call Timer1_Timer
  288.     ElseIf Winsock1.RemotePort = 4567 Then
  289.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-FileNail Danny)" & vbCrLf
  290.         Call Timer1_Timer
  291.     ElseIf Winsock1.RemotePort = 4950 Then
  292.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-ICQ Trojan or ICQ Trojen)" & vbCrLf
  293.         Call Timer1_Timer
  294.     ElseIf Winsock1.RemotePort = 5000 Then
  295.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Socket23)" & vbCrLf
  296.         Call Timer1_Timer
  297.     ElseIf Winsock1.RemotePort = 5011 Then
  298.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-OOTLT)" & vbCrLf
  299.         Call Timer1_Timer
  300.     ElseIf Winsock1.RemotePort = 5031 Then
  301.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-NetMetro1.0)" & vbCrLf
  302.         Call Timer1_Timer
  303.     ElseIf Winsock1.RemotePort = 5400 Then
  304.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-BladeRunner or BlackConstruction1.2)" & vbCrLf
  305.         Call Timer1_Timer
  306.     ElseIf Winsock1.RemotePort = 5521 Then
  307.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-IllusionMailer)" & vbCrLf
  308.         Call Timer1_Timer
  309.     ElseIf Winsock1.RemotePort = 5550 Then
  310.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-XTCP 2.0+2.01)" & vbCrLf
  311.         Call Timer1_Timer
  312.     ElseIf Winsock1.RemotePort = 5569 Then
  313.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-RoboHack)" & vbCrLf
  314.         Call Timer1_Timer
  315.     ElseIf Winsock1.RemotePort = 5742 Then
  316.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-WinCrash)" & vbCrLf
  317.         Call Timer1_Timer
  318.     ElseIf Winsock1.RemotePort = 6400 Then
  319.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-The tHing)" & vbCrLf
  320.         Call Timer1_Timer
  321.     ElseIf Winsock1.RemotePort = 6669 Then
  322.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Vampire 1.0)" & vbCrLf
  323.         Call Timer1_Timer
  324.     ElseIf Winsock1.RemotePort = 6670 Then
  325.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-DeepThroat)" & vbCrLf
  326.         Call Timer1_Timer
  327.     ElseIf Winsock1.RemotePort = 6912 Then
  328.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Shitheep)" & vbCrLf
  329.         Call Timer1_Timer
  330.     ElseIf Winsock1.RemotePort = 6939 Then
  331.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Indoctrination)" & vbCrLf
  332.         Call Timer1_Timer
  333.     ElseIf Winsock1.RemotePort = 7306 Then
  334.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-NetMonitor)" & vbCrLf
  335.         Call Timer1_Timer
  336.     ElseIf Winsock1.RemotePort = 7789 Then
  337.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-iCkiller)" & vbCrLf
  338.         Call Timer1_Timer
  339.     ElseIf Winsock1.RemotePort = 9872 Then
  340.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-PortalOfDoom)" & vbCrLf
  341.         Call Timer1_Timer
  342.     ElseIf Winsock1.RemotePort = 9875 Then
  343.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Portal of Doom)" & vbCrLf
  344.         Call Timer1_Timer
  345.     ElseIf Winsock1.RemotePort = 9989 Then
  346.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-InIkiller or iNi-Killer)" & vbCrLf
  347.         Call Timer1_Timer
  348.     ElseIf Winsock1.RemotePort = 10607 Then
  349.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Coma Danny)" & vbCrLf
  350.         Call Timer1_Timer
  351.     ElseIf Winsock1.RemotePort = 11000 Then
  352.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-SennaSpy Trojans)" & vbCrLf
  353.         Call Timer1_Timer
  354.     ElseIf Winsock1.RemotePort = 11223 Then
  355.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Progenic Trojan)" & vbCrLf
  356.         Call Timer1_Timer
  357.     ElseIf Winsock1.RemotePort = 12076 Then
  358.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Gjamer)" & vbCrLf
  359.         Call Timer1_Timer
  360.     ElseIf Winsock1.RemotePort = 12223 Then
  361.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Hack'99 KeyLogger)" & vbCrLf
  362.         Call Timer1_Timer
  363.     ElseIf Winsock1.RemotePort = 12346 Then
  364.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-NetBus 1.x[avoiding NetBuster])" & vbCrLf
  365.         Call Timer1_Timer
  366.     ElseIf Winsock1.RemotePort = 12701 Then
  367.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Eclipse 2000)" & vbCrLf
  368.         Call Timer1_Timer
  369.     ElseIf Winsock1.RemotePort = 16969 Then
  370.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Priotrity)" & vbCrLf
  371.         Call Timer1_Timer
  372.     ElseIf Winsock1.RemotePort = 20000 Then
  373.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Millenium)" & vbCrLf
  374.         Call Timer1_Timer
  375.     ElseIf Winsock1.RemotePort = 20034 Then
  376.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-NetBus Pro)" & vbCrLf
  377.         Call Timer1_Timer
  378.     ElseIf Winsock1.RemotePort = 20203 Then
  379.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Chupacabra or Logged)" & vbCrLf
  380.         Call Timer1_Timer
  381.     ElseIf Winsock1.RemotePort = 20331 Then
  382.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Bla)" & vbCrLf
  383.         Call Timer1_Timer
  384.     ElseIf Winsock1.RemotePort = 21544 Then
  385.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-GirlFriend)" & vbCrLf
  386.         Call Timer1_Timer
  387.     ElseIf Winsock1.RemotePort = 22222 Then
  388.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Prosiak 0.47)" & vbCrLf
  389.         Call Timer1_Timer
  390.     ElseIf Winsock1.RemotePort = 23456 Then
  391.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-EvilFtp)" & vbCrLf
  392.         Call Timer1_Timer
  393.     ElseIf Winsock1.RemotePort = 27374 Then
  394.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Sub-7 2.1)" & vbCrLf
  395.         Call Timer1_Timer
  396.     ElseIf Winsock1.RemotePort = 29891 Then
  397.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-The Unexplained)" & vbCrLf
  398.         Call Timer1_Timer
  399.     ElseIf Winsock1.RemotePort = 30029 Then
  400.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-AOL Trojan1.1)" & vbCrLf
  401.         Call Timer1_Timer
  402.     ElseIf Winsock1.RemotePort = 30100 Then
  403.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-NetSphere)" & vbCrLf
  404.         Call Timer1_Timer
  405.     ElseIf Winsock1.RemotePort = 30303 Then
  406.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Socket25)" & vbCrLf
  407.         Call Timer1_Timer
  408.     ElseIf Winsock1.RemotePort = 30999 Then
  409.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Kuang)" & vbCrLf
  410.         Call Timer1_Timer
  411.     ElseIf Winsock1.RemotePort = 31787 Then
  412.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Hack'a'tack)" & vbCrLf
  413.         Call Timer1_Timer
  414.     ElseIf Winsock1.RemotePort = 33911 Then
  415.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Trojan Spirit 2001 a)" & vbCrLf
  416.         Call Timer1_Timer
  417.     ElseIf Winsock1.RemotePort = 34324 Then
  418.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-BigGluck TN or Tiny Telnet Server)" & vbCrLf
  419.         Call Timer1_Timer
  420.     ElseIf Winsock1.RemotePort = 40412 Then
  421.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-TheSpy)" & vbCrLf
  422.         Call Timer1_Timer
  423.     ElseIf Winsock1.RemotePort = 40423 Then
  424.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Master Paradise)" & vbCrLf
  425.         Call Timer1_Timer
  426.     ElseIf Winsock1.RemotePort = 50766 Then
  427.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Fore)" & vbCrLf
  428.         Call Timer1_Timer
  429.     ElseIf Winsock1.RemotePort = 53001 Then
  430.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-RemoteWindowsShutdown)" & vbCrLf
  431.         Call Timer1_Timer
  432.     ElseIf Winsock1.RemotePort = 54320 Then
  433.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-BackOrifice 200[default port])" & vbCrLf
  434.         Call Timer1_Timer
  435.     ElseIf Winsock1.RemotePort = 54321 Then
  436.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Schoolbus 1.6+2.0)" & vbCrLf
  437.         Call Timer1_Timer
  438.     ElseIf Winsock1.RemotePort = 61466 Then
  439.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Telecommando)" & vbCrLf
  440.         Call Timer1_Timer
  441.     ElseIf Winsock1.RemotePort = 65000 Then
  442.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (trojan-Devil 1.03)" & vbCrLf
  443.         Call Timer1_Timer
  444.     'se non è conosciuta scrivo "unknown"
  445.     Else
  446.         txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & "  (unknown)" & vbCrLf
  447.         Call Timer1_Timer
  448.     End If
  449. End Sub