123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362 |
|
/*******************************************************************************
copyright: Copyright (c) 2006 Tango. All rights reserved
license: BSD style: see doc/license.txt for details
version: Initial release: Feb 2006
author: Regan Heath, Oskar Linde
This module implements the SHA-512 Algorithm described by Secure
Hash Standard, FIPS PUB 180-2
*******************************************************************************/
module tango.util.digest.Sha512;
private import tango.core.ByteSwap;
private import tango.util.digest.MerkleDamgard;
public import tango.util.digest.Digest;
/*******************************************************************************
*******************************************************************************/
final class Sha512 : MerkleDamgard
{
private ulong[8] context;
private enum uint padChar = 0x80;
/***********************************************************************
Construct a Sha512 hash algorithm context
***********************************************************************/
this() { }
/***********************************************************************
***********************************************************************/
protected override void createDigest(ubyte[] buf)
{
version (LittleEndian)
ByteSwap.swap64(context.ptr, context.length * ulong.sizeof);
buf[] = cast(ubyte[]) context[];
}
/***********************************************************************
The digest size of Sha-512 is 64 bytes
***********************************************************************/
override uint digestSize() {return 64;}
/***********************************************************************
Initialize the cipher
Remarks:
Returns the cipher state to it's initial value
***********************************************************************/
protected override void reset()
{
super.reset();
context[] = initial[];
}
/***********************************************************************
Cipher block size
Returns:
the block size
Remarks:
Specifies the size (in bytes) of the block of data to pass to
each call to transform(). For SHA512 the blockSize is 128.
***********************************************************************/
protected override uint blockSize() { return 128; }
/***********************************************************************
Length padding size
Returns:
the length padding size
Remarks:
Specifies the size (in bytes) of the padding which uses the
length of the data which has been ciphered, this padding is
carried out by the padLength method. For SHA512 the addSize is 16.
***********************************************************************/
protected override uint addSize() { return 16; }
/***********************************************************************
Pads the cipher data
Params:
data = a slice of the cipher buffer to fill with padding
Remarks:
Fills the passed buffer slice with the appropriate padding for
the final call to transform(). This padding will fill the cipher
buffer up to blockSize()-addSize().
***********************************************************************/
protected override void padMessage(ubyte[] data)
{
data[0] = padChar;
data[1..$] = 0;
}
/***********************************************************************
Performs the length padding
Params:
data = the slice of the cipher buffer to fill with padding
length = the length of the data which has been ciphered
Remarks:
Fills the passed buffer slice with addSize() bytes of padding
based on the length in bytes of the input data which has been
ciphered.
***********************************************************************/
protected override void padLength(ubyte[] data, ulong length)
{
length <<= 3;
for(auto j = data.length; j > 0;) {
j--;
data[data.length-j-1] = cast(ubyte) (length >> j*8);
}
data[0..8] = 0;
}
/***********************************************************************
Performs the cipher on a block of data
Params:
data = the block of data to cipher
Remarks:
The actual cipher algorithm is carried out by this method on
the passed block of data. This method is called for every
blockSize() bytes of input data and once more with the remaining
data padded to blockSize().
***********************************************************************/
protected override void transform(const(ubyte[]) input)
{
ulong[80] W;
ulong a,b,c,d,e,f,g,h;
ulong t1,t2;
uint j;
a = context[0];
b = context[1];
c = context[2];
d = context[3];
e = context[4];
f = context[5];
g = context[6];
h = context[7];
bigEndian64(input,W[0..16]);
for(j = 16; j < 80; j++) {
W[j] = mix1(W[j-2]) + W[j-7] + mix0(W[j-15]) + W[j-16];
}
for(j = 0; j < 80; j++) {
t1 = h + sum1(e) + Ch(e,f,g) + K[j] + W[j];
t2 = sum0(a) + Maj(a,b,c);
h = g;
g = f;
f = e;
e = d + t1;
d = c;
c = b;
b = a;
a = t1 + t2;
}
context[0] += a;
context[1] += b;
context[2] += c;
context[3] += d;
context[4] += e;
context[5] += f;
context[6] += g;
context[7] += h;
}
/***********************************************************************
***********************************************************************/
private static ulong Ch(ulong x, ulong y, ulong z)
{
return (x&y)^(~x&z);
}
/***********************************************************************
***********************************************************************/
private static ulong Maj(ulong x, ulong y, ulong z)
{
return (x&y)^(x&z)^(y&z);
}
/***********************************************************************
***********************************************************************/
private static ulong sum0(ulong x)
{
return rotateRight(x,28)^rotateRight(x,34)^rotateRight(x,39);
}
/***********************************************************************
***********************************************************************/
private static ulong sum1(ulong x)
{
return rotateRight(x,14)^rotateRight(x,18)^rotateRight(x,41);
}
/***********************************************************************
***********************************************************************/
private static ulong mix0(ulong x)
{
return rotateRight(x,1)^rotateRight(x,8)^shiftRight(x,7);
}
/***********************************************************************
***********************************************************************/
private static ulong mix1(ulong x)
{
return rotateRight(x,19)^rotateRight(x,61)^shiftRight(x,6);
}
/***********************************************************************
***********************************************************************/
private static ulong rotateRight(ulong x, uint n)
{
return (x >> n) | (x << (64-n));
}
/***********************************************************************
***********************************************************************/
private static ulong shiftRight(ulong x, uint n)
{
return x >> n;
}
}
/*******************************************************************************
*******************************************************************************/
private enum ulong[] K =
[
0x428a2f98d728ae22, 0x7137449123ef65cd, 0xb5c0fbcfec4d3b2f, 0xe9b5dba58189dbbc,
0x3956c25bf348b538, 0x59f111f1b605d019, 0x923f82a4af194f9b, 0xab1c5ed5da6d8118,
0xd807aa98a3030242, 0x12835b0145706fbe, 0x243185be4ee4b28c, 0x550c7dc3d5ffb4e2,
0x72be5d74f27b896f, 0x80deb1fe3b1696b1, 0x9bdc06a725c71235, 0xc19bf174cf692694,
0xe49b69c19ef14ad2, 0xefbe4786384f25e3, 0x0fc19dc68b8cd5b5, 0x240ca1cc77ac9c65,
0x2de92c6f592b0275, 0x4a7484aa6ea6e483, 0x5cb0a9dcbd41fbd4, 0x76f988da831153b5,
0x983e5152ee66dfab, 0xa831c66d2db43210, 0xb00327c898fb213f, 0xbf597fc7beef0ee4,
0xc6e00bf33da88fc2, 0xd5a79147930aa725, 0x06ca6351e003826f, 0x142929670a0e6e70,
0x27b70a8546d22ffc, 0x2e1b21385c26c926, 0x4d2c6dfc5ac42aed, 0x53380d139d95b3df,
0x650a73548baf63de, 0x766a0abb3c77b2a8, 0x81c2c92e47edaee6, 0x92722c851482353b,
0xa2bfe8a14cf10364, 0xa81a664bbc423001, 0xc24b8b70d0f89791, 0xc76c51a30654be30,
0xd192e819d6ef5218, 0xd69906245565a910, 0xf40e35855771202a, 0x106aa07032bbd1b8,
0x19a4c116b8d2d0c8, 0x1e376c085141ab53, 0x2748774cdf8eeb99, 0x34b0bcb5e19b48a8,
0x391c0cb3c5c95a63, 0x4ed8aa4ae3418acb, 0x5b9cca4f7763e373, 0x682e6ff3d6b2b8a3,
0x748f82ee5defb2fc, 0x78a5636f43172f60, 0x84c87814a1f0ab72, 0x8cc702081a6439ec,
0x90befffa23631e28, 0xa4506cebde82bde9, 0xbef9a3f7b2c67915, 0xc67178f2e372532b,
0xca273eceea26619c, 0xd186b8c721c0c207, 0xeada7dd6cde0eb1e, 0xf57d4f7fee6ed178,
0x06f067aa72176fba, 0x0a637dc5a2c898a6, 0x113f9804bef90dae, 0x1b710b35131c471b,
0x28db77f523047d84, 0x32caab7b40c72493, 0x3c9ebe0a15c9bebc, 0x431d67c49c100d4c,
0x4cc5d4becb3e42b6, 0x597f299cfc657e2a, 0x5fcb6fab3ad6faec, 0x6c44198c4a475817
];
/*******************************************************************************
*******************************************************************************/
private enum ulong[8] initial =
[
0x6a09e667f3bcc908,
0xbb67ae8584caa73b,
0x3c6ef372fe94f82b,
0xa54ff53a5f1d36f1,
0x510e527fade682d1,
0x9b05688c2b3e6c1f,
0x1f83d9abfb41bd6b,
0x5be0cd19137e2179
];
/*******************************************************************************
*******************************************************************************/
debug(UnitTest)
{
unittest
{
enum immutable(char)[][] strings =
[
"",
"abc",
"abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu"
];
enum immutable(char)[][] results =
[
"cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e",
"ddaf35a193617abacc417349ae20413112e6fa4e89a97ea20a9eeee64b55d39a2192992a274fc1a836ba3c23a3feebbd454d4423643ce80e2a9ac94fa54ca49f",
"8e959b75dae313da8cf4f72814fc143f8f7779c6eb9f7fa17299aeadb6889018501d289e4900f7e4331b99dec4b5433ac7d329eeb6dd26545e96e55b874be909"
];
Sha512 h = new Sha512;
foreach (int i, immutable(char)[] s; strings)
{
h.update(cast(ubyte[])s);
char[] d = h.hexDigest();
assert(d == results[i],"DigestTransform:("~s~")("~d~")!=("~results[i]~")");
}
}
}
|