优雅的系统调用haskell
|
我正在建立一个网站，用户可以在其中使用kerberos服务进行登录。不过，这与我的问题无关。
由于我正在使用kerberos，因此我想使用系统调用来调用
kinit
module Kerberos where
system :: String -> IO ExitCode
-- system is loaded through imports
type Username = String
type Password = String
kerberosValidate :: Username -> Password -> IO Bool
kerberosValidate username password = fmap (== ExitSuccess) $
system $ \"echo \" ++ password ++ \" | kinit \" ++ username
username
password
password
echo password |
username
username
rawSystem
没有找到相关结果
已邀请:
1 个回复
殿虫
和中的朋友。 安全注意事项：建议不要将任何字符串传递给未解释的字符串。您可以轻松地为命令编写一个解析器，从可以保证安全的解析结果中构建Haskell AST，然后将其呈现给系统命令。这样，您将获得针对字符串注入攻击的静态保证，该攻击由解析器的类型强制执行。