syndicate-ssh/syndicate-ssh/crypto.rkt

#lang racket/base
;;; SPDX-License-Identifier: LGPL-3.0-or-later
;;; SPDX-FileCopyrightText: Copyright © 2011-2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>

(provide (all-from-out crypto)
         (all-defined-out))

(require crypto)
(require crypto/all)
(use-all-factories!)

(define (sha1 bs)
  (digest 'sha1 bs))

(define (sha256 bs)
  (digest 'sha256 bs))
First steps toward modernization and port to syndicate-rkt. Switch from (planet vyzo/crypto) to crypto. Comment out most of the upper layers of the protocol. Switch to new syndicate/rkt. Unfortunately since I last ran this, the set of MUST-implement kex methods has changed and there's no overlap with my default SSH client :-) 2021-06-12 18:31:34 +00:00			`#lang racket/base`
			`;;; SPDX-License-Identifier: LGPL-3.0-or-later`
			`;;; SPDX-FileCopyrightText: Copyright © 2011-2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>`

crypto-based sha1 and sha256 2021-06-13 05:57:13 +00:00			`(provide (all-from-out crypto)`
			`(all-defined-out))`
First steps toward modernization and port to syndicate-rkt. Switch from (planet vyzo/crypto) to crypto. Comment out most of the upper layers of the protocol. Switch to new syndicate/rkt. Unfortunately since I last ran this, the set of MUST-implement kex methods has changed and there's no overlap with my default SSH client :-) 2021-06-12 18:31:34 +00:00
			`(require crypto)`
			`(require crypto/all)`
			`(use-all-factories!)`
crypto-based sha1 and sha256 2021-06-13 05:57:13 +00:00
			`(define (sha1 bs)`
			`(digest 'sha1 bs))`

			`(define (sha256 bs)`
			`(digest 'sha256 bs))`