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.


Post - faustf

Pagine: 1 2 [3] 4 5 6
31
Programmazione / columnview and checkbox è possibile ???
« il: 15 Gennaio 2018, 10:36:54 »
Ciao a tutti è possibile avere dentro ua columnview , quando viene popolata a sinistra anche dei checkbox  in modo date che se selezionata la voce automaticamente si flaggi  anche il chekbox ?
grazie

32
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 15 Gennaio 2018, 00:49:45 »
 ;D ;D ;D ;D 

33
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 15 Gennaio 2018, 00:11:52 »
per i posteri: è stato un parto...... e  alla fine  ho usato il  buon vecchio grep , secondo la mia modesta opinione (e io di programmazione ci capisco poo) come ho gia detto le regexp il gambero le gestisce davvero ..... male tipo: analizziamo , cè  il comando scan che farebbe quasi un ottimo lavoro se non poi cascare su pattern, che non mi sembrano aderenti a gli standard perl o qualsiasi altro per le regexp , il comando ad una  riga di regexp  farebbe a livello di pattern un ottimo lavoro , ma mi casca sul fatto che non legge in maniera globalmatch ma solo una riga e non cè un metodo o una classe chepossa farlo  , l unico potrebbe essere scrivere il mega pappone che si trova nel help , una roba che per un beginner , che è leggermente  piu avanti di hello world  , diventa un po un suicidio non assistito , in pratica quello che la shell linux con  grep awk ,perl e autoit (in windows )(che sono i linguaggi che "conosco") fanno in una  riga massimo due e sopratutto con sintassi da  beginner  gambas la fa complicata un casino , senza apportare nessun vantaggio dalla complicanza
di seguito la mia soluzione  :)
Codice: [Seleziona]
  Dim GetwayIP As String
  Dim Getway As String
  Dim GetwayMeno As String
  Dim IP As String
  Dim Port3389 As String
  Dim num, ss As String[]
  Dim i 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 "cat /tmp/h  | grep -oP '" & GetwayMeno & "*'" To IP
    Shell "cat /tmp/h | grep -P '3389/tcp '" To Port3389
    
    ss = Split(IP, "\n")
    ss.Remove(0)
    num = Split(Port3389, "\n")
    
    For i = 0 To num.Max 
      Print ss[i]
      Print num[i]
    Next
  Endif

P.S.  due cose che  mancano secondo me nell ide di gambas  sono il duplica righe con ctrl+d  stile scite editor e quando seleziono una variabile vederla selezionata in tutto il foglio
saluti

34
Programmazione / Re:comandi shell in gambas ma funzionano o è il mio pc???
« il: 14 Gennaio 2018, 14:30:37 »
mi rispondo  ;D per i posteri non si sa mai
in pratica nmap ha un comando specifico di redirezione dell output su file , forse per qualche arcano motivo legato a quello non funziona sul mio sistema > /temp/b
quindi il tutto viene cosi formattato
Codice: [Seleziona]
  Shell "echo " & TextBox1.Text & " | sudo -S nmap -T4 -p3389 " & Getway & "/24 -oN /tmp/b"

thankz at all

35
Programmazione / Re:comandi shell in gambas ma funzionano o è il mio pc???
« il: 14 Gennaio 2018, 14:19:57 »
si ok la primva  volta vedo il sudo , ma   a menon funziona  ho provato su due pc  uno con la 3.8 e uno con l ultima release di gambas  credendo fosse  un problema del gambero vecchio
ma ho sempre lo stesso difetto  ??? :rolleyes: ba

36
Programmazione / [RISOLTO]comandi shell in gambas ma funzionano o è il mio pc???
« il: 14 Gennaio 2018, 02:37:19 »
Buona sera a tutti
ho provato a fare un prog in gambero lancio un comando shell dove ci vole  sudo (ma non godo :D) , e poi voglio stampare sempre con il comado shell il risultato
ceando una cosa cosi
Codice: [Seleziona]
 Shell "echo mia password | sudo -S nmap -T4 -p3389 " & Getway & "/24 > /tmp/b"
in pratica in console vedo che mi  dice di inserire la password  :rolleyes: :rolleyes: :rolleyes:
mentre se faccio lo stesso comando ma metto il risultato in una variabile funziona tutto
Codice: [Seleziona]
 Shell "echo " & TextBox1.Text & " | sudo -S nmap -T4 -p3389 " & Getway & "/24" to miavariabile
sarà mica un baoo di gambas???
a voi velo fa???

37
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 13 Gennaio 2018, 12:00:57 »
non utile al caso ma  didatticamente utilissimo  ;D :)

