diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/echo/client.scm.in | 5 | ||||
| -rw-r--r-- | examples/sssh.scm.in | 3 |
2 files changed, 5 insertions, 3 deletions
diff --git a/examples/echo/client.scm.in b/examples/echo/client.scm.in index ac3ecce..6a9fc41 100644 --- a/examples/echo/client.scm.in +++ b/examples/echo/client.scm.in @@ -142,8 +142,9 @@ errors." (case (authenticate-server session) ((not-known) - (display "The server is unknown. Please check MD5 sum:\n") - (format #t " ~a~%" (get-public-key-hash session)))) + (let ((hash (get-public-key-hash session))) + (display "The server is unknown. Please check MD5 sum:\n") + (format #t " ~a~%" (bytevector->hex-string hash))))) (let* ((private-key (get-prvkey session identity-file)) (public-key (get-pubkey session private-key))) diff --git a/examples/sssh.scm.in b/examples/sssh.scm.in index e58819b..a80875d 100644 --- a/examples/sssh.scm.in +++ b/examples/sssh.scm.in @@ -175,7 +175,8 @@ Options: ((ok) (print-debug " ok\n")) ((not-known) (display " The server is unknown. Please check MD5.\n"))) - (format-debug " MD5 hash: ~a~%" (get-public-key-hash session)) + (let ((hash (get-public-key-hash session))) + (format-debug " MD5 hash: ~a~%" (bytevector->hex-string hash))) (print-debug "5. userauth-autopubkey!\n") (let ((res (userauth-autopubkey! session))) |