Pastable version of CipherSaber

<div style="overflow:auto;border:solid 1px #ccc;background:#000;color:#F8F8F8">
 <div class="section">
 Main program
 <pre style="float:left;margin:0 10px;border-right:0;color:#666;">1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75</pre>
 <pre class="sunburst">#!/usr/bin/guile \
-e main -s
!#
(use-modules
 (srfi srfi-1)
 (srfi srfi-4)
 (ice-9 getopt-long))

(define (u8+ . args)
 (logand (apply + args) 255))

(define (make-sbox key rounds)
 (let 
 ((sbox (apply u8vector (iota 256)))
 (s2 (apply vector (take (apply circular-list
 (map char-&gt;integer (string-&gt;list key))) 256)))
 (j 0))
 (do
 ((k rounds (- k 1)))
 ((&lt; k 1))
 (for-each
 (lambda (i)
 (let
 ((temp (u8vector-ref sbox i)))
 (set! j (u8+ j temp (vector-ref s2 i)))
 (u8vector-set! sbox i (u8vector-ref sbox j))
 (u8vector-set! sbox j temp)))
 (iota 256)))
 (vector-fill! s2 0)
 sbox))

(define (crypt-loop sbox)
 (let loop
 ((i 1)
 (j 0))
 (let
 ((ch (read-char)))
 (if (not (eof-object? ch))
 (let*
 ((temp (u8vector-ref sbox i))
 (newj (u8+ j temp)))
 (u8vector-set! sbox i (u8vector-ref sbox newj))
 (u8vector-set! sbox newj temp)
 (let
 ((val (u8vector-ref sbox (u8+ (u8vector-ref sbox i) temp))))
 (write-char (integer-&gt;char (logxor (char-&gt;integer ch) val)))
 (loop (u8+ i 1) newj)))))))

(define (do-crypt key iv rounds)
 (crypt-loop (make-sbox (string-append key iv) rounds)))

(define (encrypt key rounds)
 (let
 ((iv (call-with-input-file &quot;/dev/urandom&quot;
 (lambda (port)
 (setvbuf port _IOFBF 10)
 (string-tabulate (lambda (i) (read-char port)) 10)))))
 (display iv)
 (do-crypt key iv rounds)))

(define (decrypt key rounds)
 (let
 ((iv (string-tabulate (lambda (i) (read-char)) 10)))
 (do-crypt key iv rounds)))

(define (main args)
 (let*
 ((options (getopt-long args
 `((key (single-char #\k) (required? #t) (value #t))
 (rounds (single-char #\n) (value #t) (predicate ,string-&gt;number))
 (decrypt (single-char #\d)))))
 (key (option-ref options 'key #f))
 (rounds (string-&gt;number (option-ref options 'rounds &quot;20&quot;)))
 (decrypt? (option-ref options 'decrypt #f)))
 ((if decrypt? decrypt encrypt) key rounds)))
</pre>
 </div>
 </div>

Refactor :my => 'code'

Recent

Popular

Pastable version of CipherSaber