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
Port Scan - frmMain.frm

frmMain.frm

 Caricato da: Roberto VB
Scarica il programma completo

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