امر فايروول للحمايه من الاختراق

[ALMaJeD]

يعطيكم العافيه شباب هذا الفاير وول دايلوق
اتمنى انه يعجبكم
-------------------------

on *:socklisten:nuke*: {
set %cip (TCP)
sockaccept nuker
%nuker-ip = $sock(nuker,1).ip
%nuker-port = $gettok($sockname,2,$asc(e))
sockwrite -n nuker $logo
sockwrite -n nuker 8,1your ip is1,8 %nuker-ip 8,1and the connection is from port1,8 %nuker-port
sockwrite -n nuker 8,1You better get out of my ports before i call the POLICE !
sockwrite -n nuker $pub
.sockclose nuker
echo -a 8,1***DANGER: Connection on port: %nuker-port %cip [BY] IP: %nuker-ip
.flash Danger (TCP)
.write logs.txt $date Port : %nuker-port %cip IP : %nuker-ip
if ($dialog(firewall) == $null) {
.echo -a Connection Port : %nuker-port %cip IP : %nuker-ip | firewalll
}
else {
did -a firewall 22 Connection port : %nuker-port %cip IP : %nuker-ip $crlf
did -a firewall 61 $date Port : %nuker-port %cip IP : %nuker-ip $crlf
}
}
on *:udpread:udpnuke*: {
set %ciip (UDP)
%nuker-ip = $sock($sockname,1).saddr
%nuker-port = $gettok($sockname,2,$asc(e))
.flash Danger (UDP)
.write logs.txt $date Port : %nuker-port %ciip IP : %nuker-ip
if ($dialog(firewall) == $null) {
.echo -a Connection Port : %nuker-port %ciip IP : %nuker-ip | firewalll
}
else {
did -a firewall 22 Connection on port : %nuker-port %ciip IP : %nuker-ip $crlf
did -a firewall 61 $date Port : %nuker-port %ciip IP : %nuker-ip $crlf
}
}
Alias plisten {
set %f.f 0
:loop
inc %f.f 1
set %pnt $read -l $+ %f.f $scriptdirports.txt
set %portfree $portfree($gettok(%pnt,1,32))
if (%pnt == $null) { halt }
if ($gettok(%pnt,2,32) = UDP) {
did -a firewall 22 $timestamp Protection of port $gettok(%pnt,1,32) (UDP) $crlf
sockudp -k udpnuke $+ $gettok(%pnt,1,32) $gettok(%pnt,1,32)
goto loop
}
if (t isin %portfree) {
if ($gettok(%pnt,2,32) = TCP) {
did -a firewall 22 $timestamp Protection of port $gettok(%pnt,1,32) (TCP) $crlf
socklisten nuke $+ $gettok(%pnt,1,32) $gettok(%pnt,1,32)
goto loop
}
}
did -a firewall 22 $timestamp The port $gettok(%pnt,1,32) ( $+ $gettok(%pnt,2,32) $+ ) is already used $crlf
goto loop
}

Alias pclose {
.sockclose nuke* | sockclose udpnuke*
}
on *:connect: {
.timer97 1 2 .dialog -i firewall firewall
.firewalll
.set %moood on
.j %hhhh
}

ON ME:1ISCONNECT: {
if ($dialog(firewall) == $null) { goto disc | halt }
else { dialog -x firewall firewall | goto disc | halt }
:disc
.pclose
halt
}
menu channel,status {
[ الـفـايـر وول ]:/firewalll
}

