tcl變量SQL注入檢查

Question

我有一個tcl變量$值正在通過隱藏的輸入字段傳遞。 什麼是一個很好的正則表達式來檢查SQL注入。

我希望它只允許在大小寫的情況下。

我希望它只允許在另一種情況下的字符。

而在另一種情況下的數字和字符。

在所有3種情況下，我不希望被列入

Answer 1

switch $case { 
    case1 {set regex {^[[:digit:]]+$}} 
    case2 {set regex {^[[:alpha:]]+$}} 
    case3 {set regex {^[[:alnum:][:space:]]+$}} 
    default {error "what case is this?"} 
} 
if {! [regexp $regex $value]} { 
    error "invalid value: value" 
} 

任何特殊chracters要刪除不匹配的字符

switch $case { 
    case1 {set regex {\D}} 
    case2 {set regex {[^[:alpha:]]}} 
    case3 {set regex {[^[:alnum:][:space:]]}} 
} 
set safe_value [regsub -all $regex $value ""] 

見Tcl的手冊頁regexp，regsub和re_syntax