diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-06-01 02:07:47 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-06-01 02:07:47 +0400 |
| commit | 7ee0ebdfe01601cda0f3df8ca3696ff872a9c57b (patch) | |
| tree | 98adbeac24fb91f0502b75a0b1d29fcac18fa2b0 /examples/echo | |
| parent | ssh/key.scm (string->public-key): New procedure (diff) | |
| download | guile-ssh-7ee0ebdfe01601cda0f3df8ca3696ff872a9c57b.tar.gz | |
examples/echo/client.scm.in (main): Fix a bug
* examples/echo/client.scm.in (main): Fix a bug: Print fingerprint
as a MD5 hex string.
Diffstat (limited to 'examples/echo')
| -rw-r--r-- | examples/echo/client.scm.in | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/echo/client.scm.in b/examples/echo/client.scm.in index 6a6a6b3..05899c7 100644 --- a/examples/echo/client.scm.in +++ b/examples/echo/client.scm.in @@ -135,9 +135,9 @@ Options: (case (authenticate-server session) ((not-known) (let* ((pubkey (get-server-public-key session)) - (hash (get-public-key-hash pubkey 'sha1))) + (hash (get-public-key-hash pubkey 'md5))) (display "The server is unknown. Please check MD5 sum:\n") - (format #t " ~a~%" hash)))) + (format #t " ~a~%" (bytevector->hex-string hash))))) (let ((private-key (get-prvkey session identity-file))) |