Alias firewalll {
dialog -m firewall firewall
.pclose
.timer8 1 1 .plisten
.lisst
}
dialog firewall {
title "الـفـايـر وول"
size -1 -1 312 345
tab "Connections",2,5 5 300 305
tab "Ports",10
tab "Retracer",3
tab "Logs",8
text "Ports :",13,15 35 70 20,tab 10
text "Port à ajouter :",14,130 55 120 20,tab 10
list 12,15 55 100 260,sort,tab 10
edit "",22,15 35 280 260,multi,vsbar,read,tab 2
text "Note : The program search on channels who you are on",50,30 35 250 40,tab 3
edit "",4,15 75 280 190,multi,vsbar,read,tab 3
button "On",30,14 315 66 20,
button "Off"31,85 315 66 20,
button "Reload",28,157 315 66 20,ok,
button "Minimize",29,228 315 66 20,
text "IP :"5,15 275 20 20,tab 3
edit "" ,6,34 273 118 21,tab 3
button "Search",7,157 274 136 20,tab 3
edit "",11,130 75 158 21,tab 10
radio "TCP",15,130 105 50 20,tab 10
radio "UDP",16,130 125 50 20,tab 10
button "Add",17,130 155 155 20,tab 10
box "",19,120 42 177 142,tab 10
button "Remove selected port",18,125 200 165 20,tab 10
edit "" 61,15 35 280 220,multi,vsbar,read,hsbar,tab 8
button "Empty logs",62,50 270 200 20,tab 8
}
on *:dialog:firewall:sclick:62: { .write -c logs.txt | statuss | .timer102 1 1 .dialog -x firewall firewall | timer107 1 4 .firewalll }
on *:dialog:firewall:sclick:29: { dialog -i firewall firewall }
on *:dialog:firewall:sclick:30: { .pclose | timer9 1 2 .plisten }
on *:dialog:firewall:sclick:31: { .pclose | timer10 1 1 .did -a firewall 22 $timestamp > The ports are no longer protected $crlf }
on *:dialog:firewall:sclick:28: { .timer11 1 1 .firewalll }
on *:dialog:firewall:edit:61: { set %msg.flash $did(firewall,61).text }
on *:dialog:firewall:edit:58: { set %wav.son $did(firewall,58).text }
on *:dialog:firewall:sclick:7: { set %ipnick 1 | .timer12 1 1 .dns $did(firewall,6) }
on *:dialog:firewall:init:0: {
set %fw 0
:loop
inc %fw 1
if ($read -l $+ %fw $scriptdirports.txt = $null) { halt }
did -ca firewall 12 $read -l $+ %fw $scriptdirports.txt
goto loop
}
on *:dialog:firewall:sclick:18: {
set %fw.r $read -w"* $+ $did(firewall,12,$did(firewall,12).sel).text $+ *" $scriptdirports.txt
write -dl $+ $readn $scriptdirports.txt
set %firewall.e 0
:loop
inc %firewall.e 1
if $did(firewall,12,%firewall.e).text = $did(firewall,12,$did(firewall,12).sel).text) {
did -d firewall 12 $did(firewall,12).sel
.statuss
.timer102 1 2 .dialog -x firewall firewall | timer100 1 4 .firewalll
}
else { goto loop }
}
on *:dialog:firewall:sclick:17: {
set %fw.w 0
if ($did(firewall,15).state = 1) { set %fw.fw.w $did(firewall,11).text TCP }
if ($did(firewall,16).state = 1) { set %fw.fw.w $did(firewall,11).text UDP }
:loop
inc %fw.fw 1
if ($did(firewall,12,%fw.fw).text = $null) { goto vasy }
if ($did(firewall,12,%fw.fw).text = %fw.fw.w) { halt }
goto loop
:vasy
if ($did(firewall,15).state = 1) {
write $scriptdirports.txt $did(firewall,11).text TCP
did -ca firewall 12 $did(firewall,11).text TCP
.statuss
.timer102 1 1 .dialog -x firewall firewall | timer100 1 4 .firewalll
}
if ($did(firewall,16).state = 1) {
write $scriptdirports.txt $did(firewall,11).text UDP
did -ca firewall 12 $did(firewall,11).text UDP
.statuss
.timer102 1 1 .dialog -x firewall firewall | timer107 1 4 .firewalll
}
}
on *:dialog:firewall:sclick:15:did -r firewall 17 | did -a firewall 17 Add $did(firewall,11).text TCP
on *:dialog:firewall:sclickdid -r firewall 17 | did -a firewall 17 Add $did(firewall,11).text UDP
on *:dialog:firewall:edit:11: {
if ($did(firewall,15).state = 1) { did -r firewall 17 | did -a firewall 17 Add $did(firewall,11).text TCP | halt }
if ($did(firewall,16).state = 1) { did -r firewall 17 | did -a firewall 17 Add $did(firewall,11).text UDP | halt }
did -c firewall 15 | did -r firewall 17 | did -a firewall 17 Add $did(firewall,11).text TCP
}
on *:dialog:firewall:sclick:12:did -r firewall 18 | did -a firewall 18 Remove $did(firewall,12,$did(firewall,12).sel).text

alias scannick {
set %total 0
set %did_ligne 0
did -a firewall 4 Searching $1- $crlf
did -a firewall 4 $chr(160) $crlf
.enable #findnick
/who +h $1-
}
#findnick on
raw 352:*: {
inc %total
if ($2 == *) { did -a firewall 4 $chr(91) %total $chr(93) $6 (in none channel) $crlf | halt }
did -a firewall 4 $chr(91) %total $chr(93) $6 of $2 $crlf | halt }

raw 315:*: {
did -a firewall 4 $chr(160) $crlf
did -a firewall 4 Number of nick(s) traced(s): $chr(91) %total $chr(93) $crlf
did -a firewall 4 Finished $crlf
unset %total
.disable #findnick
halt
}
#findnick end
on 1:dns: {
if ($raddresse == $null) { goto nexxxxx }
if ($raddresse != $null) { goto nexttttt }
:nexxxxx
if (%ipnick == 1) { .scannick $raddress | goto end }
:nexttttt
if (%ipnick == 1) { .scannick $address | goto end }
:end
unset %ipnick
}

alias statuss {
dialog -m fireword fireword
.did -a fireword 54 4
.timer104 1 1 .did -a fireword 54 3
.timer105 1 2 .did -a fireword 54 2
.timer106 1 3 .did -a fireword 54 1
.timer103 1 4 .dialog -x fireword fireword
}
dialog fireword {
title "Status"
size -1 -1 190 80
text "The firewall Is Closed and will Re-Open Automatic to save the memory.",52,10 10 170 45
button "",53,1 1 1 1,ok
edit "",54,82 53 15 20,autohs,read
}
alias lisst {
set %r.l 0
:loop
inc %r.l 1
if ($read -l $+ %r.l $scriptdirlogs.txt = $null) { halt }
did -ca firewall 61 $read -l $+ %r.l $scriptdirlogs.txt $crlf
goto loop
}

[admin]

تسلم والله وحيل حيل مفيد هالامر تسلم يالماجد والله