crypto/tcrypt.c

   1 /*
   2  * Quick & dirty crypto testing module.
   3  *
   4  * This will only exist until we have a better testing mechanism
   5  * (e.g. a char device).
   6  *
   7  * Copyright (c) 2002 James Morris <jmorris@intercode.com.au>
   8  * Copyright (c) 2002 Jean-Francois Dive <jef@linuxbe.org>
   9  * Copyright (c) 2007 Nokia Siemens Networks
  10  *
  11  * This program is free software; you can redistribute it and/or modify it
  12  * under the terms of the GNU General Public License as published by the Free
  13  * Software Foundation; either version 2 of the License, or (at your option)
  14  * any later version.
  15  *
  16  */
  17
  18 #include <crypto/hash.h>
  19 #include <linux/err.h>
  20 #include <linux/init.h>
  21 #include <linux/gfp.h>
  22 #include <linux/module.h>
  23 #include <linux/scatterlist.h>
  24 #include <linux/string.h>
  25 #include <linux/moduleparam.h>
  26 #include <linux/jiffies.h>
  27 #include <linux/timex.h>
  28 #include <linux/interrupt.h>
  29 #include "tcrypt.h"
  30 #include "internal.h"
  31
  32 /*
  33  * Need slab memory for testing (size in number of pages).
  34  */
  35 #define TVMEMSIZE       4
  36
  37 /*
  38 * Used by test_cipher_speed()
  39 */
  40 #define ENCRYPT 1
  41 #define DECRYPT 0
  42
  43 /*
  44  * Used by test_cipher_speed()
  45  */
  46 static unsigned int sec;
  47
  48 static char *alg = NULL;
  49 static u32 type;
  50 static u32 mask;
  51 static int mode;
  52 static char *tvmem[TVMEMSIZE];
  53
  54 static char *check[] = {
  55         "des", "md5", "des3_ede", "rot13", "sha1", "sha224", "sha256",
  56         "blowfish", "twofish", "serpent", "sha384", "sha512", "md4", "aes",
  57         "cast6", "arc4", "michael_mic", "deflate", "crc32c", "tea", "xtea",
  58         "khazad", "wp512", "wp384", "wp256", "tnepres", "xeta",  "fcrypt",
  59         "camellia", "seed", "salsa20", "rmd128", "rmd160", "rmd256", "rmd320",
  60         "lzo", "cts", "zlib", NULL
  61 };
  62
  63 static int test_cipher_jiffies(struct blkcipher_desc *desc, int enc,
  64                                struct scatterlist *sg, int blen, int sec)
  65 {
  66         unsigned long start, end;
  67         int bcount;
  68         int ret;
  69
  70         for (start = jiffies, end = start + sec * HZ, bcount = 0;
  71              time_before(jiffies, end); bcount++) {
  72                 if (enc)
  73                         ret = crypto_blkcipher_encrypt(desc, sg, sg, blen);
  74                 else
  75                         ret = crypto_blkcipher_decrypt(desc, sg, sg, blen);
  76
  77                 if (ret)
  78                         return ret;
  79         }
  80
  81         printk("%d operations in %d seconds (%ld bytes)\n",
  82                bcount, sec, (long)bcount * blen);
  83         return 0;
  84 }
  85
  86 static int test_cipher_cycles(struct blkcipher_desc *desc, int enc,
  87                               struct scatterlist *sg, int blen)
  88 {
  89         unsigned long cycles = 0;
  90         int ret = 0;
  91         int i;
  92
  93         local_bh_disable();
  94         local_irq_disable();
  95
  96         /* Warm-up run. */
  97         for (i = 0; i < 4; i++) {
  98                 if (enc)
  99                         ret = crypto_blkcipher_encrypt(desc, sg, sg, blen);
 100                 else
 101                         ret = crypto_blkcipher_decrypt(desc, sg, sg, blen);
 102
 103                 if (ret)
 104                         goto out;
 105         }
 106
 107         /* The real thing. */
 108         for (i = 0; i < 8; i++) {
 109                 cycles_t start, end;
 110
 111                 start = get_cycles();
 112                 if (enc)
 113                         ret = crypto_blkcipher_encrypt(desc, sg, sg, blen);
 114                 else
 115                         ret = crypto_blkcipher_decrypt(desc, sg, sg, blen);
 116                 end = get_cycles();
 117
 118                 if (ret)
 119                         goto out;
 120
 121                 cycles += end - start;
 122         }
 123
 124 out:
 125         local_irq_enable();
 126         local_bh_enable();
 127
 128         if (ret == 0)
 129                 printk("1 operation in %lu cycles (%d bytes)\n",
 130                        (cycles + 4) / 8, blen);
 131
 132         return ret;
 133 }
 134
 135 static u32 block_sizes[] = { 16, 64, 256, 1024, 8192, 0 };
 136
 137 static void test_cipher_speed(const char *algo, int enc, unsigned int sec,
 138                               struct cipher_speed_template *template,
 139                               unsigned int tcount, u8 *keysize)
 140 {
 141         unsigned int ret, i, j, iv_len;
 142         const char *key, iv[128];
 143         struct crypto_blkcipher *tfm;
 144         struct blkcipher_desc desc;
 145         const char *e;
 146         u32 *b_size;
 147
 148         if (enc == ENCRYPT)
 149                 e = "encryption";
 150         else
 151                 e = "decryption";
 152
 153         printk("\ntesting speed of %s %s\n", algo, e);
 154
 155         tfm = crypto_alloc_blkcipher(algo, 0, CRYPTO_ALG_ASYNC);
 156
 157         if (IS_ERR(tfm)) {
 158                 printk("failed to load transform for %s: %ld\n", algo,
 159                        PTR_ERR(tfm));
 160                 return;
 161         }
 162         desc.tfm = tfm;
 163         desc.flags = 0;
 164
 165         i = 0;
 166         do {
 167
 168                 b_size = block_sizes;
 169                 do {
 170                         struct scatterlist sg[TVMEMSIZE];
 171
 172                         if ((*keysize + *b_size) > TVMEMSIZE * PAGE_SIZE) {
 173                                 printk("template (%u) too big for "
 174                                        "tvmem (%lu)\n", *keysize + *b_size,
 175                                        TVMEMSIZE * PAGE_SIZE);
 176                                 goto out;
 177                         }
 178
 179                         printk("test %u (%d bit key, %d byte blocks): ", i,
 180                                         *keysize * 8, *b_size);
 181
 182                         memset(tvmem[0], 0xff, PAGE_SIZE);
 183
 184                         /* set key, plain text and IV */
 185                         key = tvmem[0];
 186                         for (j = 0; j < tcount; j++) {
 187                                 if (template[j].klen == *keysize) {
 188                                         key = template[j].key;
 189                                         break;
 190                                 }
 191                         }
 192
 193                         ret = crypto_blkcipher_setkey(tfm, key, *keysize);
 194                         if (ret) {
 195                                 printk("setkey() failed flags=%x\n",
 196                                                 crypto_blkcipher_get_flags(tfm));
 197                                 goto out;
 198                         }
 199
 200                         sg_init_table(sg, TVMEMSIZE);
 201                         sg_set_buf(sg, tvmem[0] + *keysize,
 202                                    PAGE_SIZE - *keysize);
 203                         for (j = 1; j < TVMEMSIZE; j++) {
 204                                 sg_set_buf(sg + j, tvmem[j], PAGE_SIZE);
 205                                 memset (tvmem[j], 0xff, PAGE_SIZE);
 206                         }
 207
 208                         iv_len = crypto_blkcipher_ivsize(tfm);
 209                         if (iv_len) {
 210                                 memset(&iv, 0xff, iv_len);
 211                                 crypto_blkcipher_set_iv(tfm, iv, iv_len);
 212                         }
 213
 214                         if (sec)
 215                                 ret = test_cipher_jiffies(&desc, enc, sg,
 216                                                           *b_size, sec);
 217                         else
 218                                 ret = test_cipher_cycles(&desc, enc, sg,
 219                                                          *b_size);
 220
 221                         if (ret) {
 222                                 printk("%s() failed flags=%x\n", e, desc.flags);
 223                                 break;
 224                         }
 225                         b_size++;
 226                         i++;
 227                 } while (*b_size);
 228                 keysize++;
 229         } while (*keysize);
 230
 231 out:
 232         crypto_free_blkcipher(tfm);
 233 }
 234
 235 static int test_hash_jiffies_digest(struct hash_desc *desc,
 236                                     struct scatterlist *sg, int blen,
 237                                     char *out, int sec)
 238 {
 239         unsigned long start, end;
 240         int bcount;
 241         int ret;
 242
 243         for (start = jiffies, end = start + sec * HZ, bcount = 0;
 244              time_before(jiffies, end); bcount++) {
 245                 ret = crypto_hash_digest(desc, sg, blen, out);
 246                 if (ret)
 247                         return ret;
 248         }
 249
 250         printk("%6u opers/sec, %9lu bytes/sec\n",
 251                bcount / sec, ((long)bcount * blen) / sec);
 252
 253         return 0;
 254 }
 255
 256 static int test_hash_jiffies(struct hash_desc *desc, struct scatterlist *sg,
 257                              int blen, int plen, char *out, int sec)
 258 {
 259         unsigned long start, end;
 260         int bcount, pcount;
 261         int ret;
 262
 263         if (plen == blen)
 264                 return test_hash_jiffies_digest(desc, sg, blen, out, sec);
 265
 266         for (start = jiffies, end = start + sec * HZ, bcount = 0;
 267              time_before(jiffies, end); bcount++) {
 268                 ret = crypto_hash_init(desc);
 269                 if (ret)
 270                         return ret;
 271                 for (pcount = 0; pcount < blen; pcount += plen) {
 272                         ret = crypto_hash_update(desc, sg, plen);
 273                         if (ret)
 274                                 return ret;
 275                 }
 276                 /* we assume there is enough space in 'out' for the result */
 277                 ret = crypto_hash_final(desc, out);
 278                 if (ret)
 279                         return ret;
 280         }
 281
 282         printk("%6u opers/sec, %9lu bytes/sec\n",
 283                bcount / sec, ((long)bcount * blen) / sec);
 284
 285         return 0;
 286 }
 287
 288 static int test_hash_cycles_digest(struct hash_desc *desc,
 289                                    struct scatterlist *sg, int blen, char *out)
 290 {
 291         unsigned long cycles = 0;
 292         int i;
 293         int ret;
 294
 295         local_bh_disable();
 296         local_irq_disable();
 297
 298         /* Warm-up run. */
 299         for (i = 0; i < 4; i++) {
 300                 ret = crypto_hash_digest(desc, sg, blen, out);
 301                 if (ret)
 302                         goto out;
 303         }
 304
 305         /* The real thing. */
 306         for (i = 0; i < 8; i++) {
 307                 cycles_t start, end;
 308
 309                 start = get_cycles();
 310
 311                 ret = crypto_hash_digest(desc, sg, blen, out);
 312                 if (ret)
 313                         goto out;
 314
 315                 end = get_cycles();
 316
 317                 cycles += end - start;
 318         }
 319
 320 out:
 321         local_irq_enable();
 322         local_bh_enable();
 323
 324         if (ret)
 325                 return ret;
 326
 327         printk("%6lu cycles/operation, %4lu cycles/byte\n",
 328                cycles / 8, cycles / (8 * blen));
 329
 330         return 0;
 331 }
 332
 333 static int test_hash_cycles(struct hash_desc *desc, struct scatterlist *sg,
 334                             int blen, int plen, char *out)
 335 {
 336         unsigned long cycles = 0;
 337         int i, pcount;
 338         int ret;
 339
 340         if (plen == blen)
 341                 return test_hash_cycles_digest(desc, sg, blen, out);
 342
 343         local_bh_disable();
 344         local_irq_disable();
 345
 346         /* Warm-up run. */
 347         for (i = 0; i < 4; i++) {
 348                 ret = crypto_hash_init(desc);
 349                 if (ret)
 350                         goto out;
 351                 for (pcount = 0; pcount < blen; pcount += plen) {
 352                         ret = crypto_hash_update(desc, sg, plen);
 353                         if (ret)
 354                                 goto out;
 355                 }
 356                 ret = crypto_hash_final(desc, out);
 357                 if (ret)
 358                         goto out;
 359         }
 360
 361         /* The real thing. */
 362         for (i = 0; i < 8; i++) {
 363                 cycles_t start, end;
 364
 365                 start = get_cycles();
 366
 367                 ret = crypto_hash_init(desc);
 368                 if (ret)
 369                         goto out;
 370                 for (pcount = 0; pcount < blen; pcount += plen) {
 371                         ret = crypto_hash_update(desc, sg, plen);
 372                         if (ret)
 373                                 goto out;
 374                 }
 375                 ret = crypto_hash_final(desc, out);
 376                 if (ret)
 377                         goto out;
 378
 379                 end = get_cycles();
 380
 381                 cycles += end - start;
 382         }
 383
 384 out:
 385         local_irq_enable();
 386         local_bh_enable();
 387
 388         if (ret)
 389                 return ret;
 390
 391         printk("%6lu cycles/operation, %4lu cycles/byte\n",
 392                cycles / 8, cycles / (8 * blen));
 393
 394         return 0;
 395 }
 396
 397 static void test_hash_speed(const char *algo, unsigned int sec,
 398                             struct hash_speed *speed)
 399 {
 400         struct scatterlist sg[TVMEMSIZE];
 401         struct crypto_hash *tfm;
 402         struct hash_desc desc;
 403         static char output[1024];
 404         int i;
 405         int ret;
 406
 407         printk(KERN_INFO "\ntesting speed of %s\n", algo);
 408
 409         tfm = crypto_alloc_hash(algo, 0, CRYPTO_ALG_ASYNC);
 410
 411         if (IS_ERR(tfm)) {
 412                 printk(KERN_ERR "failed to load transform for %s: %ld\n", algo,
 413                        PTR_ERR(tfm));
 414                 return;
 415         }
 416
 417         desc.tfm = tfm;
 418         desc.flags = 0;
 419
 420         if (crypto_hash_digestsize(tfm) > sizeof(output)) {
 421                 printk(KERN_ERR "digestsize(%u) > outputbuffer(%zu)\n",
 422                        crypto_hash_digestsize(tfm), sizeof(output));
 423                 goto out;
 424         }
 425
 426         sg_init_table(sg, TVMEMSIZE);
 427         for (i = 0; i < TVMEMSIZE; i++) {
 428                 sg_set_buf(sg + i, tvmem[i], PAGE_SIZE);
 429                 memset(tvmem[i], 0xff, PAGE_SIZE);
 430         }
 431
 432         for (i = 0; speed[i].blen != 0; i++) {
 433                 if (speed[i].blen > TVMEMSIZE * PAGE_SIZE) {
 434                         printk(KERN_ERR
 435                                "template (%u) too big for tvmem (%lu)\n",
 436                                speed[i].blen, TVMEMSIZE * PAGE_SIZE);
 437                         goto out;
 438                 }
 439
 440                 printk(KERN_INFO "test%3u "
 441                        "(%5u byte blocks,%5u bytes per update,%4u updates): ",
 442                        i, speed[i].blen, speed[i].plen, speed[i].blen / speed[i].plen);
 443
 444                 if (sec)
 445                         ret = test_hash_jiffies(&desc, sg, speed[i].blen,
 446                                                 speed[i].plen, output, sec);
 447                 else
 448                         ret = test_hash_cycles(&desc, sg, speed[i].blen,
 449                                                speed[i].plen, output);
 450
 451                 if (ret) {
 452                         printk(KERN_ERR "hashing failed ret=%d\n", ret);
 453                         break;
 454                 }
 455         }
 456
 457 out:
 458         crypto_free_hash(tfm);
 459 }
 460
 461 static void test_available(void)
 462 {
 463         char **name = check;
 464
 465         while (*name) {
 466                 printk("alg %s ", *name);
 467                 printk(crypto_has_alg(*name, 0, 0) ?
 468                        "found\n" : "not found\n");
 469                 name++;
 470         }
 471 }
 472
 473 static inline int tcrypt_test(const char *alg)
 474 {
 475         int ret;
 476
 477         ret = alg_test(alg, alg, 0, 0);
 478         /* non-fips algs return -EINVAL in fips mode */
 479         if (fips_enabled && ret == -EINVAL)
 480                 ret = 0;
 481         return ret;
 482 }
 483
 484 static int do_test(int m)
 485 {
 486         int i;
 487         int ret = 0;
 488
 489         switch (m) {
 490         case 0:
 491                 for (i = 1; i < 200; i++)
 492                         ret += do_test(i);
 493                 break;
 494
 495         case 1:
 496                 ret += tcrypt_test("md5");
 497                 break;
 498
 499         case 2:
 500                 ret += tcrypt_test("sha1");
 501                 break;
 502
 503         case 3:
 504                 ret += tcrypt_test("ecb(des)");
 505                 ret += tcrypt_test("cbc(des)");
 506                 break;
 507
 508         case 4:
 509                 ret += tcrypt_test("ecb(des3_ede)");
 510                 ret += tcrypt_test("cbc(des3_ede)");
 511                 break;
 512
 513         case 5:
 514                 ret += tcrypt_test("md4");
 515                 break;
 516
 517         case 6:
 518                 ret += tcrypt_test("sha256");
 519                 break;
 520
 521         case 7:
 522                 ret += tcrypt_test("ecb(blowfish)");
 523                 ret += tcrypt_test("cbc(blowfish)");
 524                 break;
 525
 526         case 8:
 527                 ret += tcrypt_test("ecb(twofish)");
 528                 ret += tcrypt_test("cbc(twofish)");
 529                 break;
 530
 531         case 9:
 532                 ret += tcrypt_test("ecb(serpent)");
 533                 break;
 534
 535         case 10:
 536                 ret += tcrypt_test("ecb(aes)");
 537                 ret += tcrypt_test("cbc(aes)");
 538                 ret += tcrypt_test("lrw(aes)");
 539                 ret += tcrypt_test("xts(aes)");
 540                 ret += tcrypt_test("ctr(aes)");
 541                 ret += tcrypt_test("rfc3686(ctr(aes))");
 542                 break;
 543
 544         case 11:
 545                 ret += tcrypt_test("sha384");
 546                 break;
 547
 548         case 12:
 549                 ret += tcrypt_test("sha512");
 550                 break;
 551
 552         case 13:
 553                 ret += tcrypt_test("deflate");
 554                 break;
 555
 556         case 14:
 557                 ret += tcrypt_test("ecb(cast5)");
 558                 break;
 559
 560         case 15:
 561                 ret += tcrypt_test("ecb(cast6)");
 562                 break;
 563
 564         case 16:
 565                 ret += tcrypt_test("ecb(arc4)");
 566                 break;
 567
 568         case 17:
 569                 ret += tcrypt_test("michael_mic");
 570                 break;
 571
 572         case 18:
 573                 ret += tcrypt_test("crc32c");
 574                 break;
 575
 576         case 19:
 577                 ret += tcrypt_test("ecb(tea)");
 578                 break;
 579
 580         case 20:
 581                 ret += tcrypt_test("ecb(xtea)");
 582                 break;
 583
 584         case 21:
 585                 ret += tcrypt_test("ecb(khazad)");
 586                 break;
 587
 588         case 22:
 589                 ret += tcrypt_test("wp512");
 590                 break;
 591
 592         case 23:
 593                 ret += tcrypt_test("wp384");
 594                 break;
 595
 596         case 24:
 597                 ret += tcrypt_test("wp256");
 598                 break;
 599
 600         case 25:
 601                 ret += tcrypt_test("ecb(tnepres)");
 602                 break;
 603
 604         case 26:
 605                 ret += tcrypt_test("ecb(anubis)");
 606                 ret += tcrypt_test("cbc(anubis)");
 607                 break;
 608
 609         case 27:
 610                 ret += tcrypt_test("tgr192");
 611                 break;
 612
 613         case 28:
 614
 615                 ret += tcrypt_test("tgr160");
 616                 break;
 617
 618         case 29:
 619                 ret += tcrypt_test("tgr128");
 620                 break;
 621
 622         case 30:
 623                 ret += tcrypt_test("ecb(xeta)");
 624                 break;
 625
 626         case 31:
 627                 ret += tcrypt_test("pcbc(fcrypt)");
 628                 break;
 629
 630         case 32:
 631                 ret += tcrypt_test("ecb(camellia)");
 632                 ret += tcrypt_test("cbc(camellia)");
 633                 break;
 634         case 33:
 635                 ret += tcrypt_test("sha224");
 636                 break;
 637
 638         case 34:
 639                 ret += tcrypt_test("salsa20");
 640                 break;
 641
 642         case 35:
 643                 ret += tcrypt_test("gcm(aes)");
 644                 break;
 645
 646         case 36:
 647                 ret += tcrypt_test("lzo");
 648                 break;
 649
 650         case 37:
 651                 ret += tcrypt_test("ccm(aes)");
 652                 break;
 653
 654         case 38:
 655                 ret += tcrypt_test("cts(cbc(aes))");
 656                 break;
 657
 658         case 39:
 659                 ret += tcrypt_test("rmd128");
 660                 break;
 661
 662         case 40:
 663                 ret += tcrypt_test("rmd160");
 664                 break;
 665
 666         case 41:
 667                 ret += tcrypt_test("rmd256");
 668                 break;
 669
 670         case 42:
 671                 ret += tcrypt_test("rmd320");
 672                 break;
 673
 674         case 43:
 675                 ret += tcrypt_test("ecb(seed)");
 676                 break;
 677
 678         case 44:
 679                 ret += tcrypt_test("zlib");
 680                 break;
 681
 682         case 45:
 683                 ret += tcrypt_test("rfc4309(ccm(aes))");
 684                 break;
 685
 686         case 100:
 687                 ret += tcrypt_test("hmac(md5)");
 688                 break;
 689
 690         case 101:
 691                 ret += tcrypt_test("hmac(sha1)");
 692                 break;
 693
 694         case 102:
 695                 ret += tcrypt_test("hmac(sha256)");
 696                 break;
 697
 698         case 103:
 699                 ret += tcrypt_test("hmac(sha384)");
 700                 break;
 701
 702         case 104:
 703                 ret += tcrypt_test("hmac(sha512)");
 704                 break;
 705
 706         case 105:
 707                 ret += tcrypt_test("hmac(sha224)");
 708                 break;
 709
 710         case 106:
 711                 ret += tcrypt_test("xcbc(aes)");
 712                 break;
 713
 714         case 107:
 715                 ret += tcrypt_test("hmac(rmd128)");
 716                 break;
 717
 718         case 108:
 719                 ret += tcrypt_test("hmac(rmd160)");
 720                 break;
 721
 722         case 109:
 723                 ret += tcrypt_test("vmac(aes)");
 724                 break;
 725
 726         case 150:
 727                 ret += tcrypt_test("ansi_cprng");
 728                 break;
 729
 730         case 200:
 731                 test_cipher_speed("ecb(aes)", ENCRYPT, sec, NULL, 0,
 732                                 speed_template_16_24_32);
 733                 test_cipher_speed("ecb(aes)", DECRYPT, sec, NULL, 0,
 734                                 speed_template_16_24_32);
 735                 test_cipher_speed("cbc(aes)", ENCRYPT, sec, NULL, 0,
 736                                 speed_template_16_24_32);
 737                 test_cipher_speed("cbc(aes)", DECRYPT, sec, NULL, 0,
 738                                 speed_template_16_24_32);
 739                 test_cipher_speed("lrw(aes)", ENCRYPT, sec, NULL, 0,
 740                                 speed_template_32_40_48);
 741                 test_cipher_speed("lrw(aes)", DECRYPT, sec, NULL, 0,
 742                                 speed_template_32_40_48);
 743                 test_cipher_speed("xts(aes)", ENCRYPT, sec, NULL, 0,
 744                                 speed_template_32_48_64);
 745                 test_cipher_speed("xts(aes)", DECRYPT, sec, NULL, 0,
 746                                 speed_template_32_48_64);
 747                 break;
 748
 749         case 201:
 750                 test_cipher_speed("ecb(des3_ede)", ENCRYPT, sec,
 751                                 des3_speed_template, DES3_SPEED_VECTORS,
 752                                 speed_template_24);
 753                 test_cipher_speed("ecb(des3_ede)", DECRYPT, sec,
 754                                 des3_speed_template, DES3_SPEED_VECTORS,
 755                                 speed_template_24);
 756                 test_cipher_speed("cbc(des3_ede)", ENCRYPT, sec,
 757                                 des3_speed_template, DES3_SPEED_VECTORS,
 758                                 speed_template_24);
 759                 test_cipher_speed("cbc(des3_ede)", DECRYPT, sec,
 760                                 des3_speed_template, DES3_SPEED_VECTORS,
 761                                 speed_template_24);
 762                 break;
 763
 764         case 202:
 765                 test_cipher_speed("ecb(twofish)", ENCRYPT, sec, NULL, 0,
 766                                 speed_template_16_24_32);
 767                 test_cipher_speed("ecb(twofish)", DECRYPT, sec, NULL, 0,
 768                                 speed_template_16_24_32);
 769                 test_cipher_speed("cbc(twofish)", ENCRYPT, sec, NULL, 0,
 770                                 speed_template_16_24_32);
 771                 test_cipher_speed("cbc(twofish)", DECRYPT, sec, NULL, 0,
 772                                 speed_template_16_24_32);
 773                 break;
 774
 775         case 203:
 776                 test_cipher_speed("ecb(blowfish)", ENCRYPT, sec, NULL, 0,
 777                                   speed_template_8_32);
 778                 test_cipher_speed("ecb(blowfish)", DECRYPT, sec, NULL, 0,
 779                                   speed_template_8_32);
 780                 test_cipher_speed("cbc(blowfish)", ENCRYPT, sec, NULL, 0,
 781                                   speed_template_8_32);
 782                 test_cipher_speed("cbc(blowfish)", DECRYPT, sec, NULL, 0,
 783                                   speed_template_8_32);
 784                 break;
 785
 786         case 204:
 787                 test_cipher_speed("ecb(des)", ENCRYPT, sec, NULL, 0,
 788                                   speed_template_8);
 789                 test_cipher_speed("ecb(des)", DECRYPT, sec, NULL, 0,
 790                                   speed_template_8);
 791                 test_cipher_speed("cbc(des)", ENCRYPT, sec, NULL, 0,
 792                                   speed_template_8);
 793                 test_cipher_speed("cbc(des)", DECRYPT, sec, NULL, 0,
 794                                   speed_template_8);
 795                 break;
 796
 797         case 205:
 798                 test_cipher_speed("ecb(camellia)", ENCRYPT, sec, NULL, 0,
 799                                 speed_template_16_24_32);
 800                 test_cipher_speed("ecb(camellia)", DECRYPT, sec, NULL, 0,
 801                                 speed_template_16_24_32);
 802                 test_cipher_speed("cbc(camellia)", ENCRYPT, sec, NULL, 0,
 803                                 speed_template_16_24_32);
 804                 test_cipher_speed("cbc(camellia)", DECRYPT, sec, NULL, 0,
 805                                 speed_template_16_24_32);
 806                 break;
 807
 808         case 206:
 809                 test_cipher_speed("salsa20", ENCRYPT, sec, NULL, 0,
 810                                   speed_template_16_32);
 811                 break;
 812
 813         case 300:
 814                 /* fall through */
 815
 816         case 301:
 817                 test_hash_speed("md4", sec, generic_hash_speed_template);
 818                 if (mode > 300 && mode < 400) break;
 819
 820         case 302:
 821                 test_hash_speed("md5", sec, generic_hash_speed_template);
 822                 if (mode > 300 && mode < 400) break;
 823
 824         case 303:
 825                 test_hash_speed("sha1", sec, generic_hash_speed_template);
 826                 if (mode > 300 && mode < 400) break;
 827
 828         case 304:
 829                 test_hash_speed("sha256", sec, generic_hash_speed_template);
 830                 if (mode > 300 && mode < 400) break;
 831
 832         case 305:
 833                 test_hash_speed("sha384", sec, generic_hash_speed_template);
 834                 if (mode > 300 && mode < 400) break;
 835
 836         case 306:
 837                 test_hash_speed("sha512", sec, generic_hash_speed_template);
 838                 if (mode > 300 && mode < 400) break;
 839
 840         case 307:
 841                 test_hash_speed("wp256", sec, generic_hash_speed_template);
 842                 if (mode > 300 && mode < 400) break;
 843
 844         case 308:
 845                 test_hash_speed("wp384", sec, generic_hash_speed_template);
 846                 if (mode > 300 && mode < 400) break;
 847
 848         case 309:
 849                 test_hash_speed("wp512", sec, generic_hash_speed_template);
 850                 if (mode > 300 && mode < 400) break;
 851
 852         case 310:
 853                 test_hash_speed("tgr128", sec, generic_hash_speed_template);
 854                 if (mode > 300 && mode < 400) break;
 855
 856         case 311:
 857                 test_hash_speed("tgr160", sec, generic_hash_speed_template);
 858                 if (mode > 300 && mode < 400) break;
 859
 860         case 312:
 861                 test_hash_speed("tgr192", sec, generic_hash_speed_template);
 862                 if (mode > 300 && mode < 400) break;
 863
 864         case 313:
 865                 test_hash_speed("sha224", sec, generic_hash_speed_template);
 866                 if (mode > 300 && mode < 400) break;
 867
 868         case 314:
 869                 test_hash_speed("rmd128", sec, generic_hash_speed_template);
 870                 if (mode > 300 && mode < 400) break;
 871
 872         case 315:
 873                 test_hash_speed("rmd160", sec, generic_hash_speed_template);
 874                 if (mode > 300 && mode < 400) break;
 875
 876         case 316:
 877                 test_hash_speed("rmd256", sec, generic_hash_speed_template);
 878                 if (mode > 300 && mode < 400) break;
 879
 880         case 317:
 881                 test_hash_speed("rmd320", sec, generic_hash_speed_template);
 882                 if (mode > 300 && mode < 400) break;
 883
 884         case 399:
 885                 break;
 886
 887         case 1000:
 888                 test_available();
 889                 break;
 890         }
 891
 892         return ret;
 893 }
 894
 895 static int do_alg_test(const char *alg, u32 type, u32 mask)
 896 {
 897         return crypto_has_alg(alg, type, mask ?: CRYPTO_ALG_TYPE_MASK) ?
 898                0 : -ENOENT;
 899 }
 900
 901 static int __init tcrypt_mod_init(void)
 902 {
 903         int err = -ENOMEM;
 904         int i;
 905
 906         for (i = 0; i < TVMEMSIZE; i++) {
 907                 tvmem[i] = (void *)__get_free_page(GFP_KERNEL);
 908                 if (!tvmem[i])
 909                         goto err_free_tv;
 910         }
 911
 912         if (alg)
 913                 err = do_alg_test(alg, type, mask);
 914         else
 915                 err = do_test(mode);
 916
 917         if (err) {
 918                 printk(KERN_ERR "tcrypt: one or more tests failed!\n");
 919                 goto err_free_tv;
 920         }
 921
 922         /* We intentionaly return -EAGAIN to prevent keeping the module,
 923          * unless we're running in fips mode. It does all its work from
 924          * init() and doesn't offer any runtime functionality, but in
 925          * the fips case, checking for a successful load is helpful.
 926          * => we don't need it in the memory, do we?
 927          *                                        -- mludvig
 928          */
 929         if (!fips_enabled)
 930                 err = -EAGAIN;
 931
 932 err_free_tv:
 933         for (i = 0; i < TVMEMSIZE && tvmem[i]; i++)
 934                 free_page((unsigned long)tvmem[i]);
 935
 936         return err;
 937 }
 938
 939 /*
 940  * If an init function is provided, an exit function must also be provided
 941  * to allow module unload.
 942  */
 943 static void __exit tcrypt_mod_fini(void) { }
 944
 945 module_init(tcrypt_mod_init);
 946 module_exit(tcrypt_mod_fini);
 947
 948 module_param(alg, charp, 0);
 949 module_param(type, uint, 0);
 950 module_param(mask, uint, 0);
 951 module_param(mode, int, 0);
 952 module_param(sec, uint, 0);
 953 MODULE_PARM_DESC(sec, "Length in seconds of speed tests "
 954                       "(defaults to zero which uses CPU cycles instead)");
 955
 956 MODULE_LICENSE("GPL");
 957 MODULE_DESCRIPTION("Quick & dirty crypto testing module");
 958 MODULE_AUTHOR("James Morris <jmorris@intercode.com.au>");