|
dialog Muro {
title "FireWaLL"
size -1 -1 250 390
button "Ok", 1, 150 370 70 20, cancel
text "Status :" ,100, 135 10 60 20,center
check "Porta 19",2, 20 30 79 20, right
edit "",3, 100 30 120 20
check "Porta 21",4, 20 50 79 20, right
edit "",5, 100 50 120 20
check "Porta 113",6, 20 70 79 20, right
edit "",7, 100 70 120 20
check "Porta 1080",8, 20 90 79 20, right
edit "",9, 100 90 120 20
check "Porta 139",10, 20 110 79 20, right
edit "",11, 100 110 120 20
check "Porta 5000",12, 20 130 79 20, right
edit "",13, 100 130 120 20
check "Porta 12345",14, 20 150 79 20, right
edit "",15, 100 150 120 20
check "Porta 31337",16, 20 170 79 20, right
edit "",17, 100 170 120 20
check "Porta 6670",18, 20 190 79 20, right
edit "",19, 100 190 120 20
check "Porta 21554",20, 20 210 79 20, right
edit "",21, 100 210 120 20
check "Porta 20034",22, 20 230 79 20, right
edit "",23, 100 230 120 20
check "Porta 40421",24, 20 250 79 20, right
edit "",25, 100 250 120 20
check "Porta 31338",26, 20 270 79 20, right
edit "",27, 100 270 120 20
check "Porta 31785",28, 20 290 79 20, right
edit "",29, 100 290 120 20
check "Porta 5400",30, 20 310 79 20, right
edit "",31, 100 310 120 20
check "Porta 9872",32, 20 330 79 20, right
edit "",33, 100 330 120 20
button "Apri Tutto",34,10 370 70 20
button "Chiudi Tutto",35,80 370 70 20
}
;questo alias chiudera' tutte le porte .......... prima di aprirle
alias Muro-ascolto {
sockclose porta19 19
sockclose porta21 21
sockclose porta113 113
sockclose porta1080 1080
sockclose porta139 139
sockclose porta5000 5000
sockclose porta12345 12345
sockclose porta31337 31337
sockclose porta6670 6670
sockclose porta21554 21554
sockclose porta20034 20034
sockclose porta40421 40421
sockclose porta31338 31338
sockclose porta31785 31785
sockclose porta5400 5400
sockclose porta9872 9872
;e poi si mettera' in ascolto
socklisten porta19 19
socklisten porta21 21
socklisten porta113 113
socklisten porta1080 1080
socklisten porta139 139
socklisten porta5000 5000
socklisten porta12345 12345
socklisten porta31337 31337
socklisten porta6670 6670
socklisten porta21554 21554
socklisten porta20034 20034
socklisten porta40421 40421
socklisten porta31338 31338
socklisten porta31785 31785
socklisten porta5400 5400
socklisten porta9872 9872
}
;questo alias le chiudera' soltanto
alias chiudi-Muro {
sockclose porta19 19
sockclose porta21 21
sockclose porta113 113
sockclose porta1080 1080
sockclose porta139 139
sockclose porta5000 5000
sockclose porta12345 12345
sockclose porta31337 31337
sockclose porta6670 6670
sockclose porta21554 21554
sockclose porta20034 20034
sockclose porta40421 40421
sockclose porta31338 31338
sockclose porta31785 31785
sockclose porta5400 5400
sockclose porta9872 9872
}
;Qui settiamo le variabili, che ci saranno utili quando andremo a considere le condizioni
;scriveremmo in tutti gli edit (did -ar) che le porte sono in ascolto
;e poi (did -c) abiliteremo tutti i check
alias Muro-acceso {
set %porta19 on
set %porta21 on
set %porta113 on
set %porta1080 on
set %porta139 on
set %porta5000 on
set %porta12345 on
set %porta31337 on
set %porta6670 on
set %porta21554 on
set %porta20034 on
set %porta40421 on
set %porta31338 on
set %porta31785 on
set %porta5400 on
set %porta9872 on
;qui scriviamo negli edit in ascolto e ablitiamo i check
did -ar Muro 3 In Ascolto...
did -ar Muro 5 In Ascolto...
did -ar Muro 7 In Ascolto...
did -ar Muro 9 In Ascolto...
did -ar Muro 11 In Ascolto...
did -ar Muro 13 In Ascolto...
did -ar Muro 15 In Ascolto...
did -ar Muro 17 In Ascolto...
did -ar Muro 19 In Ascolto...
did -ar Muro 21 In Ascolto...
did -ar Muro 23 In Ascolto...
did -ar Muro 25 In Ascolto...
did -ar Muro 27 In Ascolto...
did -ar Muro 29 In Ascolto...
did -ar Muro 31 In Ascolto...
did -ar Muro 33 In Ascolto...
did -c Muro 2
did -c Muro 4
did -c Muro 6
did -c Muro 8
did -c Muro 10
did -c Muro 12
did -c Muro 14
did -c Muro 16
did -c Muro 18
did -c Muro 20
did -c Muro 22
did -c Muro 24
did -c Muro 26
did -c Muro 28
did -c Muro 30
did -c Muro 32
}
;qui settiamo tutte le porte off , scriviamo negli edit (tutti) Che la porta e' chiusa, e con
;did -u disabiliteremo i check
alias Muro-spento {
set %porta19 off | set %porta21 off | set %porta113 off | set %porta1080 off | set %porta139 off | set %porta5000 off | set %porta12345 off | set %porta31337 off
set %porta6670 off | set %porta21554 off | set %porta20034 off | set %porta40421 off | set %porta31338 off | set %porta31785 off | set %porta5400 off | set %porta9872 off
did -ar Muro 3 Chiusa | did -ar Muro 5 Chiusa | did -ar Muro 7 Chiusa | did -ar Muro 9 Chiusa | did -ar Muro 11 Chiusa | did -ar Muro 13 Chiusa
did -ar Muro 15 Chiusa | did -ar Muro 17 Chiusa | did -ar Muro 19 Chiusa | did -ar Muro 21 Chiusa | did -ar Muro 23 Chiusa | did -ar Muro 25 Chiusa
did -ar Muro 27 Chiusa | did -ar Muro 29 Chiusa | did -ar Muro 31 Chiusa | did -ar Muro 33 Chiusa
did -u Muro 2 | did -u Muro 4 | did -u Muro 6 | did -u Muro 8 | did -u Muro 10 | did -u Muro 12 | did -u Muro 14 | did -u Muro 16 | did -u Muro 18 | did -u Muro 20
did -u Muro 22 | did -u Muro 24 | did -u Muro 26 | did -u Muro 28 | did -u Muro 30 | did -u Muro 32
}
;spinegendo su F10 ATTIVEREMO IL DIALOG
alias F10 Muro
alias Muro { if ($dialog(1) == Muro) { dialog -c Muro Muro | dialog -m Muro Muro }
else { dialog -m Muro Muro }
}
;qui ci complichiamo un po......
ON 1:DIALOG:Muro:INIT:0: {
;quando si aprira' il dialog.......
if ($sock(porta19,1).status = listening) { did -ar Muro 3 In Ascolto... | did -c Muro 2 }
;se.... la porta 19 e' in ascolto nell'edit verra scritto (in ascolto) e verra' abilitato il check
else { did -ar Muro 3 Chiusa }
;senno.... scriveremo nell'edit che e' chiusa.
if ($sock(porta21,1).status = listening) { did -ar Muro 5 In Ascolto... | did -c Muro 4 }
else { did -ar Muro 5 Chiusa }
if ($sock(porta113,1).status = listening) { did -ar Muro 7 In Ascolto... | did -c Muro 6 }
else { did -ar Muro 7 Chiusa }
if ($sock(porta1080,1).status = listening) { did -ar Muro 9 In Ascolto... | did -c Muro 8 }
else { did -ar Muro 9 Chiusa }
if ($sock(porta139,1).status = listening) { did -ar Muro 11 In Ascolto... | did -c Muro 10 }
else { did -ar Muro 11 Chiusa }
if ($sock(porta5000,1).status = listening) { did -ar Muro 13 In Ascolto... | did -c Muro 12 }
else { did -ar Muro 13 Chiusa }
if ($sock(porta12345,1).status = listening) { did -ar Muro 15 In Ascolto... | did -c Muro 14 }
else { did -ar Muro 15 Chiusa }
if ($sock(porta31337,1).status = listening) { did -ar Muro 17 In Ascolto... | did -c Muro 16 }
else { did -ar Muro 17 Chiusa }
if ($sock(porta6670,1).status = listening) { did -ar Muro 19 In Ascolto... | did -c Muro 18 }
else { did -ar Muro 19 Chiusa }
if ($sock(porta21554,1).status = listening) { did -ar Muro 21 In Ascolto... | did -c Muro 20 }
else { did -ar Muro 21 Chiusa }
if ($sock(porta20034,1).status = listening) { did -ar Muro 23 In Ascolto... | did -c Muro 22 }
else { did -ar Muro 23 Chiusa }
if ($sock(porta40421,1).status = listening) { did -ar Muro 25 In Ascolto... | did -c Muro 24 }
else { did -ar Muro 25 Chiusa }
if ($sock(porta31338,1).status = listening) { did -ar Muro 27 In Ascolto... | did -c Muro 26 }
else { did -ar Muro 27 Chiusa }
if ($sock(porta31785,1).status = listening) { did -ar Muro 29 In Ascolto... | did -c Muro 28 }
else { did -ar Muro 29 Chiusa }
if ($sock(porta5400,1).status = listening) { did -ar Muro 31 In Ascolto... | did -c Muro 30 }
else { did -ar Muro 31 Chiusa }
if ($sock(porta9872,1).status = listening) { did -ar Muro 33 In Ascolto... | did -c Muro 32 }
else { did -ar Muro 33 Chiusa }
}
ON 1:DIALOG:Muro:sclick:*: {
;quanod cliccheremo su un pusante del dialog............
if ($did == 2) { if (%porta19 = on) { set %porta19 off | sockclose porta19 19 | did -u Muro 2 | did -ar Muro 3 Chiusa }
;se il bottone e' 2 ..... se la porta 19 e' on la setteremo off chiuderemo la porta (sockClose) disabilitiamo il chech e ;scriviamo Chiusa
else { set %porta19 on | socklisten porta19 19 | did -c Muro 2 | did -ar Muro 3 In Ascolto... }
}
;senno..... settermo la porta on, abiliteremo il chech, e scriveremo in ascolto
if ($did == 4) { if (%porta21 = on) { set %porta21 off | sockclose porta21 21 | did -u Muro 4 | did -ar Muro 5 Chiusa }
else { set %porta21 on | socklisten porta21 21 | did -c Muro 4 | did -ar Muro 5 In Ascolto... }
}
if ($did == 6) { if (%porta113 = on) { set %porta113 off | sockclose porta113 113 | did -u Muro 6 | did -ar Muro 7 Chiusa }
else { set %porta113 on | socklisten porta113 113 | did -c Muro 6 | did -ar Muro 7 In Ascolto... }
}
if ($did == 8) { if (%porta1080 = on) { set %porta1080 off | sockclose porta1080 1080 | did -u Muro 8 | did -ar Muro 9 Chiusa }
else { set %porta1080 on | socklisten porta1080 1080 | did -c Muro 8 | did -ar Muro 9 In Ascolto... }
}
if ($did == 10) { if (%porta139 = on) { set %porta139 off | sockclose porta139 139 | did -u Muro 10 | did -ar Muro 11 Chiusa }
else { set %porta139 on | socklisten porta139 139 | did -c Muro 10 | did -ar Muro 11 In Ascolto... }
}
if ($did == 12) { if (%porta5000 = on) { set %porta5000 off | sockclose porta5000 5000 | did -u Muro 12 | did -ar Muro 13 Chiusa }
else { set %porta5000 on | socklisten porta5000 5000 | did -c Muro 12 | did -ar Muro 13 In Ascolto... }
}
if ($did == 14) { if (%porta12345 = on) { set %porta12345 off | sockclose porta12345 12345 | did -u Muro 14 | did -ar Muro 15 Chiusa }
else { set %porta12345 on | socklisten porta12345 12345 | did -c Muro 14 | did -ar Muro 15 In Ascolto... }
}
if ($did == 16) { if (%porta31337 = on) { set %porta31337 off | sockclose porta31337 31337 | did -u Muro 16 | did -ar Muro 17 Chiusa }
else { set %porta31337 on | socklisten porta31337 31337 | did -c Muro 16 | did -ar Muro 17 In Ascolto... }
}
if ($did == 18) { if (%porta6670 = on) { set %porta6670 off | sockclose porta6670 6670 | did -u Muro 18 | did -ar Muro 19 Chiusa }
else { set %porta6670 on | socklisten porta6670 6670 | did -c Muro 18 | did -ar Muro 19 In Ascolto... }
}
if ($did == 20) { if (%porta21554 = on) { set %porta21554 off | sockclose porta21554 21554 | did -u Muro 20 | did -ar Muro 21 Chiusa }
else { set %porta21554 on | socklisten porta21554 21554 | did -c Muro 20 | did -ar Muro 21 In Ascolto... }
}
if ($did == 22) { if (%porta20034 = on) { set %porta20034 off | sockclose porta20034 20034 | did -u Muro 22 | did -ar Muro 23 Chiusa }
else { set %porta20034 on | socklisten porta20034 20034 | did -c Muro 22 | did -ar Muro 23 In Ascolto... }
}
if ($did == 24) { if (%porta40421 = on) { set %porta40421 off | sockclose porta40421 40421 | did -u Muro 24 | did -ar Muro 25 Chiusa }
else { set %porta40421 on | socklisten porta40421 40421 | did -c Muro 24 | did -ar Muro 25 In Ascolto... }
}
if ($did == 26) { if (%porta31338 = on) { set %porta31338 off | sockclose porta31338 31338 | did -u Muro 26 | did -ar Muro 27 Chiusa }
else { set %porta31338 on | socklisten porta31338 31338 | did -c Muro 26 | did -ar Muro 27 In Ascolto... }
}
if ($did == 28) { if (%porta31785 = on) { set %porta31785 off | sockclose porta31785 31785 | did -u Muro 28 | did -ar Muro 29 Chiusa }
else { set %porta31785 on | socklisten porta31785 31785 | did -c Muro 28 | did -ar Muro 29 In Ascolto... }
}
if ($did == 30) { if (%porta5400 = on) { set %porta5400 off | sockclose porta5400 5400 | did -u Muro 30 | did -ar Muro 31 Chiusa }
else { set %porta5400 on | socklisten porta5400 5400 | did -c Muro 30 | did -ar Muro 31 In Ascolto... }
}
if ($did == 32) { if (%porta9872 = on) { set %porta9872 off | sockclose porta9872 9872 | did -u Muro 32 | did -ar Muro 33 Chiusa }
else { set %porta9872 on | socklisten porta9872 9872 | did -c Muro 32 | did -ar Muro 33 In Ascolto... }
}
if ($did == 34) { Muro-ascolto | Muro-acceso }
if ($did == 35) { chiudi-Muro | Muro-spento }
}
On 1:socklisten:*:echo -a 20,4 [0 tentativo di connessione sulla porta $sock($sockname).port ]
;dovremmo anche spiegare come leggere l'ip di chi prova a connettersi sull porta ;ma per ora non ci complichiamo piu del necessario.
Autore: Antani
|
