素大請指教，關於RegularExpressions

[George]

素大，前幾天有寄封信給您老，但沒收到回信，可能沒寄成，所以在這裡問囉~
關於素大做的IP/Deny可以設成 192.168.0-100.* Or 192.*.*.*等，
可否請教素大，在RegularExpressions是如何下的，還是素大有更好的處理方式。
可否告知、指教，若其他大大知的話，可以給點意見給小弟喔，謝囉。

[Arnor]

[George]

不是啦，因為自己要做個網站，要用程式來控制拒絕和接受連線進來的IP是否有存取權，因為素大的MailD也有這方面的運用，所以想請教素大是如何做的？
給個參考ㄅ cc...

[kiner]

[George]

[Arnor]

喔, 原來你是以為我是用正規表示式去找所以才來問我的喔.
我是土法鍊鋼寫的啦, 既是寫程式, 當然就是一一拆解來比對囉.

大概是這樣的
先準備兩個function
IsInteger(a)
InRange(a, b)

IsInteger 是檢查輸入的字串是否為數字
InRange(a,b) 是檢查 a 這數字是否在 b 字串範圍內 (b 字串為條件中的 50-100 之類的字串)

先把要檢查的IP 拆成四部份 (以點分隔) 為 ip1, ip2, ip3, ip4
再把定義的條件IP 拆成四部份 (以點分隔) 為 ip5, ip6, ip7, ip8
然後 ip1 跟 ip5 比, ip2跟ip6比, 以此類推...
我的code (pascal 語法) 是這樣的
if (((ip1 = ip5) or (ip5 = '*') or InRange(ip1, ip5)) and ((ip2 = ip6) or (ip6 = '*') or InRange(ip2, ip6)) and ((ip3 = ip7) or (ip7 = '*') or InRange(ip3, ip7)) and ((ip4 = ip8) or (ip8 = '*') or InRange(ip4, ip8))) then
begin
Result := true;
break;
end;

你參考一下吧.
_________________
*若是想問問題的話, 請務必不要塗改任何 IP, 網域資料, 您若不願貼上IP或網域, 請改以電子郵件來詢問. 謝謝您的配合.*
*若是回報疑似軟體的運行或邏輯或資料處理有誤的問題, 小弟很樂意去了解您的情況, 但請務必以最新版來做回報, 如果以郵件詢問, 請參考 http://www.raidenmaild.com/tw/feedback.html 的說明, 最好標題加個 RaidenMAILD 字樣, 才不致會遺漏了您的信唷. 謝謝您的配合^^*
*在版上發文請遵守網路禮儀, 並請持著虛心敘述問題請教他人, 凡發現違反的文, 均一律刪除為優先, 不另行通知喔.
*與使用者教學相長腦力激盪是我輩成就感的來源, 誠心希望您能不吝指教.
*雷電MAILD 知識庫文件 http://www.raidenmaild.com/tw/kb/

素還尊
Team John Long.
Email: arnor@raidenmaild.com
公司網站 http://www.raidenmaild.com/company/

[kiner]

[George]

噗…素大，真是服了您了…土法練鋼果然是最有效的解決方式，
感謝您，Kin.我會再試看看的。

[Arnor]

[kiner]

@@"

可是這個 192.168.0.[50-120]*

這個我用pcre tester 測過可以找的到耶 @@

[George]

感謝Kiner大大，但是仍無法找出，比對會有誤呢！！！

我目前還是用素大的方式，比較傳統方式，看是否有更好的方式再來改進了，
在Google找了一堆網頁，都沒有此類的解法，真是有夠 的了。

總之，感謝素大和K大囉。

[Arnor]