38
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 13 Gennaio 2018, 01:48:32 »
ok mi basta le dritte allora :D

e infatti stavo propio guardando , ho notato se lancio l nmap a casa della mia donna , ho le parentesi nell ip mentre da me a casa mia ho solo sul primo ip le parentesi e poi senza  :rolleyes: ???

39
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 13 Gennaio 2018, 00:41:05 »
allora  ho fatto questa prova easy
prima copiando e incollano il listato che avevo messo nel fogli a in tmp e funziona  tutto ok ,  poi gli ho detto alla scansione di di buttare il risultato in tmp in b con questo comando
Codice: [Seleziona]
Shell "echo " & TextBox1.Text & " | sudo -S nmap -T4 -p3389 " & Getway & "/24 > /tmp/b" To Result
e dada non funziona mi da array outofbound 

che poi prima che inchiodi mi  scrive questo
Codice: [Seleziona]
 Starting Nmap 7.01 ( https://nmap.org ) at 2018-01-13 00:45 CET
 - PORT     STATE  SERVICE
 - 
 - PORT     STATE    SERVICE
 - 
 - PORT     STATE    SERVICE
 - 
 - PORT     STATE  SERVICE
 - 
 - PORT     STATE    SERVICE
 - 
 - PORT     STATE  SERVICE
ma come è possibile se nel pattern ci sono 5 spazi ???

40
Programmazione / Re:embedder deprecated and Vb compatibilità
« il: 13 Gennaio 2018, 00:13:56 »
che peccato era propio una gra figata :)

41
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 13 Gennaio 2018, 00:12:50 »
grazie per le dritte  :) , se un giorno ne scriverai uno di libri , ricorda che voglio la prima stampa con  dedica .
ho provato facendo il file nella tmp ed effettivamente funziona , ora il dubbio è ...forse lo stdout  di nmap è diverso dal txt salvato ??

42
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 12 Gennaio 2018, 09:53:58 »
Buon dì e grazie  ancora per le infinite dritte che tu mi dai , qualcosa da leggere riguardo le stringhe ingambas , hai percaso qualche link ?
approposito dell esempio , che ho fatto girare  propio ora , ho come outof bound  ss    Write Scan(ss, "*for *")[1], e  non capisco il pattern  che usi piu sopra
    num = Scan(Result, "*IP addresses (* *")   ma la parola  IP addresses non c'è  nel listato che  sputa  nmap , ma non si era detto che  scan usa le parole del testo per non prendere  e gli asterischi per prendere ??
 :rolleyes: :rolleyes: :rolleyes: :rolleyes: ???

43
Programmazione / Re:regexp vediamo se ho capito qualcosa (non infamatemi troppo :D)
« il: 12 Gennaio 2018, 01:19:38 »
allora grazie per la spiegazione sei un mito , ma la storia dell' * a fine /n dove stava scritta ?? che io non  l ho propio vista  :'( :'(.
mettendo cosi
 rMatch = Scan(Result, "*for *\n") o cosi  rMatch = Scan(Result, "*for *\n*") o  rMatch = Scan(Result, "*for *")
il risultato è sempre cosi
Codice: [Seleziona]
Starting Nmap 7.01 ( https://nmap.org ) at 2018-01-12 01:14 CET
Nmap scan report 
192.168.1.1
Host is up (0.0061s 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.018s 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.102
Host is up (0.098s latency).
PORT     STATE  SERVICE
3389/tcp closed ms-wbt-server
MAC Address: 88:30:8A:50:90:52 (Murata Manufacturing)

Nmap scan report for 192.168.1.103
Host is up (-0.060s 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.106
Host is up (0.11s latency).
PORT     STATE  SERVICE
3389/tcp closed ms-wbt-server
MAC Address: 00:0A:F5:DE:F8:38 (Airgo Networks)

Nmap scan report for 192.168.1.111
Host is up (0.025s 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.101
Host is up (0.00016s latency).
PORT     STATE  SERVICE
3389/tcp closed ms-wbt-server

Nmap done: 256 IP addresses (7 hosts up) scanned in 29.93 seconds
pesca il primo ip.... suppongo  e poi....

44
Programmazione / Re:embedder deprecated and Vb compatibilità
« il: 12 Gennaio 2018, 01:07:26 »
ma esendo contrassegnato come deprecato , prima o poi verrà abbandonato ??

45
Programmazione / Re:semplice domanda da newubbo circa WebView1
« il: 12 Gennaio 2018, 01:05:57 »
 :) mito

Pagine: 1 2 [3] 4 5 6