防火牆與網路分享程式 for Linux 版
http://www.we68.idv.tw/~perl/firewall_and_nat.pl

剛剛寫的
給大家參考參考


# 2004 / 02 / 07
# Script 製作: 阿凱
# 開啟 NAT 與防火牆功能
# 此 Script 必須在 Kernel 為 2.4.x 版執行
# 必須使用 iptables 防火牆套件
# 在 MAndrake 8.1 下測試完成(8.0以上應該就可以跑)
# 此 Script 參考許多網友的設定, 並非我獨立完成
# 請把這個檔案加入 /etc/rc.d/rc.local 的最後面執行

# 前一版為 BASH 的 Script，這版改為 Perl Script
# 因為 Perl 能做比較多較複雜的事情

# 請注意一點，如果你的連外是浮動 IP
# 在你取得IP位置之後務必執行這支程式
# 以正確的讓 NAT 和防火牆動作
# 你可透過一支 shell 程式定時檢時連線的IP是否有變動或斷線
# 如果有的話就先斷線再連線, 之後再執行本程式
# 當然啦, 定時檢查的功能請透過 crontab (crond) 功能達成

# 本程式並未針對某些服務對某些網域設限或開放的設計
# 因為這方面的設計很複雜，基本上一般用途不會這樣做
# 所以暫時不提供這樣的功能，以後可能會做吧