codepad

Language:

(define (last-pair xs)
  (if (null? (cdr xs)) xs
    (last-pair (cdr xs))))

(define (sort lt? xs)
  (define (merge x1 x2)
    (cond ((null? x1) x2)
          ((null? x2) x1)
          ((lt? (car x2) (car x1))
            (cons (car x2) (merge x1 (cdr x2))))
          (else (cons (car x1)
                      (merge (cdr x1) x2)))))
  (define (merge-pairs xs k)
    (if (or (null? (cdr xs)) (odd? k)) xs
        (merge-pairs
          (cons (merge (car xs) (cadr xs))
                (cddr xs))
          (quotient k 2))))
  (define (next-run run xs)
    (if (or (null? xs)
            (lt? (car xs) (car run)))
        (values (reverse run) xs)
        (next-run (cons (car xs) run)
                  (cdr xs))))
  (define (sorting xs ys k)
    (if (null? xs)
        (car (merge-pairs ys 0))
        (call-with-values
          (lambda ()
            (next-run (list (car xs))
                      (cdr xs)))
          (lambda (run tail)
            (sorting
               tail
               (merge-pairs
                 (cons run ys)
                 (+ k 1))
               (+ k 1))))))
  (if (null? xs) xs (sorting xs '() 0)))

(define cipher-text
  (list->string (map integer->char
    '(14 11 78 17 27 12 83 37 0 9 12 29 7 26 41 2 66 69 4 1 22 41
      69 41 10 23 73 16 53 0 15 17 22 13 83 51 13 11 69 27 12 18
      49 0 0 22 83 8 29 35 69 26 13 22 73 22 38 23 26 13 95 73 7
      47 0 78 0 18 27 7 47 69 25 4 0 73 18 103 3 1 23 30 5 22 52
      22 78 18 18 26 7 34 9 15 11 23 69 83 38 11 10 69 23 8 1 44
      11 11 22 0 73 16 40 19 11 23 22 13 83 51 13 11 69 18 11 10
      52 22 66 69 4 1 26 43 0 78 4 83 4 26 32 13 26 28 83 30 26 41
      1 78 22 4 12 3 51 69 1 19 22 27 83 51 13 11 69 4 8 7 34 23
      29 75 83 73 39 47 0 0 69 52 6 23 103 22 15 12 23 69 83 96 41
      11 17 83 29 27 34 23 11 69 17 12 83 43 12 9 13 7 69 84 103 4
      0 1 83 29 27 34 23 11 69 4 8 0 103 9 7 2 27 29 93 103 69 41
      10 23 73 0 38 18 78 13 28 30 83 32 10 1 1 83 29 27 34 69 2
      12 20 1 7 103 18 15 22 93 73 83 0 10 10 69 7 1 22 41 69 29 0
      3 8 1 38 17 11 1 83 29 27 34 69 2 12 20 1 7 103 3 28 10 30
      73 7 47 0 78 1 18 27 24 41 0 29 22 93 73 83 0 10 10 69 16 8
      31 43 0 10 69 7 1 22 103 9 7 2 27 29 83 96 1 15 28 95 78 83
      38 11 10 69 7 1 22 103 1 15 23 24 7 22 52 22 78 13 22 73 16
      38 9 2 0 23 73 84 41 12 9 13 7 71 84 103 69 58 13 6 26 83 34
      19 11 11 26 7 20 103 6 15 8 22 69 83 38 11 10 69 30 6 1 41 12
      0 2 83 15 28 43 9 1 18 22 13 83 106 72 78 17 27 12 83 33 12
      28 22 7 73 23 38 28 64 111 121 61 27 34 11 78 34 28 13 83 52
      4 7 1 95 73 84 11 0 26 69 7 1 22 53 0 78 7 22 73 18 103 1 1 8
      22 73 26 41 69 26 13 22 73 30 46 1 10 9 22 73 28 33 69 26 13
      22 73 4 38 17 11 23 0 69 83 51 10 78 22 22 25 18 53 4 26 0 83
      6 29 34 69 12 10 23 16 83 40 3 78 18 18 29 22 53 69 8 23 28 4
      83 51 13 11 69 28 29 27 34 23 64 66 83 73 50 41 1 78 22 28 73
      26 51 69 6 4 3 25 22 41 0 10 95 83 73 52 40 1 78 8 18 13 22
      103 17 6 0 83 13 28 42 0 66 69 18 7 23 103 12 26 69 0 12 3 38
      23 15 17 22 13 83 51 13 11 69 4 8 7 34 23 78 4 17 6 5 34 69
      26 13 22 73 23 40 8 11 69 21 27 28 42 69 26 13 22 73 4 38 17
      11 23 83 11 22 43 10 25 69 26 29 93 103 69 41 10 23 73 16 38
      9 2 0 23 73 7 47 0 78 1 28 4 22 103 66 26 13 22 73 0 44 28 64
      66 83 73 54 49 0 0 12 29 14 83 36 4 3 0 95 73 18 41 1 78 8 28
      27 29 46 11 9 69 21 6 31 43 10 25 0 23 73 94 106 69 26 13 22
      73 0 34 6 1 11 23 73 23 38 28 64 111 121 61 27 34 11 78 34 28
      13 83 52 4 7 1 95 73 84 11 0 26 69 7 1 22 103 18 15 17 22 27
      83 50 11 10 0 1 73 7 47 0 78 22 24 16 83 37 0 78 2 18 29 27
      34 23 11 1 83 0 29 51 10 78 4 83 26 26 41 2 2 0 83 11 18 52
      12 0 73 83 26 28 103 17 6 4 7 73 7 47 0 78 1 1 16 83 43 4 0 1
      83 4 18 62 69 15 21 3 12 18 53 75 73 69 83 40 29 35 69 29 10
      83 0 7 103 13 15 21 3 12 29 34 1 84 69 7 1 22 103 18 15 17 22
      27 83 50 11 10 0 1 73 7 47 0 78 22 24 16 83 48 4 29 69 20 8 7
      47 0 28 0 23 73 26 41 17 1 69 26 29 0 103 7 15 22 26 7 95 103
      4 0 1 83 29 27 34 69 10 23 10 73 31 38 11 10 69 18 25 3 34 4
      28 0 23 71 83 103 34 1 1 83 10 18 43 9 11 1 83 29 27 34 69 10
      23 10 73 31 38 11 10 69 84 29 27 34 69 11 4 1 29 27 107 66 78
      4 29 13 83 51 13 11 69 17 8 0 46 11 78 10 21 73 7 47 0 78 18
      18 29 22 53 69 6 0 83 10 18 43 9 11 1 83 78 7 47 0 78 22 22 8
      93 96 69 78 34 28 13 83 52 4 25 69 27 6 4 103 2 1 10 23 73 26
      51 69 25 4 0 71 83 103 49 6 0 29 73 52 40 1 78 22 18 0 23 107
      69 73 41 22 29 83 51 13 11 69 22 8 1 51 13 78 7 1 0 29 32 69
      8 10 1 29 27 103 19 11 2 22 29 18 51 12 1 11 73 73 22 49 0 28
      28 83 2 26 41 1 78 10 21 73 3 43 4 0 17 83 29 27 38 17 78 7
      22 8 1 52 69 29 0 22 13 83 38 11 10 69 22 31 22 53 28 78 14
      26 7 23 103 10 8 69 21 27 6 46 17 78 17 1 12 22 103 10 0 69
      22 8 1 51 13 78 17 27 8 7 103 7 11 4 1 26 83 33 23 27 12 7 73
      4 46 17 6 69 26 29 0 103 22 11 0 23 73 26 41 69 7 17 93 78 83
      103 36 0 1 83 26 28 103 12 26 69 27 8 3 55 0 0 0 23 83 83 103
      17 6 0 83 12 18 53 17 6 69 17 27 28 50 2 6 17 83 15 28 53 17
      6 69 22 31 22 53 28 78 14 26 7 23 103 10 8 69 3 5 18 41 17 78
      17 27 8 7 103 7 11 4 1 26 83 52 0 11 1 83 8 29 35 69 11 19 22
      27 10 103 14 7 11 23 73 28 33 69 8 23 6 0 7 103 17 28 0 22 73
      28 41 69 11 4 1 29 27 103 17 6 4 7 73 17 34 4 28 22 83 15 1
      50 12 26 69 4 0 7 47 69 7 17 0 73 0 34 0 10 69 26 7 83 46 17
      64 69 83 46 28 35 69 29 4 4 73 27 40 18 78 2 28 6 23 103 12
      26 69 4 8 0 105 69 78 32 5 12 29 46 11 9 69 16 8 30 34 73 78
      4 29 13 83 42 10 28 11 26 7 20 103 3 1 9 31 6 4 34 1 78 72 94
      73 7 47 0 78 17 27 0 1 35 69 10 4 10 71 121 77 49 6 0 29 73
      52 40 1 78 22 18 0 23 125 69 73 41 22 29 83 51 13 11 23 22 73
      17 34 69 2 12 20 1 7 52 69 7 11 83 29 27 34 69 10 10 30 12 83
      40 3 78 17 27 12 83 52 14 23 73 83 29 28 103 22 11 21 18 27
      18 51 0 78 1 18 16 83 33 23 1 8 83 7 26 32 13 26 75 83 73 63
      34 17 78 17 27 12 30 103 8 15 23 24 73 7 47 0 78 3 26 17 22
      35 69 26 12 30 12 0 107 69 26 13 22 73 23 38 28 29 69 18 7 23
      103 17 6 0 83 16 22 38 23 29 73 83 8 29 35 69 29 0 1 31 22
      103 4 29 69 31 28 30 46 11 15 23 26 12 0 103 12 0 69 7 1 22
      103 1 1 8 22 73 28 33 69 26 13 22 73 0 44 28 66 69 7 6 83 52
      13 11 1 83 5 26 32 13 26 69 6 25 28 41 69 26 13 22 73 22 38
      23 26 13 93 78 83 103 36 0 1 83 26 28 103 12 26 69 27 8 3 55
      0 0 0 23 83 83 103 34 1 1 83 4 18 35 0 78 17 27 12 83 51 18
      1 69 20 27 22 38 17 78 9 26 14 27 51 22 66 69 7 1 22 103 2
      28 0 18 29 22 53 69 1 11 22 73 7 40 69 9 10 5 12 1 41 69 26
      13 22 73 23 38 28 66 69 18 7 23 103 17 6 0 83 5 22 52 22 11
      23 83 6 29 34 69 26 10 83 14 28 49 0 28 11 83 29 27 34 69 0
      12 20 1 7 124 69 15 11 23 73 27 34 69 3 4 23 12 83 51 13 11
      69 0 29 18 53 22 64 69 83 46 28 35 69 29 0 7 73 7 47 0 3 69
      26 7 83 51 13 11 69 23 6 30 34 69 1 3 83 29 27 34 69 29 14 10
      69 83 51 10 78 22 27 12 23 103 9 7 2 27 29 83 50 21 1 11 83
      29 27 34 69 11 4 1 29 27 107 69 26 10 83 14 28 49 0 28 11 83
      29 27 34 69 10 4 10 73 18 41 1 78 17 27 12 83 41 12 9 13 7 69
      83 38 11 10 69 7 6 83 52 0 30 4 1 8 7 34 69 26 13 22 73 31 46
      2 6 17 83 15 1 40 8 78 17 27 12 83 35 4 28 14 29 12 0 52 75
      78 69 52 6 23 103 22 15 18 83 1 28 48 69 9 10 28 13 83 46 17
      78 18 18 26 93 103 69 43 19 22 7 26 41 2 78 6 18 4 22 107 69
      15 11 23 73 30 40 23 0 12 29 14 83 33 10 2 9 28 30 22 35 69
      67 72 83 29 27 34 69 8 10 6 27 7 47 69 10 4 10 71 121 77 49
      6 0 29 73 52 40 1 78 22 18 0 23 107 69 73 41 22 29 83 51 13
      11 69 4 8 7 34 23 78 17 22 12 30 103 18 7 17 27 73 18 41 69
      15 7 6 7 23 38 11 13 0 83 6 21 103 9 7 19 26 7 20 103 6 28 0
      18 29 6 53 0 29 73 83 8 29 35 69 1 11 83 29 27 34 69 11 4 1
      29 27 103 9 11 17 83 11 26 53 1 29 69 21 5 10 103 7 11 11 22
      8 7 47 69 26 13 22 73 23 40 8 11 69 28 15 83 51 13 11 69 0 2
      10 105 66 78 69 50 7 23 103 22 1 69 26 29 83 47 4 30 21 22 7
      22 35 95 78 69 52 6 23 103 6 28 0 18 29 22 35 69 26 13 22 73
      20 53 0 15 17 83 26 22 38 69 3 10 29 26 7 34 23 29 69 18 7 23
      103 4 2 9 83 2 26 41 1 29 69 28 15 83 52 18 7 8 30 0 29 32 69
      13 23 22 8 7 50 23 11 22 83 30 26 51 13 78 18 27 0 16 47 69
      26 13 22 73 4 38 17 11 23 83 29 22 34 8 29 73 83 8 29 35 69
      15 9 31 73 24 46 11 10 22 83 6 21 103 18 7 11 20 12 23 103 7
      7 23 23 26 93 103 69 41 10 23 73 0 38 18 78 13 28 30 83 32 10
      1 1 83 0 7 103 18 15 22 95 73 18 41 1 78 34 28 13 83 37 9 11
      22 0 12 23 103 17 6 0 30 69 83 52 4 23 12 29 14 95 103 66 44
      0 83 15 22 53 17 7 9 22 69 83 42 16 2 17 26 25 31 62 73 78 4
      29 13 83 33 12 2 9 83 29 27 34 69 25 4 7 12 1 103 10 8 69 7 1
      22 103 22 11 4 0 82 83 38 11 10 69 31 12 7 103 17 6 0 83 11
      26 53 1 29 69 30 28 31 51 12 30 9 10 73 28 41 69 26 13 22 73
      22 38 23 26 13 93 78 83 103 32 24 0 29 0 29 32 69 13 4 30 12
      95 103 4 0 1 83 4 28 53 11 7 11 20 73 21 40 9 2 10 4 12 23
      103 72 67 69 7 1 22 103 3 7 3 7 1 83 35 4 23 75 121 99 39 47
      0 0 69 52 6 23 103 22 15 12 23 69 83 96 41 11 17 83 29 27 34
      69 11 4 1 29 27 103 7 28 12 29 14 83 33 10 28 17 27 73 18 43
      9 78 14 26 7 23 52 69 1 3 83 5 26 49 12 0 2 83 10 1 34 4 26
      16 1 12 0 125 69 13 4 7 29 31 34 73 78 6 1 12 22 55 12 0 2 83
      29 27 46 11 9 22 95 73 18 41 1 78 18 26 5 23 103 4 0 12 30 8
      31 52 69 1 3 83 8 31 43 69 5 12 29 13 0 105 66 78 69 50 7 23
      103 22 1 69 26 29 83 47 4 30 21 22 7 22 35 95 78 69 52 6 23
      103 8 15 1 22 73 18 43 9 78 14 26 7 23 52 69 1 3 83 30 26 43
      1 78 4 29 0 30 38 9 29 73 83 8 31 43 69 5 12 29 13 0 103 10 8
      69 16 8 7 51 9 11 73 83 8 29 35 69 15 9 31 73 24 46 11 10 22
      83 6 21 103 6 28 0 22 25 26 41 2 78 17 27 0 29 32 22 78 10 21
      73 7 47 0 78 0 18 27 7 47 75 78 69 52 6 23 103 22 15 18 83 1
      28 48 69 9 10 28 13 83 46 17 78 18 18 26 93 103 69 58 13 22 7
      83 0 10 10 69 0 8 26 35 95 78 66 63 12 7 103 16 29 69 30 8 24
      34 69 3 4 29 73 26 41 69 1 16 1 73 26 42 4 9 0 95 73 18 33 17
      11 23 83 6 6 53 69 2 12 24 12 29 34 22 29 75 83 73 63 34 17
      78 17 27 12 30 103 13 15 19 22 73 23 40 8 7 11 26 6 29 103 10
      24 0 1 73 7 47 0 78 3 26 26 27 103 10 8 69 7 1 22 103 22 11 4
      95 73 7 47 0 78 7 26 27 23 52 69 1 3 83 29 27 34 69 15 12 1
      69 83 38 11 10 69 7 1 22 103 6 15 17 7 5 22 107 69 15 11 23
      73 28 49 0 28 69 18 5 31 103 17 6 0 83 30 26 43 1 78 4 29 0
      30 38 9 29 69 18 7 23 103 4 2 9 83 29 27 34 69 13 23 22 8 7
      50 23 11 22 83 29 27 38 17 78 6 1 8 4 43 69 1 11 83 29 27 34
      69 9 23 28 28 29 35 75 73 69 83 46 28 35 69 13 23 22 8 7 34 1
      78 8 18 7 83 46 11 78 13 26 26 83 46 8 15 2 22 82 83 46 11 78
      17 27 12 83 35 12 24 12 29 12 83 46 8 15 2 22 73 27 34 69 13
      23 22 8 7 34 1 78 13 26 4 72 103 8 15 9 22 73 18 41 1 78 3 22
      4 18 43 0 78 13 22 73 16 53 0 15 17 22 13 83 51 13 11 8 93 73
      83 0 10 10 69 17 5 22 52 22 11 1 83 29 27 34 8 66 69 0 8 10
      46 11 9 95 83 78 49 34 69 8 0 1 29 26 43 0 78 4 29 13 83 42
      16 2 17 26 25 31 62 94 78 3 26 5 31 103 17 6 0 83 12 18 53 17
      6 69 18 7 23 103 22 27 7 23 28 22 103 12 26 75 83 73 59 38 19
      11 69 23 6 30 46 11 7 10 29 73 28 49 0 28 69 7 1 22 103 3 7
      22 27 73 28 33 69 26 13 22 73 0 34 4 66 69 7 1 22 103 7 7 23
      23 26 83 40 3 78 17 27 12 83 38 12 28 73 83 8 29 35 69 15 9
      31 73 7 47 0 78 9 26 31 26 41 2 78 17 27 0 29 32 22 78 17 27
      8 7 103 8 1 19 22 73 28 41 69 26 13 22 73 22 38 23 26 13 93
      78 83 103 34 1 1 83 8 31 52 10 78 22 18 0 23 125 69 73 54 22
      12 95 103 44 78 2 26 31 22 103 28 1 16 83 12 5 34 23 23 69 0
      12 22 35 72 12 0 18 27 26 41 2 78 21 31 8 29 51 69 15 9 31 73
      28 49 0 28 69 7 1 22 103 0 15 23 7 1 83 38 11 10 69 22 31 22
      53 28 78 17 1 12 22 103 17 6 4 7 73 27 38 22 78 22 22 12 23
      106 7 11 4 1 0 29 32 69 8 23 6 0 7 103 10 0 69 26 29 83 51 10
      78 7 22 73 10 40 16 28 69 21 6 28 35 94 78 4 29 13 83 51 10
      78 4 31 5 83 51 13 11 69 18 7 26 42 4 2 22 83 6 21 103 17 6 0
      83 5 18 41 1 66 69 18 5 31 103 17 6 0 83 11 26 53 1 29 69 28
      15 83 51 13 11 69 18 0 1 107 69 15 11 23 73 18 43 9 78 17 27
      12 83 43 12 24 12 29 14 83 36 23 11 4 7 28 1 34 22 78 17 27 8
      7 103 6 28 4 4 5 83 40 11 78 17 27 12 83 32 23 1 16 29 13 95
      103 44 78 2 26 31 22 103 4 2 9 83 29 27 34 69 9 23 22 12 29
      103 21 2 4 29 29 0 103 3 1 23 83 15 28 40 1 64 66 83 73 50 41
      1 78 22 28 73 26 51 69 6 4 3 25 22 41 0 10 75 83 73 52 40 1
      78 9 28 6 24 34 1 78 4 7 73 22 49 0 28 28 7 1 26 41 2 78 13
      22 73 27 38 1 78 8 18 13 22 107 69 15 11 23 73 27 34 69 8 10
      6 7 23 103 12 26 69 5 12 1 62 69 9 10 28 13 93 103 69 43 19
      22 7 26 41 2 78 6 18 4 22 107 69 15 11 23 73 30 40 23 0 12 29
      14 83 33 10 2 9 28 30 22 35 69 67 72 83 29 27 34 69 29 12 11
      29 27 103 1 15 28 93 99 121 19 13 27 22 83 29 27 34 69 6 0 18
      31 22 41 22 78 4 29 13 83 51 13 11 69 22 8 1 51 13 78 4 29 13
      83 38 9 2 69 7 1 22 46 23 78 4 1 27 18 62 69 25 0 1 12 83 36
      10 3 21 31 12 7 34 1 64 69 83 58 26 41 6 11 69 28 7 83 51 13
      11 69 0 12 5 34 11 26 13 83 13 18 62 69 41 10 23 73 4 38 22
      78 3 26 7 26 52 13 11 1 83 30 26 51 13 78 17 27 12 83 48 10
      28 14 83 1 22 103 13 15 1 83 11 22 34 11 78 1 28 0 29 32 73
      78 13 22 73 1 34 22 26 0 23 73 28 41 69 26 13 22 73 0 34 19
      11 11 7 1 83 35 4 23 69 21 27 28 42 69 15 9 31 73 7 47 0 78
      18 28 27 24 103 13 11 69 27 8 23 103 16 0 1 22 27 7 38 14 11
      11 93 73 83 20 10 78 34 28 13 83 37 9 11 22 0 12 23 103 17 6
      0 83 26 22 49 0 0 17 27 73 23 38 28 78 4 29 13 83 42 4 10 0
      83 0 7 103 13 1 9 10 69 83 37 0 13 4 6 26 22 103 10 0 69 26
      29 83 47 0 78 23 22 26 7 34 1 78 3 1 6 30 103 4 2 9 83 29 27
      34 69 25 10 1 2 83 47 0 78 13 18 13 83 35 10 0 0 83 0 29 103
      6 28 0 18 29 26 40 11 64 69 83 58 6 36 13 78 12 0 73 7 47 0
      78 22 7 6 1 62 69 1 3 83 29 27 34 69 6 0 18 31 22 41 22 78 4
      29 13 83 51 13 11 69 22 8 1 51 13 78 4 7 73 7 47 0 7 23 83
      10 1 34 4 26 12 28 7 93))))

(define (char-xor a b)
  (define (xor a b)
    (cond ((eq? a b) 0)
          ((zero? a) b)
          ((zero? b) a)
          (else (+ (if (eq? (even? a) (even? b)) 0 1)
                   (* (xor (quotient a 2) (quotient b 2)) 2)))))
  (integer->char (xor (char->integer a) (char->integer b))))

(define (extract span mod text)
  (let loop ((i 0) (ts '()))
    (cond ((= (string-length text) i)
            (list->string (reverse ts)))
          ((= (modulo i span) mod)
            (let ((t (string-ref text i)))
              (loop (+ i 1) (cons t ts))))
          (else (loop (+ i 1) ts)))))

(define (freq text)
  (if (string=? "" text) '()
    (let ((txt (sort char<? (string->list text))))
      (let loop ((txt (cdr txt)) (prev (car txt)) (cnt 1) (freqs '()))
        (cond ((null? txt)
                (sort (lambda (x y) (> (cdr x) (cdr y)))
                  (cons (cons prev cnt) freqs)))
              ((char=? (car txt) prev)
                (loop (cdr txt) prev (+ cnt 1) freqs))
              (else (loop (cdr txt) (car txt) 1
                          (cons (cons prev cnt) freqs))))))))

(define (try-pass n text)
   (let loop ((i 0) (pwd '()))
     (if (= i n)
         (list->string (reverse pwd))
         (loop (+ i 1) (cons (char-xor #\space
           (caar (freq (extract n i text)))) pwd)))))

(define (crypt password text)
  (define (cycle xs) (set-cdr! (last-pair xs) xs) xs)
  (let loop ((pwd (cycle (string->list password))) (txt (string->list text)) (out '()))
    (if (null? txt) (list->string (reverse out))
      (loop (cdr pwd) (cdr txt) (cons (char-xor (car pwd) (car txt)) out)))))

(display (try-pass 1 cipher-text)) (newline)
(display (try-pass 2 cipher-text)) (newline)
(display (try-pass 3 cipher-text)) (newline)
(display (try-pass 4 cipher-text)) (newline)
(display (try-pass 5 cipher-text)) (newline)
(display (try-pass 6 cipher-text)) (newline)
(display (try-pass 7 cipher-text)) (newline)

(display (crypt "Genesis" cipher-text))

Private [?]

Run code