1 ! des_enc.m4 2 ! des_enc.S (generated from des_enc.m4) 3 ! 4 ! UltraSPARC assembler version of the LibDES/SSLeay/OpenSSL des_enc.c file. 5 ! 6 ! Version 1.0. 32-bit version. 7 ! 8 ! June 8, 2000. 9 ! 10 ! Version 2.0. 32/64-bit, PIC-ification, blended CPU adaptation 11 ! by Andy Polyakov. 12 ! 13 ! January 1, 2003. 14 ! 15 ! Assembler version: Copyright Svend Olaf Mikkelsen. 16 ! 17 ! Original C code: Copyright Eric A. Young. 18 ! 19 ! This code can be freely used by LibDES/SSLeay/OpenSSL users. 20 ! 21 ! The LibDES/SSLeay/OpenSSL copyright notices must be respected. 22 ! 23 ! This version can be redistributed. 24 ! 25 ! To expand the m4 macros: m4 -B 8192 des_enc.m4 > des_enc.S 26 ! 27 ! Global registers 1 to 5 are used. This is the same as done by the 28 ! cc compiler. The UltraSPARC load/store little endian feature is used. 29 ! 30 ! Instruction grouping often refers to one CPU cycle. 31 ! 32 ! Assemble through gcc: gcc -c -mcpu=ultrasparc -o des_enc.o des_enc.S 33 ! 34 ! Assemble through cc: cc -c -xarch=v8plusa -o des_enc.o des_enc.S 35 ! 36 ! Performance improvement according to './apps/openssl speed des' 37 ! 38 ! 32-bit build: 39 ! 23% faster than cc-5.2 -xarch=v8plus -xO5 40 ! 115% faster than gcc-3.2.1 -m32 -mcpu=ultrasparc -O5 41 ! 64-bit build: 42 ! 50% faster than cc-5.2 -xarch=v9 -xO5 43 ! 100% faster than gcc-3.2.1 -m64 -mcpu=ultrasparc -O5 44 ! 45 46 .ident "des_enc.m4 2.1" 47 .file "des_enc-sparc.S" 48 49 #if defined(__SUNPRO_C) && defined(__sparcv9) 50 # define ABI64 /* They've said -xarch=v9 at command line */ 51 #elif defined(__GNUC__) && defined(__arch64__) 52 # define ABI64 /* They've said -m64 at command line */ 53 #endif 54 55 #ifdef ABI64 56 .register %g2,#scratch 57 .register %g3,#scratch 58 # define FRAME -192 59 # define BIAS 2047 60 # define LDPTR ldx 61 # define STPTR stx 62 # define ARG0 128 63 # define ARGSZ 8 64 # ifndef OPENSSL_SYSNAME_ULTRASPARC 65 # define OPENSSL_SYSNAME_ULTRASPARC 66 # endif 67 #else 68 # define FRAME -96 69 # define BIAS 0 70 # define LDPTR ld 71 # define STPTR st 72 # define ARG0 68 73 # define ARGSZ 4 74 #endif 75 76 #define LOOPS 7 77 78 #define global0 %g0 79 #define global1 %g1 80 #define global2 %g2 81 #define global3 %g3 82 #define global4 %g4 83 #define global5 %g5 84 85 #define local0 %l0 86 #define local1 %l1 87 #define local2 %l2 88 #define local3 %l3 89 #define local4 %l4 90 #define local5 %l5 91 #define local7 %l6 92 #define local6 %l7 93 94 #define in0 %i0 95 #define in1 %i1 96 #define in2 %i2 97 #define in3 %i3 98 #define in4 %i4 99 #define in5 %i5 100 #define in6 %i6 101 #define in7 %i7 102 103 #define out0 %o0 104 #define out1 %o1 105 #define out2 %o2 106 #define out3 %o3 107 #define out4 %o4 108 #define out5 %o5 109 #define out6 %o6 110 #define out7 %o7 111 112 #define stub stb 113 114 changequote({,}) 115 116 117 ! Macro definitions: 118 119 120 ! {ip_macro} 121 ! 122 ! The logic used in initial and final permutations is the same as in 123 ! the C code. The permutations are done with a clever shift, xor, and 124 ! technique. 125 ! 126 ! The macro also loads address sbox 1 to 5 to global 1 to 5, address 127 ! sbox 6 to local6, and addres sbox 8 to out3. 128 ! 129 ! Rotates the halfs 3 left to bring the sbox bits in convenient positions. 130 ! 131 ! Loads key first round from address in parameter 5 to out0, out1. 132 ! 133 ! After the the original LibDES initial permutation, the resulting left 134 ! is in the variable initially used for right and vice versa. The macro 135 ! implements the possibility to keep the halfs in the original registers. 136 ! 137 ! parameter 1 left 138 ! parameter 2 right 139 ! parameter 3 result left (modify in first round) 140 ! parameter 4 result right (use in first round) 141 ! parameter 5 key address 142 ! parameter 6 1/2 for include encryption/decryption 143 ! parameter 7 1 for move in1 to in3 144 ! parameter 8 1 for move in3 to in4, 2 for move in4 to in3 145 ! parameter 9 1 for load ks3 and ks2 to in4 and in3 146 147 define(ip_macro, { 148 149 ! {ip_macro} 150 ! $1 $2 $4 $3 $5 $6 $7 $8 $9 151 152 ld [out2+256], local1 153 srl $2, 4, local4 154 155 xor local4, $1, local4 156 ifelse($7,1,{mov in1, in3},{nop}) 157 158 ld [out2+260], local2 159 and local4, local1, local4 160 ifelse($8,1,{mov in3, in4},{}) 161 ifelse($8,2,{mov in4, in3},{}) 162 163 ld [out2+280], out4 ! loop counter 164 sll local4, 4, local1 165 xor $1, local4, $1 166 167 ld [out2+264], local3 168 srl $1, 16, local4 169 xor $2, local1, $2 170 171 ifelse($9,1,{LDPTR KS3, in4},{}) 172 xor local4, $2, local4 173 nop !sethi %hi(DES_SPtrans), global1 ! sbox addr 174 175 ifelse($9,1,{LDPTR KS2, in3},{}) 176 and local4, local2, local4 177 nop !or global1, %lo(DES_SPtrans), global1 ! sbox addr 178 179 sll local4, 16, local1 180 xor $2, local4, $2 181 182 srl $2, 2, local4 183 xor $1, local1, $1 184 185 sethi %hi(16711680), local5 186 xor local4, $1, local4 187 188 and local4, local3, local4 189 or local5, 255, local5 190 191 sll local4, 2, local2 192 xor $1, local4, $1 193 194 srl $1, 8, local4 195 xor $2, local2, $2 196 197 xor local4, $2, local4 198 add global1, 768, global4 199 200 and local4, local5, local4 201 add global1, 1024, global5 202 203 ld [out2+272], local7 204 sll local4, 8, local1 205 xor $2, local4, $2 206 207 srl $2, 1, local4 208 xor $1, local1, $1 209 210 ld [$5], out0 ! key 7531 211 xor local4, $1, local4 212 add global1, 256, global2 213 214 ld [$5+4], out1 ! key 8642 215 and local4, local7, local4 216 add global1, 512, global3 217 218 sll local4, 1, local1 219 xor $1, local4, $1 220 221 sll $1, 3, local3 222 xor $2, local1, $2 223 224 sll $2, 3, local2 225 add global1, 1280, local6 ! address sbox 8 226 227 srl $1, 29, local4 228 add global1, 1792, out3 ! address sbox 8 229 230 srl $2, 29, local1 231 or local4, local3, $4 232 233 or local2, local1, $3 234 235 ifelse($6, 1, { 236 237 ld [out2+284], local5 ! 0x0000FC00 used in the rounds 238 or local2, local1, $3 239 xor $4, out0, local1 240 241 call .des_enc.1 242 and local1, 252, local1 243 244 },{}) 245 246 ifelse($6, 2, { 247 248 ld [out2+284], local5 ! 0x0000FC00 used in the rounds 249 or local2, local1, $3 250 xor $4, out0, local1 251 252 call .des_dec.1 253 and local1, 252, local1 254 255 },{}) 256 }) 257 258 259 ! {rounds_macro} 260 ! 261 ! The logic used in the DES rounds is the same as in the C code, 262 ! except that calculations for sbox 1 and sbox 5 begin before 263 ! the previous round is finished. 264 ! 265 ! In each round one half (work) is modified based on key and the 266 ! other half (use). 267 ! 268 ! In this version we do two rounds in a loop repeated 7 times 269 ! and two rounds seperately. 270 ! 271 ! One half has the bits for the sboxes in the following positions: 272 ! 273 ! 777777xx555555xx333333xx111111xx 274 ! 275 ! 88xx666666xx444444xx222222xx8888 276 ! 277 ! The bits for each sbox are xor-ed with the key bits for that box. 278 ! The above xx bits are cleared, and the result used for lookup in 279 ! the sbox table. Each sbox entry contains the 4 output bits permuted 280 ! into 32 bits according to the P permutation. 281 ! 282 ! In the description of DES, left and right are switched after 283 ! each round, except after last round. In this code the original 284 ! left and right are kept in the same register in all rounds, meaning 285 ! that after the 16 rounds the result for right is in the register 286 ! originally used for left. 287 ! 288 ! parameter 1 first work (left in first round) 289 ! parameter 2 first use (right in first round) 290 ! parameter 3 enc/dec 1/-1 291 ! parameter 4 loop label 292 ! parameter 5 key address register 293 ! parameter 6 optional address for key next encryption/decryption 294 ! parameter 7 not empty for include retl 295 ! 296 ! also compares in2 to 8 297 298 define(rounds_macro, { 299 300 ! {rounds_macro} 301 ! $1 $2 $3 $4 $5 $6 $7 $8 $9 302 303 xor $2, out0, local1 304 305 ld [out2+284], local5 ! 0x0000FC00 306 ba $4 307 and local1, 252, local1 308 309 .align 32 310 311 $4: 312 ! local6 is address sbox 6 313 ! out3 is address sbox 8 314 ! out4 is loop counter 315 316 ld [global1+local1], local1 317 xor $2, out1, out1 ! 8642 318 xor $2, out0, out0 ! 7531 319 ! fmovs %f0, %f0 ! fxor used for alignment 320 321 srl out1, 4, local0 ! rotate 4 right 322 and out0, local5, local3 ! 3 323 ! fmovs %f0, %f0 324 325 ld [$5+$3*8], local7 ! key 7531 next round 326 srl local3, 8, local3 ! 3 327 and local0, 252, local2 ! 2 328 ! fmovs %f0, %f0 329 330 ld [global3+local3],local3 ! 3 331 sll out1, 28, out1 ! rotate 332 xor $1, local1, $1 ! 1 finished, local1 now sbox 7 333 334 ld [global2+local2], local2 ! 2 335 srl out0, 24, local1 ! 7 336 or out1, local0, out1 ! rotate 337 338 ldub [out2+local1], local1 ! 7 (and 0xFC) 339 srl out1, 24, local0 ! 8 340 and out1, local5, local4 ! 4 341 342 ldub [out2+local0], local0 ! 8 (and 0xFC) 343 srl local4, 8, local4 ! 4 344 xor $1, local2, $1 ! 2 finished local2 now sbox 6 345 346 ld [global4+local4],local4 ! 4 347 srl out1, 16, local2 ! 6 348 xor $1, local3, $1 ! 3 finished local3 now sbox 5 349 350 ld [out3+local0],local0 ! 8 351 and local2, 252, local2 ! 6 352 add global1, 1536, local5 ! address sbox 7 353 354 ld [local6+local2], local2 ! 6 355 srl out0, 16, local3 ! 5 356 xor $1, local4, $1 ! 4 finished 357 358 ld [local5+local1],local1 ! 7 359 and local3, 252, local3 ! 5 360 xor $1, local0, $1 ! 8 finished 361 362 ld [global5+local3],local3 ! 5 363 xor $1, local2, $1 ! 6 finished 364 subcc out4, 1, out4 365 366 ld [$5+$3*8+4], out0 ! key 8642 next round 367 xor $1, local7, local2 ! sbox 5 next round 368 xor $1, local1, $1 ! 7 finished 369 370 srl local2, 16, local2 ! sbox 5 next round 371 xor $1, local3, $1 ! 5 finished 372 373 ld [$5+$3*16+4], out1 ! key 8642 next round again 374 and local2, 252, local2 ! sbox5 next round 375 ! next round 376 xor $1, local7, local7 ! 7531 377 378 ld [global5+local2], local2 ! 5 379 srl local7, 24, local3 ! 7 380 xor $1, out0, out0 ! 8642 381 382 ldub [out2+local3], local3 ! 7 (and 0xFC) 383 srl out0, 4, local0 ! rotate 4 right 384 and local7, 252, local1 ! 1 385 386 sll out0, 28, out0 ! rotate 387 xor $2, local2, $2 ! 5 finished local2 used 388 389 srl local0, 8, local4 ! 4 390 and local0, 252, local2 ! 2 391 ld [local5+local3], local3 ! 7 392 393 srl local0, 16, local5 ! 6 394 or out0, local0, out0 ! rotate 395 ld [global2+local2], local2 ! 2 396 397 srl out0, 24, local0 398 ld [$5+$3*16], out0 ! key 7531 next round 399 and local4, 252, local4 ! 4 400 401 and local5, 252, local5 ! 6 402 ld [global4+local4], local4 ! 4 403 xor $2, local3, $2 ! 7 finished local3 used 404 405 and local0, 252, local0 ! 8 406 ld [local6+local5], local5 ! 6 407 xor $2, local2, $2 ! 2 finished local2 now sbox 3 408 409 srl local7, 8, local2 ! 3 start 410 ld [out3+local0], local0 ! 8 411 xor $2, local4, $2 ! 4 finished 412 413 and local2, 252, local2 ! 3 414 ld [global1+local1], local1 ! 1 415 xor $2, local5, $2 ! 6 finished local5 used 416 417 ld [global3+local2], local2 ! 3 418 xor $2, local0, $2 ! 8 finished 419 add $5, $3*16, $5 ! enc add 8, dec add -8 to key pointer 420 421 ld [out2+284], local5 ! 0x0000FC00 422 xor $2, out0, local4 ! sbox 1 next round 423 xor $2, local1, $2 ! 1 finished 424 425 xor $2, local2, $2 ! 3 finished 426 #ifdef OPENSSL_SYSNAME_ULTRASPARC 427 bne,pt %icc, $4 428 #else 429 bne $4 430 #endif 431 and local4, 252, local1 ! sbox 1 next round 432 433 ! two rounds more: 434 435 ld [global1+local1], local1 436 xor $2, out1, out1 437 xor $2, out0, out0 438 439 srl out1, 4, local0 ! rotate 440 and out0, local5, local3 441 442 ld [$5+$3*8], local7 ! key 7531 443 srl local3, 8, local3 444 and local0, 252, local2 445 446 ld [global3+local3],local3 447 sll out1, 28, out1 ! rotate 448 xor $1, local1, $1 ! 1 finished, local1 now sbox 7 449 450 ld [global2+local2], local2 451 srl out0, 24, local1 452 or out1, local0, out1 ! rotate 453 454 ldub [out2+local1], local1 455 srl out1, 24, local0 456 and out1, local5, local4 457 458 ldub [out2+local0], local0 459 srl local4, 8, local4 460 xor $1, local2, $1 ! 2 finished local2 now sbox 6 461 462 ld [global4+local4],local4 463 srl out1, 16, local2 464 xor $1, local3, $1 ! 3 finished local3 now sbox 5 465 466 ld [out3+local0],local0 467 and local2, 252, local2 468 add global1, 1536, local5 ! address sbox 7 469 470 ld [local6+local2], local2 471 srl out0, 16, local3 472 xor $1, local4, $1 ! 4 finished 473 474 ld [local5+local1],local1 475 and local3, 252, local3 476 xor $1, local0, $1 477 478 ld [global5+local3],local3 479 xor $1, local2, $1 ! 6 finished 480 cmp in2, 8 481 482 ifelse($6,{}, {}, {ld [out2+280], out4}) ! loop counter 483 xor $1, local7, local2 ! sbox 5 next round 484 xor $1, local1, $1 ! 7 finished 485 486 ld [$5+$3*8+4], out0 487 srl local2, 16, local2 ! sbox 5 next round 488 xor $1, local3, $1 ! 5 finished 489 490 and local2, 252, local2 491 ! next round (two rounds more) 492 xor $1, local7, local7 ! 7531 493 494 ld [global5+local2], local2 495 srl local7, 24, local3 496 xor $1, out0, out0 ! 8642 497 498 ldub [out2+local3], local3 499 srl out0, 4, local0 ! rotate 500 and local7, 252, local1 501 502 sll out0, 28, out0 ! rotate 503 xor $2, local2, $2 ! 5 finished local2 used 504 505 srl local0, 8, local4 506 and local0, 252, local2 507 ld [local5+local3], local3 508 509 srl local0, 16, local5 510 or out0, local0, out0 ! rotate 511 ld [global2+local2], local2 512 513 srl out0, 24, local0 514 ifelse($6,{}, {}, {ld [$6], out0}) ! key next encryption/decryption 515 and local4, 252, local4 516 517 and local5, 252, local5 518 ld [global4+local4], local4 519 xor $2, local3, $2 ! 7 finished local3 used 520 521 and local0, 252, local0 522 ld [local6+local5], local5 523 xor $2, local2, $2 ! 2 finished local2 now sbox 3 524 525 srl local7, 8, local2 ! 3 start 526 ld [out3+local0], local0 527 xor $2, local4, $2 528 529 and local2, 252, local2 530 ld [global1+local1], local1 531 xor $2, local5, $2 ! 6 finished local5 used 532 533 ld [global3+local2], local2 534 srl $1, 3, local3 535 xor $2, local0, $2 536 537 ifelse($6,{}, {}, {ld [$6+4], out1}) ! key next encryption/decryption 538 sll $1, 29, local4 539 xor $2, local1, $2 540 541 ifelse($7,{}, {}, {retl}) 542 xor $2, local2, $2 543 }) 544 545 546 ! {fp_macro} 547 ! 548 ! parameter 1 right (original left) 549 ! parameter 2 left (original right) 550 ! parameter 3 1 for optional store to [in0] 551 ! parameter 4 1 for load input/output address to local5/7 552 ! 553 ! The final permutation logic switches the halfes, meaning that 554 ! left and right ends up the the registers originally used. 555 556 define(fp_macro, { 557 558 ! {fp_macro} 559 ! $1 $2 $3 $4 $5 $6 $7 $8 $9 560 561 ! initially undo the rotate 3 left done after initial permutation 562 ! original left is received shifted 3 right and 29 left in local3/4 563 564 sll $2, 29, local1 565 or local3, local4, $1 566 567 srl $2, 3, $2 568 sethi %hi(0x55555555), local2 569 570 or $2, local1, $2 571 or local2, %lo(0x55555555), local2 572 573 srl $2, 1, local3 574 sethi %hi(0x00ff00ff), local1 575 xor local3, $1, local3 576 or local1, %lo(0x00ff00ff), local1 577 and local3, local2, local3 578 sethi %hi(0x33333333), local4 579 sll local3, 1, local2 580 581 xor $1, local3, $1 582 583 srl $1, 8, local3 584 xor $2, local2, $2 585 xor local3, $2, local3 586 or local4, %lo(0x33333333), local4 587 and local3, local1, local3 588 sethi %hi(0x0000ffff), local1 589 sll local3, 8, local2 590 591 xor $2, local3, $2 592 593 srl $2, 2, local3 594 xor $1, local2, $1 595 xor local3, $1, local3 596 or local1, %lo(0x0000ffff), local1 597 and local3, local4, local3 598 sethi %hi(0x0f0f0f0f), local4 599 sll local3, 2, local2 600 601 ifelse($4,1, {LDPTR INPUT, local5}) 602 xor $1, local3, $1 603 604 ifelse($4,1, {LDPTR OUTPUT, local7}) 605 srl $1, 16, local3 606 xor $2, local2, $2 607 xor local3, $2, local3 608 or local4, %lo(0x0f0f0f0f), local4 609 and local3, local1, local3 610 sll local3, 16, local2 611 612 xor $2, local3, local1 613 614 srl local1, 4, local3 615 xor $1, local2, $1 616 xor local3, $1, local3 617 and local3, local4, local3 618 sll local3, 4, local2 619 620 xor $1, local3, $1 621 622 ! optional store: 623 624 ifelse($3,1, {st $1, [in0]}) 625 626 xor local1, local2, $2 627 628 ifelse($3,1, {st $2, [in0+4]}) 629 630 }) 631 632 633 ! {fp_ip_macro} 634 ! 635 ! Does initial permutation for next block mixed with 636 ! final permutation for current block. 637 ! 638 ! parameter 1 original left 639 ! parameter 2 original right 640 ! parameter 3 left ip 641 ! parameter 4 right ip 642 ! parameter 5 1: load ks1/ks2 to in3/in4, add 120 to in4 643 ! 2: mov in4 to in3 644 ! 645 ! also adds -8 to length in2 and loads loop counter to out4 646 647 define(fp_ip_macro, { 648 649 ! {fp_ip_macro} 650 ! $1 $2 $3 $4 $5 $6 $7 $8 $9 651 652 define({temp1},{out4}) 653 define({temp2},{local3}) 654 655 define({ip1},{local1}) 656 define({ip2},{local2}) 657 define({ip4},{local4}) 658 define({ip5},{local5}) 659 660 ! $1 in local3, local4 661 662 ld [out2+256], ip1 663 sll out5, 29, temp1 664 or local3, local4, $1 665 666 srl out5, 3, $2 667 ifelse($5,2,{mov in4, in3}) 668 669 ld [out2+272], ip5 670 srl $4, 4, local0 671 or $2, temp1, $2 672 673 srl $2, 1, temp1 674 xor temp1, $1, temp1 675 676 and temp1, ip5, temp1 677 xor local0, $3, local0 678 679 sll temp1, 1, temp2 680 xor $1, temp1, $1 681 682 and local0, ip1, local0 683 add in2, -8, in2 684 685 sll local0, 4, local7 686 xor $3, local0, $3 687 688 ld [out2+268], ip4 689 srl $1, 8, temp1 690 xor $2, temp2, $2 691 ld [out2+260], ip2 692 srl $3, 16, local0 693 xor $4, local7, $4 694 xor temp1, $2, temp1 695 xor local0, $4, local0 696 and temp1, ip4, temp1 697 and local0, ip2, local0 698 sll temp1, 8, temp2 699 xor $2, temp1, $2 700 sll local0, 16, local7 701 xor $4, local0, $4 702 703 srl $2, 2, temp1 704 xor $1, temp2, $1 705 706 ld [out2+264], temp2 ! ip3 707 srl $4, 2, local0 708 xor $3, local7, $3 709 xor temp1, $1, temp1 710 xor local0, $3, local0 711 and temp1, temp2, temp1 712 and local0, temp2, local0 713 sll temp1, 2, temp2 714 xor $1, temp1, $1 715 sll local0, 2, local7 716 xor $3, local0, $3 717 718 srl $1, 16, temp1 719 xor $2, temp2, $2 720 srl $3, 8, local0 721 xor $4, local7, $4 722 xor temp1, $2, temp1 723 xor local0, $4, local0 724 and temp1, ip2, temp1 725 and local0, ip4, local0 726 sll temp1, 16, temp2 727 xor $2, temp1, local4 728 sll local0, 8, local7 729 xor $4, local0, $4 730 731 srl $4, 1, local0 732 xor $3, local7, $3 733 734 srl local4, 4, temp1 735 xor local0, $3, local0 736 737 xor $1, temp2, $1 738 and local0, ip5, local0 739 740 sll local0, 1, local7 741 xor temp1, $1, temp1 742 743 xor $3, local0, $3 744 xor $4, local7, $4 745 746 sll $3, 3, local5 747 and temp1, ip1, temp1 748 749 sll temp1, 4, temp2 750 xor $1, temp1, $1 751 752 ifelse($5,1,{LDPTR KS2, in4}) 753 sll $4, 3, local2 754 xor local4, temp2, $2 755 756 ! reload since used as temporar: 757 758 ld [out2+280], out4 ! loop counter 759 760 srl $3, 29, local0 761 ifelse($5,1,{add in4, 120, in4}) 762 763 ifelse($5,1,{LDPTR KS1, in3}) 764 srl $4, 29, local7 765 766 or local0, local5, $4 767 or local2, local7, $3 768 769 }) 770 771 772 773 ! {load_little_endian} 774 ! 775 ! parameter 1 address 776 ! parameter 2 destination left 777 ! parameter 3 destination right 778 ! parameter 4 temporar 779 ! parameter 5 label 780 781 define(load_little_endian, { 782 783 ! {load_little_endian} 784 ! $1 $2 $3 $4 $5 $6 $7 $8 $9 785 786 ! first in memory to rightmost in register 787 788 #ifdef OPENSSL_SYSNAME_ULTRASPARC 789 andcc $1, 3, global0 790 bne,pn %icc, $5 791 nop 792 793 lda [$1] 0x88, $2 794 add $1, 4, $4 795 796 ba,pt %icc, $5a 797 lda [$4] 0x88, $3 798 #endif 799 800 $5: 801 ldub [$1+3], $2 802 803 ldub [$1+2], $4 804 sll $2, 8, $2 805 or $2, $4, $2 806 807 ldub [$1+1], $4 808 sll $2, 8, $2 809 or $2, $4, $2 810 811 ldub [$1+0], $4 812 sll $2, 8, $2 813 or $2, $4, $2 814 815 816 ldub [$1+3+4], $3 817 818 ldub [$1+2+4], $4 819 sll $3, 8, $3 820 or $3, $4, $3 821 822 ldub [$1+1+4], $4 823 sll $3, 8, $3 824 or $3, $4, $3 825 826 ldub [$1+0+4], $4 827 sll $3, 8, $3 828 or $3, $4, $3 829 $5a: 830 831 }) 832 833 834 ! {load_little_endian_inc} 835 ! 836 ! parameter 1 address 837 ! parameter 2 destination left 838 ! parameter 3 destination right 839 ! parameter 4 temporar 840 ! parameter 4 label 841 ! 842 ! adds 8 to address 843 844 define(load_little_endian_inc, { 845 846 ! {load_little_endian_inc} 847 ! $1 $2 $3 $4 $5 $6 $7 $8 $9 848 849 ! first in memory to rightmost in register 850 851 #ifdef OPENSSL_SYSNAME_ULTRASPARC 852 andcc $1, 3, global0 853 bne,pn %icc, $5 854 nop 855 856 lda [$1] 0x88, $2 857 add $1, 4, $1 858 859 lda [$1] 0x88, $3 860 ba,pt %icc, $5a 861 add $1, 4, $1 862 #endif 863 864 $5: 865 ldub [$1+3], $2 866 867 ldub [$1+2], $4 868 sll $2, 8, $2 869 or $2, $4, $2 870 871 ldub [$1+1], $4 872 sll $2, 8, $2 873 or $2, $4, $2 874 875 ldub [$1+0], $4 876 sll $2, 8, $2 877 or $2, $4, $2 878 879 ldub [$1+3+4], $3 880 add $1, 8, $1 881 882 ldub [$1+2+4-8], $4 883 sll $3, 8, $3 884 or $3, $4, $3 885 886 ldub [$1+1+4-8], $4 887 sll $3, 8, $3 888 or $3, $4, $3 889 890 ldub [$1+0+4-8], $4 891 sll $3, 8, $3 892 or $3, $4, $3 893 $5a: 894 895 }) 896 897 898 ! {load_n_bytes} 899 ! 900 ! Loads 1 to 7 bytes little endian 901 ! Remaining bytes are zeroed. 902 ! 903 ! parameter 1 address 904 ! parameter 2 length 905 ! parameter 3 destination register left 906 ! parameter 4 destination register right 907 ! parameter 5 temp 908 ! parameter 6 temp2 909 ! parameter 7 label 910 ! parameter 8 return label 911 912 define(load_n_bytes, { 913 914 ! {load_n_bytes} 915 ! $1 $2 $5 $6 $7 $8 $7 $8 $9 916 917 $7.0: call .+8 918 sll $2, 2, $6 919 920 add %o7,$7.jmp.table-$7.0,$5 921 922 add $5, $6, $5 923 mov 0, $4 924 925 ld [$5], $5 926 927 jmp %o7+$5 928 mov 0, $3 929 930 $7.7: 931 ldub [$1+6], $5 932 sll $5, 16, $5 933 or $3, $5, $3 934 $7.6: 935 ldub [$1+5], $5 936 sll $5, 8, $5 937 or $3, $5, $3 938 $7.5: 939 ldub [$1+4], $5 940 or $3, $5, $3 941 $7.4: 942 ldub [$1+3], $5 943 sll $5, 24, $5 944 or $4, $5, $4 945 $7.3: 946 ldub [$1+2], $5 947 sll $5, 16, $5 948 or $4, $5, $4 949 $7.2: 950 ldub [$1+1], $5 951 sll $5, 8, $5 952 or $4, $5, $4 953 $7.1: 954 ldub [$1+0], $5 955 ba $8 956 or $4, $5, $4 957 958 .align 4 959 960 $7.jmp.table: 961 .word 0 962 .word $7.1-$7.0 963 .word $7.2-$7.0 964 .word $7.3-$7.0 965 .word $7.4-$7.0 966 .word $7.5-$7.0 967 .word $7.6-$7.0 968 .word $7.7-$7.0 969 }) 970 971 972 ! {store_little_endian} 973 ! 974 ! parameter 1 address 975 ! parameter 2 source left 976 ! parameter 3 source right 977 ! parameter 4 temporar 978 979 define(store_little_endian, { 980 981 ! {store_little_endian} 982 ! $1 $2 $3 $4 $5 $6 $7 $8 $9 983 984 ! rightmost in register to first in memory 985 986 #ifdef OPENSSL_SYSNAME_ULTRASPARC 987 andcc $1, 3, global0 988 bne,pn %icc, $5 989 nop 990 991 sta $2, [$1] 0x88 992 add $1, 4, $4 993 994 ba,pt %icc, $5a 995 sta $3, [$4] 0x88 996 #endif 997 998 $5: 999 and $2, 255, $4 1000 stub $4, [$1+0] 1001 1002 srl $2, 8, $4 1003 and $4, 255, $4 1004 stub $4, [$1+1] 1005 1006 srl $2, 16, $4 1007 and $4, 255, $4 1008 stub $4, [$1+2] 1009 1010 srl $2, 24, $4 1011 stub $4, [$1+3] 1012 1013 1014 and $3, 255, $4 1015 stub $4, [$1+0+4] 1016 1017 srl $3, 8, $4 1018 and $4, 255, $4 1019 stub $4, [$1+1+4] 1020 1021 srl $3, 16, $4 1022 and $4, 255, $4 1023 stub $4, [$1+2+4] 1024 1025 srl $3, 24, $4 1026 stub $4, [$1+3+4] 1027 1028 $5a: 1029 1030 }) 1031 1032 1033 ! {store_n_bytes} 1034 ! 1035 ! Stores 1 to 7 bytes little endian 1036 ! 1037 ! parameter 1 address 1038 ! parameter 2 length 1039 ! parameter 3 source register left 1040 ! parameter 4 source register right 1041 ! parameter 5 temp 1042 ! parameter 6 temp2 1043 ! parameter 7 label 1044 ! parameter 8 return label 1045 1046 define(store_n_bytes, { 1047 1048 ! {store_n_bytes} 1049 ! $1 $2 $5 $6 $7 $8 $7 $8 $9 1050 1051 $7.0: call .+8 1052 sll $2, 2, $6 1053 1054 add %o7,$7.jmp.table-$7.0,$5 1055 1056 add $5, $6, $5 1057 1058 ld [$5], $5 1059 1060 jmp %o7+$5 1061 nop 1062 1063 $7.7: 1064 srl $3, 16, $5 1065 and $5, 0xff, $5 1066 stub $5, [$1+6] 1067 $7.6: 1068 srl $3, 8, $5 1069 and $5, 0xff, $5 1070 stub $5, [$1+5] 1071 $7.5: 1072 and $3, 0xff, $5 1073 stub $5, [$1+4] 1074 $7.4: 1075 srl $4, 24, $5 1076 stub $5, [$1+3] 1077 $7.3: 1078 srl $4, 16, $5 1079 and $5, 0xff, $5 1080 stub $5, [$1+2] 1081 $7.2: 1082 srl $4, 8, $5 1083 and $5, 0xff, $5 1084 stub $5, [$1+1] 1085 $7.1: 1086 and $4, 0xff, $5 1087 1088 1089 ba $8 1090 stub $5, [$1] 1091 1092 .align 4 1093 1094 $7.jmp.table: 1095 1096 .word 0 1097 .word $7.1-$7.0 1098 .word $7.2-$7.0 1099 .word $7.3-$7.0 1100 .word $7.4-$7.0 1101 .word $7.5-$7.0 1102 .word $7.6-$7.0 1103 .word $7.7-$7.0 1104 }) 1105 1106 1107 define(testvalue,{1}) 1108 1109 define(register_init, { 1110 1111 ! For test purposes: 1112 1113 sethi %hi(testvalue), local0 1114 or local0, %lo(testvalue), local0 1115 1116 ifelse($1,{},{}, {mov local0, $1}) 1117 ifelse($2,{},{}, {mov local0, $2}) 1118 ifelse($3,{},{}, {mov local0, $3}) 1119 ifelse($4,{},{}, {mov local0, $4}) 1120 ifelse($5,{},{}, {mov local0, $5}) 1121 ifelse($6,{},{}, {mov local0, $6}) 1122 ifelse($7,{},{}, {mov local0, $7}) 1123 ifelse($8,{},{}, {mov local0, $8}) 1124 1125 mov local0, local1 1126 mov local0, local2 1127 mov local0, local3 1128 mov local0, local4 1129 mov local0, local5 1130 mov local0, local7 1131 mov local0, local6 1132 mov local0, out0 1133 mov local0, out1 1134 mov local0, out2 1135 mov local0, out3 1136 mov local0, out4 1137 mov local0, out5 1138 mov local0, global1 1139 mov local0, global2 1140 mov local0, global3 1141 mov local0, global4 1142 mov local0, global5 1143 1144 }) 1145 1146 .section ".text" 1147 1148 .align 32 1149 1150 .des_enc: 1151 1152 ! key address in3 1153 ! loads key next encryption/decryption first round from [in4] 1154 1155 rounds_macro(in5, out5, 1, .des_enc.1, in3, in4, retl) 1156 1157 1158 .align 32 1159 1160 .des_dec: 1161 1162 ! implemented with out5 as first parameter to avoid 1163 ! register exchange in ede modes 1164 1165 ! key address in4 1166 ! loads key next encryption/decryption first round from [in3] 1167 1168 rounds_macro(out5, in5, -1, .des_dec.1, in4, in3, retl) 1169 1170 1171 1172 ! void DES_encrypt1(data, ks, enc) 1173 ! ******************************* 1174 1175 .align 32 1176 .global DES_encrypt1 1177 .type DES_encrypt1,#function 1178 1179 DES_encrypt1: 1180 1181 save %sp, FRAME, %sp 1182 1183 sethi %hi(.PIC.DES_SPtrans-1f),global1 1184 or global1,%lo(.PIC.DES_SPtrans-1f),global1 1185 1: call .+8 1186 add %o7,global1,global1 1187 sub global1,.PIC.DES_SPtrans-.des_and,out2 1188 1189 ld [in0], in5 ! left 1190 cmp in2, 0 ! enc 1191 1192 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1193 be,pn %icc, .encrypt.dec ! enc/dec 1194 #else 1195 be .encrypt.dec 1196 #endif 1197 ld [in0+4], out5 ! right 1198 1199 ! parameter 6 1/2 for include encryption/decryption 1200 ! parameter 7 1 for move in1 to in3 1201 ! parameter 8 1 for move in3 to in4, 2 for move in4 to in3 1202 1203 ip_macro(in5, out5, in5, out5, in3, 0, 1, 1) 1204 1205 rounds_macro(in5, out5, 1, .des_encrypt1.1, in3, in4) ! in4 not used 1206 1207 fp_macro(in5, out5, 1) ! 1 for store to [in0] 1208 1209 ret 1210 restore 1211 1212 .encrypt.dec: 1213 1214 add in1, 120, in3 ! use last subkey for first round 1215 1216 ! parameter 6 1/2 for include encryption/decryption 1217 ! parameter 7 1 for move in1 to in3 1218 ! parameter 8 1 for move in3 to in4, 2 for move in4 to in3 1219 1220 ip_macro(in5, out5, out5, in5, in4, 2, 0, 1) ! include dec, ks in4 1221 1222 fp_macro(out5, in5, 1) ! 1 for store to [in0] 1223 1224 ret 1225 restore 1226 1227 .DES_encrypt1.end: 1228 .size DES_encrypt1,.DES_encrypt1.end-DES_encrypt1 1229 1230 1231 ! void DES_encrypt2(data, ks, enc) 1232 !********************************* 1233 1234 ! encrypts/decrypts without initial/final permutation 1235 1236 .align 32 1237 .global DES_encrypt2 1238 .type DES_encrypt2,#function 1239 1240 DES_encrypt2: 1241 1242 save %sp, FRAME, %sp 1243 1244 sethi %hi(.PIC.DES_SPtrans-1f),global1 1245 or global1,%lo(.PIC.DES_SPtrans-1f),global1 1246 1: call .+8 1247 add %o7,global1,global1 1248 sub global1,.PIC.DES_SPtrans-.des_and,out2 1249 1250 ! Set sbox address 1 to 6 and rotate halfs 3 left 1251 ! Errors caught by destest? Yes. Still? *NO* 1252 1253 !sethi %hi(DES_SPtrans), global1 ! address sbox 1 1254 1255 !or global1, %lo(DES_SPtrans), global1 ! sbox 1 1256 1257 add global1, 256, global2 ! sbox 2 1258 add global1, 512, global3 ! sbox 3 1259 1260 ld [in0], out5 ! right 1261 add global1, 768, global4 ! sbox 4 1262 add global1, 1024, global5 ! sbox 5 1263 1264 ld [in0+4], in5 ! left 1265 add global1, 1280, local6 ! sbox 6 1266 add global1, 1792, out3 ! sbox 8 1267 1268 ! rotate 1269 1270 sll in5, 3, local5 1271 mov in1, in3 ! key address to in3 1272 1273 sll out5, 3, local7 1274 srl in5, 29, in5 1275 1276 srl out5, 29, out5 1277 add in5, local5, in5 1278 1279 add out5, local7, out5 1280 cmp in2, 0 1281 1282 ! we use our own stackframe 1283 1284 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1285 be,pn %icc, .encrypt2.dec ! decryption 1286 #else 1287 be .encrypt2.dec 1288 #endif 1289 STPTR in0, [%sp+BIAS+ARG0+0*ARGSZ] 1290 1291 ld [in3], out0 ! key 7531 first round 1292 mov LOOPS, out4 ! loop counter 1293 1294 ld [in3+4], out1 ! key 8642 first round 1295 sethi %hi(0x0000FC00), local5 1296 1297 call .des_enc 1298 mov in3, in4 1299 1300 ! rotate 1301 sll in5, 29, in0 1302 srl in5, 3, in5 1303 sll out5, 29, in1 1304 add in5, in0, in5 1305 srl out5, 3, out5 1306 LDPTR [%sp+BIAS+ARG0+0*ARGSZ], in0 1307 add out5, in1, out5 1308 st in5, [in0] 1309 st out5, [in0+4] 1310 1311 ret 1312 restore 1313 1314 1315 .encrypt2.dec: 1316 1317 add in3, 120, in4 1318 1319 ld [in4], out0 ! key 7531 first round 1320 mov LOOPS, out4 ! loop counter 1321 1322 ld [in4+4], out1 ! key 8642 first round 1323 sethi %hi(0x0000FC00), local5 1324 1325 mov in5, local1 ! left expected in out5 1326 mov out5, in5 1327 1328 call .des_dec 1329 mov local1, out5 1330 1331 .encrypt2.finish: 1332 1333 ! rotate 1334 sll in5, 29, in0 1335 srl in5, 3, in5 1336 sll out5, 29, in1 1337 add in5, in0, in5 1338 srl out5, 3, out5 1339 LDPTR [%sp+BIAS+ARG0+0*ARGSZ], in0 1340 add out5, in1, out5 1341 st out5, [in0] 1342 st in5, [in0+4] 1343 1344 ret 1345 restore 1346 1347 .DES_encrypt2.end: 1348 .size DES_encrypt2, .DES_encrypt2.end-DES_encrypt2 1349 1350 1351 ! void DES_encrypt3(data, ks1, ks2, ks3) 1352 ! ************************************** 1353 1354 .align 32 1355 .global DES_encrypt3 1356 .type DES_encrypt3,#function 1357 1358 DES_encrypt3: 1359 1360 save %sp, FRAME, %sp 1361 1362 sethi %hi(.PIC.DES_SPtrans-1f),global1 1363 or global1,%lo(.PIC.DES_SPtrans-1f),global1 1364 1: call .+8 1365 add %o7,global1,global1 1366 sub global1,.PIC.DES_SPtrans-.des_and,out2 1367 1368 ld [in0], in5 ! left 1369 add in2, 120, in4 ! ks2 1370 1371 ld [in0+4], out5 ! right 1372 mov in3, in2 ! save ks3 1373 1374 ! parameter 6 1/2 for include encryption/decryption 1375 ! parameter 7 1 for mov in1 to in3 1376 ! parameter 8 1 for mov in3 to in4 1377 ! parameter 9 1 for load ks3 and ks2 to in4 and in3 1378 1379 ip_macro(in5, out5, in5, out5, in3, 1, 1, 0, 0) 1380 1381 call .des_dec 1382 mov in2, in3 ! preload ks3 1383 1384 call .des_enc 1385 nop 1386 1387 fp_macro(in5, out5, 1) 1388 1389 ret 1390 restore 1391 1392 .DES_encrypt3.end: 1393 .size DES_encrypt3,.DES_encrypt3.end-DES_encrypt3 1394 1395 1396 ! void DES_decrypt3(data, ks1, ks2, ks3) 1397 ! ************************************** 1398 1399 .align 32 1400 .global DES_decrypt3 1401 .type DES_decrypt3,#function 1402 1403 DES_decrypt3: 1404 1405 save %sp, FRAME, %sp 1406 1407 sethi %hi(.PIC.DES_SPtrans-1f),global1 1408 or global1,%lo(.PIC.DES_SPtrans-1f),global1 1409 1: call .+8 1410 add %o7,global1,global1 1411 sub global1,.PIC.DES_SPtrans-.des_and,out2 1412 1413 ld [in0], in5 ! left 1414 add in3, 120, in4 ! ks3 1415 1416 ld [in0+4], out5 ! right 1417 mov in2, in3 ! ks2 1418 1419 ! parameter 6 1/2 for include encryption/decryption 1420 ! parameter 7 1 for mov in1 to in3 1421 ! parameter 8 1 for mov in3 to in4 1422 ! parameter 9 1 for load ks3 and ks2 to in4 and in3 1423 1424 ip_macro(in5, out5, out5, in5, in4, 2, 0, 0, 0) 1425 1426 call .des_enc 1427 add in1, 120, in4 ! preload ks1 1428 1429 call .des_dec 1430 nop 1431 1432 fp_macro(out5, in5, 1) 1433 1434 ret 1435 restore 1436 1437 .DES_decrypt3.end: 1438 .size DES_decrypt3,.DES_decrypt3.end-DES_decrypt3 1439 1440 ! void DES_ncbc_encrypt(input, output, length, schedule, ivec, enc) 1441 ! ***************************************************************** 1442 1443 1444 .align 32 1445 .global DES_ncbc_encrypt 1446 .type DES_ncbc_encrypt,#function 1447 1448 DES_ncbc_encrypt: 1449 1450 save %sp, FRAME, %sp 1451 1452 define({INPUT}, { [%sp+BIAS+ARG0+0*ARGSZ] }) 1453 define({OUTPUT}, { [%sp+BIAS+ARG0+1*ARGSZ] }) 1454 define({IVEC}, { [%sp+BIAS+ARG0+4*ARGSZ] }) 1455 1456 sethi %hi(.PIC.DES_SPtrans-1f),global1 1457 or global1,%lo(.PIC.DES_SPtrans-1f),global1 1458 1: call .+8 1459 add %o7,global1,global1 1460 sub global1,.PIC.DES_SPtrans-.des_and,out2 1461 1462 cmp in5, 0 ! enc 1463 1464 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1465 be,pn %icc, .ncbc.dec 1466 #else 1467 be .ncbc.dec 1468 #endif 1469 STPTR in4, IVEC 1470 1471 ! addr left right temp label 1472 load_little_endian(in4, in5, out5, local3, .LLE1) ! iv 1473 1474 addcc in2, -8, in2 ! bytes missing when first block done 1475 1476 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1477 bl,pn %icc, .ncbc.enc.seven.or.less 1478 #else 1479 bl .ncbc.enc.seven.or.less 1480 #endif 1481 mov in3, in4 ! schedule 1482 1483 .ncbc.enc.next.block: 1484 1485 load_little_endian(in0, out4, global4, local3, .LLE2) ! block 1486 1487 .ncbc.enc.next.block_1: 1488 1489 xor in5, out4, in5 ! iv xor 1490 xor out5, global4, out5 ! iv xor 1491 1492 ! parameter 8 1 for move in3 to in4, 2 for move in4 to in3 1493 ip_macro(in5, out5, in5, out5, in3, 0, 0, 2) 1494 1495 .ncbc.enc.next.block_2: 1496 1497 !// call .des_enc ! compares in2 to 8 1498 ! rounds inlined for alignment purposes 1499 1500 add global1, 768, global4 ! address sbox 4 since register used below 1501 1502 rounds_macro(in5, out5, 1, .ncbc.enc.1, in3, in4) ! include encryption ks in3 1503 1504 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1505 bl,pn %icc, .ncbc.enc.next.block_fp 1506 #else 1507 bl .ncbc.enc.next.block_fp 1508 #endif 1509 add in0, 8, in0 ! input address 1510 1511 ! If 8 or more bytes are to be encrypted after this block, 1512 ! we combine final permutation for this block with initial 1513 ! permutation for next block. Load next block: 1514 1515 load_little_endian(in0, global3, global4, local5, .LLE12) 1516 1517 ! parameter 1 original left 1518 ! parameter 2 original right 1519 ! parameter 3 left ip 1520 ! parameter 4 right ip 1521 ! parameter 5 1: load ks1/ks2 to in3/in4, add 120 to in4 1522 ! 2: mov in4 to in3 1523 ! 1524 ! also adds -8 to length in2 and loads loop counter to out4 1525 1526 fp_ip_macro(out0, out1, global3, global4, 2) 1527 1528 store_little_endian(in1, out0, out1, local3, .SLE10) ! block 1529 1530 ld [in3], out0 ! key 7531 first round next block 1531 mov in5, local1 1532 xor global3, out5, in5 ! iv xor next block 1533 1534 ld [in3+4], out1 ! key 8642 1535 add global1, 512, global3 ! address sbox 3 since register used 1536 xor global4, local1, out5 ! iv xor next block 1537 1538 ba .ncbc.enc.next.block_2 1539 add in1, 8, in1 ! output adress 1540 1541 .ncbc.enc.next.block_fp: 1542 1543 fp_macro(in5, out5) 1544 1545 store_little_endian(in1, in5, out5, local3, .SLE1) ! block 1546 1547 addcc in2, -8, in2 ! bytes missing when next block done 1548 1549 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1550 bpos,pt %icc, .ncbc.enc.next.block ! also jumps if 0 1551 #else 1552 bpos .ncbc.enc.next.block 1553 #endif 1554 add in1, 8, in1 1555 1556 .ncbc.enc.seven.or.less: 1557 1558 cmp in2, -8 1559 1560 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1561 ble,pt %icc, .ncbc.enc.finish 1562 #else 1563 ble .ncbc.enc.finish 1564 #endif 1565 nop 1566 1567 add in2, 8, local1 ! bytes to load 1568 1569 ! addr, length, dest left, dest right, temp, temp2, label, ret label 1570 load_n_bytes(in0, local1, global4, out4, local2, local3, .LNB1, .ncbc.enc.next.block_1) 1571 1572 ! Loads 1 to 7 bytes little endian to global4, out4 1573 1574 1575 .ncbc.enc.finish: 1576 1577 LDPTR IVEC, local4 1578 store_little_endian(local4, in5, out5, local5, .SLE2) ! ivec 1579 1580 ret 1581 restore 1582 1583 1584 .ncbc.dec: 1585 1586 STPTR in0, INPUT 1587 cmp in2, 0 ! length 1588 add in3, 120, in3 1589 1590 LDPTR IVEC, local7 ! ivec 1591 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1592 ble,pn %icc, .ncbc.dec.finish 1593 #else 1594 ble .ncbc.dec.finish 1595 #endif 1596 mov in3, in4 ! schedule 1597 1598 STPTR in1, OUTPUT 1599 mov in0, local5 ! input 1600 1601 load_little_endian(local7, in0, in1, local3, .LLE3) ! ivec 1602 1603 .ncbc.dec.next.block: 1604 1605 load_little_endian(local5, in5, out5, local3, .LLE4) ! block 1606 1607 ! parameter 6 1/2 for include encryption/decryption 1608 ! parameter 7 1 for mov in1 to in3 1609 ! parameter 8 1 for mov in3 to in4 1610 1611 ip_macro(in5, out5, out5, in5, in4, 2, 0, 1) ! include decryprion ks in4 1612 1613 fp_macro(out5, in5, 0, 1) ! 1 for input and output address to local5/7 1614 1615 ! in2 is bytes left to be stored 1616 ! in2 is compared to 8 in the rounds 1617 1618 xor out5, in0, out4 ! iv xor 1619 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1620 bl,pn %icc, .ncbc.dec.seven.or.less 1621 #else 1622 bl .ncbc.dec.seven.or.less 1623 #endif 1624 xor in5, in1, global4 ! iv xor 1625 1626 ! Load ivec next block now, since input and output address might be the same. 1627 1628 load_little_endian_inc(local5, in0, in1, local3, .LLE5) ! iv 1629 1630 store_little_endian(local7, out4, global4, local3, .SLE3) 1631 1632 STPTR local5, INPUT 1633 add local7, 8, local7 1634 addcc in2, -8, in2 1635 1636 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1637 bg,pt %icc, .ncbc.dec.next.block 1638 #else 1639 bg .ncbc.dec.next.block 1640 #endif 1641 STPTR local7, OUTPUT 1642 1643 1644 .ncbc.dec.store.iv: 1645 1646 LDPTR IVEC, local4 ! ivec 1647 store_little_endian(local4, in0, in1, local5, .SLE4) 1648 1649 .ncbc.dec.finish: 1650 1651 ret 1652 restore 1653 1654 .ncbc.dec.seven.or.less: 1655 1656 load_little_endian_inc(local5, in0, in1, local3, .LLE13) ! ivec 1657 1658 store_n_bytes(local7, in2, global4, out4, local3, local4, .SNB1, .ncbc.dec.store.iv) 1659 1660 1661 .DES_ncbc_encrypt.end: 1662 .size DES_ncbc_encrypt, .DES_ncbc_encrypt.end-DES_ncbc_encrypt 1663 1664 1665 ! void DES_ede3_cbc_encrypt(input, output, lenght, ks1, ks2, ks3, ivec, enc) 1666 ! ************************************************************************** 1667 1668 1669 .align 32 1670 .global DES_ede3_cbc_encrypt 1671 .type DES_ede3_cbc_encrypt,#function 1672 1673 DES_ede3_cbc_encrypt: 1674 1675 save %sp, FRAME, %sp 1676 1677 define({KS1}, { [%sp+BIAS+ARG0+3*ARGSZ] }) 1678 define({KS2}, { [%sp+BIAS+ARG0+4*ARGSZ] }) 1679 define({KS3}, { [%sp+BIAS+ARG0+5*ARGSZ] }) 1680 1681 sethi %hi(.PIC.DES_SPtrans-1f),global1 1682 or global1,%lo(.PIC.DES_SPtrans-1f),global1 1683 1: call .+8 1684 add %o7,global1,global1 1685 sub global1,.PIC.DES_SPtrans-.des_and,out2 1686 1687 LDPTR [%fp+BIAS+ARG0+7*ARGSZ], local3 ! enc 1688 LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local4 ! ivec 1689 cmp local3, 0 ! enc 1690 1691 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1692 be,pn %icc, .ede3.dec 1693 #else 1694 be .ede3.dec 1695 #endif 1696 STPTR in4, KS2 1697 1698 STPTR in5, KS3 1699 1700 load_little_endian(local4, in5, out5, local3, .LLE6) ! ivec 1701 1702 addcc in2, -8, in2 ! bytes missing after next block 1703 1704 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1705 bl,pn %icc, .ede3.enc.seven.or.less 1706 #else 1707 bl .ede3.enc.seven.or.less 1708 #endif 1709 STPTR in3, KS1 1710 1711 .ede3.enc.next.block: 1712 1713 load_little_endian(in0, out4, global4, local3, .LLE7) 1714 1715 .ede3.enc.next.block_1: 1716 1717 LDPTR KS2, in4 1718 xor in5, out4, in5 ! iv xor 1719 xor out5, global4, out5 ! iv xor 1720 1721 LDPTR KS1, in3 1722 add in4, 120, in4 ! for decryption we use last subkey first 1723 nop 1724 1725 ip_macro(in5, out5, in5, out5, in3) 1726 1727 .ede3.enc.next.block_2: 1728 1729 call .des_enc ! ks1 in3 1730 nop 1731 1732 call .des_dec ! ks2 in4 1733 LDPTR KS3, in3 1734 1735 call .des_enc ! ks3 in3 compares in2 to 8 1736 nop 1737 1738 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1739 bl,pn %icc, .ede3.enc.next.block_fp 1740 #else 1741 bl .ede3.enc.next.block_fp 1742 #endif 1743 add in0, 8, in0 1744 1745 ! If 8 or more bytes are to be encrypted after this block, 1746 ! we combine final permutation for this block with initial 1747 ! permutation for next block. Load next block: 1748 1749 load_little_endian(in0, global3, global4, local5, .LLE11) 1750 1751 ! parameter 1 original left 1752 ! parameter 2 original right 1753 ! parameter 3 left ip 1754 ! parameter 4 right ip 1755 ! parameter 5 1: load ks1/ks2 to in3/in4, add 120 to in4 1756 ! 2: mov in4 to in3 1757 ! 1758 ! also adds -8 to length in2 and loads loop counter to out4 1759 1760 fp_ip_macro(out0, out1, global3, global4, 1) 1761 1762 store_little_endian(in1, out0, out1, local3, .SLE9) ! block 1763 1764 mov in5, local1 1765 xor global3, out5, in5 ! iv xor next block 1766 1767 ld [in3], out0 ! key 7531 1768 add global1, 512, global3 ! address sbox 3 1769 xor global4, local1, out5 ! iv xor next block 1770 1771 ld [in3+4], out1 ! key 8642 1772 add global1, 768, global4 ! address sbox 4 1773 ba .ede3.enc.next.block_2 1774 add in1, 8, in1 1775 1776 .ede3.enc.next.block_fp: 1777 1778 fp_macro(in5, out5) 1779 1780 store_little_endian(in1, in5, out5, local3, .SLE5) ! block 1781 1782 addcc in2, -8, in2 ! bytes missing when next block done 1783 1784 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1785 bpos,pt %icc, .ede3.enc.next.block 1786 #else 1787 bpos .ede3.enc.next.block 1788 #endif 1789 add in1, 8, in1 1790 1791 .ede3.enc.seven.or.less: 1792 1793 cmp in2, -8 1794 1795 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1796 ble,pt %icc, .ede3.enc.finish 1797 #else 1798 ble .ede3.enc.finish 1799 #endif 1800 nop 1801 1802 add in2, 8, local1 ! bytes to load 1803 1804 ! addr, length, dest left, dest right, temp, temp2, label, ret label 1805 load_n_bytes(in0, local1, global4, out4, local2, local3, .LNB2, .ede3.enc.next.block_1) 1806 1807 .ede3.enc.finish: 1808 1809 LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local4 ! ivec 1810 store_little_endian(local4, in5, out5, local5, .SLE6) ! ivec 1811 1812 ret 1813 restore 1814 1815 .ede3.dec: 1816 1817 STPTR in0, INPUT 1818 add in5, 120, in5 1819 1820 STPTR in1, OUTPUT 1821 mov in0, local5 1822 add in3, 120, in3 1823 1824 STPTR in3, KS1 1825 cmp in2, 0 1826 1827 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1828 ble %icc, .ede3.dec.finish 1829 #else 1830 ble .ede3.dec.finish 1831 #endif 1832 STPTR in5, KS3 1833 1834 LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local7 ! iv 1835 load_little_endian(local7, in0, in1, local3, .LLE8) 1836 1837 .ede3.dec.next.block: 1838 1839 load_little_endian(local5, in5, out5, local3, .LLE9) 1840 1841 ! parameter 6 1/2 for include encryption/decryption 1842 ! parameter 7 1 for mov in1 to in3 1843 ! parameter 8 1 for mov in3 to in4 1844 ! parameter 9 1 for load ks3 and ks2 to in4 and in3 1845 1846 ip_macro(in5, out5, out5, in5, in4, 2, 0, 0, 1) ! inc .des_dec ks3 in4 1847 1848 call .des_enc ! ks2 in3 1849 LDPTR KS1, in4 1850 1851 call .des_dec ! ks1 in4 1852 nop 1853 1854 fp_macro(out5, in5, 0, 1) ! 1 for input and output address local5/7 1855 1856 ! in2 is bytes left to be stored 1857 ! in2 is compared to 8 in the rounds 1858 1859 xor out5, in0, out4 1860 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1861 bl,pn %icc, .ede3.dec.seven.or.less 1862 #else 1863 bl .ede3.dec.seven.or.less 1864 #endif 1865 xor in5, in1, global4 1866 1867 load_little_endian_inc(local5, in0, in1, local3, .LLE10) ! iv next block 1868 1869 store_little_endian(local7, out4, global4, local3, .SLE7) ! block 1870 1871 STPTR local5, INPUT 1872 addcc in2, -8, in2 1873 add local7, 8, local7 1874 1875 #ifdef OPENSSL_SYSNAME_ULTRASPARC 1876 bg,pt %icc, .ede3.dec.next.block 1877 #else 1878 bg .ede3.dec.next.block 1879 #endif 1880 STPTR local7, OUTPUT 1881 1882 .ede3.dec.store.iv: 1883 1884 LDPTR [%fp+BIAS+ARG0+6*ARGSZ], local4 ! ivec 1885 store_little_endian(local4, in0, in1, local5, .SLE8) ! ivec 1886 1887 .ede3.dec.finish: 1888 1889 ret 1890 restore 1891 1892 .ede3.dec.seven.or.less: 1893 1894 load_little_endian_inc(local5, in0, in1, local3, .LLE14) ! iv 1895 1896 store_n_bytes(local7, in2, global4, out4, local3, local4, .SNB2, .ede3.dec.store.iv) 1897 1898 1899 .DES_ede3_cbc_encrypt.end: 1900 .size DES_ede3_cbc_encrypt,.DES_ede3_cbc_encrypt.end-DES_ede3_cbc_encrypt 1901 1902 .align 256 1903 .type .des_and,#object 1904 .size .des_and,284 1905 1906 .des_and: 1907 1908 ! This table is used for AND 0xFC when it is known that register 1909 ! bits 8-31 are zero. Makes it possible to do three arithmetic 1910 ! operations in one cycle. 1911 1912 .byte 0, 0, 0, 0, 4, 4, 4, 4 1913 .byte 8, 8, 8, 8, 12, 12, 12, 12 1914 .byte 16, 16, 16, 16, 20, 20, 20, 20 1915 .byte 24, 24, 24, 24, 28, 28, 28, 28 1916 .byte 32, 32, 32, 32, 36, 36, 36, 36 1917 .byte 40, 40, 40, 40, 44, 44, 44, 44 1918 .byte 48, 48, 48, 48, 52, 52, 52, 52 1919 .byte 56, 56, 56, 56, 60, 60, 60, 60 1920 .byte 64, 64, 64, 64, 68, 68, 68, 68 1921 .byte 72, 72, 72, 72, 76, 76, 76, 76 1922 .byte 80, 80, 80, 80, 84, 84, 84, 84 1923 .byte 88, 88, 88, 88, 92, 92, 92, 92 1924 .byte 96, 96, 96, 96, 100, 100, 100, 100 1925 .byte 104, 104, 104, 104, 108, 108, 108, 108 1926 .byte 112, 112, 112, 112, 116, 116, 116, 116 1927 .byte 120, 120, 120, 120, 124, 124, 124, 124 1928 .byte 128, 128, 128, 128, 132, 132, 132, 132 1929 .byte 136, 136, 136, 136, 140, 140, 140, 140 1930 .byte 144, 144, 144, 144, 148, 148, 148, 148 1931 .byte 152, 152, 152, 152, 156, 156, 156, 156 1932 .byte 160, 160, 160, 160, 164, 164, 164, 164 1933 .byte 168, 168, 168, 168, 172, 172, 172, 172 1934 .byte 176, 176, 176, 176, 180, 180, 180, 180 1935 .byte 184, 184, 184, 184, 188, 188, 188, 188 1936 .byte 192, 192, 192, 192, 196, 196, 196, 196 1937 .byte 200, 200, 200, 200, 204, 204, 204, 204 1938 .byte 208, 208, 208, 208, 212, 212, 212, 212 1939 .byte 216, 216, 216, 216, 220, 220, 220, 220 1940 .byte 224, 224, 224, 224, 228, 228, 228, 228 1941 .byte 232, 232, 232, 232, 236, 236, 236, 236 1942 .byte 240, 240, 240, 240, 244, 244, 244, 244 1943 .byte 248, 248, 248, 248, 252, 252, 252, 252 1944 1945 ! 5 numbers for initil/final permutation 1946 1947 .word 0x0f0f0f0f ! offset 256 1948 .word 0x0000ffff ! 260 1949 .word 0x33333333 ! 264 1950 .word 0x00ff00ff ! 268 1951 .word 0x55555555 ! 272 1952 1953 .word 0 ! 276 1954 .word LOOPS ! 280 1955 .word 0x0000FC00 ! 284 1956 1957 .global DES_SPtrans 1958 .type DES_SPtrans,#object 1959 .size DES_SPtrans,2048 1960 .align 64 1961 DES_SPtrans: 1962 .PIC.DES_SPtrans: 1963 ! nibble 0 1964 .word 0x02080800, 0x00080000, 0x02000002, 0x02080802 1965 .word 0x02000000, 0x00080802, 0x00080002, 0x02000002 1966 .word 0x00080802, 0x02080800, 0x02080000, 0x00000802 1967 .word 0x02000802, 0x02000000, 0x00000000, 0x00080002 1968 .word 0x00080000, 0x00000002, 0x02000800, 0x00080800 1969 .word 0x02080802, 0x02080000, 0x00000802, 0x02000800 1970 .word 0x00000002, 0x00000800, 0x00080800, 0x02080002 1971 .word 0x00000800, 0x02000802, 0x02080002, 0x00000000 1972 .word 0x00000000, 0x02080802, 0x02000800, 0x00080002 1973 .word 0x02080800, 0x00080000, 0x00000802, 0x02000800 1974 .word 0x02080002, 0x00000800, 0x00080800, 0x02000002 1975 .word 0x00080802, 0x00000002, 0x02000002, 0x02080000 1976 .word 0x02080802, 0x00080800, 0x02080000, 0x02000802 1977 .word 0x02000000, 0x00000802, 0x00080002, 0x00000000 1978 .word 0x00080000, 0x02000000, 0x02000802, 0x02080800 1979 .word 0x00000002, 0x02080002, 0x00000800, 0x00080802 1980 ! nibble 1 1981 .word 0x40108010, 0x00000000, 0x00108000, 0x40100000 1982 .word 0x40000010, 0x00008010, 0x40008000, 0x00108000 1983 .word 0x00008000, 0x40100010, 0x00000010, 0x40008000 1984 .word 0x00100010, 0x40108000, 0x40100000, 0x00000010 1985 .word 0x00100000, 0x40008010, 0x40100010, 0x00008000 1986 .word 0x00108010, 0x40000000, 0x00000000, 0x00100010 1987 .word 0x40008010, 0x00108010, 0x40108000, 0x40000010 1988 .word 0x40000000, 0x00100000, 0x00008010, 0x40108010 1989 .word 0x00100010, 0x40108000, 0x40008000, 0x00108010 1990 .word 0x40108010, 0x00100010, 0x40000010, 0x00000000 1991 .word 0x40000000, 0x00008010, 0x00100000, 0x40100010 1992 .word 0x00008000, 0x40000000, 0x00108010, 0x40008010 1993 .word 0x40108000, 0x00008000, 0x00000000, 0x40000010 1994 .word 0x00000010, 0x40108010, 0x00108000, 0x40100000 1995 .word 0x40100010, 0x00100000, 0x00008010, 0x40008000 1996 .word 0x40008010, 0x00000010, 0x40100000, 0x00108000 1997 ! nibble 2 1998 .word 0x04000001, 0x04040100, 0x00000100, 0x04000101 1999 .word 0x00040001, 0x04000000, 0x04000101, 0x00040100 2000 .word 0x04000100, 0x00040000, 0x04040000, 0x00000001 2001 .word 0x04040101, 0x00000101, 0x00000001, 0x04040001 2002 .word 0x00000000, 0x00040001, 0x04040100, 0x00000100 2003 .word 0x00000101, 0x04040101, 0x00040000, 0x04000001 2004 .word 0x04040001, 0x04000100, 0x00040101, 0x04040000 2005 .word 0x00040100, 0x00000000, 0x04000000, 0x00040101 2006 .word 0x04040100, 0x00000100, 0x00000001, 0x00040000 2007 .word 0x00000101, 0x00040001, 0x04040000, 0x04000101 2008 .word 0x00000000, 0x04040100, 0x00040100, 0x04040001 2009 .word 0x00040001, 0x04000000, 0x04040101, 0x00000001 2010 .word 0x00040101, 0x04000001, 0x04000000, 0x04040101 2011 .word 0x00040000, 0x04000100, 0x04000101, 0x00040100 2012 .word 0x04000100, 0x00000000, 0x04040001, 0x00000101 2013 .word 0x04000001, 0x00040101, 0x00000100, 0x04040000 2014 ! nibble 3 2015 .word 0x00401008, 0x10001000, 0x00000008, 0x10401008 2016 .word 0x00000000, 0x10400000, 0x10001008, 0x00400008 2017 .word 0x10401000, 0x10000008, 0x10000000, 0x00001008 2018 .word 0x10000008, 0x00401008, 0x00400000, 0x10000000 2019 .word 0x10400008, 0x00401000, 0x00001000, 0x00000008 2020 .word 0x00401000, 0x10001008, 0x10400000, 0x00001000 2021 .word 0x00001008, 0x00000000, 0x00400008, 0x10401000 2022 .word 0x10001000, 0x10400008, 0x10401008, 0x00400000 2023 .word 0x10400008, 0x00001008, 0x00400000, 0x10000008 2024 .word 0x00401000, 0x10001000, 0x00000008, 0x10400000 2025 .word 0x10001008, 0x00000000, 0x00001000, 0x00400008 2026 .word 0x00000000, 0x10400008, 0x10401000, 0x00001000 2027 .word 0x10000000, 0x10401008, 0x00401008, 0x00400000 2028 .word 0x10401008, 0x00000008, 0x10001000, 0x00401008 2029 .word 0x00400008, 0x00401000, 0x10400000, 0x10001008 2030 .word 0x00001008, 0x10000000, 0x10000008, 0x10401000 2031 ! nibble 4 2032 .word 0x08000000, 0x00010000, 0x00000400, 0x08010420 2033 .word 0x08010020, 0x08000400, 0x00010420, 0x08010000 2034 .word 0x00010000, 0x00000020, 0x08000020, 0x00010400 2035 .word 0x08000420, 0x08010020, 0x08010400, 0x00000000 2036 .word 0x00010400, 0x08000000, 0x00010020, 0x00000420 2037 .word 0x08000400, 0x00010420, 0x00000000, 0x08000020 2038 .word 0x00000020, 0x08000420, 0x08010420, 0x00010020 2039 .word 0x08010000, 0x00000400, 0x00000420, 0x08010400 2040 .word 0x08010400, 0x08000420, 0x00010020, 0x08010000 2041 .word 0x00010000, 0x00000020, 0x08000020, 0x08000400 2042 .word 0x08000000, 0x00010400, 0x08010420, 0x00000000 2043 .word 0x00010420, 0x08000000, 0x00000400, 0x00010020 2044 .word 0x08000420, 0x00000400, 0x00000000, 0x08010420 2045 .word 0x08010020, 0x08010400, 0x00000420, 0x00010000 2046 .word 0x00010400, 0x08010020, 0x08000400, 0x00000420 2047 .word 0x00000020, 0x00010420, 0x08010000, 0x08000020 2048 ! nibble 5 2049 .word 0x80000040, 0x00200040, 0x00000000, 0x80202000 2050 .word 0x00200040, 0x00002000, 0x80002040, 0x00200000 2051 .word 0x00002040, 0x80202040, 0x00202000, 0x80000000 2052 .word 0x80002000, 0x80000040, 0x80200000, 0x00202040 2053 .word 0x00200000, 0x80002040, 0x80200040, 0x00000000 2054 .word 0x00002000, 0x00000040, 0x80202000, 0x80200040 2055 .word 0x80202040, 0x80200000, 0x80000000, 0x00002040 2056 .word 0x00000040, 0x00202000, 0x00202040, 0x80002000 2057 .word 0x00002040, 0x80000000, 0x80002000, 0x00202040 2058 .word 0x80202000, 0x00200040, 0x00000000, 0x80002000 2059 .word 0x80000000, 0x00002000, 0x80200040, 0x00200000 2060 .word 0x00200040, 0x80202040, 0x00202000, 0x00000040 2061 .word 0x80202040, 0x00202000, 0x00200000, 0x80002040 2062 .word 0x80000040, 0x80200000, 0x00202040, 0x00000000 2063 .word 0x00002000, 0x80000040, 0x80002040, 0x80202000 2064 .word 0x80200000, 0x00002040, 0x00000040, 0x80200040 2065 ! nibble 6 2066 .word 0x00004000, 0x00000200, 0x01000200, 0x01000004 2067 .word 0x01004204, 0x00004004, 0x00004200, 0x00000000 2068 .word 0x01000000, 0x01000204, 0x00000204, 0x01004000 2069 .word 0x00000004, 0x01004200, 0x01004000, 0x00000204 2070 .word 0x01000204, 0x00004000, 0x00004004, 0x01004204 2071 .word 0x00000000, 0x01000200, 0x01000004, 0x00004200 2072 .word 0x01004004, 0x00004204, 0x01004200, 0x00000004 2073 .word 0x00004204, 0x01004004, 0x00000200, 0x01000000 2074 .word 0x00004204, 0x01004000, 0x01004004, 0x00000204 2075 .word 0x00004000, 0x00000200, 0x01000000, 0x01004004 2076 .word 0x01000204, 0x00004204, 0x00004200, 0x00000000 2077 .word 0x00000200, 0x01000004, 0x00000004, 0x01000200 2078 .word 0x00000000, 0x01000204, 0x01000200, 0x00004200 2079 .word 0x00000204, 0x00004000, 0x01004204, 0x01000000 2080 .word 0x01004200, 0x00000004, 0x00004004, 0x01004204 2081 .word 0x01000004, 0x01004200, 0x01004000, 0x00004004 2082 ! nibble 7 2083 .word 0x20800080, 0x20820000, 0x00020080, 0x00000000 2084 .word 0x20020000, 0x00800080, 0x20800000, 0x20820080 2085 .word 0x00000080, 0x20000000, 0x00820000, 0x00020080 2086 .word 0x00820080, 0x20020080, 0x20000080, 0x20800000 2087 .word 0x00020000, 0x00820080, 0x00800080, 0x20020000 2088 .word 0x20820080, 0x20000080, 0x00000000, 0x00820000 2089 .word 0x20000000, 0x00800000, 0x20020080, 0x20800080 2090 .word 0x00800000, 0x00020000, 0x20820000, 0x00000080 2091 .word 0x00800000, 0x00020000, 0x20000080, 0x20820080 2092 .word 0x00020080, 0x20000000, 0x00000000, 0x00820000 2093 .word 0x20800080, 0x20020080, 0x20020000, 0x00800080 2094 .word 0x20820000, 0x00000080, 0x00800080, 0x20020000 2095 .word 0x20820080, 0x00800000, 0x20800000, 0x20000080 2096 .word 0x00820000, 0x00020080, 0x20020080, 0x20800000 2097 .word 0x00000080, 0x20820000, 0x00820080, 0x00000000 2098 .word 0x20000000, 0x20800080, 0x00020000, 0x00820080 2099 2100
