Changeset 15240 in project


Ignore:
Timestamp:
07/18/09 13:41:32 (10 years ago)
Author:
Alaric Snell-Pym
Message:

C-Keen's patch

Location:
release/4/crypto-tools/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/crypto-tools/trunk/crypto-tools.scm

    r15239 r15240  
    1 (use lolevel)
    2 
    3 
    4 (declare (export
    5    blob->hexstring blob->hexstring/uppercase hexstring->blob
    6    blob-xor blob-pad blob-unpad
    7    make-cbc-encryptor make-cbc-decryptor
    8    make-cbc*-encryptor make-cbc*-decryptor))
     1(module crypto-tools
     2(blob->hexstring blob->hexstring/uppercase hexstring->blob
     3 blob-xor blob-pad blob-unpad
     4 make-cbc-encryptor make-cbc-decryptor
     5 make-cbc*-encryptor make-cbc*-decryptor)
     6
     7(import scheme)
     8(import chicken)
     9(use extras lolevel)
    910
    1011(define *the-null-blob* (make-blob 0))
     
    255256                      (output (make-blob inputsize))
    256257                      (iv (decryptor (subblob input 0 blocksize))))
    257                   (decrypt input blocksize inputsize iv output 0)))))
     258                  (decrypt input blocksize inputsize iv output 0))))) )
  • release/4/crypto-tools/trunk/crypto-tools.setup

    r15239 r15240  
    1 (compile -s -O2 -d1 crypto-tools.scm)
    2 (compile -c -O2 -d1 crypto-tools.scm -unit crypto-tools)
     1(compile -s -O2 -d1 crypto-tools.scm -j crypto-tools)
     2(compile -s -O2 -d1 crypto-tools.import.scm)
     3;(compile -c -O2 -d1 crypto-tools.scm -unit crypto-tools)
    34;
    45(install-extension
Note: See TracChangeset for help on using the changeset viewer.