Option Explicit
Dim lConta As Long
Private Sub chkScansione_Click()
Static Stat As Boolean
Timer1.Enabled = True
'Regolo la caption del Command Button
If Stat = True = True Then
chkScansione.Caption = "&Esegui scansione"
Timer1.Enabled = False
Winsock1.Close
Stat = False
Else
chkScansione.Caption = "&Ferma scansione"
Stat = True
End If
End Sub
Private Sub cmdAzzera_Click()
'Azzero la variabile
lConta = 0
'Cancello le porte della textbox
txtPorte.Text = ""
'Disattivo il Timer
Timer1.Enabled = False
'Azzero la progressbar
ProgressBar1.Value = 0
lblPercentuale.Caption = "0 su 0"
'Azzero il checkbox
chkScansione.Caption = "&Esegui scansione"
chkScansione.Value = vbUnchecked
End Sub
Private Sub cmdEsci_Click()
frmPortScan.Hide
frmClient.Show
End Sub
Private Sub cmdOpzioni_Click()
'Visualizzo il form Opzioni
frmOpzioni.Show 1
End Sub
Private Sub cmdTrybar_Click()
'Riduce in traybar il form
nid.cbSize = Len(nid)
nid.hWnd = frmPortScan.hWnd
nid.uId = 0
nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nid.uCallBackMessage = WM_MOUSEMOVE
'nid.hIcon = cmdRiduci.Picture
Shell_NotifyIcon NIM_ADD, nid
Me.WindowState = vbMinimized
Me.Hide
End Sub
Private Sub Form_Activate()
'Ogni volta che il form viene attivato, es.(dopo aver premuto OK dal form Opzioni)
'in modo da aggiornare la proprietà Max della ProgressBar1
ProgressBar1.Max = frmOpzioni.txtPortaFinale
End Sub
Private Sub Form_Load()
lConta = frmOpzioni.txtPortaIniziale
ProgressBar1.Max = frmOpzioni.txtPortaFinale
End Sub
Private Sub lblScan_Click()
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long
msg = Me.ScaleX(X, Me.ScaleMode, vbPixels)
Select Case msg
Case WM_LBUTTONDBLCLK
frmPortScan.Show
frmPortScan.WindowState = 0
Shell_NotifyIcon NIM_DELETE, nid
End Select
End Sub
Private Sub Timer1_Timer()
On Error GoTo errore
'Incremento le variabili
lConta = lConta + 1
ProgressBar1.Value = ProgressBar1.Value + 1
lblPercentuale.Caption = lConta & " su " & frmOpzioni.txtPortaFinale
'Mi connetto alle varie porte
Winsock1.Close
Winsock1.Connect txtHost.Text, lConta
txtPorta.Text = Winsock1.RemotePort
' Se iConta raggiunge la porta finale si ferma
If lConta = frmOpzioni.txtPortaFinale Then
Timer1.Enabled = False
Winsock1.Close
MsgBox "Scansione avvenuta con successo!", vbInformation
End If
Exit Sub
errore:
MsgBox Err.Description, vbExclamation, "ERRORE"
Timer1.Enabled = False
MsgBox "Scansione Bloccata a causa di un errore, si consiglia di riavviare l'applicazione", vbInformation, "ERRORE"
End Sub
Private Sub Winsock1_Connect()
If Winsock1.RemotePort = 25 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (SMTP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 110 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (POP3)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 135 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (loc-srv)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 20 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (FTP-data)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 21 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (FTP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 22 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (SSH-secure shell)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 23 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (Telnet)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 43 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (Whois)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 53 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (DNS)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 68 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (DHCP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 79 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (Finger)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 80 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (HTTP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 115 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (SFTP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 119 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (NNTP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 123 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (NTP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 137 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (NetBIOS-ns)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 138 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (NetBIOS-dgm)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 139 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (NetBIOS)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 143 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (IMAP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 161 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (SNMP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 194 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (IRC)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 220 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (IMAP3)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 389 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (LDAP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 443 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (SSL)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 445 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (microsoft-ds)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 31 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Master Paraise)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 121 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-BO jammerkillahV)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 456 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-HackersParadise)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 555 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Phase Zero)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 666 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Attack FTP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1000 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (Otrebor Chat)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1001 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Silencer or WebEx)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1010 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Doly Trojan 1.30[subm.Cronco])" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1011 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Doly Trojan 1.1+1.2)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1015 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Doly Trojan 1.5[subm.Cronco])" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1033 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Netspy)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1042 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Bla1.1)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1170 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Streaming Audio Trojan)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1207 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-SoftWar)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1243 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-SubSeven)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1245 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Vodoo)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1269 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Maverick's Matrix)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1492 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-FTP99CMP)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1509 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-PsyberStreamingServer Nikil G.)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1600 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Shiva Burka)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1807 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-SpySender)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1981 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-ShockRave)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 1999 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-BackDoor or TransCout 1.1+1.2)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 2001 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-TrojanCow or Derspaeher 3)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 2023 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Pass Ripper)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 2140 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-The Invasor Nikhil G.)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 2283 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-HVL rat5)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 2565 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Striker)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 2583 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-WinCrash2)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 2801 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Phineas Nikhil G.)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 3791 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Total Eclypse [FTP])" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 4567 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-FileNail Danny)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 4950 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-ICQ Trojan or ICQ Trojen)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5000 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Socket23)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5011 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-OOTLT)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5031 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-NetMetro1.0)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5400 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-BladeRunner or BlackConstruction1.2)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5521 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-IllusionMailer)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5550 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-XTCP 2.0+2.01)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5569 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-RoboHack)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 5742 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-WinCrash)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 6400 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-The tHing)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 6669 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Vampire 1.0)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 6670 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-DeepThroat)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 6912 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Shitheep)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 6939 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Indoctrination)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 7306 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-NetMonitor)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 7789 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-iCkiller)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 9872 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-PortalOfDoom)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 9875 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Portal of Doom)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 9989 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-InIkiller or iNi-Killer)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 10607 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Coma Danny)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 11000 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-SennaSpy Trojans)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 11223 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Progenic Trojan)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 12076 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Gjamer)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 12223 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Hack'99 KeyLogger)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 12346 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-NetBus 1.x[avoiding NetBuster])" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 12701 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Eclipse 2000)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 16969 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Priotrity)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 20000 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Millenium)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 20034 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-NetBus Pro)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 20203 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Chupacabra or Logged)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 20331 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Bla)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 21544 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-GirlFriend)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 22222 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Prosiak 0.47)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 23456 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-EvilFtp)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 27374 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Sub-7 2.1)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 29891 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-The Unexplained)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 30029 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-AOL Trojan1.1)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 30100 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-NetSphere)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 30303 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Socket25)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 30999 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Kuang)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 31787 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Hack'a'tack)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 33911 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Trojan Spirit 2001 a)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 34324 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-BigGluck TN or Tiny Telnet Server)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 40412 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-TheSpy)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 40423 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Master Paradise)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 50766 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Fore)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 53001 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-RemoteWindowsShutdown)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 54320 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-BackOrifice 200[default port])" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 54321 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Schoolbus 1.6+2.0)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 61466 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Telecommando)" & vbCrLf
Call Timer1_Timer
ElseIf Winsock1.RemotePort = 65000 Then
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (trojan-Devil 1.03)" & vbCrLf
Call Timer1_Timer
'se non è conosciuta scrivo "unknown"
Else
txtPorte.Text = txtPorte.Text & Winsock1.RemotePort & " (unknown)" & vbCrLf
Call Timer1_Timer
End If
End Sub