Question

对于一个学校项目，我必须考虑自己的加密方法，并且必须创建一个计划中的程序，该程序可以使用该方法进行加密和解密。我对计划很陌生，所以需要一些帮助。

因此，正如您在代码中所看到的那样，我正在使用递归，并且正如您所看到的，我正在将字母转换为数字，然后按照密钥中的说明将字母向上移动多次。之后，我想将它们转换回字母。所以我的问题是，当它为空时，我想从头开始再次从钥匙开始，但是我真的不知道该怎么做。

如果您想进一步帮助我，我想声明第二个键，该键由数字组成。该键决定何时第一个键再次从头开始。我希望你能帮助我！

(define (codieren str ausgabe key1)
  (verschluesseln (umwandeln (string->list str) ausgabe) key1 '()))


(define (umwandeln liste ausgabe)
  (cond
    [(null? liste) ausgabe]
    [else (umwandeln (rest liste)
                   (append ausgabe (list (char->integer (first liste)))))]))

(define (verschluesseln zahlenListe key1 ausgabe)
  (cond
    [(null? zahlenListe) ausgabe]
    [else (verschluesseln (rest zahlenListe) (rest key1)
                          (append ausgabe (list (+ (first zahlenListe) (first key1)))))]))

Answer 1

我重命名了一些变量：）

Legend
------
ausgabe        = output
codieren       = encode
verschluesseln = encrypt
umwandeln      = convert
zahlenListe    = numlist

...，并添加了一些签名和用途说明。 check-expect是用Racket的BSL（从学生语言开始）进行的测试。

;; String [Listof Character] [Listof Number] -> [Listof Number]
;; converts, then encrypts str by key1
(define (encode str output key1)
  (encrypt (convert (string->list str) output) key1 '()))

(check-expect (encode "abc" '() (list 1 1 1)) (list 98 99 100))

;; [Listof Character] [Listof Character] -> [Listof Character]
;; converts each character in liste to an integer
(define (convert liste output)
  (cond
    [(null? liste) output]
    [else (convert (rest liste)
                   (append output (list (char->integer (first liste)))))]))

;; [Listof Number] [Listof Number] [Listof Number] -> [Listof Number]
;; increments each number in numlist by key1
(define (encrypt numlist key1 output)
  (cond
    [(null? numlist) output]
    [else (encrypt (rest numlist)
                   (rest key1)
                   (append output (list (+ (first numlist) (first key1)))))]))

您可以构建类似的解码器功能（向后工作）：

;; [Listof Number] [Listof Number] [Listof Number] -> String
(define (decode code output key1)
  (list->string (convert-back (decrypt code key1 output) '())))

(check-expect (decode (list 98 99 100) '() (list 1 1 1)) "abc")

;; [Listof Number][Listof Number] [Listof Number] -> [Listof Number]
(define (decrypt numlist key1 output)
  (cond
    [(null? numlist) output]
    [else (decrypt (rest numlist)
                   (rest key1)
                   (append output (list (- (first numlist) (first key1)))))]))

(check-expect (decrypt (list 98 99 100) (list 1 1 1) '()) (list 97 98 99))

;; [Listof Number] [Listof Character] -> [Listof Character]
(define (convert-back liste output)
  (cond
    [(null? liste) output]
    [else (convert-back (rest liste)
                        (append output (list (integer->char (first liste)))))]))

(check-expect (convert-back (list 97 98 99) '()) (list #\a #\b #\c))

然后测试通过键进行编码和解码是否返回相同的结果：

;; String [Listof Number] -> String
;; encodes and decodes a str by key
(define (encode-decode-identity str key)
  (decode (encode str '() key) '() key))

(check-expect (encode-decode-identity "abc" (list 1 1 1)) "abc")
(check-expect (encode-decode-identity "Gödel" (list 3 0 1 -9 7)) "Gödel")

看看如何在两个两个功能中使用键。

请注意，我们的编码消息为[Listof Number]。可以将其转换为字符串：

;; [Listof Number] String -> String
;; converts an encoding `code` to its string form
(define (code-to-string code output)
  (cond [(null? code) output]
        [else (code-to-string (rest code)
                              (string-append output (int->string (first code))))]))

(check-expect (code-to-string (list 98 99 100) "") "bcd")
(check-expect (code-to-string (encode "Church" '() (list 4 2 3 -5 0 9)) "") "Gjxmcq")

...然后可用于多次编码（根据您的要求）：


;; Number String [Listof Number] -> String
;; encodes str n times using key
(define (encode-n-times n str key)
  (cond [(= n 0) str]
        [else (encode-n-times (- n 1) (code-to-string (encode str '() key) "") key)]))

(check-expect (encode-n-times 3 "abc" (list 1 1 1)) "def")

组合了编码的多个应用程序，而不是“再次从头开始”。

方案递归从列表开头为空后开始

1 个答案: