"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 1999-2013 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

HashStream subclass:#SHA1Stream

	instanceVariableNames:'hashContext'

	classVariableNames:'HashSize ContextSize'

	poolDictionaries:''

	category:'System-Crypt-Hashing'

!

!SHA1Stream primitiveDefinitions!

%{

#if defined(__LSBFIRST)

# ifndef LITTLE_ENDIAN

#  define LITTLE_ENDIAN /* This should be #define'd if true. */

# endif

#endif

#define SHA1HANDSOFF /* Copies data before messing with it. */

#ifndef _STDIO_H_INCLUDED_

# include <stdio.h>

# define _STDIO_H_INCLUDED_

#endif

#ifndef _STRING_H_INCLUDED_

# include <string.h>

# define _STRING_H_INCLUDED_

#endif

typedef struct {

    unsigned int32 state[5];

    unsigned int32 count[2];

    unsigned char buffer[64];

} SHA1_CTX;

#if USE_ANSI_C

 void SHA1Transform(unsigned int32 /* long */ state[5], unsigned char buffer[64]);

 void SHA1Update(SHA1_CTX* context, unsigned char* data, unsigned int len);

 void SHA1Final(unsigned char digest[20], SHA1_CTX* context);

#else /* general: compiles everywhere */

# define SHA1Init   __SHA1Init

# define SHA1Update __SHA1Update

# define SHA1Final  __SHA2Final

 void SHA1Update();

 void SHA1Final();

#endif /* USE_ANSI_C */

%}

! !

!SHA1Stream primitiveFunctions!

%}

! !

!SHA1Stream class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1999-2013 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    Generate a SHA-1 hash value as defined in

    NIST, FIPS PUB 180-1: Secure Hash Standard, April 1995.

    Notice (2005):

        Be aware that SHA-1 is considered broken and may not be appropriate in some applications.

        Especially it should no longer be used for security stuff.

    performance: roughly

          120 Mb/s on a 2.5Ghz 64X2 Athlon 4800+ (64bit)

           47400 Kb/s on a 2Ghz Duo (old measure)

            9580 Kb/s on a 400Mhz PIII

            3970 Kb/s on a 300Mhz Sparc

    [author:]

        Stefan Vogel

    [see also:]

        MD5Stream

        SHA256Stream SHA512Stream (in libcrypt)

    [class variables:]

        HashSize        size of returned hash value

        ContextSize     (implementation) size of hash context

    [instance variables:]

        hashContext     (implementation)

                        internal buffer for computation of the hash value

"

!

examples

"

    Test Vectors (from FIPS PUB 180-1); results are:

                                                                [exBegin]

    |hashStream|

    hashStream := SHA1Stream new.

    hashStream nextPut:'abc'.

    hashStream hashValue printOn:Transcript base:16. Transcript cr.

    hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq'.

    hashStream hashValue printOn:Transcript base:16. Transcript cr.

                                                                [exEnd]

                                                                [exBegin]

    |hashValue|

    hashValue := SHA1Stream hashValueOf:'hello world'.

    self assert:(hashValue hexPrintString = '2AAE6C35C94FCFB415DBE95F408B9CE91EE846ED')

                                                                [exEnd]

                                                                [exBegin]

    |hashValue|

    hashValue := SHA1Stream hashValueOf:'abc'.

    hashValue printOn:Transcript base:16. Transcript cr.

                                                                [exEnd]

                                                                [exBegin]

    |hashStream|

    hashStream := SHA1Stream new.

    hashStream nextPut:'abc' asByteArray.

    hashStream hashValue printOn:Transcript base:16. Transcript cr.

    hashStream nextPut:'dbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq' asByteArray.

    hashStream hashValue printOn:Transcript base:16. Transcript cr.

                                                                [exEnd]

                                                                [exBegin]

    |hashStream|

    hashStream := SHA1Stream new.

    1000000 timesRepeat:[ hashStream nextPut:$a ].

    hashStream hashValue printOn:Transcript base:16. Transcript cr.

                                                                [exEnd]

                                                                [exBegin]

    |hashStream|

    hashStream := SHA1Stream new.

    hashStream nextPut:'a'.

    hashStream hashValue printOn:Transcript base:16. Transcript cr.

                                                                [exEnd]

                                                                [exBegin]

    |hashStream|

    hashStream := SHA1Stream new.

    hashStream nextPut:$a.

    hashStream hashValue printOn:Transcript base:16. Transcript cr.

                                                                [exEnd]

  timing throughput:

                                                                [exBegin]

    |hashStream n t|

    hashStream := SHA1Stream new.

    n := 1000000.

    t := Time millisecondsToRun:[

            n timesRepeat:[

                hashStream nextPutAll:'12345678901234567890123456789012345678901234567890'.

            ].

         ].

    t := (t / 1000) asFloat.

    Transcript show:t; show:' seconds for '; show:(50*n/1024) asFloat; showCR:' Kb'.

    Transcript show:(n*50/1024 / t); showCR:' Kb/s'

                                                                [exEnd]

