mirror of https://github.com/hashcat/hashcat.git
parent
71766dab43
commit
524cb20703
@ -0,0 +1,346 @@
|
|||||||
|
/**
|
||||||
|
* Author......: See docs/credits.txt
|
||||||
|
* License.....: MIT
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define NEW_SIMD_CODE
|
||||||
|
|
||||||
|
#ifdef KERNEL_STATIC
|
||||||
|
#include "inc_vendor.h"
|
||||||
|
#include "inc_types.h"
|
||||||
|
#include "inc_platform.cl"
|
||||||
|
#include "inc_common.cl"
|
||||||
|
#include "inc_simd.cl"
|
||||||
|
#include "inc_hash_sha1.cl"
|
||||||
|
#include "inc_cipher_aes.cl"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define COMPARE_S "inc_comp_single.cl"
|
||||||
|
#define COMPARE_M "inc_comp_multi.cl"
|
||||||
|
|
||||||
|
typedef struct sqlcipher_sha1_tmp
|
||||||
|
{
|
||||||
|
u32 ipad[5];
|
||||||
|
u32 opad[5];
|
||||||
|
|
||||||
|
u32 dgst[10];
|
||||||
|
u32 out[10];
|
||||||
|
|
||||||
|
} sqlcipher_sha1_tmp_t;
|
||||||
|
|
||||||
|
typedef struct sqlcipher
|
||||||
|
{
|
||||||
|
u32 iv_buf[4];
|
||||||
|
u32 data_buf[4];
|
||||||
|
|
||||||
|
u32 type;
|
||||||
|
|
||||||
|
} sqlcipher_t;
|
||||||
|
|
||||||
|
DECLSPEC void hmac_sha1_run_V (u32x *w0, u32x *w1, u32x *w2, u32x *w3, u32x *ipad, u32x *opad, u32x *digest)
|
||||||
|
{
|
||||||
|
digest[0] = ipad[0];
|
||||||
|
digest[1] = ipad[1];
|
||||||
|
digest[2] = ipad[2];
|
||||||
|
digest[3] = ipad[3];
|
||||||
|
digest[4] = ipad[4];
|
||||||
|
|
||||||
|
sha1_transform_vector (w0, w1, w2, w3, digest);
|
||||||
|
|
||||||
|
w0[0] = digest[0];
|
||||||
|
w0[1] = digest[1];
|
||||||
|
w0[2] = digest[2];
|
||||||
|
w0[3] = digest[3];
|
||||||
|
w1[0] = digest[4];
|
||||||
|
w1[1] = 0x80000000;
|
||||||
|
w1[2] = 0;
|
||||||
|
w1[3] = 0;
|
||||||
|
w2[0] = 0;
|
||||||
|
w2[1] = 0;
|
||||||
|
w2[2] = 0;
|
||||||
|
w2[3] = 0;
|
||||||
|
w3[0] = 0;
|
||||||
|
w3[1] = 0;
|
||||||
|
w3[2] = 0;
|
||||||
|
w3[3] = (64 + 20) * 8;
|
||||||
|
|
||||||
|
digest[0] = opad[0];
|
||||||
|
digest[1] = opad[1];
|
||||||
|
digest[2] = opad[2];
|
||||||
|
digest[3] = opad[3];
|
||||||
|
digest[4] = opad[4];
|
||||||
|
|
||||||
|
sha1_transform_vector (w0, w1, w2, w3, digest);
|
||||||
|
}
|
||||||
|
|
||||||
|
KERNEL_FQ void m24610_init (KERN_ATTR_TMPS_ESALT (sqlcipher_sha1_tmp_t, sqlcipher_t))
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* base
|
||||||
|
*/
|
||||||
|
|
||||||
|
const u64 gid = get_global_id (0);
|
||||||
|
|
||||||
|
if (gid >= gid_max) return;
|
||||||
|
|
||||||
|
sha1_hmac_ctx_t sha1_hmac_ctx;
|
||||||
|
|
||||||
|
sha1_hmac_init_global_swap (&sha1_hmac_ctx, pws[gid].i, pws[gid].pw_len);
|
||||||
|
|
||||||
|
tmps[gid].ipad[0] = sha1_hmac_ctx.ipad.h[0];
|
||||||
|
tmps[gid].ipad[1] = sha1_hmac_ctx.ipad.h[1];
|
||||||
|
tmps[gid].ipad[2] = sha1_hmac_ctx.ipad.h[2];
|
||||||
|
tmps[gid].ipad[3] = sha1_hmac_ctx.ipad.h[3];
|
||||||
|
tmps[gid].ipad[4] = sha1_hmac_ctx.ipad.h[4];
|
||||||
|
|
||||||
|
tmps[gid].opad[0] = sha1_hmac_ctx.opad.h[0];
|
||||||
|
tmps[gid].opad[1] = sha1_hmac_ctx.opad.h[1];
|
||||||
|
tmps[gid].opad[2] = sha1_hmac_ctx.opad.h[2];
|
||||||
|
tmps[gid].opad[3] = sha1_hmac_ctx.opad.h[3];
|
||||||
|
tmps[gid].opad[4] = sha1_hmac_ctx.opad.h[4];
|
||||||
|
|
||||||
|
sha1_hmac_update_global_swap (&sha1_hmac_ctx, salt_bufs[DIGESTS_OFFSET].salt_buf, salt_bufs[SALT_POS].salt_len);
|
||||||
|
|
||||||
|
for (u32 i = 0, j = 1; i < 8; i += 5, j += 1)
|
||||||
|
{
|
||||||
|
sha1_hmac_ctx_t sha1_hmac_ctx2 = sha1_hmac_ctx;
|
||||||
|
|
||||||
|
u32 w0[4];
|
||||||
|
u32 w1[4];
|
||||||
|
u32 w2[4];
|
||||||
|
u32 w3[4];
|
||||||
|
|
||||||
|
w0[0] = j;
|
||||||
|
w0[1] = 0;
|
||||||
|
w0[2] = 0;
|
||||||
|
w0[3] = 0;
|
||||||
|
w1[0] = 0;
|
||||||
|
w1[1] = 0;
|
||||||
|
w1[2] = 0;
|
||||||
|
w1[3] = 0;
|
||||||
|
w2[0] = 0;
|
||||||
|
w2[1] = 0;
|
||||||
|
w2[2] = 0;
|
||||||
|
w2[3] = 0;
|
||||||
|
w3[0] = 0;
|
||||||
|
w3[1] = 0;
|
||||||
|
w3[2] = 0;
|
||||||
|
w3[3] = 0;
|
||||||
|
|
||||||
|
sha1_hmac_update_64 (&sha1_hmac_ctx2, w0, w1, w2, w3, 4);
|
||||||
|
|
||||||
|
sha1_hmac_final (&sha1_hmac_ctx2);
|
||||||
|
|
||||||
|
tmps[gid].dgst[i + 0] = sha1_hmac_ctx2.opad.h[0];
|
||||||
|
tmps[gid].dgst[i + 1] = sha1_hmac_ctx2.opad.h[1];
|
||||||
|
tmps[gid].dgst[i + 2] = sha1_hmac_ctx2.opad.h[2];
|
||||||
|
tmps[gid].dgst[i + 3] = sha1_hmac_ctx2.opad.h[3];
|
||||||
|
tmps[gid].dgst[i + 4] = sha1_hmac_ctx2.opad.h[4];
|
||||||
|
|
||||||
|
tmps[gid].out[i + 0] = tmps[gid].dgst[i + 0];
|
||||||
|
tmps[gid].out[i + 1] = tmps[gid].dgst[i + 1];
|
||||||
|
tmps[gid].out[i + 2] = tmps[gid].dgst[i + 2];
|
||||||
|
tmps[gid].out[i + 3] = tmps[gid].dgst[i + 3];
|
||||||
|
tmps[gid].out[i + 4] = tmps[gid].dgst[i + 4];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
KERNEL_FQ void m24610_loop (KERN_ATTR_TMPS_ESALT (sqlcipher_sha1_tmp_t, sqlcipher_t))
|
||||||
|
{
|
||||||
|
const u64 gid = get_global_id (0);
|
||||||
|
|
||||||
|
if ((gid * VECT_SIZE) >= gid_max) return;
|
||||||
|
|
||||||
|
u32x ipad[5];
|
||||||
|
u32x opad[5];
|
||||||
|
|
||||||
|
ipad[0] = packv (tmps, ipad, gid, 0);
|
||||||
|
ipad[1] = packv (tmps, ipad, gid, 1);
|
||||||
|
ipad[2] = packv (tmps, ipad, gid, 2);
|
||||||
|
ipad[3] = packv (tmps, ipad, gid, 3);
|
||||||
|
ipad[4] = packv (tmps, ipad, gid, 4);
|
||||||
|
|
||||||
|
opad[0] = packv (tmps, opad, gid, 0);
|
||||||
|
opad[1] = packv (tmps, opad, gid, 1);
|
||||||
|
opad[2] = packv (tmps, opad, gid, 2);
|
||||||
|
opad[3] = packv (tmps, opad, gid, 3);
|
||||||
|
opad[4] = packv (tmps, opad, gid, 4);
|
||||||
|
|
||||||
|
for (u32 i = 0; i < 8; i += 5)
|
||||||
|
{
|
||||||
|
u32x dgst[5];
|
||||||
|
u32x out[5];
|
||||||
|
|
||||||
|
dgst[0] = packv (tmps, dgst, gid, i + 0);
|
||||||
|
dgst[1] = packv (tmps, dgst, gid, i + 1);
|
||||||
|
dgst[2] = packv (tmps, dgst, gid, i + 2);
|
||||||
|
dgst[3] = packv (tmps, dgst, gid, i + 3);
|
||||||
|
dgst[4] = packv (tmps, dgst, gid, i + 4);
|
||||||
|
|
||||||
|
out[0] = packv (tmps, out, gid, i + 0);
|
||||||
|
out[1] = packv (tmps, out, gid, i + 1);
|
||||||
|
out[2] = packv (tmps, out, gid, i + 2);
|
||||||
|
out[3] = packv (tmps, out, gid, i + 3);
|
||||||
|
out[4] = packv (tmps, out, gid, i + 4);
|
||||||
|
|
||||||
|
for (u32 j = 0; j < loop_cnt; j++)
|
||||||
|
{
|
||||||
|
u32x w0[4];
|
||||||
|
u32x w1[4];
|
||||||
|
u32x w2[4];
|
||||||
|
u32x w3[4];
|
||||||
|
|
||||||
|
w0[0] = dgst[0];
|
||||||
|
w0[1] = dgst[1];
|
||||||
|
w0[2] = dgst[2];
|
||||||
|
w0[3] = dgst[3];
|
||||||
|
w1[0] = dgst[4];
|
||||||
|
w1[1] = 0x80000000;
|
||||||
|
w1[2] = 0;
|
||||||
|
w1[3] = 0;
|
||||||
|
w2[0] = 0;
|
||||||
|
w2[1] = 0;
|
||||||
|
w2[2] = 0;
|
||||||
|
w2[3] = 0;
|
||||||
|
w3[0] = 0;
|
||||||
|
w3[1] = 0;
|
||||||
|
w3[2] = 0;
|
||||||
|
w3[3] = (64 + 20) * 8;
|
||||||
|
|
||||||
|
hmac_sha1_run_V (w0, w1, w2, w3, ipad, opad, dgst);
|
||||||
|
|
||||||
|
out[0] ^= dgst[0];
|
||||||
|
out[1] ^= dgst[1];
|
||||||
|
out[2] ^= dgst[2];
|
||||||
|
out[3] ^= dgst[3];
|
||||||
|
out[4] ^= dgst[4];
|
||||||
|
}
|
||||||
|
|
||||||
|
unpackv (tmps, dgst, gid, i + 0, dgst[0]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 1, dgst[1]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 2, dgst[2]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 3, dgst[3]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 4, dgst[4]);
|
||||||
|
|
||||||
|
unpackv (tmps, out, gid, i + 0, out[0]);
|
||||||
|
unpackv (tmps, out, gid, i + 1, out[1]);
|
||||||
|
unpackv (tmps, out, gid, i + 2, out[2]);
|
||||||
|
unpackv (tmps, out, gid, i + 3, out[3]);
|
||||||
|
unpackv (tmps, out, gid, i + 4, out[4]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
KERNEL_FQ void m24610_comp (KERN_ATTR_TMPS_ESALT (sqlcipher_sha1_tmp_t, sqlcipher_t))
|
||||||
|
{
|
||||||
|
const u64 gid = get_global_id (0);
|
||||||
|
const u64 lid = get_local_id (0);
|
||||||
|
const u64 lsz = get_local_size (0);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* aes shared
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef REAL_SHM
|
||||||
|
|
||||||
|
LOCAL_VK u32 s_td0[256];
|
||||||
|
LOCAL_VK u32 s_td1[256];
|
||||||
|
LOCAL_VK u32 s_td2[256];
|
||||||
|
LOCAL_VK u32 s_td3[256];
|
||||||
|
LOCAL_VK u32 s_td4[256];
|
||||||
|
|
||||||
|
LOCAL_VK u32 s_te0[256];
|
||||||
|
LOCAL_VK u32 s_te1[256];
|
||||||
|
LOCAL_VK u32 s_te2[256];
|
||||||
|
LOCAL_VK u32 s_te3[256];
|
||||||
|
LOCAL_VK u32 s_te4[256];
|
||||||
|
|
||||||
|
for (u32 i = lid; i < 256; i += lsz)
|
||||||
|
{
|
||||||
|
s_td0[i] = td0[i];
|
||||||
|
s_td1[i] = td1[i];
|
||||||
|
s_td2[i] = td2[i];
|
||||||
|
s_td3[i] = td3[i];
|
||||||
|
s_td4[i] = td4[i];
|
||||||
|
|
||||||
|
s_te0[i] = te0[i];
|
||||||
|
s_te1[i] = te1[i];
|
||||||
|
s_te2[i] = te2[i];
|
||||||
|
s_te3[i] = te3[i];
|
||||||
|
s_te4[i] = te4[i];
|
||||||
|
}
|
||||||
|
|
||||||
|
SYNC_THREADS ();
|
||||||
|
|
||||||
|
#else
|
||||||
|
|
||||||
|
CONSTANT_AS u32a *s_td0 = td0;
|
||||||
|
CONSTANT_AS u32a *s_td1 = td1;
|
||||||
|
CONSTANT_AS u32a *s_td2 = td2;
|
||||||
|
CONSTANT_AS u32a *s_td3 = td3;
|
||||||
|
CONSTANT_AS u32a *s_td4 = td4;
|
||||||
|
|
||||||
|
CONSTANT_AS u32a *s_te0 = te0;
|
||||||
|
CONSTANT_AS u32a *s_te1 = te1;
|
||||||
|
CONSTANT_AS u32a *s_te2 = te2;
|
||||||
|
CONSTANT_AS u32a *s_te3 = te3;
|
||||||
|
CONSTANT_AS u32a *s_te4 = te4;
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
if (gid >= gid_max) return;
|
||||||
|
|
||||||
|
u32 ukey[8];
|
||||||
|
|
||||||
|
ukey[0] = tmps[gid].out[0];
|
||||||
|
ukey[1] = tmps[gid].out[1];
|
||||||
|
ukey[2] = tmps[gid].out[2];
|
||||||
|
ukey[3] = tmps[gid].out[3];
|
||||||
|
ukey[4] = tmps[gid].out[4];
|
||||||
|
ukey[5] = tmps[gid].out[5];
|
||||||
|
ukey[6] = tmps[gid].out[6];
|
||||||
|
ukey[7] = tmps[gid].out[7];
|
||||||
|
|
||||||
|
u32 ks[60];
|
||||||
|
|
||||||
|
AES256_set_decrypt_key (ks, ukey, s_te0, s_te1, s_te2, s_te3, s_td0, s_td1, s_td2, s_td3);
|
||||||
|
|
||||||
|
// first check the padding
|
||||||
|
|
||||||
|
u32 iv_buf[4];
|
||||||
|
|
||||||
|
iv_buf[0] = esalt_bufs[DIGESTS_OFFSET].iv_buf[0];
|
||||||
|
iv_buf[1] = esalt_bufs[DIGESTS_OFFSET].iv_buf[1];
|
||||||
|
iv_buf[2] = esalt_bufs[DIGESTS_OFFSET].iv_buf[2];
|
||||||
|
iv_buf[3] = esalt_bufs[DIGESTS_OFFSET].iv_buf[3];
|
||||||
|
|
||||||
|
u32 enc[4];
|
||||||
|
|
||||||
|
enc[0] = esalt_bufs[DIGESTS_OFFSET].data_buf[0];
|
||||||
|
enc[1] = esalt_bufs[DIGESTS_OFFSET].data_buf[1];
|
||||||
|
enc[2] = esalt_bufs[DIGESTS_OFFSET].data_buf[2];
|
||||||
|
enc[3] = esalt_bufs[DIGESTS_OFFSET].data_buf[3];
|
||||||
|
|
||||||
|
u32 dec[4];
|
||||||
|
|
||||||
|
aes256_decrypt (ks, enc, dec, s_td0, s_td1, s_td2, s_td3, s_td4);
|
||||||
|
|
||||||
|
dec[0] ^= iv_buf[0];
|
||||||
|
dec[1] ^= iv_buf[1];
|
||||||
|
dec[2] ^= iv_buf[2];
|
||||||
|
dec[3] ^= iv_buf[3];
|
||||||
|
|
||||||
|
if (dec[0] != 0) return;
|
||||||
|
if (dec[1] != 0) return;
|
||||||
|
if (dec[2] != 0) return;
|
||||||
|
|
||||||
|
const u32 r0 = esalt_bufs[DIGESTS_OFFSET].data_buf[0];
|
||||||
|
const u32 r1 = esalt_bufs[DIGESTS_OFFSET].data_buf[1];
|
||||||
|
const u32 r2 = esalt_bufs[DIGESTS_OFFSET].data_buf[2];
|
||||||
|
const u32 r3 = esalt_bufs[DIGESTS_OFFSET].data_buf[3];
|
||||||
|
|
||||||
|
#define il_pos 0
|
||||||
|
|
||||||
|
#ifdef KERNEL_STATIC
|
||||||
|
#include COMPARE_M
|
||||||
|
#endif
|
||||||
|
}
|
@ -0,0 +1,385 @@
|
|||||||
|
/**
|
||||||
|
* Author......: See docs/credits.txt
|
||||||
|
* License.....: MIT
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define NEW_SIMD_CODE
|
||||||
|
|
||||||
|
#ifdef KERNEL_STATIC
|
||||||
|
#include "inc_vendor.h"
|
||||||
|
#include "inc_types.h"
|
||||||
|
#include "inc_platform.cl"
|
||||||
|
#include "inc_common.cl"
|
||||||
|
#include "inc_simd.cl"
|
||||||
|
#include "inc_hash_sha256.cl"
|
||||||
|
#include "inc_cipher_aes.cl"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#define COMPARE_S "inc_comp_single.cl"
|
||||||
|
#define COMPARE_M "inc_comp_multi.cl"
|
||||||
|
|
||||||
|
typedef struct sqlcipher_sha256_tmp
|
||||||
|
{
|
||||||
|
u32 ipad[8];
|
||||||
|
u32 opad[8];
|
||||||
|
|
||||||
|
u32 dgst[8];
|
||||||
|
u32 out[8];
|
||||||
|
|
||||||
|
} sqlcipher_sha256_tmp_t;
|
||||||
|
|
||||||
|
typedef struct sqlcipher
|
||||||
|
{
|
||||||
|
u32 iv_buf[4];
|
||||||
|
u32 data_buf[4];
|
||||||
|
|
||||||
|
u32 type;
|
||||||
|
|
||||||
|
} sqlcipher_t;
|
||||||
|
|
||||||
|
DECLSPEC void hmac_sha256_run_V (u32x *w0, u32x *w1, u32x *w2, u32x *w3, u32x *ipad, u32x *opad, u32x *digest)
|
||||||
|
{
|
||||||
|
digest[0] = ipad[0];
|
||||||
|
digest[1] = ipad[1];
|
||||||
|
digest[2] = ipad[2];
|
||||||
|
digest[3] = ipad[3];
|
||||||
|
digest[4] = ipad[4];
|
||||||
|
digest[5] = ipad[5];
|
||||||
|
digest[6] = ipad[6];
|
||||||
|
digest[7] = ipad[7];
|
||||||
|
|
||||||
|
sha256_transform_vector (w0, w1, w2, w3, digest);
|
||||||
|
|
||||||
|
w0[0] = digest[0];
|
||||||
|
w0[1] = digest[1];
|
||||||
|
w0[2] = digest[2];
|
||||||
|
w0[3] = digest[3];
|
||||||
|
w1[0] = digest[4];
|
||||||
|
w1[1] = digest[5];
|
||||||
|
w1[2] = digest[6];
|
||||||
|
w1[3] = digest[7];
|
||||||
|
w2[0] = 0x80000000;
|
||||||
|
w2[1] = 0;
|
||||||
|
w2[2] = 0;
|
||||||
|
w2[3] = 0;
|
||||||
|
w3[0] = 0;
|
||||||
|
w3[1] = 0;
|
||||||
|
w3[2] = 0;
|
||||||
|
w3[3] = (64 + 32) * 8;
|
||||||
|
|
||||||
|
digest[0] = opad[0];
|
||||||
|
digest[1] = opad[1];
|
||||||
|
digest[2] = opad[2];
|
||||||
|
digest[3] = opad[3];
|
||||||
|
digest[4] = opad[4];
|
||||||
|
digest[5] = opad[5];
|
||||||
|
digest[6] = opad[6];
|
||||||
|
digest[7] = opad[7];
|
||||||
|
|
||||||
|
sha256_transform_vector (w0, w1, w2, w3, digest);
|
||||||
|
}
|
||||||
|
|
||||||
|
KERNEL_FQ void m24620_init (KERN_ATTR_TMPS_ESALT (sqlcipher_sha256_tmp_t, sqlcipher_t))
|
||||||
|
{
|
||||||
|
/**
|
||||||
|
* base
|
||||||
|
*/
|
||||||
|
|
||||||
|
const u64 gid = get_global_id (0);
|
||||||
|
|
||||||
|
if (gid >= gid_max) return;
|
||||||
|
|
||||||
|
sha256_hmac_ctx_t sha256_hmac_ctx;
|
||||||
|
|
||||||
|
sha256_hmac_init_global_swap (&sha256_hmac_ctx, pws[gid].i, pws[gid].pw_len);
|
||||||
|
|
||||||
|
tmps[gid].ipad[0] = sha256_hmac_ctx.ipad.h[0];
|
||||||
|
tmps[gid].ipad[1] = sha256_hmac_ctx.ipad.h[1];
|
||||||
|
tmps[gid].ipad[2] = sha256_hmac_ctx.ipad.h[2];
|
||||||
|
tmps[gid].ipad[3] = sha256_hmac_ctx.ipad.h[3];
|
||||||
|
tmps[gid].ipad[4] = sha256_hmac_ctx.ipad.h[4];
|
||||||
|
tmps[gid].ipad[5] = sha256_hmac_ctx.ipad.h[5];
|
||||||
|
tmps[gid].ipad[6] = sha256_hmac_ctx.ipad.h[6];
|
||||||
|
tmps[gid].ipad[7] = sha256_hmac_ctx.ipad.h[7];
|
||||||
|
|
||||||
|
tmps[gid].opad[0] = sha256_hmac_ctx.opad.h[0];
|
||||||
|
tmps[gid].opad[1] = sha256_hmac_ctx.opad.h[1];
|
||||||
|
tmps[gid].opad[2] = sha256_hmac_ctx.opad.h[2];
|
||||||
|
tmps[gid].opad[3] = sha256_hmac_ctx.opad.h[3];
|
||||||
|
tmps[gid].opad[4] = sha256_hmac_ctx.opad.h[4];
|
||||||
|
tmps[gid].opad[5] = sha256_hmac_ctx.opad.h[5];
|
||||||
|
tmps[gid].opad[6] = sha256_hmac_ctx.opad.h[6];
|
||||||
|
tmps[gid].opad[7] = sha256_hmac_ctx.opad.h[7];
|
||||||
|
|
||||||
|
sha256_hmac_update_global_swap (&sha256_hmac_ctx, salt_bufs[DIGESTS_OFFSET].salt_buf, salt_bufs[SALT_POS].salt_len);
|
||||||
|
|
||||||
|
for (u32 i = 0, j = 1; i < 8; i += 8, j += 1)
|
||||||
|
{
|
||||||
|
sha256_hmac_ctx_t sha256_hmac_ctx2 = sha256_hmac_ctx;
|
||||||
|
|
||||||
|
u32 w0[4];
|
||||||
|
u32 w1[4];
|
||||||
|
u32 w2[4];
|
||||||
|
u32 w3[4];
|
||||||
|
|
||||||
|
w0[0] = j;
|
||||||
|
w0[1] = 0;
|
||||||
|
w0[2] = 0;
|
||||||
|
w0[3] = 0;
|
||||||
|
w1[0] = 0;
|
||||||
|
w1[1] = 0;
|
||||||
|
w1[2] = 0;
|
||||||
|
w1[3] = 0;
|
||||||
|
w2[0] = 0;
|
||||||
|
w2[1] = 0;
|
||||||
|
w2[2] = 0;
|
||||||
|
w2[3] = 0;
|
||||||
|
w3[0] = 0;
|
||||||
|
w3[1] = 0;
|
||||||
|
w3[2] = 0;
|
||||||
|
w3[3] = 0;
|
||||||
|
|
||||||
|
sha256_hmac_update_64 (&sha256_hmac_ctx2, w0, w1, w2, w3, 4);
|
||||||
|
|
||||||
|
sha256_hmac_final (&sha256_hmac_ctx2);
|
||||||
|
|
||||||
|
tmps[gid].dgst[i + 0] = sha256_hmac_ctx2.opad.h[0];
|
||||||
|
tmps[gid].dgst[i + 1] = sha256_hmac_ctx2.opad.h[1];
|
||||||
|
tmps[gid].dgst[i + 2] = sha256_hmac_ctx2.opad.h[2];
|
||||||
|
tmps[gid].dgst[i + 3] = sha256_hmac_ctx2.opad.h[3];
|
||||||
|
tmps[gid].dgst[i + 4] = sha256_hmac_ctx2.opad.h[4];
|
||||||
|
tmps[gid].dgst[i + 5] = sha256_hmac_ctx2.opad.h[5];
|
||||||
|
tmps[gid].dgst[i + 6] = sha256_hmac_ctx2.opad.h[6];
|
||||||
|
tmps[gid].dgst[i + 7] = sha256_hmac_ctx2.opad.h[7];
|
||||||
|
|
||||||
|
tmps[gid].out[i + 0] = tmps[gid].dgst[i + 0];
|
||||||
|
tmps[gid].out[i + 1] = tmps[gid].dgst[i + 1];
|
||||||
|
tmps[gid].out[i + 2] = tmps[gid].dgst[i + 2];
|
||||||
|
tmps[gid].out[i + 3] = tmps[gid].dgst[i + 3];
|
||||||
|
tmps[gid].out[i + 4] = tmps[gid].dgst[i + 4];
|
||||||
|
tmps[gid].out[i + 5] = tmps[gid].dgst[i + 5];
|
||||||
|
tmps[gid].out[i + 6] = tmps[gid].dgst[i + 6];
|
||||||
|
tmps[gid].out[i + 7] = tmps[gid].dgst[i + 7];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
KERNEL_FQ void m24620_loop (KERN_ATTR_TMPS_ESALT (sqlcipher_sha256_tmp_t, sqlcipher_t))
|
||||||
|
{
|
||||||
|
const u64 gid = get_global_id (0);
|
||||||
|
|
||||||
|
if ((gid * VECT_SIZE) >= gid_max) return;
|
||||||
|
|
||||||
|
u32x ipad[8];
|
||||||
|
u32x opad[8];
|
||||||
|
|
||||||
|
ipad[0] = packv (tmps, ipad, gid, 0);
|
||||||
|
ipad[1] = packv (tmps, ipad, gid, 1);
|
||||||
|
ipad[2] = packv (tmps, ipad, gid, 2);
|
||||||
|
ipad[3] = packv (tmps, ipad, gid, 3);
|
||||||
|
ipad[4] = packv (tmps, ipad, gid, 4);
|
||||||
|
ipad[5] = packv (tmps, ipad, gid, 5);
|
||||||
|
ipad[6] = packv (tmps, ipad, gid, 6);
|
||||||
|
ipad[7] = packv (tmps, ipad, gid, 7);
|
||||||
|
|
||||||
|
opad[0] = packv (tmps, opad, gid, 0);
|
||||||
|
opad[1] = packv (tmps, opad, gid, 1);
|
||||||
|
opad[2] = packv (tmps, opad, gid, 2);
|
||||||
|
opad[3] = packv (tmps, opad, gid, 3);
|
||||||
|
opad[4] = packv (tmps, opad, gid, 4);
|
||||||
|
opad[5] = packv (tmps, opad, gid, 5);
|
||||||
|
opad[6] = packv (tmps, opad, gid, 6);
|
||||||
|
opad[7] = packv (tmps, opad, gid, 7);
|
||||||
|
|
||||||
|
for (u32 i = 0; i < 8; i += 8)
|
||||||
|
{
|
||||||
|
u32x dgst[8];
|
||||||
|
u32x out[8];
|
||||||
|
|
||||||
|
dgst[0] = packv (tmps, dgst, gid, i + 0);
|
||||||
|
dgst[1] = packv (tmps, dgst, gid, i + 1);
|
||||||
|
dgst[2] = packv (tmps, dgst, gid, i + 2);
|
||||||
|
dgst[3] = packv (tmps, dgst, gid, i + 3);
|
||||||
|
dgst[4] = packv (tmps, dgst, gid, i + 4);
|
||||||
|
dgst[5] = packv (tmps, dgst, gid, i + 5);
|
||||||
|
dgst[6] = packv (tmps, dgst, gid, i + 6);
|
||||||
|
dgst[7] = packv (tmps, dgst, gid, i + 7);
|
||||||
|
|
||||||
|
out[0] = packv (tmps, out, gid, i + 0);
|
||||||
|
out[1] = packv (tmps, out, gid, i + 1);
|
||||||
|
out[2] = packv (tmps, out, gid, i + 2);
|
||||||
|
out[3] = packv (tmps, out, gid, i + 3);
|
||||||
|
out[4] = packv (tmps, out, gid, i + 4);
|
||||||
|
out[5] = packv (tmps, out, gid, i + 5);
|
||||||
|
out[6] = packv (tmps, out, gid, i + 6);
|
||||||
|
out[7] = packv (tmps, out, gid, i + 7);
|
||||||
|
|
||||||
|
for (u32 j = 0; j < loop_cnt; j++)
|
||||||
|
{
|
||||||
|
u32x w0[4];
|
||||||
|
u32x w1[4];
|
||||||
|
u32x w2[4];
|
||||||
|
u32x w3[4];
|
||||||
|
|
||||||
|
w0[0] = dgst[0];
|
||||||
|
w0[1] = dgst[1];
|
||||||
|
w0[2] = dgst[2];
|
||||||
|
w0[3] = dgst[3];
|
||||||
|
w1[0] = dgst[4];
|
||||||
|
w1[1] = dgst[5];
|
||||||
|
w1[2] = dgst[6];
|
||||||
|
w1[3] = dgst[7];
|
||||||
|
w2[0] = 0x80000000;
|
||||||
|
w2[1] = 0;
|
||||||
|
w2[2] = 0;
|
||||||
|
w2[3] = 0;
|
||||||
|
w3[0] = 0;
|
||||||
|
w3[1] = 0;
|
||||||
|
w3[2] = 0;
|
||||||
|
w3[3] = (64 + 32) * 8;
|
||||||
|
|
||||||
|
hmac_sha256_run_V (w0, w1, w2, w3, ipad, opad, dgst);
|
||||||
|
|
||||||
|
out[0] ^= dgst[0];
|
||||||
|
out[1] ^= dgst[1];
|
||||||
|
out[2] ^= dgst[2];
|
||||||
|
out[3] ^= dgst[3];
|
||||||
|
out[4] ^= dgst[4];
|
||||||
|
out[5] ^= dgst[5];
|
||||||
|
out[6] ^= dgst[6];
|
||||||
|
out[7] ^= dgst[7];
|
||||||
|
}
|
||||||
|
|
||||||
|
unpackv (tmps, dgst, gid, i + 0, dgst[0]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 1, dgst[1]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 2, dgst[2]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 3, dgst[3]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 4, dgst[4]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 5, dgst[5]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 6, dgst[6]);
|
||||||
|
unpackv (tmps, dgst, gid, i + 7, dgst[7]);
|
||||||
|
|
||||||
|
unpackv (tmps, out, gid, i + 0, out[0]);
|
||||||
|
unpackv (tmps, out, gid, i + 1, out[1]);
|
||||||
|
unpackv (tmps, out, gid, i + 2, out[2]);
|
||||||
|
unpackv (tmps, out, gid, i + 3, out[3]);
|
||||||
|
unpackv (tmps, out, gid, i + 4, out[4]);
|
||||||
|
unpackv (tmps, out, gid, i + 5, out[5]);
|
||||||
|
unpackv (tmps, out, gid, i + 6, out[6]);
|
||||||
|
unpackv (tmps, out, gid, i + 7, out[7]);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
KERNEL_FQ void m24620_comp (KERN_ATTR_TMPS_ESALT (sqlcipher_sha256_tmp_t, sqlcipher_t))
|
||||||
|
{
|
||||||
|
const u64 gid = get_global_id (0);
|
||||||
|
const u64 lid = get_local_id (0);
|
||||||
|
const u64 lsz = get_local_size (0);
|
||||||
|
|
||||||
|
/**
|
||||||
|
* aes shared
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef REAL_SHM
|
||||||
|
|
||||||
|
LOCAL_VK u32 s_td0[256];
|
||||||
|
LOCAL_VK u32 s_td1[256];
|
||||||
|
LOCAL_VK u32 s_td2[256];
|
||||||
|
LOCAL_VK u32 s_td3[256];
|
||||||
|
LOCAL_VK u32 s_td4[256];
|
||||||
|
|
||||||
|
LOCAL_VK u32 s_te0[256];
|
||||||
|
LOCAL_VK u32 s_te1[256];
|
||||||
|
LOCAL_VK u32 s_te2[256];
|
||||||
|
LOCAL_VK u32 s_te3[256];
|
||||||
|
LOCAL_VK u32 s_te4[256];
|
||||||
|
|
||||||
|
for (u32 i = lid; i < 256; i += lsz)
|
||||||
|
{
|
||||||
|
s_td0[i] = td0[i];
|
||||||
|
s_td1[i] = td1[i];
|
||||||
|
s_td2[i] = td2[i];
|
||||||
|
s_td3[i] = td3[i];
|
||||||
|
s_td4[i] = td4[i];
|
||||||
|
|
||||||
|
s_te0[i] = te0[i];
|
||||||
|
s_te1[i] = te1[i];
|
||||||
|
s_te2[i] = te2[i];
|
||||||
|
s_te3[i] = te3[i];
|
||||||
|
s_te4[i] = te4[i];
|
||||||
|
}
|
||||||
|
|
||||||
|
SYNC_THREADS ();
|
||||||
|
|
||||||
|
#else
|
||||||
|
|
||||||
|
CONSTANT_AS u32a *s_td0 = td0;
|
||||||
|
CONSTANT_AS u32a *s_td1 = td1;
|
||||||
|
CONSTANT_AS u32a *s_td2 = td2;
|
||||||
|
CONSTANT_AS u32a *s_td3 = td3;
|
||||||
|
CONSTANT_AS u32a *s_td4 = td4;
|
||||||
|
|
||||||
|
CONSTANT_AS u32a *s_te0 = te0;
|
||||||
|
CONSTANT_AS u32a *s_te1 = te1;
|
||||||
|
CONSTANT_AS u32a *s_te2 = te2;
|
||||||
|
CONSTANT_AS u32a *s_te3 = te3;
|
||||||
|
CONSTANT_AS u32a *s_te4 = te4;
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
if (gid >= gid_max) return;
|
||||||
|
|
||||||
|
u32 ukey[8];
|
||||||
|
|
||||||
|
ukey[0] = tmps[gid].out[0];
|
||||||
|
ukey[1] = tmps[gid].out[1];
|
||||||
|
ukey[2] = tmps[gid].out[2];
|
||||||
|
ukey[3] = tmps[gid].out[3];
|
||||||
|
ukey[4] = tmps[gid].out[4];
|
||||||
|
ukey[5] = tmps[gid].out[5];
|
||||||
|
ukey[6] = tmps[gid].out[6];
|
||||||
|
ukey[7] = tmps[gid].out[7];
|
||||||
|
|
||||||
|
u32 ks[60];
|
||||||
|
|
||||||
|
AES256_set_decrypt_key (ks, ukey, s_te0, s_te1, s_te2, s_te3, s_td0, s_td1, s_td2, s_td3);
|
||||||
|
|
||||||
|
// first check the padding
|
||||||
|
|
||||||
|
u32 iv_buf[4];
|
||||||
|
|
||||||
|
iv_buf[0] = esalt_bufs[DIGESTS_OFFSET].iv_buf[0];
|
||||||
|
iv_buf[1] = esalt_bufs[DIGESTS_OFFSET].iv_buf[1];
|
||||||
|
iv_buf[2] = esalt_bufs[DIGESTS_OFFSET].iv_buf[2];
|
||||||
|
iv_buf[3] = esalt_bufs[DIGESTS_OFFSET].iv_buf[3];
|
||||||
|
|
||||||
|
u32 enc[4];
|
||||||
|
|
||||||
|
enc[0] = esalt_bufs[DIGESTS_OFFSET].data_buf[0];
|
||||||
|
enc[1] = esalt_bufs[DIGESTS_OFFSET].data_buf[1];
|
||||||
|
enc[2] = esalt_bufs[DIGESTS_OFFSET].data_buf[2];
|
||||||
|
enc[3] = esalt_bufs[DIGESTS_OFFSET].data_buf[3];
|
||||||
|
|
||||||
|
u32 dec[4];
|
||||||
|
|
||||||
|
aes256_decrypt (ks, enc, dec, s_td0, s_td1, s_td2, s_td3, s_td4);
|
||||||
|
|
||||||
|
dec[0] ^= iv_buf[0];
|
||||||
|
dec[1] ^= iv_buf[1];
|
||||||
|
dec[2] ^= iv_buf[2];
|
||||||
|
dec[3] ^= iv_buf[3];
|
||||||
|
|
||||||
|
if (dec[0] != 0) return;
|
||||||
|
if (dec[1] != 0) return;
|
||||||
|
if (dec[2] != 0) return;
|
||||||
|
|
||||||
|
const u32 r0 = esalt_bufs[DIGESTS_OFFSET].data_buf[0];
|
||||||
|
const u32 r1 = esalt_bufs[DIGESTS_OFFSET].data_buf[1];
|
||||||
|
const u32 r2 = esalt_bufs[DIGESTS_OFFSET].data_buf[2];
|
||||||
|
const u32 r3 = esalt_bufs[DIGESTS_OFFSET].data_buf[3];
|
||||||
|
|
||||||
|
#define il_pos 0
|
||||||
|
|
||||||
|
#ifdef KERNEL_STATIC
|
||||||
|
#include COMPARE_M
|
||||||
|
#endif
|
||||||
|
}
|
@ -0,0 +1,75 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
##
|
||||||
|
## Author......: See docs/credits.txt
|
||||||
|
## License.....: MIT
|
||||||
|
##
|
||||||
|
|
||||||
|
# In a first version I wrote a kernel that followed the original sqlcipher scheme which uses a MAC to verify the integrity (and therefore we knew we had guessed the correct password).
|
||||||
|
# But it turns out it's much easier to exploit the sqlite header format, which guarantees 20 zero bytes starting from offset 72.
|
||||||
|
# See: https://www.sqlite.org/fileformat.html
|
||||||
|
# The advantage is the user doesn't need to guess the MAC hash type and/or pagesize (in case it they customized).
|
||||||
|
# The user still needs to know the KDF hash type and iteration count, but they sqlcipher v3 and v4 come with a default for these.
|
||||||
|
# We'll check only 12 of 16 bytes from the encrypted block as an optimization so we only need to decrypt one block.
|
||||||
|
# Another optimization is that since the scheme uses CBC we do not need to find the correct position of the IV.
|
||||||
|
# This position is depending on the pagesize and the KDF hash type (which could be customized).
|
||||||
|
# As an alternative, or in case the sqlite header changes, we could also use entropy test.
|
||||||
|
# -atom
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
if (scalar (@ARGV) < 2)
|
||||||
|
{
|
||||||
|
print "usage: $0 encrypted.db preset [hash] [iteration]\n\n";
|
||||||
|
print "preset 1 = SQLCIPHER v3\n";
|
||||||
|
print "preset 2 = SQLCIPHER v4\n";
|
||||||
|
print "preset 3 = CUSTOM, please specify hash type (1 = SHA1, 2 = SHA256, 3 = SHA512) and iteration count\n";
|
||||||
|
|
||||||
|
exit -1;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $db = $ARGV[0];
|
||||||
|
my $preset = $ARGV[1];
|
||||||
|
|
||||||
|
my $type = 0;
|
||||||
|
my $iter = 0;
|
||||||
|
|
||||||
|
if ($preset == 1)
|
||||||
|
{
|
||||||
|
$type = 1;
|
||||||
|
$iter = 64000;
|
||||||
|
}
|
||||||
|
elsif ($preset == 2)
|
||||||
|
{
|
||||||
|
$type = 3;
|
||||||
|
$iter = 256000;
|
||||||
|
}
|
||||||
|
elsif ($preset == 3)
|
||||||
|
{
|
||||||
|
$type = $ARGV[2];
|
||||||
|
$iter = $ARGV[3];
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
die "Invalid preset\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
open (IN, $db) or die ("$db: $!\n");
|
||||||
|
|
||||||
|
binmode (IN);
|
||||||
|
|
||||||
|
my $data;
|
||||||
|
|
||||||
|
if (read (IN, $data, 96) != 96)
|
||||||
|
{
|
||||||
|
die "ERROR: Couldn't read data from the file. Maybe incorrect file format?\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
close (IN);
|
||||||
|
|
||||||
|
my $salt = substr ($data, 0, 16);
|
||||||
|
my $iv = substr ($data, 64, 16);
|
||||||
|
my $enc = substr ($data, 80, 16);
|
||||||
|
|
||||||
|
printf ("SQLCIPHER*%d*%d*%s*%s*%s\n", $type, $iter, unpack ("H*", $salt), unpack ("H*", $iv), unpack ("H*", $enc));
|
@ -1,18 +0,0 @@
|
|||||||
#!/usr/bin/env python3
|
|
||||||
from base64 import b64encode
|
|
||||||
import sys
|
|
||||||
|
|
||||||
def usage():
|
|
||||||
print('./sqlcipher2hashcat DATABASE_FILE')
|
|
||||||
|
|
||||||
def main():
|
|
||||||
database = open(sys.argv[1], "rb").read(272)
|
|
||||||
salt = database[:16]
|
|
||||||
|
|
||||||
print('sqlcipherv4:256000:' + b64encode(salt).decode() + ':' + b64encode(database[16:272]).decode())
|
|
||||||
|
|
||||||
if __name__ == '__main__':
|
|
||||||
if len(sys.argv < 2):
|
|
||||||
usage()
|
|
||||||
else:
|
|
||||||
main()
|
|
@ -0,0 +1,135 @@
|
|||||||
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
##
|
||||||
|
## Author......: See docs/credits.txt
|
||||||
|
## License.....: MIT
|
||||||
|
##
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use Crypt::PBKDF2;
|
||||||
|
use Crypt::CBC;
|
||||||
|
|
||||||
|
sub module_constraints { [[0, 256], [32, 32], [-1, -1], [-1, -1], [-1, -1]] }
|
||||||
|
|
||||||
|
sub module_generate_hash
|
||||||
|
{
|
||||||
|
my $word = shift;
|
||||||
|
my $salt = shift;
|
||||||
|
my $type = shift // 1; #random_number (1, 3);
|
||||||
|
my $iter = shift // random_number (10000, 20000);
|
||||||
|
my $iv = shift // random_hex_string (32);
|
||||||
|
my $enc = shift;
|
||||||
|
|
||||||
|
my $kdf;
|
||||||
|
|
||||||
|
if ($type == 1)
|
||||||
|
{
|
||||||
|
$kdf = Crypt::PBKDF2->new
|
||||||
|
(
|
||||||
|
hash_class => 'HMACSHA1',
|
||||||
|
iterations => $iter,
|
||||||
|
output_len => 32
|
||||||
|
);
|
||||||
|
}
|
||||||
|
elsif ($type == 2)
|
||||||
|
{
|
||||||
|
$kdf = Crypt::PBKDF2->new
|
||||||
|
(
|
||||||
|
hasher => Crypt::PBKDF2->hasher_from_algorithm ('HMACSHA2', 256),
|
||||||
|
iterations => $iter,
|
||||||
|
output_len => 32
|
||||||
|
);
|
||||||
|
}
|
||||||
|
elsif ($type == 3)
|
||||||
|
{
|
||||||
|
$kdf = Crypt::PBKDF2->new
|
||||||
|
(
|
||||||
|
hasher => Crypt::PBKDF2->hasher_from_algorithm ('HMACSHA2', 512),
|
||||||
|
iterations => $iter,
|
||||||
|
output_len => 32
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
my $salt_bin = pack ("H*", $salt);
|
||||||
|
|
||||||
|
my $key = $kdf->PBKDF2 ($salt_bin, $word);
|
||||||
|
|
||||||
|
my $iv_bin = pack ("H*", $iv);
|
||||||
|
|
||||||
|
my $data;
|
||||||
|
|
||||||
|
if (defined $enc)
|
||||||
|
{
|
||||||
|
my $aes_cbc = Crypt::CBC->new ({
|
||||||
|
cipher => "Crypt::Rijndael",
|
||||||
|
iv => $iv_bin,
|
||||||
|
key => $key,
|
||||||
|
keysize => 32,
|
||||||
|
literal_key => 1,
|
||||||
|
header => "none",
|
||||||
|
padding => "none"
|
||||||
|
});
|
||||||
|
|
||||||
|
my $enc_bin = pack ("H*", $enc);
|
||||||
|
|
||||||
|
$data = $aes_cbc->decrypt ($enc_bin);
|
||||||
|
|
||||||
|
if (substr ($data, 0, 12) ne "\x00" x 12)
|
||||||
|
{
|
||||||
|
$data = "\xff" x 16;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
$data = "\x00" x 16;
|
||||||
|
}
|
||||||
|
|
||||||
|
my $aes_cbc = Crypt::CBC->new ({
|
||||||
|
cipher => "Crypt::Rijndael",
|
||||||
|
iv => $iv_bin,
|
||||||
|
key => $key,
|
||||||
|
keysize => 32,
|
||||||
|
literal_key => 1,
|
||||||
|
header => "none",
|
||||||
|
padding => "none"
|
||||||
|
});
|
||||||
|
|
||||||
|
my $enc_bin = $aes_cbc->encrypt ($data);
|
||||||
|
|
||||||
|
my $hash = sprintf ("SQLCIPHER*%d*%d*%s*%s*%s", $type, $iter, unpack ("H*", $salt_bin), unpack ("H*", $iv_bin), unpack ("H*", $enc_bin));
|
||||||
|
|
||||||
|
return $hash;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub module_verify_hash
|
||||||
|
{
|
||||||
|
my $line = shift;
|
||||||
|
|
||||||
|
my $idx = index ($line, ':');
|
||||||
|
|
||||||
|
return unless $idx >= 0;
|
||||||
|
|
||||||
|
my $hash = substr ($line, 0, $idx);
|
||||||
|
my $word = substr ($line, $idx + 1);
|
||||||
|
|
||||||
|
return unless substr ($hash, 0, 9) eq 'SQLCIPHER';
|
||||||
|
|
||||||
|
my ($signature, $type, $iter, $salt, $iv, $data) = split '\*', $hash;
|
||||||
|
|
||||||
|
return unless defined $signature;
|
||||||
|
return unless defined $type;
|
||||||
|
return unless defined $iter;
|
||||||
|
return unless defined $salt;
|
||||||
|
return unless defined $iv;
|
||||||
|
return unless defined $data;
|
||||||
|
|
||||||
|
my $word_packed = pack_if_HEX_notation ($word);
|
||||||
|
|
||||||
|
my $new_hash = module_generate_hash ($word_packed, $salt, $type, $iter, $iv, $data);
|
||||||
|
|
||||||
|
return ($new_hash, $word);
|
||||||
|
}
|
||||||
|
|
||||||
|
1;
|
Loading…
Reference in new issue