home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume23 / ufc-crypt / part02 < prev    next >
Text File  |  1991-10-21  |  18KB  |  668 lines
  1. Newsgroups: comp.sources.misc
  2. From: glad@daimi.aau.dk (Michael Glad)
  3. Subject:  v23i098:  ufc-crypt - fast crypt/fcrypt routines, Part02/02
  4. Message-ID: <1991Oct22.020049.29227@sparky.imd.sterling.com>
  5. X-Md4-Signature: 6e5cc8382ede05bd57174cd24db28617
  6. Date: Tue, 22 Oct 1991 02:00:49 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: glad@daimi.aau.dk (Michael Glad)
  10. Posting-number: Volume 23, Issue 98
  11. Archive-name: ufc-crypt/part02
  12. Environment: UNIX, 32BIT
  13.  
  14. #! /bin/sh
  15. # into a shell via "sh file" or similar.  To overwrite existing files,
  16. # type "sh file -c".
  17. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  18. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  19. # Contents:  Makefile crypt.c crypt.s300.S crypt.sparc.S crypt.sun3.S
  20. #   patchlevel.h ufc.c
  21. # Wrapped by kent@sparky on Wed Oct 16 15:47:03 1991
  22. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  23. echo If this archive is complete, you will see the following message:
  24. echo '          "shar: End of archive 2 (of 2)."'
  25. if test -f 'Makefile' -a "${1}" != "-c" ; then 
  26.   echo shar: Will not clobber existing file \"'Makefile'\"
  27. else
  28.   echo shar: Extracting \"'Makefile'\" \(1984 characters\)
  29.   sed "s/^X//" >'Makefile' <<'END_OF_FILE'
  30. X#
  31. X# UFC-crypt: ultra fast crypt(3) implementation
  32. X# Copyright (C) 1991, Michael Glad, email: glad@daimi.aau.dk
  33. X#
  34. X# This library is free software; you can redistribute it and/or
  35. X# modify it under the terms of the GNU Library General Public
  36. X# License as published by the Free Software Foundation; either
  37. X# version 2 of the License, or (at your option) any later version.
  38. X#
  39. X# This library is distributed in the hope that it will be useful,
  40. X# but WITHOUT ANY WARRANTY; without even the implied warranty of
  41. X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  42. X# Library General Public License for more details.
  43. X#
  44. X# You should have received a copy of the GNU Library General Public
  45. X# License along with this library; if not, write to the Free
  46. X# Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  47. X#
  48. X# @(#)Makefile    2.2 10/04/91
  49. X#
  50. X
  51. X#
  52. X# Select one of the following modules:
  53. X#
  54. XCRYPT = crypt.o
  55. X
  56. X# portable C version: crypt.o
  57. X# SUN3 models:        crypt.sun3.o
  58. X# HP series 300/400:  crypt.s300.o
  59. X# SUN SPARC systems:  crypt.sparc.o
  60. X
  61. X#
  62. X# Which compiler to use
  63. X#
  64. X#CC = gcc
  65. XCC = cc
  66. X
  67. X# On HP's etc: define this
  68. XFL     = -DSYSV
  69. XOFLAGS = -O
  70. X
  71. X#
  72. X# End-of-configuration
  73. X#
  74. X
  75. XCFLAGS   = $(OFLAGS) $(FL)
  76. XCRYPTOBJ = crypt_util.o $(CRYPT)
  77. X
  78. X#
  79. X# Sample program for debugging/testing/benchmarking
  80. X#
  81. X
  82. Xufc: ufc.o libufc.a
  83. X    $(CC) ufc.o libufc.a -o ufc
  84. X
  85. Xlibufc.a: $(CRYPTOBJ)
  86. X    ar r libufc.a $(CRYPTOBJ)
  87. X    ranlib libufc.a
  88. X
  89. X#
  90. X# Crypt utility functions
  91. X#
  92. X
  93. Xcrypt_util.o: crypt_util.c
  94. Xufc.o: ufc.c
  95. X
  96. X#
  97. X# Crypt functions
  98. X#
  99. X
  100. X# Semiportable
  101. Xufc.o: ufc.c
  102. X    $(CC) $(CFLAGS) -c ufc.c
  103. X
  104. X# Sun3 
  105. Xcrypt.sun3.o: crypt.sun3.S
  106. X    ./S2o crypt.sun3.S crypt.sun3.o
  107. X
  108. X# HP 9000 series 300
  109. Xcrypt.s300.o: crypt.s300.S
  110. X    ./S2o crypt.s300.S crypt.s300.o
  111. X
  112. X# SUN SPARC architecture
  113. Xcrypt.sparc.o: crypt.sparc.S
  114. X    ./S2o crypt.sparc.S crypt.sparc.o
  115. X
  116. Xclean:
  117. X    /bin/rm -f *.o core *~ ufc libufc.a tmp.s mon.out a.out ufc.shar
  118. X
  119. Xshar:
  120. X    shar -c -pX COPYING README Makefile S2o crypt.c *.S crypt_util.c ufc.c patchlevel.h > ufc.shar
  121. END_OF_FILE
  122.   if test 1984 -ne `wc -c <'Makefile'`; then
  123.     echo shar: \"'Makefile'\" unpacked with wrong size!
  124.   fi
  125.   # end of 'Makefile'
  126. fi
  127. if test -f 'crypt.c' -a "${1}" != "-c" ; then 
  128.   echo shar: Will not clobber existing file \"'crypt.c'\"
  129. else
  130.   echo shar: Extracting \"'crypt.c'\" \(1957 characters\)
  131.   sed "s/^X//" >'crypt.c' <<'END_OF_FILE'
  132. X/*
  133. X * UFC-crypt: ultra fast crypt(3) implementation
  134. X *
  135. X * Copyright (C) 1991, Michael Glad, email: glad@daimi.aau.dk
  136. X *
  137. X * This library is free software; you can redistribute it and/or
  138. X * modify it under the terms of the GNU Library General Public
  139. X * License as published by the Free Software Foundation; either
  140. X * version 2 of the License, or (at your option) any later version.
  141. X *
  142. X * This library is distributed in the hope that it will be useful,
  143. X * but WITHOUT ANY WARRANTY; without even the implied warranty of
  144. X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  145. X * Library General Public License for more details.
  146. X 
  147. X * You should have received a copy of the GNU Library General Public
  148. X * License along with this library; if not, write to the Free
  149. X * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  150. X *
  151. X * @(#)crypt.c    2.2 10/04/91
  152. X *
  153. X * Semiportable C version
  154. X *
  155. X */
  156. X
  157. Xextern void setup_salt(), mk_keytab(), pr_bits();
  158. Xextern char *output_conversion();
  159. X
  160. Xextern unsigned long sb0[], sb1[], sb2[], sb3[];
  161. Xextern unsigned long keytab[16][2];
  162. X
  163. X#define SBA(sb, v) (*(unsigned long*)((char*)(sb)+(v)))
  164. X
  165. X#define F(I, O1, O2, SBX, SBY)                                        \
  166. X    s = *k++ ^ I;                                                     \
  167. X    O1 ^= SBA(SBX, (s & 0xffff)); O2 ^= SBA(SBX, ((s & 0xffff) + 4)); \
  168. X    O1 ^= SBA(SBY, (s >>= 16));   O2 ^= SBA(SBY, ((s)          + 4));
  169. X
  170. X#define G(I1, I2, O1, O2)                                             \
  171. X        F(I1, O1, O2, sb1, sb0) F(I2, O1, O2, sb3, sb2)
  172. X
  173. X#define H G(r1, r2, l1, l2) ; G(l1, l2, r1, r2)
  174. X
  175. Xchar *crypt(key, salt)
  176. X  char *key;
  177. X  char *salt;
  178. X  { unsigned long l1, l2, r1, r2, i, j, s, *k;
  179. X
  180. X    setup_salt(salt);
  181. X    mk_keytab(key);
  182. X
  183. X    l1=l2=r1=r2=0;
  184. X
  185. X    for(j=0; j<25; j++) {
  186. X      k = &keytab[0][0];
  187. X      for(i=8; i--; ) {
  188. X    H;
  189. X      }
  190. X      s=l1; l1=r1; r1=s; s=l2; l2=r2; r2=s;
  191. X    }
  192. X
  193. X    return output_conversion(l1, l2, r1, r2, salt);
  194. X  }
  195. X
  196. END_OF_FILE
  197.   if test 1957 -ne `wc -c <'crypt.c'`; then
  198.     echo shar: \"'crypt.c'\" unpacked with wrong size!
  199.   fi
  200.   # end of 'crypt.c'
  201. fi
  202. if test -f 'crypt.s300.S' -a "${1}" != "-c" ; then 
  203.   echo shar: Will not clobber existing file \"'crypt.s300.S'\"
  204. else
  205.   echo shar: Extracting \"'crypt.s300.S'\" \(2491 characters\)
  206.   sed "s/^X//" >'crypt.s300.S' <<'END_OF_FILE'
  207. X #
  208. X # UFC-crypt: ultra fast crypt(3) implementation
  209. X # Copyright (C) 1991, Michael Glad, email: glad@daimi.aau.dk
  210. X #
  211. X # This library is free software, you can redistribute it and/or
  212. X # modify it under the terms of the GNU Library General Public
  213. X # License as published by the Free Software Foundation, either
  214. X # version 2 of the License, or (at your option) any later version.
  215. X #
  216. X # This library is distributed in the hope that it will be useful,
  217. X # but WITHOUT ANY WARRANTY, without even the implied warranty of
  218. X # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  219. X # Library General Public License for more details.
  220. X #
  221. X # You should have received a copy of the GNU Library General Public
  222. X # License along with this library, if not, write to the Free
  223. X # Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  224. X #
  225. X # @(#)crypt.s300.S    2.2 10/04/91
  226. X #
  227. X # MC680x0/Hp9000 s300/s400 assembly code
  228. X #
  229. X
  230. X#define L1    %d0
  231. X#define L2    %d1
  232. X#define R1    %d2
  233. X#define R2    %d3
  234. X#define SCR1    %d4
  235. X#define SCR2    %d5
  236. X#define SCR3    %d6
  237. X
  238. X#define I    %d7
  239. X#define J    -16(%a6)
  240. X
  241. X#define SB0    %a0
  242. X#define SB1    %a1
  243. X#define SB2    %a2
  244. X#define SB3    %a3
  245. X#define KPTR    %a4
  246. X    
  247. X#define F(I,O1,O2,SBX,SBY)                        \
  248. X    mov.l     (KPTR)+,SCR1 ;        eor.l     I,SCR1 ;        \
  249. X    mov.l    0(SBX,SCR1.w),SCR2 ;     eor.l    SCR2,O1 ;        \
  250. X    mov.l    4(SBX,SCR1.w),SCR2 ;    eor.l    SCR2,O2 ;        \
  251. X    swap.w    SCR1 ;                            \
  252. X    mov.l    0(SBY,SCR1.w),SCR2 ;    eor.l    SCR2,O1 ;        \
  253. X    mov.l    4(SBY,SCR1.w),SCR2 ;    eor.l    SCR2,O2 ;
  254. X
  255. X#define G(I1,I2,O1,O2)            \
  256. X    F(I1,O1,O2,SB1,SB0) F(I2,O1,O2,SB3,SB2)
  257. X
  258. X#define H G(R1,R2,L1,L2) ; G(L1,L2,R1,R2)
  259. X
  260. X    text
  261. X    global _crypt
  262. X_crypt:
  263. X #
  264. X # Preamble
  265. X #
  266. X    link %a6,&-56 ; movem.l &15612,(%sp)
  267. X #
  268. X # Set up salt and key tables
  269. X #
  270. X    mov.l     0xc(%a6),-(%sp) ; jsr     _setup_salt ; addq.w     &4,%sp
  271. X    mov.l     0x8(%a6),-(%sp) ; jsr     _mk_keytab  ; addq.w     &4,%sp
  272. X #
  273. X # Setup address registers with sb pointers
  274. X #
  275. X    mov.l    &_sb0,SB0 ; mov.l &_sb1,SB1 ; mov.l &_sb2,SB2 ; mov.l &_sb3,SB3
  276. X # 
  277. X # Initialize DES working variables
  278. X #
  279. X    moveq    &0,L1 ; moveq &0,L2 ; moveq &0,R1 ; moveq &0,R2
  280. X
  281. X #
  282. X # And loop...
  283. X #
  284. X    mov.l    &25,J
  285. XLagain:    
  286. X    mov.l    &_keytab,KPTR
  287. X    moveq    &4,I
  288. XLagain1:
  289. X    H H
  290. X    subq.l    &1,I
  291. X    bne    Lagain1
  292. X # Permute
  293. X    mov.l L1,SCR1 ; mov.l R1,L1 ; mov.l SCR1,R1
  294. X    mov.l L2,SCR1 ; mov.l R2,L2 ; mov.l SCR1,R2
  295. X #
  296. X    subq.l    &1,J
  297. X    tst.l    J
  298. X    bne    Lagain
  299. X #
  300. X # Output conversion
  301. X #
  302. X    mov.l 0xc(%a6),-(%sp)
  303. X    mov.l R2,-(%sp) ; mov.l R1,-(%sp) ; mov.l L2,-(%sp) ; mov.l L1,-(%sp)
  304. X    jsr _output_conversion ; addq.w &4,%sp
  305. X
  306. X #
  307. X # Postamble
  308. X #
  309. X    movem.l    (-56)(%a6),&15612 ; unlk %a6 ; rts
  310. END_OF_FILE
  311.   if test 2491 -ne `wc -c <'crypt.s300.S'`; then
  312.     echo shar: \"'crypt.s300.S'\" unpacked with wrong size!
  313.   fi
  314.   # end of 'crypt.s300.S'
  315. fi
  316. if test -f 'crypt.sparc.S' -a "${1}" != "-c" ; then 
  317.   echo shar: Will not clobber existing file \"'crypt.sparc.S'\"
  318. else
  319.   echo shar: Extracting \"'crypt.sparc.S'\" \(2735 characters\)
  320.   sed "s/^X//" >'crypt.sparc.S' <<'END_OF_FILE'
  321. X!
  322. X! UFC-crypt: ultra fast crypt(3) implementation
  323. X! Copyright (C) 1991, Michael Glad, email: glad@daimi.aau.dk
  324. X!
  325. X! This library is free software, you can redistribute it and/or
  326. X! modify it under the terms of the GNU Library General Public
  327. X! License as published by the Free Software Foundation, either
  328. X! version 2 of the License, or (at your option) any later version.
  329. X!
  330. X! This library is distributed in the hope that it will be useful,
  331. X! but WITHOUT ANY WARRANTY, without even the implied warranty of
  332. X! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  333. X! Library General Public License for more details.
  334. X!
  335. X! You should have received a copy of the GNU Library General Public
  336. X! License along with this library, if not, write to the Free
  337. X! Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  338. X!
  339. X! @(#)crypt.sparc.S    2.2 10/04/91
  340. X!
  341. X! Assembly code for SPARC architecture machines
  342. X!
  343. X
  344. X#define J    %i2
  345. X#define I    %i3
  346. X#define SALT    %i4
  347. X#define KEY    %i5
  348. X
  349. X#define L1    %o0
  350. X#define L2    %o1
  351. X#define R1    %o2
  352. X#define R2    %o3
  353. X
  354. X#define KPTR    %g1
  355. X#define MASK    %g2
  356. X#define SCR1a    %g3
  357. X#define SCR1b    %g4
  358. X#define SCR1    %g5
  359. X#define SCR2    %g6
  360. X#define SCR3    %g7
  361. X
  362. X#define SB0a    %l0
  363. X#define SB0b    %l1
  364. X#define SB1a    %l2
  365. X#define SB1b    %l3
  366. X#define SB2a    %l4
  367. X#define SB2b    %l5
  368. X#define SB3a    %l6
  369. X#define SB3b    %l7
  370. X
  371. X#define ASSIGN(reg,value) sethi %hi(value),reg ; or %lo(value),reg,reg ;
  372. X
  373. X
  374. X#define F(I,O1,O2,SBX1,SBX2,SBY1,SBY2)                \
  375. X    ld     [KPTR],SCR1 ;                    \
  376. X    xor    SCR1,I,SCR1 ;                     \
  377. X     and    SCR1,MASK,SCR1a ;                \
  378. X                                \
  379. X    ld    [SBX1+SCR1a],SCR2 ;    inc    4,KPTR ;    \
  380. X     srl    SCR1,16,SCR1b ;                    \
  381. X    ld    [SBX2+SCR1a],SCR3 ;    xor    SCR2,O1,O1 ;    \
  382. X                                \
  383. X    ld    [SBY1+SCR1b],SCR2 ;    xor     SCR3,O2,O2 ;    \
  384. X    ld    [SBY2+SCR1b],SCR3 ;    xor     SCR2,O1,O1 ;    \
  385. X                                \
  386. X    xor     SCR3,O2,O2 ;
  387. X
  388. X#define G(I1,I2,O1,O2)            \
  389. X    F(I1,O1,O2,SB1a,SB1b,SB0a,SB0b) F(I2,O1,O2,SB3a,SB3b,SB2a,SB2b)
  390. X
  391. X#define H G(R1,R2,L1,L2) ; G(L1,L2,R1,R2)
  392. X
  393. X    .seg    "text"
  394. X    .global    _crypt
  395. X
  396. X_crypt:
  397. X!
  398. X! Preamble
  399. X!
  400. X    save    %sp,-104,%sp
  401. X!
  402. X! Set up salt and key tables
  403. X!
  404. X    mov    %i0,KEY     ; mov %i1,SALT
  405. X        call    _setup_salt,1     ; mov SALT,%o0 ! delayed branch!
  406. X    call    _mk_keytab,1      ; mov KEY,%o0  ! do
  407. X!
  408. X! Set up sb pointers
  409. X!
  410. X    ASSIGN(SB0a,_sb0) ; add SB0a,4,SB0b
  411. X    ASSIGN(SB1a,_sb1) ; add SB1a,4,SB1b 
  412. X    ASSIGN(SB2a,_sb2) ; add SB2a,4,SB2b
  413. X    ASSIGN(SB3a,_sb3) ; add SB3a,4,SB3b
  414. X!
  415. X    ASSIGN(MASK,0xffff)
  416. X!
  417. X! Initialize working variables
  418. X!
  419. X    mov    0,L1 ; mov 0,L2 ; mov 0,R1 ; mov 0,R2
  420. X!
  421. X! And loop...
  422. X!
  423. X    
  424. X    ASSIGN(J,25)
  425. XLagain:
  426. X    ASSIGN(KPTR,_keytab)
  427. X    ASSIGN(I, 8)
  428. XLagain1:
  429. X    H
  430. X    deccc    I
  431. X    bnz     Lagain1
  432. X    nop
  433. X! Permute
  434. X    mov L1,SCR1 ; mov R1,L1 ; mov SCR1,R1
  435. X    mov L2,SCR1 ; mov R2,L2 ; mov SCR1,R2
  436. X!
  437. X    deccc     J
  438. X    bnz     Lagain
  439. X    nop
  440. X!
  441. X! Output conversion
  442. X!
  443. X    call    _output_conversion,5
  444. X    mov    SALT,%o4
  445. X!
  446. X! Postamble
  447. X!
  448. X    ret ; restore %g0,%o0,%o0
  449. END_OF_FILE
  450.   if test 2735 -ne `wc -c <'crypt.sparc.S'`; then
  451.     echo shar: \"'crypt.sparc.S'\" unpacked with wrong size!
  452.   fi
  453.   # end of 'crypt.sparc.S'
  454. fi
  455. if test -f 'crypt.sun3.S' -a "${1}" != "-c" ; then 
  456.   echo shar: Will not clobber existing file \"'crypt.sun3.S'\"
  457. else
  458.   echo shar: Extracting \"'crypt.sun3.S'\" \(2388 characters\)
  459.   sed "s/^X//" >'crypt.sun3.S' <<'END_OF_FILE'
  460. X|
  461. X| UFC-crypt: ultra fast crypt(3) implementation
  462. X| Copyright (C) 1991, Michael Glad, email: glad@daimi.aau.dk
  463. X|
  464. X| This library is free software, you can redistribute it and/or
  465. X| modify it under the terms of the GNU Library General Public
  466. X| License as published by the Free Software Foundation, either
  467. X| version 2 of the License, or (at your option) any later version.
  468. X|
  469. X| This library is distributed in the hope that it will be useful,
  470. X| but WITHOUT ANY WARRANTY, without even the implied warranty of
  471. X| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  472. X| Library General Public License for more details.
  473. X|
  474. X| You should have received a copy of the GNU Library General Public
  475. X| License along with this library, if not, write to the Free
  476. X| Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  477. X|
  478. X| @(#)crypt.sun3.S    2.2 10/04/91
  479. X|
  480. X| Assembly code for SUN3 models
  481. X|
  482. X
  483. X#define L1    d0
  484. X#define L2    d1
  485. X#define R1    d2
  486. X#define R2    d3
  487. X#define SCR1    d4
  488. X#define SCR2    d5
  489. X#define SCR3    d6
  490. X
  491. X#define I       d7
  492. X#define J    a6@(-16)
  493. X
  494. X#define SB0    a0
  495. X#define SB1    a1
  496. X#define SB2    a2
  497. X#define SB3    a3
  498. X#define KPTR    a4
  499. X    
  500. X#define F(I,O1,O2,SBX,SBY)                        \
  501. X    movl     KPTR@+,SCR1 ;        eorl     I,SCR1 ;        \
  502. X    movl    SBX@(0,SCR1:w),SCR2 ;     eorl    SCR2,O1 ;        \
  503. X    movl    SBX@(4,SCR1:w),SCR2 ;    eorl    SCR2,O2 ;        \
  504. X    swap    SCR1 ;                            \
  505. X    movl    SBY@(0,SCR1:w),SCR2 ;    eorl    SCR2,O1 ;        \
  506. X    movl    SBY@(4,SCR1:w),SCR2 ;    eorl    SCR2,O2 ;
  507. X
  508. X#define G(I1,I2,O1,O2)            \
  509. X    F(I1,O1,O2,SB1,SB0) F(I2,O1,O2,SB3,SB2)
  510. X
  511. X#define H G(R1,R2,L1,L2) ; G(L1,L2,R1,R2)
  512. X
  513. X    .text
  514. X    .proc
  515. X    .globl _crypt
  516. X_crypt:
  517. X|
  518. X| Preamble
  519. X|
  520. X    link a6,#-56 ; moveml #15612,sp@
  521. X|
  522. X| Set up salt and key tables
  523. X|
  524. X    movl     a6@(0xc),sp@-    ; jbsr     _setup_salt ; addqw     #4,sp
  525. X    movl     a6@(0x8),sp@-    ; jbsr     _mk_keytab  ; addqw     #4,sp
  526. X|
  527. X| Setup address registers with sb pointers
  528. X|
  529. X    movl    #_sb0,SB0 ; movl #_sb1,SB1 ; movl #_sb2,SB2 ; movl #_sb3,SB3
  530. X| 
  531. X| Initialize DES working variables
  532. X|
  533. X    moveq    #0,L1 ; moveq #0,L2 ; moveq #0,R1 ; moveq #0,R2
  534. X
  535. X|
  536. X| And loop...
  537. X|
  538. X    movl #25,J
  539. XLagain:    
  540. X    movl  #_keytab,KPTR
  541. X    moveq #4,I
  542. XLagain1:
  543. X    H H
  544. X    subql #1,I
  545. X    tstl  I
  546. X    jne   Lagain1    
  547. X| Permute
  548. X    movl L1,SCR1 ; movl R1,L1 ; movl SCR1,R1
  549. X    movl L2,SCR1 ; movl R2,L2 ; movl SCR1,R2
  550. X|
  551. X    subql    #1,J
  552. X    jne    Lagain
  553. X|
  554. X| Output conversion
  555. X|
  556. X    movl a6@(0xc),sp@-
  557. X    movl R2,sp@- ; movl R1,sp@- ; movl L2,sp@- ; movl L1,sp@-
  558. X    jbsr _output_conversion ; addqw #4,sp
  559. X
  560. X|
  561. X| Postamble
  562. X|
  563. X    moveml     a6@(-56),#15612 ; unlk a6 ; rts
  564. END_OF_FILE
  565.   if test 2388 -ne `wc -c <'crypt.sun3.S'`; then
  566.     echo shar: \"'crypt.sun3.S'\" unpacked with wrong size!
  567.   fi
  568.   # end of 'crypt.sun3.S'
  569. fi
  570. if test -f 'patchlevel.h' -a "${1}" != "-c" ; then 
  571.   echo shar: Will not clobber existing file \"'patchlevel.h'\"
  572. else
  573.   echo shar: Extracting \"'patchlevel.h'\" \(57 characters\)
  574.   sed "s/^X//" >'patchlevel.h' <<'END_OF_FILE'
  575. X/* @(#)patchlevel.h    1.1 10/04/91 */
  576. X#define PATCHLEVEL 0
  577. END_OF_FILE
  578.   if test 57 -ne `wc -c <'patchlevel.h'`; then
  579.     echo shar: \"'patchlevel.h'\" unpacked with wrong size!
  580.   fi
  581.   # end of 'patchlevel.h'
  582. fi
  583. if test -f 'ufc.c' -a "${1}" != "-c" ; then 
  584.   echo shar: Will not clobber existing file \"'ufc.c'\"
  585. else
  586.   echo shar: Extracting \"'ufc.c'\" \(1429 characters\)
  587.   sed "s/^X//" >'ufc.c' <<'END_OF_FILE'
  588. X/*
  589. X * UFC-crypt: ultra fast crypt(3) implementation
  590. X *
  591. X * Copyright (C) 1991, Michael Glad, email: glad@daimi.aau.dk
  592. X *
  593. X * This library is free software; you can redistribute it and/or
  594. X * modify it under the terms of the GNU Library General Public
  595. X * License as published by the Free Software Foundation; either
  596. X * version 2 of the License, or (at your option) any later version.
  597. X *
  598. X * This library is distributed in the hope that it will be useful,
  599. X * but WITHOUT ANY WARRANTY; without even the implied warranty of
  600. X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  601. X * Library General Public License for more details.
  602. X 
  603. X * You should have received a copy of the GNU Library General Public
  604. X * License along with this library; if not, write to the Free
  605. X * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  606. X *
  607. X * @(#)ufc.c    2.2 10/04/91
  608. X *
  609. X * Stub main program for debugging
  610. X * and benchmarking.
  611. X *
  612. X */
  613. X
  614. X#include <stdio.h>
  615. X
  616. Xchar *crypt();
  617. X
  618. Xmain(argc, argv)
  619. X  int argc;
  620. X  char **argv;
  621. X  { char *s;
  622. X    unsigned long i,iterations;
  623. X
  624. X    if(argc != 2) {
  625. X      fprintf(stderr, "usage: ufc iterations\n");
  626. X      exit(1);
  627. X    }
  628. X    argv++;
  629. X    iterations = atoi(*argv);
  630. X    printf("ufc: running %d iterations\n", iterations);
  631. X
  632. X    for(i=0; i<iterations; i++)
  633. X      s=crypt("foob","ar");
  634. X    if(strcmp(s, "arlEKn0OzVJn.") == 0)
  635. X      printf("OK\n");
  636. X    else
  637. X      printf("wrong result: %s!!\n", s);
  638. X  }
  639. X
  640. END_OF_FILE
  641.   if test 1429 -ne `wc -c <'ufc.c'`; then
  642.     echo shar: \"'ufc.c'\" unpacked with wrong size!
  643.   fi
  644.   # end of 'ufc.c'
  645. fi
  646. echo shar: End of archive 2 \(of 2\).
  647. cp /dev/null ark2isdone
  648. MISSING=""
  649. for I in 1 2 ; do
  650.     if test ! -f ark${I}isdone ; then
  651.     MISSING="${MISSING} ${I}"
  652.     fi
  653. done
  654. if test "${MISSING}" = "" ; then
  655.     echo You have unpacked both archives.
  656.     rm -f ark[1-9]isdone
  657. else
  658.     echo You still must unpack the following archives:
  659.     echo "        " ${MISSING}
  660. fi
  661. exit 0
  662. exit 0 # Just in case...
  663. -- 
  664. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  665. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  666. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  667. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  668.