"

!

performance

"

  timing throughput:

    |hashStream n t|

    hashStream := SHA1Stream new.

    n := 1000000.

    t := Time millisecondsToRun:[

    t := (t / 1000) asFloat.

    Transcript show:t; show:' seconds for '; show:(50*n/1024) asFloat; showCR:' Kb'.

    Transcript show:(n*50/1024 / t); showCR:' Kb/s'

"

! !

!SHA1Stream class methodsFor:'initialization'!

initialize

    |ctxSize|

%{

    ctxSize = __MKSMALLINT(sizeof(SHA1_CTX));

%}.

    ContextSize := ctxSize.

    HashSize := 20.

    "

	self initialize

    "

! !

!SHA1Stream class methodsFor:'queries'!

hashBlockSize

    "return the block size used internally by the compression function"

    ^ 64

    "Created: / 18.3.1999 / 08:37:10 / stefan"

!

hashSize

    "return the size of the hashvalue returned by instances of this class"

    ^ HashSize

    "Modified: / 18.3.1999 / 07:54:22 / stefan"

! !

!SHA1Stream methodsFor:'initialization'!

initialize

    hashContext := ByteArray new:ContextSize.

    self reset

    "Created: / 17.3.1999 / 16:11:37 / stefan"

    "Modified: / 18.3.1999 / 07:56:46 / stefan"

! !

!SHA1Stream methodsFor:'positioning'!

reset

   "reset the stream in order to compute a new hash value"

%{

   if (__isByteArray(__INST(hashContext)) &&

       __byteArraySize(__INST(hashContext)) == sizeof(SHA1_CTX)

   ) {

	SHA1_CTX *ctx = (SHA1_CTX *)__ByteArrayInstPtr(__INST(hashContext))->ba_element;

	SHA1Init(ctx);

	RETURN(self);

   }

%}.

   ^ self primitiveFailed

    "Created: / 18-03-1999 / 07:59:02 / stefan"

    "Modified: / 12-01-2012 / 12:21:23 / cg"

!

seedWith:fiveWordVector

   "seed the stream with 5*16  (for testing)"

    |seedA seedB seedC seedD seedE|

    seedA := fiveWordVector at:1.

    seedB := fiveWordVector at:1.

    seedC := fiveWordVector at:1.

    seedD := fiveWordVector at:1.

    seedE := fiveWordVector at:1.

    self reset.

%{

   if (__isByteArray(__INST(hashContext))

    && (__byteArraySize(__INST(hashContext)) == sizeof(SHA1_CTX))

    && __isSmallInteger(seedA)

    && __isSmallInteger(seedB)

    && __isSmallInteger(seedC)

    && __isSmallInteger(seedD)

    && __isSmallInteger(seedE)

   ) {

        SHA1_CTX *ctx = (SHA1_CTX *)__ByteArrayInstPtr(__INST(hashContext))->ba_element;

        ctx->state[0] = __intVal(seedA);

        ctx->state[1] = __intVal(seedB);

        ctx->state[2] = __intVal(seedC);

        ctx->state[3] = __intVal(seedD);

        ctx->state[4] = __intVal(seedE);

        RETURN(self);

   }

%}.

   ^ self primitiveFailed

! !

!SHA1Stream methodsFor:'queries'!

hashValue

    "Get the value hashed so far.

     The context is kept, so that more objects may be hashed after

     retrieving a hash value"

    |digest|

    digest := ByteArray new:HashSize.

%{

    OBJ hcon;

    hcon = __INST(hashContext);

    if (__isByteArray(hcon) &&

	__byteArraySize(hcon) == sizeof(SHA1_CTX) &&

	__isByteArray(digest) &&

	__byteArraySize(digest) == 20

    ) {

	SHA1_CTX *ctx = (SHA1_CTX *)(__ByteArrayInstPtr(hcon)->ba_element);

	SHA1_CTX copyContext;

	memcpy(&copyContext, ctx, sizeof(SHA1_CTX));

	SHA1Final(__ByteArrayInstPtr(digest)->ba_element, &copyContext);

	RETURN(digest);

    }

%}.

    ^ self primitiveFailed

    "Created: / 17.3.1999 / 16:13:12 / stefan"

    "Modified: / 18.3.1999 / 08:00:54 / stefan"

! !

!SHA1Stream methodsFor:'writing'!

nextPutByte:anInteger

    "update the hash value with anInteger <= 255."

%{

   if (__isSmallInteger(anInteger) && __intVal(anInteger) <= 255

       && __isByteArray(__INST(hashContext))

       && __byteArraySize(__INST(hashContext)) == sizeof(SHA1_CTX)

   ) {

        SHA1_CTX *ctx = (SHA1_CTX *)__ByteArrayInstPtr(__INST(hashContext))->ba_element;

        unsigned char value = __intVal(anInteger);

        SHA1Update(ctx, &value, 1);

        RETURN(self);

    }

bad: ;

%}.

    ^ self primitiveFailed

!

nextPutBytes:count from:anObject startingAt:start

    "update the hash value with count bytes from an object starting at index start.

     The object must have non-pointer indexed instvars

     (i.e. be a ByteArray, String, Float- or DoubleArray),

     or an externalBytes object (with known size)"

%{

    INT len, offs;

    INT objSize;

    int nInstBytes;

    char *extPtr;

   if (__isByteArray(__INST(hashContext))

       && __byteArraySize(__INST(hashContext)) == sizeof(SHA1_CTX)

       && __bothSmallInteger(count, start)

   ) {

	SHA1_CTX *ctx = (SHA1_CTX *)__ByteArrayInstPtr(__INST(hashContext))->ba_element;

	len = __intVal(count);

	offs = __intVal(start) - 1;

	if (__isExternalBytesLike(anObject)) {

	    OBJ sz;

	    nInstBytes = 0;

	    extPtr = (char *)__externalBytesAddress(anObject);

	    if (extPtr == NULL) goto bad;

	    sz = __externalBytesSize(anObject);

	    if (__isSmallInteger(sz)) {

		objSize = __intVal(sz);

	    } else {

		objSize = 0; /* unknown */

	    }

	} else {

	    OBJ oClass = __Class(anObject);

	    int nInstVars = __intVal(__ClassInstPtr(oClass)->c_ninstvars);

	    nInstBytes = OHDR_SIZE + __OBJS2BYTES__(nInstVars);

	    switch (__intVal(__ClassInstPtr(oClass)->c_flags) & ARRAYMASK) {

		case BYTEARRAY:

		case WORDARRAY:

		case LONGARRAY:

		case SWORDARRAY:

		case SLONGARRAY:

		case FLOATARRAY:

		    break;

		case DOUBLEARRAY:

#ifdef __NEED_DOUBLE_ALIGN

		    nInstBytes = (nInstBytes-1+__DOUBLE_ALIGN) &~ (__DOUBLE_ALIGN-1);

#endif

		    break;

		case LONGLONGARRAY:

		case SLONGLONGARRAY:

#ifdef __NEED_LONGLONG_ALIGN

		    nInstBytes = (nInstBytes-1+__LONGLONG_ALIGN) &~ (__LONGLONG_ALIGN-1);

#endif

		    break;

		default:

		    goto bad;

	    }

	    // nInstBytes is the number of bytes occupied by pointer instance variables

	    // subtract from size and add to byte-pointer

	    objSize = __Size(anObject) - nInstBytes;

	    extPtr = (char *)anObject + nInstBytes;

	}

	if ((offs >= 0) && (len >= 0) && (objSize >= (len + offs))) {

	    SHA1Update(ctx, extPtr+offs, (unsigned int)len);

	    RETURN (count);

	}

    }

bad: ;

%}.

    ^ self primitiveFailed

! !

!SHA1Stream class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !

SHA1Stream initialize!