19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Visualizza post
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
oppure sono io che non lo vedo grazie 
sNTB = New RegExp(RepScanNTB, "[^\\s]*")
For h = 0 To sNTB.Max
Print "QUI" & sNTB[h]
Next Dim GetwayIP, RepScanNTB As String
Dim Getway As String
Dim GetwayMeno As String
Dim IP As String
Dim Port3389 As String
Dim num, ss, sNTB As String[]
Dim i As Byte
Dim a, b As Byte
If TextBox1.Text = "" Then
Message.Error("Errore devi inserire la pass di root se vuoi che funzioni, Ciao!")
Else
Shell "(/sbin/ip route | awk '/default/ { print $3 }')" To GetwayIP
Getway = Trim(GetwayIP)
GetwayMeno = Left(Getway, -1)
Shell "echo " & TextBox1.Text & " | sudo -S nmap -T4 -p3389 " & Getway & "/24 -oN /tmp/h" Wait
Shell "nbtscan -e " & Getway & "/24" To RepScanNTB
Print RepScanNTB
Shell "cat /tmp/h | grep -oP '" & GetwayMeno & "*'" To IP
Shell "cat /tmp/h | grep -P '3389/tcp '" To Port3389
sNTB = Split(IP, "\n")
ss = Split(IP, "\n")
ss.Remove(0)
num = Split(Port3389, "\n")
For i = 0 To num.Max
If num[i] = "3389/tcp open ms-wbt-server" Then
b = 0
While sNTB.Max
Print InStr(sNTB[b], ss[i])
Inc b
Wend
ColumnView1.Add(a, ss[i])
Inc a
Endif
Next
Endif
End
If ColumnView1.Item.Selected = True Then
Print ColumnView1.Item.Text
Else
Message.Error("Errore devi seleionare un indirizzo ip")
Endif
) , e poi voglio stampare sempre con il comado shell il risultato Shell "echo mia password | sudo -S nmap -T4 -p3389 " & Getway & "/24 > /tmp/b" Shell "echo " & TextBox1.Text & " | sudo -S nmap -T4 -p3389 " & Getway & "/24" to miavariabileStarting Nmap 7.01 ( https://nmap.org ) at 2018-01-07 15:45 CET
Nmap scan report for 192.168.1.1
Host is up (0.014s latency).
PORT STATE SERVICE
3389/tcp closed ms-wbt-server
MAC Address: 00:A0:A2:A9:32:C8 (Digicom)
Nmap scan report for 192.168.1.25
Host is up (0.14s latency).
PORT STATE SERVICE
3389/tcp open ms-wbt-server
MAC Address: 80:1F:02:8E:4F:9B (Edimax Technology)
Nmap scan report for 192.168.1.103
Host is up (0.18s latency).
PORT STATE SERVICE
3389/tcp open ms-wbt-server
MAC Address: 80:1F:02:8E:4F:9B (Edimax Technology)
Nmap scan report for 192.168.1.105
Host is up (0.44s latency).
PORT STATE SERVICE
3389/tcp open ms-wbt-server
MAC Address: 80:1F:02:8E:4F:9B (Edimax Technology)
Nmap scan report for 192.168.1.114
Host is up (0.21s latency).
PORT STATE SERVICE
3389/tcp closed ms-wbt-server
MAC Address: 30:10:B3:2A:18:33 (Liteon Technology)
Nmap scan report for 192.168.1.120
Host is up (0.17s latency).
PORT STATE SERVICE
3389/tcp closed ms-wbt-server
MAC Address: 10:60:4B:E0:B1:1C (Hewlett Packard)
Nmap scan report for 192.168.1.101
Host is up (0.00015s latency).
PORT STATE SERVICE
3389/tcp closed ms-wbt-server
Nmap done: 256 IP addresses (7 hosts up) scanned in 31.96 seconds
rMatch = New RegExp(Result, "for\\d*.\\d*.\\d*.\\d*.\\d*")
rMatchPort = New RegExp(Result, "3389/tcp .*")
Shell "(/sbin/ip route | awk '/default/ { print $3 }')" To GetwayIP"echo " & GetwayIP & " | tr -d '\r'" To Getway