Skip to content

Instantly share code, notes, and snippets.

@ndpar

ndpar/crypto.rkt

Created December 22, 2017 03:47
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ndpar/d65bdb1465a6f342448841a9987c837e to your computer and use it in GitHub Desktop.
Save ndpar/d65bdb1465a6f342448841a9987c837e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
crypto.rkt
#lang racket
(module+ test
(require rackunit))
(define ⊕ bitwise-xor)
(define hex
(curryr number->string 16))
(module+ test
(check-eqv? #x3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3D3636363636363636363636363636363636363636363636363636363636363636
(⊕ #x0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0000000000000000000000000000000000000000000000000000000000000000
#x36363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636363636)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment