开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 加密解密 > 查看源码
des.c
资源名称：des.zip　[点击查看]
上传用户：zhh515
上传日期：2007-01-06
资源大小：966k
文件大小：32k
源码类别：

加密解密

开发平台：

C/C++

des.c：源码内容
  2. //  IBM PC Implementation of the DES Cryptographic Algorithm by
  3. //  Dr B. R. Gladman (gladman@seven77.demon.co.uk)
  4. //
  5. //  Some of the techniques in this DES source code are derived 
  6. //  from ideas developed by Richard Outerbridge and Eric Young.  
  7. //  I gratefully acknowledge their contribution.
  8. //
  9. //  DES Timings:
  10. //  Key Setup:    1024 cycles
  11. //  Encrypt:     456.4 cycles =   28.05 mbits/sec
  12. //  Decrypt:     453.1 cycles =   28.25 mbits/sec
  13. //  Mean:        454.8 cycles =   28.15 mbits/sec
  15. #define BIG_TABLES
  17. #include "des.h"
  19. #ifdef  BIG_TABLES
  20. #  define   TAB_SIZE    256
  21. #else
  22. #  define   TAB_SIZE     64
  23. #endif
  25. unsigned long sx_tab[8][TAB_SIZE] =
  26. {
  27.   { 0x00820200L, 0x00020000L, 0x80800000L, 0x80820200L,
  28.     0x00800000L, 0x80020200L, 0x80020000L, 0x80800000L,
  29.     0x80020200L, 0x00820200L, 0x00820000L, 0x80000200L,
  30.     0x80800200L, 0x00800000L, 0x00000000L, 0x80020000L,
  31.     0x00020000L, 0x80000000L, 0x00800200L, 0x00020200L,
  32.     0x80820200L, 0x00820000L, 0x80000200L, 0x00800200L,
  33.     0x80000000L, 0x00000200L, 0x00020200L, 0x80820000L,
  34.     0x00000200L, 0x80800200L, 0x80820000L, 0x00000000L,
  35.     0x00000000L, 0x80820200L, 0x00800200L, 0x80020000L,
  36.     0x00820200L, 0x00020000L, 0x80000200L, 0x00800200L,
  37.     0x80820000L, 0x00000200L, 0x00020200L, 0x80800000L,
  38.     0x80020200L, 0x80000000L, 0x80800000L, 0x00820000L,
  39.     0x80820200L, 0x00020200L, 0x00820000L, 0x80800200L,
  40.     0x00800000L, 0x80000200L, 0x80020000L, 0x00000000L,
  41.     0x00020000L, 0x00800000L, 0x80800200L, 0x00820200L,
  42.     0x80000000L, 0x80820000L, 0x00000200L, 0x80020200L,
  43. #ifdef BIG_TABLES
  44.     0x00820200L, 0x00020000L, 0x80800000L, 0x80820200L,
  45.     0x00800000L, 0x80020200L, 0x80020000L, 0x80800000L,
  46.     0x80020200L, 0x00820200L, 0x00820000L, 0x80000200L,
  47.     0x80800200L, 0x00800000L, 0x00000000L, 0x80020000L,
  48.     0x00020000L, 0x80000000L, 0x00800200L, 0x00020200L,
  49.     0x80820200L, 0x00820000L, 0x80000200L, 0x00800200L,
  50.     0x80000000L, 0x00000200L, 0x00020200L, 0x80820000L,
  51.     0x00000200L, 0x80800200L, 0x80820000L, 0x00000000L,
  52.     0x00000000L, 0x80820200L, 0x00800200L, 0x80020000L,
  53.     0x00820200L, 0x00020000L, 0x80000200L, 0x00800200L,
  54.     0x80820000L, 0x00000200L, 0x00020200L, 0x80800000L,
  55.     0x80020200L, 0x80000000L, 0x80800000L, 0x00820000L,
  56.     0x80820200L, 0x00020200L, 0x00820000L, 0x80800200L,
  57.     0x00800000L, 0x80000200L, 0x80020000L, 0x00000000L,
  58.     0x00020000L, 0x00800000L, 0x80800200L, 0x00820200L,
  59.     0x80000000L, 0x80820000L, 0x00000200L, 0x80020200L,
  61.     0x00820200L, 0x00020000L, 0x80800000L, 0x80820200L,
  62.     0x00800000L, 0x80020200L, 0x80020000L, 0x80800000L,
  63.     0x80020200L, 0x00820200L, 0x00820000L, 0x80000200L,
  64.     0x80800200L, 0x00800000L, 0x00000000L, 0x80020000L,
  65.     0x00020000L, 0x80000000L, 0x00800200L, 0x00020200L,
  66.     0x80820200L, 0x00820000L, 0x80000200L, 0x00800200L,
  67.     0x80000000L, 0x00000200L, 0x00020200L, 0x80820000L,
  68.     0x00000200L, 0x80800200L, 0x80820000L, 0x00000000L,
  69.     0x00000000L, 0x80820200L, 0x00800200L, 0x80020000L,
  70.     0x00820200L, 0x00020000L, 0x80000200L, 0x00800200L,
  71.     0x80820000L, 0x00000200L, 0x00020200L, 0x80800000L,
  72.     0x80020200L, 0x80000000L, 0x80800000L, 0x00820000L,
  73.     0x80820200L, 0x00020200L, 0x00820000L, 0x80800200L,
  74.     0x00800000L, 0x80000200L, 0x80020000L, 0x00000000L,
  75.     0x00020000L, 0x00800000L, 0x80800200L, 0x00820200L,
  76.     0x80000000L, 0x80820000L, 0x00000200L, 0x80020200L,
  78.     0x00820200L, 0x00020000L, 0x80800000L, 0x80820200L,
  79.     0x00800000L, 0x80020200L, 0x80020000L, 0x80800000L,
  80.     0x80020200L, 0x00820200L, 0x00820000L, 0x80000200L,
  81.     0x80800200L, 0x00800000L, 0x00000000L, 0x80020000L,
  82.     0x00020000L, 0x80000000L, 0x00800200L, 0x00020200L,
  83.     0x80820200L, 0x00820000L, 0x80000200L, 0x00800200L,
  84.     0x80000000L, 0x00000200L, 0x00020200L, 0x80820000L,
  85.     0x00000200L, 0x80800200L, 0x80820000L, 0x00000000L,
  86.     0x00000000L, 0x80820200L, 0x00800200L, 0x80020000L,
  87.     0x00820200L, 0x00020000L, 0x80000200L, 0x00800200L,
  88.     0x80820000L, 0x00000200L, 0x00020200L, 0x80800000L,
  89.     0x80020200L, 0x80000000L, 0x80800000L, 0x00820000L,
  90.     0x80820200L, 0x00020200L, 0x00820000L, 0x80800200L,
  91.     0x00800000L, 0x80000200L, 0x80020000L, 0x00000000L,
  92.     0x00020000L, 0x00800000L, 0x80800200L, 0x00820200L,
  93.     0x80000000L, 0x80820000L, 0x00000200L, 0x80020200L,
  94. #endif
  95.   },
  96.   { 0x10042004L, 0x00000000L, 0x00042000L, 0x10040000L,
  97.     0x10000004L, 0x00002004L, 0x10002000L, 0x00042000L,
  98.     0x00002000L, 0x10040004L, 0x00000004L, 0x10002000L,
  99.     0x00040004L, 0x10042000L, 0x10040000L, 0x00000004L,
  100.     0x00040000L, 0x10002004L, 0x10040004L, 0x00002000L,
  101.     0x00042004L, 0x10000000L, 0x00000000L, 0x00040004L,
  102.     0x10002004L, 0x00042004L, 0x10042000L, 0x10000004L,
  103.     0x10000000L, 0x00040000L, 0x00002004L, 0x10042004L,
  104.     0x00040004L, 0x10042000L, 0x10002000L, 0x00042004L,
  105.     0x10042004L, 0x00040004L, 0x10000004L, 0x00000000L,
  106.     0x10000000L, 0x00002004L, 0x00040000L, 0x10040004L,
  107.     0x00002000L, 0x10000000L, 0x00042004L, 0x10002004L,
  108.     0x10042000L, 0x00002000L, 0x00000000L, 0x10000004L,
  109.     0x00000004L, 0x10042004L, 0x00042000L, 0x10040000L,
  110.     0x10040004L, 0x00040000L, 0x00002004L, 0x10002000L,
  111.     0x10002004L, 0x00000004L, 0x10040000L, 0x00042000L,
  112. #ifdef BIG_TABLES
  113.     0x10042004L, 0x00000000L, 0x00042000L, 0x10040000L,
  114.     0x10000004L, 0x00002004L, 0x10002000L, 0x00042000L,
  115.     0x00002000L, 0x10040004L, 0x00000004L, 0x10002000L,
  116.     0x00040004L, 0x10042000L, 0x10040000L, 0x00000004L,
  117.     0x00040000L, 0x10002004L, 0x10040004L, 0x00002000L,
  118.     0x00042004L, 0x10000000L, 0x00000000L, 0x00040004L,
  119.     0x10002004L, 0x00042004L, 0x10042000L, 0x10000004L,
  120.     0x10000000L, 0x00040000L, 0x00002004L, 0x10042004L,
  121.     0x00040004L, 0x10042000L, 0x10002000L, 0x00042004L,
  122.     0x10042004L, 0x00040004L, 0x10000004L, 0x00000000L,
  123.     0x10000000L, 0x00002004L, 0x00040000L, 0x10040004L,
  124.     0x00002000L, 0x10000000L, 0x00042004L, 0x10002004L,
  125.     0x10042000L, 0x00002000L, 0x00000000L, 0x10000004L,
  126.     0x00000004L, 0x10042004L, 0x00042000L, 0x10040000L,
  127.     0x10040004L, 0x00040000L, 0x00002004L, 0x10002000L,
  128.     0x10002004L, 0x00000004L, 0x10040000L, 0x00042000L,
  130.     0x10042004L, 0x00000000L, 0x00042000L, 0x10040000L,
  131.     0x10000004L, 0x00002004L, 0x10002000L, 0x00042000L,
  132.     0x00002000L, 0x10040004L, 0x00000004L, 0x10002000L,
  133.     0x00040004L, 0x10042000L, 0x10040000L, 0x00000004L,
  134.     0x00040000L, 0x10002004L, 0x10040004L, 0x00002000L,
  135.     0x00042004L, 0x10000000L, 0x00000000L, 0x00040004L,
  136.     0x10002004L, 0x00042004L, 0x10042000L, 0x10000004L,
  137.     0x10000000L, 0x00040000L, 0x00002004L, 0x10042004L,
  138.     0x00040004L, 0x10042000L, 0x10002000L, 0x00042004L,
  139.     0x10042004L, 0x00040004L, 0x10000004L, 0x00000000L,
  140.     0x10000000L, 0x00002004L, 0x00040000L, 0x10040004L,
  141.     0x00002000L, 0x10000000L, 0x00042004L, 0x10002004L,
  142.     0x10042000L, 0x00002000L, 0x00000000L, 0x10000004L,
  143.     0x00000004L, 0x10042004L, 0x00042000L, 0x10040000L,
  144.     0x10040004L, 0x00040000L, 0x00002004L, 0x10002000L,
  145.     0x10002004L, 0x00000004L, 0x10040000L, 0x00042000L,
  147.     0x10042004L, 0x00000000L, 0x00042000L, 0x10040000L,
  148.     0x10000004L, 0x00002004L, 0x10002000L, 0x00042000L,
  149.     0x00002000L, 0x10040004L, 0x00000004L, 0x10002000L,
  150.     0x00040004L, 0x10042000L, 0x10040000L, 0x00000004L,
  151.     0x00040000L, 0x10002004L, 0x10040004L, 0x00002000L,
  152.     0x00042004L, 0x10000000L, 0x00000000L, 0x00040004L,
  153.     0x10002004L, 0x00042004L, 0x10042000L, 0x10000004L,
  154.     0x10000000L, 0x00040000L, 0x00002004L, 0x10042004L,
  155.     0x00040004L, 0x10042000L, 0x10002000L, 0x00042004L,
  156.     0x10042004L, 0x00040004L, 0x10000004L, 0x00000000L,
  157.     0x10000000L, 0x00002004L, 0x00040000L, 0x10040004L,
  158.     0x00002000L, 0x10000000L, 0x00042004L, 0x10002004L,
  159.     0x10042000L, 0x00002000L, 0x00000000L, 0x10000004L,
  160.     0x00000004L, 0x10042004L, 0x00042000L, 0x10040000L,
  161.     0x10040004L, 0x00040000L, 0x00002004L, 0x10002000L,
  162.     0x10002004L, 0x00000004L, 0x10040000L, 0x00042000L,
  163. #endif
  164.   },
  165.   { 0x41000000L, 0x01010040L, 0x00000040L, 0x41000040L,
  166.     0x40010000L, 0x01000000L, 0x41000040L, 0x00010040L,
  167.     0x01000040L, 0x00010000L, 0x01010000L, 0x40000000L,
  168.     0x41010040L, 0x40000040L, 0x40000000L, 0x41010000L,
  169.     0x00000000L, 0x40010000L, 0x01010040L, 0x00000040L,
  170.     0x40000040L, 0x41010040L, 0x00010000L, 0x41000000L,
  171.     0x41010000L, 0x01000040L, 0x40010040L, 0x01010000L,
  172.     0x00010040L, 0x00000000L, 0x01000000L, 0x40010040L,
  173.     0x01010040L, 0x00000040L, 0x40000000L, 0x00010000L,
  174.     0x40000040L, 0x40010000L, 0x01010000L, 0x41000040L,
  175.     0x00000000L, 0x01010040L, 0x00010040L, 0x41010000L,
  176.     0x40010000L, 0x01000000L, 0x41010040L, 0x40000000L,
  177.     0x40010040L, 0x41000000L, 0x01000000L, 0x41010040L,
  178.     0x00010000L, 0x01000040L, 0x41000040L, 0x00010040L,
  179.     0x01000040L, 0x00000000L, 0x41010000L, 0x40000040L,
  180.     0x41000000L, 0x40010040L, 0x00000040L, 0x01010000L,
  181. #ifdef BIG_TABLES
  182.     0x41000000L, 0x01010040L, 0x00000040L, 0x41000040L,
  183.     0x40010000L, 0x01000000L, 0x41000040L, 0x00010040L,
  184.     0x01000040L, 0x00010000L, 0x01010000L, 0x40000000L,
  185.     0x41010040L, 0x40000040L, 0x40000000L, 0x41010000L,
  186.     0x00000000L, 0x40010000L, 0x01010040L, 0x00000040L,
  187.     0x40000040L, 0x41010040L, 0x00010000L, 0x41000000L,
  188.     0x41010000L, 0x01000040L, 0x40010040L, 0x01010000L,
  189.     0x00010040L, 0x00000000L, 0x01000000L, 0x40010040L,
  190.     0x01010040L, 0x00000040L, 0x40000000L, 0x00010000L,
  191.     0x40000040L, 0x40010000L, 0x01010000L, 0x41000040L,
  192.     0x00000000L, 0x01010040L, 0x00010040L, 0x41010000L,
  193.     0x40010000L, 0x01000000L, 0x41010040L, 0x40000000L,
  194.     0x40010040L, 0x41000000L, 0x01000000L, 0x41010040L,
  195.     0x00010000L, 0x01000040L, 0x41000040L, 0x00010040L,
  196.     0x01000040L, 0x00000000L, 0x41010000L, 0x40000040L,
  197.     0x41000000L, 0x40010040L, 0x00000040L, 0x01010000L,
  199.     0x41000000L, 0x01010040L, 0x00000040L, 0x41000040L,
  200.     0x40010000L, 0x01000000L, 0x41000040L, 0x00010040L,
  201.     0x01000040L, 0x00010000L, 0x01010000L, 0x40000000L,
  202.     0x41010040L, 0x40000040L, 0x40000000L, 0x41010000L,
  203.     0x00000000L, 0x40010000L, 0x01010040L, 0x00000040L,
  204.     0x40000040L, 0x41010040L, 0x00010000L, 0x41000000L,
  205.     0x41010000L, 0x01000040L, 0x40010040L, 0x01010000L,
  206.     0x00010040L, 0x00000000L, 0x01000000L, 0x40010040L,
  207.     0x01010040L, 0x00000040L, 0x40000000L, 0x00010000L,
  208.     0x40000040L, 0x40010000L, 0x01010000L, 0x41000040L,
  209.     0x00000000L, 0x01010040L, 0x00010040L, 0x41010000L,
  210.     0x40010000L, 0x01000000L, 0x41010040L, 0x40000000L,
  211.     0x40010040L, 0x41000000L, 0x01000000L, 0x41010040L,
  212.     0x00010000L, 0x01000040L, 0x41000040L, 0x00010040L,
  213.     0x01000040L, 0x00000000L, 0x41010000L, 0x40000040L,
  214.     0x41000000L, 0x40010040L, 0x00000040L, 0x01010000L,
  216.     0x41000000L, 0x01010040L, 0x00000040L, 0x41000040L,
  217.     0x40010000L, 0x01000000L, 0x41000040L, 0x00010040L,
  218.     0x01000040L, 0x00010000L, 0x01010000L, 0x40000000L,
  219.     0x41010040L, 0x40000040L, 0x40000000L, 0x41010000L,
  220.     0x00000000L, 0x40010000L, 0x01010040L, 0x00000040L,
  221.     0x40000040L, 0x41010040L, 0x00010000L, 0x41000000L,
  222.     0x41010000L, 0x01000040L, 0x40010040L, 0x01010000L,
  223.     0x00010040L, 0x00000000L, 0x01000000L, 0x40010040L,
  224.     0x01010040L, 0x00000040L, 0x40000000L, 0x00010000L,
  225.     0x40000040L, 0x40010000L, 0x01010000L, 0x41000040L,
  226.     0x00000000L, 0x01010040L, 0x00010040L, 0x41010000L,
  227.     0x40010000L, 0x01000000L, 0x41010040L, 0x40000000L,
  228.     0x40010040L, 0x41000000L, 0x01000000L, 0x41010040L,
  229.     0x00010000L, 0x01000040L, 0x41000040L, 0x00010040L,
  230.     0x01000040L, 0x00000000L, 0x41010000L, 0x40000040L,
  231.     0x41000000L, 0x40010040L, 0x00000040L, 0x01010000L,
  232. #endif
  233.   },
  234.   { 0x00100402L, 0x04000400L, 0x00000002L, 0x04100402L,
  235.     0x00000000L, 0x04100000L, 0x04000402L, 0x00100002L,
  236.     0x04100400L, 0x04000002L, 0x04000000L, 0x00000402L,
  237.     0x04000002L, 0x00100402L, 0x00100000L, 0x04000000L,
  238.     0x04100002L, 0x00100400L, 0x00000400L, 0x00000002L,
  239.     0x00100400L, 0x04000402L, 0x04100000L, 0x00000400L,
  240.     0x00000402L, 0x00000000L, 0x00100002L, 0x04100400L,
  241.     0x04000400L, 0x04100002L, 0x04100402L, 0x00100000L,
  242.     0x04100002L, 0x00000402L, 0x00100000L, 0x04000002L,
  243.     0x00100400L, 0x04000400L, 0x00000002L, 0x04100000L,
  244.     0x04000402L, 0x00000000L, 0x00000400L, 0x00100002L,
  245.     0x00000000L, 0x04100002L, 0x04100400L, 0x00000400L,
  246.     0x04000000L, 0x04100402L, 0x00100402L, 0x00100000L,
  247.     0x04100402L, 0x00000002L, 0x04000400L, 0x00100402L,
  248.     0x00100002L, 0x00100400L, 0x04100000L, 0x04000402L,
  249.     0x00000402L, 0x04000000L, 0x04000002L, 0x04100400L,
  250. #ifdef BIG_TABLES
  251.     0x00100402L, 0x04000400L, 0x00000002L, 0x04100402L,
  252.     0x00000000L, 0x04100000L, 0x04000402L, 0x00100002L,
  253.     0x04100400L, 0x04000002L, 0x04000000L, 0x00000402L,
  254.     0x04000002L, 0x00100402L, 0x00100000L, 0x04000000L,
  255.     0x04100002L, 0x00100400L, 0x00000400L, 0x00000002L,
  256.     0x00100400L, 0x04000402L, 0x04100000L, 0x00000400L,
  257.     0x00000402L, 0x00000000L, 0x00100002L, 0x04100400L,
  258.     0x04000400L, 0x04100002L, 0x04100402L, 0x00100000L,
  259.     0x04100002L, 0x00000402L, 0x00100000L, 0x04000002L,
  260.     0x00100400L, 0x04000400L, 0x00000002L, 0x04100000L,
  261.     0x04000402L, 0x00000000L, 0x00000400L, 0x00100002L,
  262.     0x00000000L, 0x04100002L, 0x04100400L, 0x00000400L,
  263.     0x04000000L, 0x04100402L, 0x00100402L, 0x00100000L,
  264.     0x04100402L, 0x00000002L, 0x04000400L, 0x00100402L,
  265.     0x00100002L, 0x00100400L, 0x04100000L, 0x04000402L,
  266.     0x00000402L, 0x04000000L, 0x04000002L, 0x04100400L,
  268.     0x00100402L, 0x04000400L, 0x00000002L, 0x04100402L,
  269.     0x00000000L, 0x04100000L, 0x04000402L, 0x00100002L,
  270.     0x04100400L, 0x04000002L, 0x04000000L, 0x00000402L,
  271.     0x04000002L, 0x00100402L, 0x00100000L, 0x04000000L,
  272.     0x04100002L, 0x00100400L, 0x00000400L, 0x00000002L,
  273.     0x00100400L, 0x04000402L, 0x04100000L, 0x00000400L,
  274.     0x00000402L, 0x00000000L, 0x00100002L, 0x04100400L,
  275.     0x04000400L, 0x04100002L, 0x04100402L, 0x00100000L,
  276.     0x04100002L, 0x00000402L, 0x00100000L, 0x04000002L,
  277.     0x00100400L, 0x04000400L, 0x00000002L, 0x04100000L,
  278.     0x04000402L, 0x00000000L, 0x00000400L, 0x00100002L,
  279.     0x00000000L, 0x04100002L, 0x04100400L, 0x00000400L,
  280.     0x04000000L, 0x04100402L, 0x00100402L, 0x00100000L,
  281.     0x04100402L, 0x00000002L, 0x04000400L, 0x00100402L,
  282.     0x00100002L, 0x00100400L, 0x04100000L, 0x04000402L,
  283.     0x00000402L, 0x04000000L, 0x04000002L, 0x04100400L,
  285.     0x00100402L, 0x04000400L, 0x00000002L, 0x04100402L,
  286.     0x00000000L, 0x04100000L, 0x04000402L, 0x00100002L,
  287.     0x04100400L, 0x04000002L, 0x04000000L, 0x00000402L,
  288.     0x04000002L, 0x00100402L, 0x00100000L, 0x04000000L,
  289.     0x04100002L, 0x00100400L, 0x00000400L, 0x00000002L,
  290.     0x00100400L, 0x04000402L, 0x04100000L, 0x00000400L,
  291.     0x00000402L, 0x00000000L, 0x00100002L, 0x04100400L,
  292.     0x04000400L, 0x04100002L, 0x04100402L, 0x00100000L,
  293.     0x04100002L, 0x00000402L, 0x00100000L, 0x04000002L,
  294.     0x00100400L, 0x04000400L, 0x00000002L, 0x04100000L,
  295.     0x04000402L, 0x00000000L, 0x00000400L, 0x00100002L,
  296.     0x00000000L, 0x04100002L, 0x04100400L, 0x00000400L,
  297.     0x04000000L, 0x04100402L, 0x00100402L, 0x00100000L,
  298.     0x04100402L, 0x00000002L, 0x04000400L, 0x00100402L,
  299.     0x00100002L, 0x00100400L, 0x04100000L, 0x04000402L,
  300.     0x00000402L, 0x04000000L, 0x04000002L, 0x04100400L,
  301. #endif
  302.   },
  303.   { 0x02000000L, 0x00004000L, 0x00000100L, 0x02004108L,
  304.     0x02004008L, 0x02000100L, 0x00004108L, 0x02004000L,
  305.     0x00004000L, 0x00000008L, 0x02000008L, 0x00004100L,
  306.     0x02000108L, 0x02004008L, 0x02004100L, 0x00000000L,
  307.     0x00004100L, 0x02000000L, 0x00004008L, 0x00000108L,
  308.     0x02000100L, 0x00004108L, 0x00000000L, 0x02000008L,
  309.     0x00000008L, 0x02000108L, 0x02004108L, 0x00004008L,
  310.     0x02004000L, 0x00000100L, 0x00000108L, 0x02004100L,
  311.     0x02004100L, 0x02000108L, 0x00004008L, 0x02004000L,
  312.     0x00004000L, 0x00000008L, 0x02000008L, 0x02000100L,
  313.     0x02000000L, 0x00004100L, 0x02004108L, 0x00000000L,
  314.     0x00004108L, 0x02000000L, 0x00000100L, 0x00004008L,
  315.     0x02000108L, 0x00000100L, 0x00000000L, 0x02004108L,
  316.     0x02004008L, 0x02004100L, 0x00000108L, 0x00004000L,
  317.     0x00004100L, 0x02004008L, 0x02000100L, 0x00000108L,
  318.     0x00000008L, 0x00004108L, 0x02004000L, 0x02000008L,
  319. #ifdef BIG_TABLES
  320.     0x02000000L, 0x00004000L, 0x00000100L, 0x02004108L,
  321.     0x02004008L, 0x02000100L, 0x00004108L, 0x02004000L,
  322.     0x00004000L, 0x00000008L, 0x02000008L, 0x00004100L,
  323.     0x02000108L, 0x02004008L, 0x02004100L, 0x00000000L,
  324.     0x00004100L, 0x02000000L, 0x00004008L, 0x00000108L,
  325.     0x02000100L, 0x00004108L, 0x00000000L, 0x02000008L,
  326.     0x00000008L, 0x02000108L, 0x02004108L, 0x00004008L,
  327.     0x02004000L, 0x00000100L, 0x00000108L, 0x02004100L,
  328.     0x02004100L, 0x02000108L, 0x00004008L, 0x02004000L,
  329.     0x00004000L, 0x00000008L, 0x02000008L, 0x02000100L,
  330.     0x02000000L, 0x00004100L, 0x02004108L, 0x00000000L,
  331.     0x00004108L, 0x02000000L, 0x00000100L, 0x00004008L,
  332.     0x02000108L, 0x00000100L, 0x00000000L, 0x02004108L,
  333.     0x02004008L, 0x02004100L, 0x00000108L, 0x00004000L,
  334.     0x00004100L, 0x02004008L, 0x02000100L, 0x00000108L,
  335.     0x00000008L, 0x00004108L, 0x02004000L, 0x02000008L,
  337.     0x02000000L, 0x00004000L, 0x00000100L, 0x02004108L,
  338.     0x02004008L, 0x02000100L, 0x00004108L, 0x02004000L,
  339.     0x00004000L, 0x00000008L, 0x02000008L, 0x00004100L,
  340.     0x02000108L, 0x02004008L, 0x02004100L, 0x00000000L,
  341.     0x00004100L, 0x02000000L, 0x00004008L, 0x00000108L,
  342.     0x02000100L, 0x00004108L, 0x00000000L, 0x02000008L,
  343.     0x00000008L, 0x02000108L, 0x02004108L, 0x00004008L,
  344.     0x02004000L, 0x00000100L, 0x00000108L, 0x02004100L,
  345.     0x02004100L, 0x02000108L, 0x00004008L, 0x02004000L,
  346.     0x00004000L, 0x00000008L, 0x02000008L, 0x02000100L,
  347.     0x02000000L, 0x00004100L, 0x02004108L, 0x00000000L,
  348.     0x00004108L, 0x02000000L, 0x00000100L, 0x00004008L,
  349.     0x02000108L, 0x00000100L, 0x00000000L, 0x02004108L,
  350.     0x02004008L, 0x02004100L, 0x00000108L, 0x00004000L,
  351.     0x00004100L, 0x02004008L, 0x02000100L, 0x00000108L,
  352.     0x00000008L, 0x00004108L, 0x02004000L, 0x02000008L,
  354.     0x02000000L, 0x00004000L, 0x00000100L, 0x02004108L,
  355.     0x02004008L, 0x02000100L, 0x00004108L, 0x02004000L,
  356.     0x00004000L, 0x00000008L, 0x02000008L, 0x00004100L,
  357.     0x02000108L, 0x02004008L, 0x02004100L, 0x00000000L,
  358.     0x00004100L, 0x02000000L, 0x00004008L, 0x00000108L,
  359.     0x02000100L, 0x00004108L, 0x00000000L, 0x02000008L,
  360.     0x00000008L, 0x02000108L, 0x02004108L, 0x00004008L,
  361.     0x02004000L, 0x00000100L, 0x00000108L, 0x02004100L,
  362.     0x02004100L, 0x02000108L, 0x00004008L, 0x02004000L,
  363.     0x00004000L, 0x00000008L, 0x02000008L, 0x02000100L,
  364.     0x02000000L, 0x00004100L, 0x02004108L, 0x00000000L,
  365.     0x00004108L, 0x02000000L, 0x00000100L, 0x00004008L,
  366.     0x02000108L, 0x00000100L, 0x00000000L, 0x02004108L,
  367.     0x02004008L, 0x02004100L, 0x00000108L, 0x00004000L,
  368.     0x00004100L, 0x02004008L, 0x02000100L, 0x00000108L,
  369.     0x00000008L, 0x00004108L, 0x02004000L, 0x02000008L,
  370. #endif
  371.   },
  372.   { 0x20000010L, 0x00080010L, 0x00000000L, 0x20080800L,
  373.     0x00080010L, 0x00000800L, 0x20000810L, 0x00080000L,
  374.     0x00000810L, 0x20080810L, 0x00080800L, 0x20000000L,
  375.     0x20000800L, 0x20000010L, 0x20080000L, 0x00080810L,
  376.     0x00080000L, 0x20000810L, 0x20080010L, 0x00000000L,
  377.     0x00000800L, 0x00000010L, 0x20080800L, 0x20080010L,
  378.     0x20080810L, 0x20080000L, 0x20000000L, 0x00000810L,
  379.     0x00000010L, 0x00080800L, 0x00080810L, 0x20000800L,
  380.     0x00000810L, 0x20000000L, 0x20000800L, 0x00080810L,
  381.     0x20080800L, 0x00080010L, 0x00000000L, 0x20000800L,
  382.     0x20000000L, 0x00000800L, 0x20080010L, 0x00080000L,
  383.     0x00080010L, 0x20080810L, 0x00080800L, 0x00000010L,
  384.     0x20080810L, 0x00080800L, 0x00080000L, 0x20000810L,
  385.     0x20000010L, 0x20080000L, 0x00080810L, 0x00000000L,
  386.     0x00000800L, 0x20000010L, 0x20000810L, 0x20080800L,
  387.     0x20080000L, 0x00000810L, 0x00000010L, 0x20080010L,
  388. #ifdef BIG_TABLES
  389.     0x20000010L, 0x00080010L, 0x00000000L, 0x20080800L,
  390.     0x00080010L, 0x00000800L, 0x20000810L, 0x00080000L,
  391.     0x00000810L, 0x20080810L, 0x00080800L, 0x20000000L,
  392.     0x20000800L, 0x20000010L, 0x20080000L, 0x00080810L,
  393.     0x00080000L, 0x20000810L, 0x20080010L, 0x00000000L,
  394.     0x00000800L, 0x00000010L, 0x20080800L, 0x20080010L,
  395.     0x20080810L, 0x20080000L, 0x20000000L, 0x00000810L,
  396.     0x00000010L, 0x00080800L, 0x00080810L, 0x20000800L,
  397.     0x00000810L, 0x20000000L, 0x20000800L, 0x00080810L,
  398.     0x20080800L, 0x00080010L, 0x00000000L, 0x20000800L,
  399.     0x20000000L, 0x00000800L, 0x20080010L, 0x00080000L,
  400.     0x00080010L, 0x20080810L, 0x00080800L, 0x00000010L,
  401.     0x20080810L, 0x00080800L, 0x00080000L, 0x20000810L,
  402.     0x20000010L, 0x20080000L, 0x00080810L, 0x00000000L,
  403.     0x00000800L, 0x20000010L, 0x20000810L, 0x20080800L,
  404.     0x20080000L, 0x00000810L, 0x00000010L, 0x20080010L,
  406.     0x20000010L, 0x00080010L, 0x00000000L, 0x20080800L,
  407.     0x00080010L, 0x00000800L, 0x20000810L, 0x00080000L,
  408.     0x00000810L, 0x20080810L, 0x00080800L, 0x20000000L,
  409.     0x20000800L, 0x20000010L, 0x20080000L, 0x00080810L,
  410.     0x00080000L, 0x20000810L, 0x20080010L, 0x00000000L,
  411.     0x00000800L, 0x00000010L, 0x20080800L, 0x20080010L,
  412.     0x20080810L, 0x20080000L, 0x20000000L, 0x00000810L,
  413.     0x00000010L, 0x00080800L, 0x00080810L, 0x20000800L,
  414.     0x00000810L, 0x20000000L, 0x20000800L, 0x00080810L,
  415.     0x20080800L, 0x00080010L, 0x00000000L, 0x20000800L,
  416.     0x20000000L, 0x00000800L, 0x20080010L, 0x00080000L,
  417.     0x00080010L, 0x20080810L, 0x00080800L, 0x00000010L,
  418.     0x20080810L, 0x00080800L, 0x00080000L, 0x20000810L,
  419.     0x20000010L, 0x20080000L, 0x00080810L, 0x00000000L,
  420.     0x00000800L, 0x20000010L, 0x20000810L, 0x20080800L,
  421.     0x20080000L, 0x00000810L, 0x00000010L, 0x20080010L,
  423.     0x20000010L, 0x00080010L, 0x00000000L, 0x20080800L,
  424.     0x00080010L, 0x00000800L, 0x20000810L, 0x00080000L,
  425.     0x00000810L, 0x20080810L, 0x00080800L, 0x20000000L,
  426.     0x20000800L, 0x20000010L, 0x20080000L, 0x00080810L,
  427.     0x00080000L, 0x20000810L, 0x20080010L, 0x00000000L,
  428.     0x00000800L, 0x00000010L, 0x20080800L, 0x20080010L,
  429.     0x20080810L, 0x20080000L, 0x20000000L, 0x00000810L,
  430.     0x00000010L, 0x00080800L, 0x00080810L, 0x20000800L,
  431.     0x00000810L, 0x20000000L, 0x20000800L, 0x00080810L,
  432.     0x20080800L, 0x00080010L, 0x00000000L, 0x20000800L,
  433.     0x20000000L, 0x00000800L, 0x20080010L, 0x00080000L,
  434.     0x00080010L, 0x20080810L, 0x00080800L, 0x00000010L,
  435.     0x20080810L, 0x00080800L, 0x00080000L, 0x20000810L,
  436.     0x20000010L, 0x20080000L, 0x00080810L, 0x00000000L,
  437.     0x00000800L, 0x20000010L, 0x20000810L, 0x20080800L,
  438.     0x20080000L, 0x00000810L, 0x00000010L, 0x20080010L,
  439. #endif
  440.   },
  441.   { 0x00001000L, 0x00000080L, 0x00400080L, 0x00400001L,
  442.     0x00401081L, 0x00001001L, 0x00001080L, 0x00000000L,
  443.     0x00400000L, 0x00400081L, 0x00000081L, 0x00401000L,
  444.     0x00000001L, 0x00401080L, 0x00401000L, 0x00000081L,
  445.     0x00400081L, 0x00001000L, 0x00001001L, 0x00401081L,
  446.     0x00000000L, 0x00400080L, 0x00400001L, 0x00001080L,
  447.     0x00401001L, 0x00001081L, 0x00401080L, 0x00000001L,
  448.     0x00001081L, 0x00401001L, 0x00000080L, 0x00400000L,
  449.     0x00001081L, 0x00401000L, 0x00401001L, 0x00000081L,
  450.     0x00001000L, 0x00000080L, 0x00400000L, 0x00401001L,
  451.     0x00400081L, 0x00001081L, 0x00001080L, 0x00000000L,
  452.     0x00000080L, 0x00400001L, 0x00000001L, 0x00400080L,
  453.     0x00000000L, 0x00400081L, 0x00400080L, 0x00001080L,
  454.     0x00000081L, 0x00001000L, 0x00401081L, 0x00400000L,
  455.     0x00401080L, 0x00000001L, 0x00001001L, 0x00401081L,
  456.     0x00400001L, 0x00401080L, 0x00401000L, 0x00001001L,
  457. #ifdef BIG_TABLES
  458.     0x00001000L, 0x00000080L, 0x00400080L, 0x00400001L,
  459.     0x00401081L, 0x00001001L, 0x00001080L, 0x00000000L,
  460.     0x00400000L, 0x00400081L, 0x00000081L, 0x00401000L,
  461.     0x00000001L, 0x00401080L, 0x00401000L, 0x00000081L,
  462.     0x00400081L, 0x00001000L, 0x00001001L, 0x00401081L,
  463.     0x00000000L, 0x00400080L, 0x00400001L, 0x00001080L,
  464.     0x00401001L, 0x00001081L, 0x00401080L, 0x00000001L,
  465.     0x00001081L, 0x00401001L, 0x00000080L, 0x00400000L,
  466.     0x00001081L, 0x00401000L, 0x00401001L, 0x00000081L,
  467.     0x00001000L, 0x00000080L, 0x00400000L, 0x00401001L,
  468.     0x00400081L, 0x00001081L, 0x00001080L, 0x00000000L,
  469.     0x00000080L, 0x00400001L, 0x00000001L, 0x00400080L,
  470.     0x00000000L, 0x00400081L, 0x00400080L, 0x00001080L,
  471.     0x00000081L, 0x00001000L, 0x00401081L, 0x00400000L,
  472.     0x00401080L, 0x00000001L, 0x00001001L, 0x00401081L,
  473.     0x00400001L, 0x00401080L, 0x00401000L, 0x00001001L,
  475.     0x00001000L, 0x00000080L, 0x00400080L, 0x00400001L,
  476.     0x00401081L, 0x00001001L, 0x00001080L, 0x00000000L,
  477.     0x00400000L, 0x00400081L, 0x00000081L, 0x00401000L,
  478.     0x00000001L, 0x00401080L, 0x00401000L, 0x00000081L,
  479.     0x00400081L, 0x00001000L, 0x00001001L, 0x00401081L,
  480.     0x00000000L, 0x00400080L, 0x00400001L, 0x00001080L,
  481.     0x00401001L, 0x00001081L, 0x00401080L, 0x00000001L,
  482.     0x00001081L, 0x00401001L, 0x00000080L, 0x00400000L,
  483.     0x00001081L, 0x00401000L, 0x00401001L, 0x00000081L,
  484.     0x00001000L, 0x00000080L, 0x00400000L, 0x00401001L,
  485.     0x00400081L, 0x00001081L, 0x00001080L, 0x00000000L,
  486.     0x00000080L, 0x00400001L, 0x00000001L, 0x00400080L,
  487.     0x00000000L, 0x00400081L, 0x00400080L, 0x00001080L,
  488.     0x00000081L, 0x00001000L, 0x00401081L, 0x00400000L,
  489.     0x00401080L, 0x00000001L, 0x00001001L, 0x00401081L,
  490.     0x00400001L, 0x00401080L, 0x00401000L, 0x00001001L,
  492.     0x00001000L, 0x00000080L, 0x00400080L, 0x00400001L,
  493.     0x00401081L, 0x00001001L, 0x00001080L, 0x00000000L,
  494.     0x00400000L, 0x00400081L, 0x00000081L, 0x00401000L,
  495.     0x00000001L, 0x00401080L, 0x00401000L, 0x00000081L,
  496.     0x00400081L, 0x00001000L, 0x00001001L, 0x00401081L,
  497.     0x00000000L, 0x00400080L, 0x00400001L, 0x00001080L,
  498.     0x00401001L, 0x00001081L, 0x00401080L, 0x00000001L,
  499.     0x00001081L, 0x00401001L, 0x00000080L, 0x00400000L,
  500.     0x00001081L, 0x00401000L, 0x00401001L, 0x00000081L,
  501.     0x00001000L, 0x00000080L, 0x00400000L, 0x00401001L,
  502.     0x00400081L, 0x00001081L, 0x00001080L, 0x00000000L,
  503.     0x00000080L, 0x00400001L, 0x00000001L, 0x00400080L,
  504.     0x00000000L, 0x00400081L, 0x00400080L, 0x00001080L,
  505.     0x00000081L, 0x00001000L, 0x00401081L, 0x00400000L,
  506.     0x00401080L, 0x00000001L, 0x00001001L, 0x00401081L,
  507.     0x00400001L, 0x00401080L, 0x00401000L, 0x00001001L,
  508. #endif
  509.   },
  510.   { 0x08200020L, 0x08208000L, 0x00008020L, 0x00000000L,
  511.     0x08008000L, 0x00200020L, 0x08200000L, 0x08208020L,
  512.     0x00000020L, 0x08000000L, 0x00208000L, 0x00008020L,
  513.     0x00208020L, 0x08008020L, 0x08000020L, 0x08200000L,
  514.     0x00008000L, 0x00208020L, 0x00200020L, 0x08008000L,
  515.     0x08208020L, 0x08000020L, 0x00000000L, 0x00208000L,
  516.     0x08000000L, 0x00200000L, 0x08008020L, 0x08200020L,
  517.     0x00200000L, 0x00008000L, 0x08208000L, 0x00000020L,
  518.     0x00200000L, 0x00008000L, 0x08000020L, 0x08208020L,
  519.     0x00008020L, 0x08000000L, 0x00000000L, 0x00208000L,
  520.     0x08200020L, 0x08008020L, 0x08008000L, 0x00200020L,
  521.     0x08208000L, 0x00000020L, 0x00200020L, 0x08008000L,
  522.     0x08208020L, 0x00200000L, 0x08200000L, 0x08000020L,
  523.     0x00208000L, 0x00008020L, 0x08008020L, 0x08200000L,
  524.     0x00000020L, 0x08208000L, 0x00208020L, 0x00000000L,
  525.     0x08000000L, 0x08200020L, 0x00008000L, 0x00208020L,
  526. #ifdef BIG_TABLES
  527.     0x08200020L, 0x08208000L, 0x00008020L, 0x00000000L,
  528.     0x08008000L, 0x00200020L, 0x08200000L, 0x08208020L,
  529.     0x00000020L, 0x08000000L, 0x00208000L, 0x00008020L,
  530.     0x00208020L, 0x08008020L, 0x08000020L, 0x08200000L,
  531.     0x00008000L, 0x00208020L, 0x00200020L, 0x08008000L,
  532.     0x08208020L, 0x08000020L, 0x00000000L, 0x00208000L,
  533.     0x08000000L, 0x00200000L, 0x08008020L, 0x08200020L,
  534.     0x00200000L, 0x00008000L, 0x08208000L, 0x00000020L,
  535.     0x00200000L, 0x00008000L, 0x08000020L, 0x08208020L,
  536.     0x00008020L, 0x08000000L, 0x00000000L, 0x00208000L,
  537.     0x08200020L, 0x08008020L, 0x08008000L, 0x00200020L,
  538.     0x08208000L, 0x00000020L, 0x00200020L, 0x08008000L,
  539.     0x08208020L, 0x00200000L, 0x08200000L, 0x08000020L,
  540.     0x00208000L, 0x00008020L, 0x08008020L, 0x08200000L,
  541.     0x00000020L, 0x08208000L, 0x00208020L, 0x00000000L,
  542.     0x08000000L, 0x08200020L, 0x00008000L, 0x00208020L,
  544.     0x08200020L, 0x08208000L, 0x00008020L, 0x00000000L,
  545.     0x08008000L, 0x00200020L, 0x08200000L, 0x08208020L,
  546.     0x00000020L, 0x08000000L, 0x00208000L, 0x00008020L,
  547.     0x00208020L, 0x08008020L, 0x08000020L, 0x08200000L,
  548.     0x00008000L, 0x00208020L, 0x00200020L, 0x08008000L,
  549.     0x08208020L, 0x08000020L, 0x00000000L, 0x00208000L,
  550.     0x08000000L, 0x00200000L, 0x08008020L, 0x08200020L,
  551.     0x00200000L, 0x00008000L, 0x08208000L, 0x00000020L,
  552.     0x00200000L, 0x00008000L, 0x08000020L, 0x08208020L,
  553.     0x00008020L, 0x08000000L, 0x00000000L, 0x00208000L,
  554.     0x08200020L, 0x08008020L, 0x08008000L, 0x00200020L,
  555.     0x08208000L, 0x00000020L, 0x00200020L, 0x08008000L,
  556.     0x08208020L, 0x00200000L, 0x08200000L, 0x08000020L,
  557.     0x00208000L, 0x00008020L, 0x08008020L, 0x08200000L,
  558.     0x00000020L, 0x08208000L, 0x00208020L, 0x00000000L,
  559.     0x08000000L, 0x08200020L, 0x00008000L, 0x00208020L,
  561.     0x08200020L, 0x08208000L, 0x00008020L, 0x00000000L,
  562.     0x08008000L, 0x00200020L, 0x08200000L, 0x08208020L,
  563.     0x00000020L, 0x08000000L, 0x00208000L, 0x00008020L,
  564.     0x00208020L, 0x08008020L, 0x08000020L, 0x08200000L,
  565.     0x00008000L, 0x00208020L, 0x00200020L, 0x08008000L,
  566.     0x08208020L, 0x08000020L, 0x00000000L, 0x00208000L,
  567.     0x08000000L, 0x00200000L, 0x08008020L, 0x08200020L,
  568.     0x00200000L, 0x00008000L, 0x08208000L, 0x00000020L,
  569.     0x00200000L, 0x00008000L, 0x08000020L, 0x08208020L,
  570.     0x00008020L, 0x08000000L, 0x00000000L, 0x00208000L,
  571.     0x08200020L, 0x08008020L, 0x08008000L, 0x00200020L,
  572.     0x08208000L, 0x00000020L, 0x00200020L, 0x08008000L,
  573.     0x08208020L, 0x00200000L, 0x08200000L, 0x08000020L,
  574.     0x00208000L, 0x00008020L, 0x08008020L, 0x08200000L,
  575.     0x00000020L, 0x08208000L, 0x00208020L, 0x00000000L,
  576.     0x08000000L, 0x08200020L, 0x00008000L, 0x00208020L,
  577. #endif
  578.   }
  579. };
  581. unsigned long bs_tab[] =
  582. {   0x00000001L, 0x00000002L, 0x00000004L, 0x00000008L,
  583.     0x00000010L, 0x00000020L, 0x00000040L, 0x00000080L,
  584.     0x00000100L, 0x00000200L, 0x00000400L, 0x00000800L,
  585.     0x00001000L, 0x00002000L, 0x00004000L, 0x00008000L,
  586.     0x00010000L, 0x00020000L, 0x00040000L, 0x00080000L,
  587.     0x00100000L, 0x00200000L, 0x00400000L, 0x00800000L,
  588.     0x01000000L, 0x02000000L, 0x04000000L, 0x08000000L,
  589.     0x10000000L, 0x20000000L, 0x40000000L, 0x80000000L
  590. };
  592. extern unsigned long    key[32];
  594. void des_ec(const void *i_blk, void *o_blk, void *key)
  595. {   unsigned long   q0, q1, l0, l1, tt;
  597.     q0 = *(((unsigned long*)i_blk) + 1);
  598.     q1 = *(((unsigned long*)i_blk));
  600.     ip(q0, q1);
  602.     round(q0, q1,  0); round(q1, q0,  2);
  603.     round(q0, q1,  4); round(q1, q0,  6);
  604.     round(q0, q1,  8); round(q1, q0, 10);
  605.     round(q0, q1, 12); round(q1, q0, 14);
  606.     round(q0, q1, 16); round(q1, q0, 18);
  607.     round(q0, q1, 20); round(q1, q0, 22);
  608.     round(q0, q1, 24); round(q1, q0, 26);
  609.     round(q0, q1, 28); round(q1, q0, 30);
  611.     fp(q1, q0);
  613.     *(((unsigned long*)o_blk)) = q0; 
  614.     *(((unsigned long*)o_blk) + 1) = q1;
  615. };
  617. void des_dc(const void *i_blk, void *o_blk, void *key)
  618. {   unsigned long   q0, q1, l0, l1, tt;
  620.     q0 = *(((unsigned long*)i_blk) + 1); 
  621.     q1 = *(((unsigned long*)i_blk));
  623.     ip(q0, q1);
  624.     
  625.     round(q0, q1, 30); round(q1, q0, 28);
  626.     round(q0, q1, 26); round(q1, q0, 24);
  627.     round(q0, q1, 22); round(q1, q0, 20);
  628.     round(q0, q1, 18); round(q1, q0, 16);
  629.     round(q0, q1, 14); round(q1, q0, 12);
  630.     round(q0, q1, 10); round(q1, q0,  8);
  631.     round(q0, q1,  6); round(q1, q0,  4);
  632.     round(q0, q1,  2); round(q1, q0,  0);
  634.     fp(q1, q0);
  636.     *(((unsigned long*)o_blk)) = q0; 
  637.     *(((unsigned long*)o_blk) + 1) = q1;
  638. };
  640. /* modified encryption routine for DEAL */
  642. void des_ecm(const void *i_blk, void *o_blk, void *key)
  643. {   unsigned long   q0, q1, l0, l1;
  645.     q0 = *(((unsigned long*)i_blk) + 1);
  646.     q1 = *(((unsigned long*)i_blk));
  648.     round(q0, q1,  0); round(q1, q0,  2);
  649.     round(q0, q1,  4); round(q1, q0,  6);
  650.     round(q0, q1,  8); round(q1, q0, 10);
  651.     round(q0, q1, 12); round(q1, q0, 14);
  652.     round(q0, q1, 16); round(q1, q0, 18);
  653.     round(q0, q1, 20); round(q1, q0, 22);
  654.     round(q0, q1, 24); round(q1, q0, 26);
  655.     round(q0, q1, 28); round(q1, q0, 30);
  657.     *(((unsigned long*)o_blk)) = q0; 
  658.     *(((unsigned long*)o_blk) + 1) = q1;
  659. };