OpenCL/m08500_a0.cl

   1 /**
   2  * Authors.....: Jens Steube <jens.steube@gmail.com>
   3  *               Gabriele Gristina <matrix@hashcat.net>
   4  *
   5  * License.....: MIT
   6  */
   7
   8 #define _DES_
   9
  10 #include "include/constants.h"
  11 #include "include/kernel_vendor.h"
  12
  13 #define DGST_R0 0
  14 #define DGST_R1 1
  15 #define DGST_R2 2
  16 #define DGST_R3 3
  17
  18 #include "include/kernel_functions.c"
  19 #include "OpenCL/types_ocl.c"
  20 #include "OpenCL/common.c"
  21 #include "include/rp_kernel.h"
  22 #include "OpenCL/rp.c"
  23
  24 #define COMPARE_S "OpenCL/check_single_comp4.c"
  25 #define COMPARE_M "OpenCL/check_multi_comp4.c"
  26
  27 #define PERM_OP(a,b,tt,n,m) \
  28 {                           \
  29   tt = a >> n;              \
  30   tt = tt ^ b;              \
  31   tt = tt & m;              \
  32   b = b ^ tt;               \
  33   tt = tt << n;             \
  34   a = a ^ tt;               \
  35 }
  36
  37 #define HPERM_OP(a,tt,n,m)  \
  38 {                           \
  39   tt = a << (16 + n);       \
  40   tt = tt ^ a;              \
  41   tt = tt & m;              \
  42   a  = a ^ tt;              \
  43   tt = tt >> (16 + n);      \
  44   a  = a ^ tt;              \
  45 }
  46
  47 #define IP(l,r,tt)                     \
  48 {                                      \
  49   PERM_OP (r, l, tt,  4, 0x0f0f0f0f);  \
  50   PERM_OP (l, r, tt, 16, 0x0000ffff);  \
  51   PERM_OP (r, l, tt,  2, 0x33333333);  \
  52   PERM_OP (l, r, tt,  8, 0x00ff00ff);  \
  53   PERM_OP (r, l, tt,  1, 0x55555555);  \
  54 }
  55
  56 #define FP(l,r,tt)                     \
  57 {                                      \
  58   PERM_OP (l, r, tt,  1, 0x55555555);  \
  59   PERM_OP (r, l, tt,  8, 0x00ff00ff);  \
  60   PERM_OP (l, r, tt,  2, 0x33333333);  \
  61   PERM_OP (r, l, tt, 16, 0x0000ffff);  \
  62   PERM_OP (l, r, tt,  4, 0x0f0f0f0f);  \
  63 }
  64
  65 __constant u8 ascii_to_ebcdic_pc[256] =
  66 {
  67   // little hack, can't crack 0-bytes in password, but who cares
  68   //    0xab, 0xa8, 0xae, 0xad, 0xc4, 0xf1, 0xf7, 0xf4, 0x86, 0xa1, 0xe0, 0xbc, 0xb3, 0xb0, 0xb6, 0xb5,
  69   0x2a, 0xa8, 0xae, 0xad, 0xc4, 0xf1, 0xf7, 0xf4, 0x86, 0xa1, 0xe0, 0xbc, 0xb3, 0xb0, 0xb6, 0xb5,
  70   0x8a, 0x89, 0x8f, 0x8c, 0xd3, 0xd0, 0xce, 0xe6, 0x9b, 0x98, 0xd5, 0xe5, 0x92, 0x91, 0x97, 0x94,
  71   0x2a, 0x34, 0x54, 0x5d, 0x1c, 0x73, 0x0b, 0x51, 0x31, 0x10, 0x13, 0x37, 0x7c, 0x6b, 0x3d, 0x68,
  72   0x4a, 0x49, 0x4f, 0x4c, 0x43, 0x40, 0x46, 0x45, 0x5b, 0x58, 0x5e, 0x16, 0x32, 0x57, 0x76, 0x75,
  73   0x52, 0x29, 0x2f, 0x2c, 0x23, 0x20, 0x26, 0x25, 0x3b, 0x38, 0x08, 0x0e, 0x0d, 0x02, 0x01, 0x07,
  74   0x04, 0x1a, 0x19, 0x6e, 0x6d, 0x62, 0x61, 0x67, 0x64, 0x7a, 0x79, 0x3e, 0x6b, 0x1f, 0x15, 0x70,
  75   0x58, 0xa8, 0xae, 0xad, 0xa2, 0xa1, 0xa7, 0xa4, 0xba, 0xb9, 0x89, 0x8f, 0x8c, 0x83, 0x80, 0x86,
  76   0x85, 0x9b, 0x98, 0xef, 0xec, 0xe3, 0xe0, 0xe6, 0xe5, 0xfb, 0xf8, 0x2a, 0x7f, 0x0b, 0xe9, 0xa4,
  77   0xea, 0xe9, 0xef, 0xec, 0xe3, 0x80, 0xa7, 0x85, 0xfb, 0xf8, 0xfe, 0xfd, 0xf2, 0xb9, 0xbf, 0x9d,
  78   0xcb, 0xc8, 0x9e, 0xcd, 0xc2, 0xc1, 0xc7, 0xba, 0xda, 0xd9, 0xdf, 0xdc, 0xa2, 0x83, 0xd6, 0x68,
  79   0x29, 0x2f, 0x2c, 0x23, 0x20, 0x26, 0x25, 0x3b, 0x38, 0x08, 0x0e, 0x0d, 0x02, 0x01, 0x07, 0x04,
  80   0x1a, 0x19, 0x6e, 0x6d, 0x62, 0x61, 0x67, 0x64, 0x7a, 0x79, 0x4a, 0x49, 0x4f, 0x4c, 0x43, 0x40,
  81   0x46, 0x45, 0x5b, 0xab, 0xbf, 0xbc, 0xb3, 0xb0, 0xb6, 0xb5, 0x8a, 0x9e, 0x9d, 0x92, 0x91, 0x97,
  82   0x94, 0xea, 0xfe, 0xfd, 0xf2, 0xf1, 0xf7, 0xf4, 0xcb, 0xc8, 0xce, 0xcd, 0xc2, 0xc1, 0xc7, 0xc4,
  83   0xda, 0xd9, 0xdf, 0xdc, 0xd3, 0xd0, 0xd6, 0xd5, 0x3e, 0x3d, 0x32, 0x31, 0x37, 0x34, 0x1f, 0x1c,
  84   0x13, 0x10, 0x16, 0x15, 0x7f, 0x7c, 0x73, 0x70, 0x76, 0x75, 0x5e, 0x5d, 0x52, 0x51, 0x57, 0x54,
  85 };
  86
  87 __constant u32 c_SPtrans[8][64] =
  88 {
  89   {
  90     0x02080800, 0x00080000, 0x02000002, 0x02080802,
  91     0x02000000, 0x00080802, 0x00080002, 0x02000002,
  92     0x00080802, 0x02080800, 0x02080000, 0x00000802,
  93     0x02000802, 0x02000000, 0x00000000, 0x00080002,
  94     0x00080000, 0x00000002, 0x02000800, 0x00080800,
  95     0x02080802, 0x02080000, 0x00000802, 0x02000800,
  96     0x00000002, 0x00000800, 0x00080800, 0x02080002,
  97     0x00000800, 0x02000802, 0x02080002, 0x00000000,
  98     0x00000000, 0x02080802, 0x02000800, 0x00080002,
  99     0x02080800, 0x00080000, 0x00000802, 0x02000800,
 100     0x02080002, 0x00000800, 0x00080800, 0x02000002,
 101     0x00080802, 0x00000002, 0x02000002, 0x02080000,
 102     0x02080802, 0x00080800, 0x02080000, 0x02000802,
 103     0x02000000, 0x00000802, 0x00080002, 0x00000000,
 104     0x00080000, 0x02000000, 0x02000802, 0x02080800,
 105     0x00000002, 0x02080002, 0x00000800, 0x00080802,
 106   },
 107   {
 108     0x40108010, 0x00000000, 0x00108000, 0x40100000,
 109     0x40000010, 0x00008010, 0x40008000, 0x00108000,
 110     0x00008000, 0x40100010, 0x00000010, 0x40008000,
 111     0x00100010, 0x40108000, 0x40100000, 0x00000010,
 112     0x00100000, 0x40008010, 0x40100010, 0x00008000,
 113     0x00108010, 0x40000000, 0x00000000, 0x00100010,
 114     0x40008010, 0x00108010, 0x40108000, 0x40000010,
 115     0x40000000, 0x00100000, 0x00008010, 0x40108010,
 116     0x00100010, 0x40108000, 0x40008000, 0x00108010,
 117     0x40108010, 0x00100010, 0x40000010, 0x00000000,
 118     0x40000000, 0x00008010, 0x00100000, 0x40100010,
 119     0x00008000, 0x40000000, 0x00108010, 0x40008010,
 120     0x40108000, 0x00008000, 0x00000000, 0x40000010,
 121     0x00000010, 0x40108010, 0x00108000, 0x40100000,
 122     0x40100010, 0x00100000, 0x00008010, 0x40008000,
 123     0x40008010, 0x00000010, 0x40100000, 0x00108000,
 124   },
 125   {
 126     0x04000001, 0x04040100, 0x00000100, 0x04000101,
 127     0x00040001, 0x04000000, 0x04000101, 0x00040100,
 128     0x04000100, 0x00040000, 0x04040000, 0x00000001,
 129     0x04040101, 0x00000101, 0x00000001, 0x04040001,
 130     0x00000000, 0x00040001, 0x04040100, 0x00000100,
 131     0x00000101, 0x04040101, 0x00040000, 0x04000001,
 132     0x04040001, 0x04000100, 0x00040101, 0x04040000,
 133     0x00040100, 0x00000000, 0x04000000, 0x00040101,
 134     0x04040100, 0x00000100, 0x00000001, 0x00040000,
 135     0x00000101, 0x00040001, 0x04040000, 0x04000101,
 136     0x00000000, 0x04040100, 0x00040100, 0x04040001,
 137     0x00040001, 0x04000000, 0x04040101, 0x00000001,
 138     0x00040101, 0x04000001, 0x04000000, 0x04040101,
 139     0x00040000, 0x04000100, 0x04000101, 0x00040100,
 140     0x04000100, 0x00000000, 0x04040001, 0x00000101,
 141     0x04000001, 0x00040101, 0x00000100, 0x04040000,
 142   },
 143   {
 144     0x00401008, 0x10001000, 0x00000008, 0x10401008,
 145     0x00000000, 0x10400000, 0x10001008, 0x00400008,
 146     0x10401000, 0x10000008, 0x10000000, 0x00001008,
 147     0x10000008, 0x00401008, 0x00400000, 0x10000000,
 148     0x10400008, 0x00401000, 0x00001000, 0x00000008,
 149     0x00401000, 0x10001008, 0x10400000, 0x00001000,
 150     0x00001008, 0x00000000, 0x00400008, 0x10401000,
 151     0x10001000, 0x10400008, 0x10401008, 0x00400000,
 152     0x10400008, 0x00001008, 0x00400000, 0x10000008,
 153     0x00401000, 0x10001000, 0x00000008, 0x10400000,
 154     0x10001008, 0x00000000, 0x00001000, 0x00400008,
 155     0x00000000, 0x10400008, 0x10401000, 0x00001000,
 156     0x10000000, 0x10401008, 0x00401008, 0x00400000,
 157     0x10401008, 0x00000008, 0x10001000, 0x00401008,
 158     0x00400008, 0x00401000, 0x10400000, 0x10001008,
 159     0x00001008, 0x10000000, 0x10000008, 0x10401000,
 160   },
 161   {
 162     0x08000000, 0x00010000, 0x00000400, 0x08010420,
 163     0x08010020, 0x08000400, 0x00010420, 0x08010000,
 164     0x00010000, 0x00000020, 0x08000020, 0x00010400,
 165     0x08000420, 0x08010020, 0x08010400, 0x00000000,
 166     0x00010400, 0x08000000, 0x00010020, 0x00000420,
 167     0x08000400, 0x00010420, 0x00000000, 0x08000020,
 168     0x00000020, 0x08000420, 0x08010420, 0x00010020,
 169     0x08010000, 0x00000400, 0x00000420, 0x08010400,
 170     0x08010400, 0x08000420, 0x00010020, 0x08010000,
 171     0x00010000, 0x00000020, 0x08000020, 0x08000400,
 172     0x08000000, 0x00010400, 0x08010420, 0x00000000,
 173     0x00010420, 0x08000000, 0x00000400, 0x00010020,
 174     0x08000420, 0x00000400, 0x00000000, 0x08010420,
 175     0x08010020, 0x08010400, 0x00000420, 0x00010000,
 176     0x00010400, 0x08010020, 0x08000400, 0x00000420,
 177     0x00000020, 0x00010420, 0x08010000, 0x08000020,
 178   },
 179   {
 180     0x80000040, 0x00200040, 0x00000000, 0x80202000,
 181     0x00200040, 0x00002000, 0x80002040, 0x00200000,
 182     0x00002040, 0x80202040, 0x00202000, 0x80000000,
 183     0x80002000, 0x80000040, 0x80200000, 0x00202040,
 184     0x00200000, 0x80002040, 0x80200040, 0x00000000,
 185     0x00002000, 0x00000040, 0x80202000, 0x80200040,
 186     0x80202040, 0x80200000, 0x80000000, 0x00002040,
 187     0x00000040, 0x00202000, 0x00202040, 0x80002000,
 188     0x00002040, 0x80000000, 0x80002000, 0x00202040,
 189     0x80202000, 0x00200040, 0x00000000, 0x80002000,
 190     0x80000000, 0x00002000, 0x80200040, 0x00200000,
 191     0x00200040, 0x80202040, 0x00202000, 0x00000040,
 192     0x80202040, 0x00202000, 0x00200000, 0x80002040,
 193     0x80000040, 0x80200000, 0x00202040, 0x00000000,
 194     0x00002000, 0x80000040, 0x80002040, 0x80202000,
 195     0x80200000, 0x00002040, 0x00000040, 0x80200040,
 196   },
 197   {
 198     0x00004000, 0x00000200, 0x01000200, 0x01000004,
 199     0x01004204, 0x00004004, 0x00004200, 0x00000000,
 200     0x01000000, 0x01000204, 0x00000204, 0x01004000,
 201     0x00000004, 0x01004200, 0x01004000, 0x00000204,
 202     0x01000204, 0x00004000, 0x00004004, 0x01004204,
 203     0x00000000, 0x01000200, 0x01000004, 0x00004200,
 204     0x01004004, 0x00004204, 0x01004200, 0x00000004,
 205     0x00004204, 0x01004004, 0x00000200, 0x01000000,
 206     0x00004204, 0x01004000, 0x01004004, 0x00000204,
 207     0x00004000, 0x00000200, 0x01000000, 0x01004004,
 208     0x01000204, 0x00004204, 0x00004200, 0x00000000,
 209     0x00000200, 0x01000004, 0x00000004, 0x01000200,
 210     0x00000000, 0x01000204, 0x01000200, 0x00004200,
 211     0x00000204, 0x00004000, 0x01004204, 0x01000000,
 212     0x01004200, 0x00000004, 0x00004004, 0x01004204,
 213     0x01000004, 0x01004200, 0x01004000, 0x00004004,
 214   },
 215   {
 216     0x20800080, 0x20820000, 0x00020080, 0x00000000,
 217     0x20020000, 0x00800080, 0x20800000, 0x20820080,
 218     0x00000080, 0x20000000, 0x00820000, 0x00020080,
 219     0x00820080, 0x20020080, 0x20000080, 0x20800000,
 220     0x00020000, 0x00820080, 0x00800080, 0x20020000,
 221     0x20820080, 0x20000080, 0x00000000, 0x00820000,
 222     0x20000000, 0x00800000, 0x20020080, 0x20800080,
 223     0x00800000, 0x00020000, 0x20820000, 0x00000080,
 224     0x00800000, 0x00020000, 0x20000080, 0x20820080,
 225     0x00020080, 0x20000000, 0x00000000, 0x00820000,
 226     0x20800080, 0x20020080, 0x20020000, 0x00800080,
 227     0x20820000, 0x00000080, 0x00800080, 0x20020000,
 228     0x20820080, 0x00800000, 0x20800000, 0x20000080,
 229     0x00820000, 0x00020080, 0x20020080, 0x20800000,
 230     0x00000080, 0x20820000, 0x00820080, 0x00000000,
 231     0x20000000, 0x20800080, 0x00020000, 0x00820080,
 232   }
 233 };
 234
 235 __constant u32 c_skb[8][64] =
 236 {
 237   {
 238     0x00000000, 0x00000010, 0x20000000, 0x20000010,
 239     0x00010000, 0x00010010, 0x20010000, 0x20010010,
 240     0x00000800, 0x00000810, 0x20000800, 0x20000810,
 241     0x00010800, 0x00010810, 0x20010800, 0x20010810,
 242     0x00000020, 0x00000030, 0x20000020, 0x20000030,
 243     0x00010020, 0x00010030, 0x20010020, 0x20010030,
 244     0x00000820, 0x00000830, 0x20000820, 0x20000830,
 245     0x00010820, 0x00010830, 0x20010820, 0x20010830,
 246     0x00080000, 0x00080010, 0x20080000, 0x20080010,
 247     0x00090000, 0x00090010, 0x20090000, 0x20090010,
 248     0x00080800, 0x00080810, 0x20080800, 0x20080810,
 249     0x00090800, 0x00090810, 0x20090800, 0x20090810,
 250     0x00080020, 0x00080030, 0x20080020, 0x20080030,
 251     0x00090020, 0x00090030, 0x20090020, 0x20090030,
 252     0x00080820, 0x00080830, 0x20080820, 0x20080830,
 253     0x00090820, 0x00090830, 0x20090820, 0x20090830,
 254   },
 255   {
 256     0x00000000, 0x02000000, 0x00002000, 0x02002000,
 257     0x00200000, 0x02200000, 0x00202000, 0x02202000,
 258     0x00000004, 0x02000004, 0x00002004, 0x02002004,
 259     0x00200004, 0x02200004, 0x00202004, 0x02202004,
 260     0x00000400, 0x02000400, 0x00002400, 0x02002400,
 261     0x00200400, 0x02200400, 0x00202400, 0x02202400,
 262     0x00000404, 0x02000404, 0x00002404, 0x02002404,
 263     0x00200404, 0x02200404, 0x00202404, 0x02202404,
 264     0x10000000, 0x12000000, 0x10002000, 0x12002000,
 265     0x10200000, 0x12200000, 0x10202000, 0x12202000,
 266     0x10000004, 0x12000004, 0x10002004, 0x12002004,
 267     0x10200004, 0x12200004, 0x10202004, 0x12202004,
 268     0x10000400, 0x12000400, 0x10002400, 0x12002400,
 269     0x10200400, 0x12200400, 0x10202400, 0x12202400,
 270     0x10000404, 0x12000404, 0x10002404, 0x12002404,
 271     0x10200404, 0x12200404, 0x10202404, 0x12202404,
 272   },
 273   {
 274     0x00000000, 0x00000001, 0x00040000, 0x00040001,
 275     0x01000000, 0x01000001, 0x01040000, 0x01040001,
 276     0x00000002, 0x00000003, 0x00040002, 0x00040003,
 277     0x01000002, 0x01000003, 0x01040002, 0x01040003,
 278     0x00000200, 0x00000201, 0x00040200, 0x00040201,
 279     0x01000200, 0x01000201, 0x01040200, 0x01040201,
 280     0x00000202, 0x00000203, 0x00040202, 0x00040203,
 281     0x01000202, 0x01000203, 0x01040202, 0x01040203,
 282     0x08000000, 0x08000001, 0x08040000, 0x08040001,
 283     0x09000000, 0x09000001, 0x09040000, 0x09040001,
 284     0x08000002, 0x08000003, 0x08040002, 0x08040003,
 285     0x09000002, 0x09000003, 0x09040002, 0x09040003,
 286     0x08000200, 0x08000201, 0x08040200, 0x08040201,
 287     0x09000200, 0x09000201, 0x09040200, 0x09040201,
 288     0x08000202, 0x08000203, 0x08040202, 0x08040203,
 289     0x09000202, 0x09000203, 0x09040202, 0x09040203,
 290   },
 291   {
 292     0x00000000, 0x00100000, 0x00000100, 0x00100100,
 293     0x00000008, 0x00100008, 0x00000108, 0x00100108,
 294     0x00001000, 0x00101000, 0x00001100, 0x00101100,
 295     0x00001008, 0x00101008, 0x00001108, 0x00101108,
 296     0x04000000, 0x04100000, 0x04000100, 0x04100100,
 297     0x04000008, 0x04100008, 0x04000108, 0x04100108,
 298     0x04001000, 0x04101000, 0x04001100, 0x04101100,
 299     0x04001008, 0x04101008, 0x04001108, 0x04101108,
 300     0x00020000, 0x00120000, 0x00020100, 0x00120100,
 301     0x00020008, 0x00120008, 0x00020108, 0x00120108,
 302     0x00021000, 0x00121000, 0x00021100, 0x00121100,
 303     0x00021008, 0x00121008, 0x00021108, 0x00121108,
 304     0x04020000, 0x04120000, 0x04020100, 0x04120100,
 305     0x04020008, 0x04120008, 0x04020108, 0x04120108,
 306     0x04021000, 0x04121000, 0x04021100, 0x04121100,
 307     0x04021008, 0x04121008, 0x04021108, 0x04121108,
 308   },
 309   {
 310     0x00000000, 0x10000000, 0x00010000, 0x10010000,
 311     0x00000004, 0x10000004, 0x00010004, 0x10010004,
 312     0x20000000, 0x30000000, 0x20010000, 0x30010000,
 313     0x20000004, 0x30000004, 0x20010004, 0x30010004,
 314     0x00100000, 0x10100000, 0x00110000, 0x10110000,
 315     0x00100004, 0x10100004, 0x00110004, 0x10110004,
 316     0x20100000, 0x30100000, 0x20110000, 0x30110000,
 317     0x20100004, 0x30100004, 0x20110004, 0x30110004,
 318     0x00001000, 0x10001000, 0x00011000, 0x10011000,
 319     0x00001004, 0x10001004, 0x00011004, 0x10011004,
 320     0x20001000, 0x30001000, 0x20011000, 0x30011000,
 321     0x20001004, 0x30001004, 0x20011004, 0x30011004,
 322     0x00101000, 0x10101000, 0x00111000, 0x10111000,
 323     0x00101004, 0x10101004, 0x00111004, 0x10111004,
 324     0x20101000, 0x30101000, 0x20111000, 0x30111000,
 325     0x20101004, 0x30101004, 0x20111004, 0x30111004,
 326   },
 327   {
 328     0x00000000, 0x08000000, 0x00000008, 0x08000008,
 329     0x00000400, 0x08000400, 0x00000408, 0x08000408,
 330     0x00020000, 0x08020000, 0x00020008, 0x08020008,
 331     0x00020400, 0x08020400, 0x00020408, 0x08020408,
 332     0x00000001, 0x08000001, 0x00000009, 0x08000009,
 333     0x00000401, 0x08000401, 0x00000409, 0x08000409,
 334     0x00020001, 0x08020001, 0x00020009, 0x08020009,
 335     0x00020401, 0x08020401, 0x00020409, 0x08020409,
 336     0x02000000, 0x0A000000, 0x02000008, 0x0A000008,
 337     0x02000400, 0x0A000400, 0x02000408, 0x0A000408,
 338     0x02020000, 0x0A020000, 0x02020008, 0x0A020008,
 339     0x02020400, 0x0A020400, 0x02020408, 0x0A020408,
 340     0x02000001, 0x0A000001, 0x02000009, 0x0A000009,
 341     0x02000401, 0x0A000401, 0x02000409, 0x0A000409,
 342     0x02020001, 0x0A020001, 0x02020009, 0x0A020009,
 343     0x02020401, 0x0A020401, 0x02020409, 0x0A020409,
 344   },
 345   {
 346     0x00000000, 0x00000100, 0x00080000, 0x00080100,
 347     0x01000000, 0x01000100, 0x01080000, 0x01080100,
 348     0x00000010, 0x00000110, 0x00080010, 0x00080110,
 349     0x01000010, 0x01000110, 0x01080010, 0x01080110,
 350     0x00200000, 0x00200100, 0x00280000, 0x00280100,
 351     0x01200000, 0x01200100, 0x01280000, 0x01280100,
 352     0x00200010, 0x00200110, 0x00280010, 0x00280110,
 353     0x01200010, 0x01200110, 0x01280010, 0x01280110,
 354     0x00000200, 0x00000300, 0x00080200, 0x00080300,
 355     0x01000200, 0x01000300, 0x01080200, 0x01080300,
 356     0x00000210, 0x00000310, 0x00080210, 0x00080310,
 357     0x01000210, 0x01000310, 0x01080210, 0x01080310,
 358     0x00200200, 0x00200300, 0x00280200, 0x00280300,
 359     0x01200200, 0x01200300, 0x01280200, 0x01280300,
 360     0x00200210, 0x00200310, 0x00280210, 0x00280310,
 361     0x01200210, 0x01200310, 0x01280210, 0x01280310,
 362   },
 363   {
 364     0x00000000, 0x04000000, 0x00040000, 0x04040000,
 365     0x00000002, 0x04000002, 0x00040002, 0x04040002,
 366     0x00002000, 0x04002000, 0x00042000, 0x04042000,
 367     0x00002002, 0x04002002, 0x00042002, 0x04042002,
 368     0x00000020, 0x04000020, 0x00040020, 0x04040020,
 369     0x00000022, 0x04000022, 0x00040022, 0x04040022,
 370     0x00002020, 0x04002020, 0x00042020, 0x04042020,
 371     0x00002022, 0x04002022, 0x00042022, 0x04042022,
 372     0x00000800, 0x04000800, 0x00040800, 0x04040800,
 373     0x00000802, 0x04000802, 0x00040802, 0x04040802,
 374     0x00002800, 0x04002800, 0x00042800, 0x04042800,
 375     0x00002802, 0x04002802, 0x00042802, 0x04042802,
 376     0x00000820, 0x04000820, 0x00040820, 0x04040820,
 377     0x00000822, 0x04000822, 0x00040822, 0x04040822,
 378     0x00002820, 0x04002820, 0x00042820, 0x04042820,
 379     0x00002822, 0x04002822, 0x00042822, 0x04042822
 380   }
 381 };
 382
 383 #define BOX(i,n,S) (S)[(n)][(i)]
 384
 385 static void _des_crypt_encrypt (u32 iv[2], u32 data[2], u32 Kc[16], u32 Kd[16], __local u32 (*s_SPtrans)[64])
 386 {
 387   u32 tt;
 388
 389   u32 r = data[0];
 390   u32 l = data[1];
 391
 392   #pragma unroll 16
 393   for (u32 i = 0; i < 16; i += 2)
 394   {
 395     u32 u;
 396     u32 t;
 397
 398     u = Kc[i + 0] ^ r;
 399     t = Kd[i + 0] ^ rotl32 (r, 28u);
 400
 401     l ^= BOX (((u >>  2) & 0x3f), 0, s_SPtrans)
 402        | BOX (((u >> 10) & 0x3f), 2, s_SPtrans)
 403        | BOX (((u >> 18) & 0x3f), 4, s_SPtrans)
 404        | BOX (((u >> 26) & 0x3f), 6, s_SPtrans)
 405        | BOX (((t >>  2) & 0x3f), 1, s_SPtrans)
 406        | BOX (((t >> 10) & 0x3f), 3, s_SPtrans)
 407        | BOX (((t >> 18) & 0x3f), 5, s_SPtrans)
 408        | BOX (((t >> 26) & 0x3f), 7, s_SPtrans);
 409
 410     u = Kc[i + 1] ^ l;
 411     t = Kd[i + 1] ^ rotl32 (l, 28u);
 412
 413     r ^= BOX (((u >>  2) & 0x3f), 0, s_SPtrans)
 414        | BOX (((u >> 10) & 0x3f), 2, s_SPtrans)
 415        | BOX (((u >> 18) & 0x3f), 4, s_SPtrans)
 416        | BOX (((u >> 26) & 0x3f), 6, s_SPtrans)
 417        | BOX (((t >>  2) & 0x3f), 1, s_SPtrans)
 418        | BOX (((t >> 10) & 0x3f), 3, s_SPtrans)
 419        | BOX (((t >> 18) & 0x3f), 5, s_SPtrans)
 420        | BOX (((t >> 26) & 0x3f), 7, s_SPtrans);
 421   }
 422
 423   iv[0] = l;
 424   iv[1] = r;
 425 }
 426
 427 static void _des_crypt_keysetup (u32 c, u32 d, u32 Kc[16], u32 Kd[16], __local u32 (*s_skb)[64])
 428 {
 429   u32 tt;
 430
 431   PERM_OP  (d, c, tt, 4, 0x0f0f0f0f);
 432   HPERM_OP (c,    tt, 2, 0xcccc0000);
 433   HPERM_OP (d,    tt, 2, 0xcccc0000);
 434   PERM_OP  (d, c, tt, 1, 0x55555555);
 435   PERM_OP  (c, d, tt, 8, 0x00ff00ff);
 436   PERM_OP  (d, c, tt, 1, 0x55555555);
 437
 438   d = ((d & 0x000000ff) << 16)
 439     | ((d & 0x0000ff00) <<  0)
 440     | ((d & 0x00ff0000) >> 16)
 441     | ((c & 0xf0000000) >>  4);
 442
 443   c = c & 0x0fffffff;
 444
 445   #pragma unroll 16
 446   for (u32 i = 0; i < 16; i++)
 447   {
 448     if ((i < 2) || (i == 8) || (i == 15))
 449     {
 450       c = ((c >> 1) | (c << 27));
 451       d = ((d >> 1) | (d << 27));
 452     }
 453     else
 454     {
 455       c = ((c >> 2) | (c << 26));
 456       d = ((d >> 2) | (d << 26));
 457     }
 458
 459     c = c & 0x0fffffff;
 460     d = d & 0x0fffffff;
 461
 462     const u32 c00 = (c >>  0) & 0x0000003f;
 463     const u32 c06 = (c >>  6) & 0x00383003;
 464     const u32 c07 = (c >>  7) & 0x0000003c;
 465     const u32 c13 = (c >> 13) & 0x0000060f;
 466     const u32 c20 = (c >> 20) & 0x00000001;
 467
 468     u32 s = BOX (((c00 >>  0) & 0xff), 0, s_skb)
 469           | BOX (((c06 >>  0) & 0xff)
 470                 |((c07 >>  0) & 0xff), 1, s_skb)
 471           | BOX (((c13 >>  0) & 0xff)
 472                 |((c06 >>  8) & 0xff), 2, s_skb)
 473           | BOX (((c20 >>  0) & 0xff)
 474                 |((c13 >>  8) & 0xff)
 475                 |((c06 >> 16) & 0xff), 3, s_skb);
 476
 477     const u32 d00 = (d >>  0) & 0x00003c3f;
 478     const u32 d07 = (d >>  7) & 0x00003f03;
 479     const u32 d21 = (d >> 21) & 0x0000000f;
 480     const u32 d22 = (d >> 22) & 0x00000030;
 481
 482     u32 t = BOX (((d00 >>  0) & 0xff), 4, s_skb)
 483           | BOX (((d07 >>  0) & 0xff)
 484                 |((d00 >>  8) & 0xff), 5, s_skb)
 485           | BOX (((d07 >>  8) & 0xff), 6, s_skb)
 486           | BOX (((d21 >>  0) & 0xff)
 487                 |((d22 >>  0) & 0xff), 7, s_skb);
 488
 489     Kc[i] = ((t << 16) | (s & 0x0000ffff));
 490     Kd[i] = ((s >> 16) | (t & 0xffff0000));
 491
 492     Kc[i] = rotl32 (Kc[i], 2u);
 493     Kd[i] = rotl32 (Kd[i], 2u);
 494   }
 495 }
 496
 497 static void transform_racf_key (const u32 w0, const u32 w1, u32 key[2])
 498 {
 499   key[0] = (ascii_to_ebcdic_pc[(w0 >>  0) & 0xff]) <<  0
 500          | (ascii_to_ebcdic_pc[(w0 >>  8) & 0xff]) <<  8
 501          | (ascii_to_ebcdic_pc[(w0 >> 16) & 0xff]) << 16
 502          | (ascii_to_ebcdic_pc[(w0 >> 24) & 0xff]) << 24;
 503
 504   key[1] = (ascii_to_ebcdic_pc[(w1 >>  0) & 0xff]) <<  0
 505          | (ascii_to_ebcdic_pc[(w1 >>  8) & 0xff]) <<  8
 506          | (ascii_to_ebcdic_pc[(w1 >> 16) & 0xff]) << 16
 507          | (ascii_to_ebcdic_pc[(w1 >> 24) & 0xff]) << 24;
 508 }
 509
 510 __kernel void m08500_m04 (__global pw_t *pws, __global kernel_rule_t *  rules_buf, __global comb_t *combs_buf, __global bf_t *bfs_buf, __global void *tmps, __global void *hooks, __global u32 *bitmaps_buf_s1_a, __global u32 *bitmaps_buf_s1_b, __global u32 *bitmaps_buf_s1_c, __global u32 *bitmaps_buf_s1_d, __global u32 *bitmaps_buf_s2_a, __global u32 *bitmaps_buf_s2_b, __global u32 *bitmaps_buf_s2_c, __global u32 *bitmaps_buf_s2_d, __global plain_t *plains_buf, __global digest_t *digests_buf, __global u32 *hashes_shown, __global salt_t *salt_bufs, __global void *esalt_bufs, __global u32 *d_return_buf, __global u32 *d_scryptV_buf, const u32 bitmap_mask, const u32 bitmap_shift1, const u32 bitmap_shift2, const u32 salt_pos, const u32 loop_pos, const u32 loop_cnt, const u32 rules_cnt, const u32 digests_cnt, const u32 digests_offset, const u32 combs_mode, const u32 gid_max)
 511 {
 512   /**
 513    * base
 514    */
 515
 516   const u32 gid = get_global_id (0);
 517   const u32 lid = get_local_id (0);
 518   const u32 lsz = get_local_size (0);
 519
 520   /**
 521    * shared
 522    */
 523
 524   __local u32 s_SPtrans[8][64];
 525   __local u32 s_skb[8][64];
 526
 527   for (u32 i = lid; i < 64; i += lsz)
 528   {
 529     s_SPtrans[0][i] = c_SPtrans[0][i];
 530     s_SPtrans[1][i] = c_SPtrans[1][i];
 531     s_SPtrans[2][i] = c_SPtrans[2][i];
 532     s_SPtrans[3][i] = c_SPtrans[3][i];
 533     s_SPtrans[4][i] = c_SPtrans[4][i];
 534     s_SPtrans[5][i] = c_SPtrans[5][i];
 535     s_SPtrans[6][i] = c_SPtrans[6][i];
 536     s_SPtrans[7][i] = c_SPtrans[7][i];
 537
 538     s_skb[0][i] = c_skb[0][i];
 539     s_skb[1][i] = c_skb[1][i];
 540     s_skb[2][i] = c_skb[2][i];
 541     s_skb[3][i] = c_skb[3][i];
 542     s_skb[4][i] = c_skb[4][i];
 543     s_skb[5][i] = c_skb[5][i];
 544     s_skb[6][i] = c_skb[6][i];
 545     s_skb[7][i] = c_skb[7][i];
 546   }
 547
 548   barrier (CLK_LOCAL_MEM_FENCE);
 549
 550   if (gid >= gid_max) return;
 551
 552   /**
 553    * base
 554    */
 555
 556   u32 pw_buf[4];
 557
 558   pw_buf[0] = pws[gid].i[ 0];
 559   pw_buf[1] = pws[gid].i[ 1];
 560   pw_buf[2] = 0;
 561   pw_buf[3] = 0;
 562
 563   const u32 pw_len = pws[gid].pw_len;
 564
 565   /**
 566    * salt
 567    */
 568
 569   u32 salt_buf0[2];
 570
 571   salt_buf0[0] = salt_bufs[salt_pos].salt_buf_pc[0];
 572   salt_buf0[1] = salt_bufs[salt_pos].salt_buf_pc[1];
 573
 574   /**
 575    * main
 576    */
 577
 578   for (u32 il_pos = 0; il_pos < rules_cnt; il_pos++)
 579   {
 580     u32 w0[4];
 581
 582     w0[0] = pw_buf[0];
 583     w0[1] = pw_buf[1];
 584     w0[2] = pw_buf[2];
 585     w0[3] = pw_buf[3];
 586
 587     u32 w1[4];
 588
 589     w1[0] = 0;
 590     w1[1] = 0;
 591     w1[2] = 0;
 592     w1[3] = 0;
 593
 594     u32 w2[4];
 595
 596     w2[0] = 0;
 597     w2[1] = 0;
 598     w2[2] = 0;
 599     w2[3] = 0;
 600
 601     u32 w3[4];
 602
 603     w3[0] = 0;
 604     w3[1] = 0;
 605     w3[2] = 0;
 606     w3[3] = 0;
 607
 608     u32 out_len = apply_rules (rules_buf[il_pos].cmds, w0, w1, pw_len);
 609
 610     out_len = (out_len >= 8) ? 8 : out_len;
 611
 612     u32 key[2];
 613
 614     transform_racf_key (w0[0], w0[1], key);
 615
 616     const u32 c = key[0];
 617     const u32 d = key[1];
 618
 619     u32 Kc[16];
 620     u32 Kd[16];
 621
 622     _des_crypt_keysetup (c, d, Kc, Kd, s_skb);
 623
 624     u32 data[2];
 625
 626     data[0] = salt_buf0[0];
 627     data[1] = salt_buf0[1];
 628
 629     u32 iv[2];
 630
 631     _des_crypt_encrypt (iv, data, Kc, Kd, s_SPtrans);
 632
 633     const u32 r0 = iv[0];
 634     const u32 r1 = iv[1];
 635     const u32 r2 = 0;
 636     const u32 r3 = 0;
 637
 638     #include COMPARE_M
 639   }
 640 }
 641
 642 __kernel void m08500_m08 (__global pw_t *pws, __global kernel_rule_t *rules_buf, __global comb_t *combs_buf, __global bf_t *bfs_buf, __global void *tmps, __global void *hooks, __global u32 *bitmaps_buf_s1_a, __global u32 *bitmaps_buf_s1_b, __global u32 *bitmaps_buf_s1_c, __global u32 *bitmaps_buf_s1_d, __global u32 *bitmaps_buf_s2_a, __global u32 *bitmaps_buf_s2_b, __global u32 *bitmaps_buf_s2_c, __global u32 *bitmaps_buf_s2_d, __global plain_t *plains_buf, __global digest_t *digests_buf, __global u32 *hashes_shown, __global salt_t *salt_bufs, __global void *esalt_bufs, __global u32 *d_return_buf, __global u32 *d_scryptV_buf, const u32 bitmap_mask, const u32 bitmap_shift1, const u32 bitmap_shift2, const u32 salt_pos, const u32 loop_pos, const u32 loop_cnt, const u32 combs_cnt, const u32 digests_cnt, const u32 digests_offset, const u32 combs_mode, const u32 gid_max)
 643 {
 644 }
 645
 646 __kernel void m08500_m16 (__global pw_t *pws, __global kernel_rule_t *rules_buf, __global comb_t *combs_buf, __global bf_t *bfs_buf, __global void *tmps, __global void *hooks, __global u32 *bitmaps_buf_s1_a, __global u32 *bitmaps_buf_s1_b, __global u32 *bitmaps_buf_s1_c, __global u32 *bitmaps_buf_s1_d, __global u32 *bitmaps_buf_s2_a, __global u32 *bitmaps_buf_s2_b, __global u32 *bitmaps_buf_s2_c, __global u32 *bitmaps_buf_s2_d, __global plain_t *plains_buf, __global digest_t *digests_buf, __global u32 *hashes_shown, __global salt_t *salt_bufs, __global void *esalt_bufs, __global u32 *d_return_buf, __global u32 *d_scryptV_buf, const u32 bitmap_mask, const u32 bitmap_shift1, const u32 bitmap_shift2, const u32 salt_pos, const u32 loop_pos, const u32 loop_cnt, const u32 combs_cnt, const u32 digests_cnt, const u32 digests_offset, const u32 combs_mode, const u32 gid_max)
 647 {
 648 }
 649
 650 __kernel void m08500_s04 (__global pw_t *pws, __global kernel_rule_t *  rules_buf, __global comb_t *combs_buf, __global bf_t *bfs_buf, __global void *tmps, __global void *hooks, __global u32 *bitmaps_buf_s1_a, __global u32 *bitmaps_buf_s1_b, __global u32 *bitmaps_buf_s1_c, __global u32 *bitmaps_buf_s1_d, __global u32 *bitmaps_buf_s2_a, __global u32 *bitmaps_buf_s2_b, __global u32 *bitmaps_buf_s2_c, __global u32 *bitmaps_buf_s2_d, __global plain_t *plains_buf, __global digest_t *digests_buf, __global u32 *hashes_shown, __global salt_t *salt_bufs, __global void *esalt_bufs, __global u32 *d_return_buf, __global u32 *d_scryptV_buf, const u32 bitmap_mask, const u32 bitmap_shift1, const u32 bitmap_shift2, const u32 salt_pos, const u32 loop_pos, const u32 loop_cnt, const u32 rules_cnt, const u32 digests_cnt, const u32 digests_offset, const u32 combs_mode, const u32 gid_max)
 651 {
 652   /**
 653    * base
 654    */
 655
 656   const u32 gid = get_global_id (0);
 657   const u32 lid = get_local_id (0);
 658   const u32 lsz = get_local_size (0);
 659
 660   /**
 661    * shared
 662    */
 663
 664   __local u32 s_SPtrans[8][64];
 665   __local u32 s_skb[8][64];
 666
 667   for (u32 i = lid; i < 64; i += lsz)
 668   {
 669     s_SPtrans[0][i] = c_SPtrans[0][i];
 670     s_SPtrans[1][i] = c_SPtrans[1][i];
 671     s_SPtrans[2][i] = c_SPtrans[2][i];
 672     s_SPtrans[3][i] = c_SPtrans[3][i];
 673     s_SPtrans[4][i] = c_SPtrans[4][i];
 674     s_SPtrans[5][i] = c_SPtrans[5][i];
 675     s_SPtrans[6][i] = c_SPtrans[6][i];
 676     s_SPtrans[7][i] = c_SPtrans[7][i];
 677
 678     s_skb[0][i] = c_skb[0][i];
 679     s_skb[1][i] = c_skb[1][i];
 680     s_skb[2][i] = c_skb[2][i];
 681     s_skb[3][i] = c_skb[3][i];
 682     s_skb[4][i] = c_skb[4][i];
 683     s_skb[5][i] = c_skb[5][i];
 684     s_skb[6][i] = c_skb[6][i];
 685     s_skb[7][i] = c_skb[7][i];
 686   }
 687
 688   barrier (CLK_LOCAL_MEM_FENCE);
 689
 690   if (gid >= gid_max) return;
 691
 692   /**
 693    * base
 694    */
 695
 696   u32 pw_buf[4];
 697
 698   pw_buf[0] = pws[gid].i[ 0];
 699   pw_buf[1] = pws[gid].i[ 1];
 700   pw_buf[2] = 0;
 701   pw_buf[3] = 0;
 702
 703   const u32 pw_len = pws[gid].pw_len;
 704
 705   /**
 706    * salt
 707    */
 708
 709   u32 salt_buf0[2];
 710
 711   salt_buf0[0] = salt_bufs[salt_pos].salt_buf_pc[0];
 712   salt_buf0[1] = salt_bufs[salt_pos].salt_buf_pc[1];
 713
 714   /**
 715    * digest
 716    */
 717
 718   const u32 search[4] =
 719   {
 720     digests_buf[digests_offset].digest_buf[DGST_R0],
 721     digests_buf[digests_offset].digest_buf[DGST_R1],
 722     digests_buf[digests_offset].digest_buf[DGST_R2],
 723     digests_buf[digests_offset].digest_buf[DGST_R3]
 724   };
 725
 726   /**
 727    * main
 728    */
 729
 730   for (u32 il_pos = 0; il_pos < rules_cnt; il_pos++)
 731   {
 732     u32 w0[4];
 733
 734     w0[0] = pw_buf[0];
 735     w0[1] = pw_buf[1];
 736     w0[2] = pw_buf[2];
 737     w0[3] = pw_buf[3];
 738
 739     u32 w1[4];
 740
 741     w1[0] = 0;
 742     w1[1] = 0;
 743     w1[2] = 0;
 744     w1[3] = 0;
 745
 746     u32 w2[4];
 747
 748     w2[0] = 0;
 749     w2[1] = 0;
 750     w2[2] = 0;
 751     w2[3] = 0;
 752
 753     u32 w3[4];
 754
 755     w3[0] = 0;
 756     w3[1] = 0;
 757     w3[2] = 0;
 758     w3[3] = 0;
 759
 760     u32 out_len = apply_rules (rules_buf[il_pos].cmds, w0, w1, pw_len);
 761
 762     out_len = (out_len >= 8) ? 8 : out_len;
 763
 764     u32 key[2];
 765
 766     transform_racf_key (w0[0], w0[1], key);
 767
 768     const u32 c = key[0];
 769     const u32 d = key[1];
 770
 771     u32 Kc[16];
 772     u32 Kd[16];
 773
 774     _des_crypt_keysetup (c, d, Kc, Kd, s_skb);
 775
 776     u32 data[2];
 777
 778     data[0] = salt_buf0[0];
 779     data[1] = salt_buf0[1];
 780
 781     u32 iv[2];
 782
 783     _des_crypt_encrypt (iv, data, Kc, Kd, s_SPtrans);
 784
 785     const u32 r0 = iv[0];
 786     const u32 r1 = iv[1];
 787     const u32 r2 = 0;
 788     const u32 r3 = 0;
 789
 790     #include COMPARE_S
 791   }
 792 }
 793
 794 __kernel void m08500_s08 (__global pw_t *pws, __global kernel_rule_t *rules_buf, __global comb_t *combs_buf, __global bf_t *bfs_buf, __global void *tmps, __global void *hooks, __global u32 *bitmaps_buf_s1_a, __global u32 *bitmaps_buf_s1_b, __global u32 *bitmaps_buf_s1_c, __global u32 *bitmaps_buf_s1_d, __global u32 *bitmaps_buf_s2_a, __global u32 *bitmaps_buf_s2_b, __global u32 *bitmaps_buf_s2_c, __global u32 *bitmaps_buf_s2_d, __global plain_t *plains_buf, __global digest_t *digests_buf, __global u32 *hashes_shown, __global salt_t *salt_bufs, __global void *esalt_bufs, __global u32 *d_return_buf, __global u32 *d_scryptV_buf, const u32 bitmap_mask, const u32 bitmap_shift1, const u32 bitmap_shift2, const u32 salt_pos, const u32 loop_pos, const u32 loop_cnt, const u32 combs_cnt, const u32 digests_cnt, const u32 digests_offset, const u32 combs_mode, const u32 gid_max)
 795 {
 796 }
 797
 798 __kernel void m08500_s16 (__global pw_t *pws, __global kernel_rule_t *rules_buf, __global comb_t *combs_buf, __global bf_t *bfs_buf, __global void *tmps, __global void *hooks, __global u32 *bitmaps_buf_s1_a, __global u32 *bitmaps_buf_s1_b, __global u32 *bitmaps_buf_s1_c, __global u32 *bitmaps_buf_s1_d, __global u32 *bitmaps_buf_s2_a, __global u32 *bitmaps_buf_s2_b, __global u32 *bitmaps_buf_s2_c, __global u32 *bitmaps_buf_s2_d, __global plain_t *plains_buf, __global digest_t *digests_buf, __global u32 *hashes_shown, __global salt_t *salt_bufs, __global void *esalt_bufs, __global u32 *d_return_buf, __global u32 *d_scryptV_buf, const u32 bitmap_mask, const u32 bitmap_shift1, const u32 bitmap_shift2, const u32 salt_pos, const u32 loop_pos, const u32 loop_cnt, const u32 combs_cnt, const u32 digests_cnt, const u32 digests_offset, const u32 combs_mode, const u32 gid_max)
 799 {
 800 }