Changeset 13195 in project for release/3/aes/trunk/test/run.scm


Ignore:
Timestamp:
02/07/09 02:28:56 (11 years ago)
Author:
Alaric Snell-Pym
Message:

V1.1 (crypto tools split out)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/aes/trunk/test/run.scm

    r13161 r13195  
    11(use aes)
    2 
    3 (define hexstring1 (blob->hexstring (hexstring->blob "0123456789ABCDEF")))
    4 (printf "Hex1: ~A\n" hexstring1)
    5 (assert (string=? hexstring1 "0123456789abcdef"))
    6 
    7 (define hexstring2 (blob->hexstring/uppercase (hexstring->blob "0123456789ABCDEF")))
    8 (printf "Hex2: ~A\n" hexstring2)
    9 (assert (string=? hexstring2 "0123456789ABCDEF"))
    10 
     2(use crypto-tools)
    113
    124(let*
     
    6153   (assert (string=? encrypted-string "080E9517EB1677719ACF728086040AE3"))
    6254   (assert (string=? decrypted-string "069A007FC76A459F98BAF917FEDF9521")))
    63 
Note: See TracChangeset for help on using the changeset viewer.