0

谁能指出我如何编写一个简单的 ssh 应用程序来检查某些凭据是否通过 SSH 服务器的大致方向？

我正在寻找类似的东西：

sshAuthCheck :: Int -> String -> String -> IO Bool

其中Int是某个端口，String是用户名，String是密码。

任何帮助将非常感激！

4

1 回答 1

2

更新 2017-04-03

由于darcsden.com下的示例已被删除，这是实现相同目的的另一种方法：

步骤如下：

session <- openSession hostname port path_to_known_hosts
auth_session <- authenticateWithPasswordSource session username password
result <- runErrorT auth_session
case result of
    Left simple_ssh_error -> ... {- SimpleSSHError -}
    Right session -> ... {- Session -}
  • 代码未测试
  • 有更好的方法来处理此类错误。runEitherT 仅用于示例目的。

原答案：

该库可用：

http://hackage.haskell.org/package/ssh

这指向了卡尔提到的一个例子：

http://darcsden.com/alex/darcsden/browse/src/SSHServer.hs

于 2013-04-26T13:05:52.613 回答