Thursday, 19 October 2017

DiceLockSecurity Knowledge

DicelockSecurity (version 9.X)

Linux - Source Code

DiceLock-x 9.0.0.1
DiceChecker-x 6.0.0.1
HashDigester-x 6.0.0.1
Previous Versions
DiceLock-x 8.0.0.1
arrow Previous Versions arrow DiceLock-x 8.0.0.1 arrow baseCryptoRandomStream.cpp
baseCryptoRandomStream.cpp (Crypto Random Stream base class C++ source code file) Print E-mail
Get C++ DiceLock cipher architecture source code packages of DiceLock for Microsoft Visual Studio 2013 and DiceLock-x for Linux with Test Driver Programs and Response Test Vector files to verify that both them work as expected.
DiceLock for Windows and Linux
DiceLock Security governing software licenses are Free/Libre Source Code License and Educational and Research License

DiceLock is protected by US patent 7508945 and European Patent 1182777 where applicable.

DiceLock and DiceLock logo are trademarks or registered trademarks in the EC, USA and others.

License information can be obtained at our corporate web site




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
 
//
// Creator:    http://www.dicelocksecurity.com
// Version:    vers.8.0.0.1
//
// Copyright (C) 2008-2012 DiceLock Security, LLC. All rights reserved.
//
//                               DISCLAIMER
//
// THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED WARRANTIES,
// INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
// AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
// REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
// OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
// ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
// 
// DICELOCK IS A REGISTERED TRADEMARK OR TRADEMARK OF THE OWNERS.
// 
 
#include <stdlib.h>
#include <memory.h>
#include "baseCryptoRandomStream.h"
 
 
using namespace std;
 
 
namespace DiceLockSecurity {
 
  namespace CryptoRandomStream {
 
  // Constructor
  BaseCryptoRandomStream::BaseCryptoRandomStream() {
 
    this->cryptoStream = NULL;
    this->bitLength = 0;
    this->reducedBitLength = 0;
    this->position = 0;
  }
 
  // Destructor
  BaseCryptoRandomStream::~BaseCryptoRandomStream() {
 
    this->cryptoStream = NULL;
    this->bitLength = 0;
    this->reducedBitLength = 0;
    this->position = 0;
  }
 
  // Sets the BaseCryptoRandomStream position, minimum value 0
  void BaseCryptoRandomStream::SetBitPosition(unsigned long int newPosition) {
 
    this->position = newPosition;
  }
 
  // Gets the current bit position
  unsigned long int BaseCryptoRandomStream::GetBitPosition(void) {
 
    return this->position; 
  }
 
  // Gets the stream length in bits
  unsigned long int BaseCryptoRandomStream::GetBitLength(void) {
 
    if ( this->reducedBitLength ) {
      return this->reducedBitLength; 
    }
    else {
      return this->bitLength; 
    }
  }
 
  // Gets the stream length in unsigned char type
  unsigned long int BaseCryptoRandomStream::GetUCLength(void) {
 
    if ( this->reducedBitLength ) {
      return (this->reducedBitLength / (BYTEBITS * sizeof(unsigned char))); 
    }
    else {
      return (this->bitLength / (BYTEBITS * sizeof(unsigned char)));  
    }
  } 
 
  // Gets the stream length in unsigned short type
  unsigned long int BaseCryptoRandomStream::GetUSLength(void) {
 
    if ( this->reducedBitLength ) {
      return (this->reducedBitLength / (BYTEBITS * sizeof(unsigned short int))); 
    }
    else {
      return (this->bitLength / (BYTEBITS * sizeof(unsigned short int))); 
    }
  }
 
  // Gets the stream length in unsigned long type
  unsigned long int BaseCryptoRandomStream::GetULLength(void) {
 
    if ( this->reducedBitLength ) {
      return (this->reducedBitLength / (BYTEBITS * sizeof(unsigned long int))); 
    }
    else {
      return (this->bitLength / (BYTEBITS * sizeof(unsigned long int))); 
    }
  }
 
  // Gets the stream length in unsigned 64 bits
  unsigned long long int BaseCryptoRandomStream::Get64Length(void) {
 
    if ( this->reducedBitLength ) {
      return (this->reducedBitLength / (BYTEBITS * sizeof(unsigned long long int))); 
    }
    else {
      return (this->bitLength / (BYTEBITS * sizeof(unsigned long long int))); 
    }
  }
 
  // Gets the pointer to the memory stream 
  void* BaseCryptoRandomStream::GetCryptoRandomStreamMemory(void) {
 
    return this->cryptoStream;   
  }
 
  // Sets the BaseCryptoRandomStream bit at current position and moves pointer to the following bit
  void BaseCryptoRandomStream::SetBitForward(unsigned char newBit) {
 
    this->SetBitPosition(this->position++, newBit);
  }
 
  // Sets the BaseCryptoRandomStream bit at current position and moves pointer to the previous bit
  void BaseCryptoRandomStream::SetBitReverse(unsigned char newBit) {
 
    this->SetBitPosition(this->position--, newBit);
  }
 
  // Gets the BaseCryptoRandomStream bit at current position and moves pointer to the following bit
  unsigned char BaseCryptoRandomStream::GetBitForward(void) {
    unsigned char bit;
 
    bit = ((this->cryptoStream[((this->position) / BYTEBITS)] >> (this->position % BYTEBITS)) & 0x01);
    this->position++;
    return bit;
  }
 
  // Gets the BaseCryptoRandomStream bit at current position and moves pointer to the previous bit
  unsigned char BaseCryptoRandomStream::GetBitReverse(void) {
    unsigned char bit;
 
    bit = ((this->cryptoStream[((this->position) / BYTEBITS)] >> (this->position % BYTEBITS)) & 0x01);
    this->position--;
    return bit;
  }
 
  // Sets the stream to an specified bit value (0 or 1)
  void BaseCryptoRandomStream::FillBit(unsigned char bit) {
    unsigned long int i;
 
    for ( i = 0; i < this->GetBitLength(); i++ )
      this->SetBitPosition(i, bit);
  }
 
  // Sets the stream to an specified bit unsigned char value
  void BaseCryptoRandomStream::FillUC(unsigned char value) {
 
    if (this->cryptoStream != NULL)
      memset(this->cryptoStream, value, this->GetUCLength()); 
  }
      
  // Sets the stream to an specified bit unsigned short value
  void BaseCryptoRandomStream::FillUS(unsigned short int value) {
 
    if (this->cryptoStream != NULL)
      memset(this->cryptoStream, value, this->GetUCLength()); 
  }
      
  // Sets the stream to an specified bit unsigned long int value
  void BaseCryptoRandomStream::FillUL(unsigned long int value) {
 
    if (this->cryptoStream != NULL)
      memset(this->cryptoStream, value, this->GetUCLength()); 
  }
 
  // Sets the bit unsigned char (value 0 or 1) at specified postion, position based in array of bits
  void BaseCryptoRandomStream::SetBitPosition(unsigned long int pos, unsigned char bitData) {
 
    switch ( pos % 8 ) {
      case 7 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit7 = bitData;
        break;
      case 6 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit6 = bitData;
        break;
      case 5 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit5 = bitData;
        break;
      case 4 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit4 = bitData;
        break;
      case 3 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit3 = bitData;
        break;
      case 2 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit2 = bitData;
        break;
      case 1 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit1 = bitData;
        break;
      case 0 : ((byteBits *)&(this->cryptoStream[pos/BYTEBITS]))->bit0 = bitData;
        break;
    }
  }
 
  // Sets the unsigned char at specified position, position based in array of unsigned char
  void BaseCryptoRandomStream::SetUCPosition(unsigned long int pos, unsigned char charData) {
    unsigned char* pointer;
 
    try {
      if ( pos >= this->GetUCLength() )
        throw "Positions exceeded stream length !";
      else {
        pointer = (unsigned char *)(this->cryptoStream + (pos * sizeof(unsigned char)));
        (*pointer) = charData;
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Sets the unsigned short at specified position, position based in array of unsigned short
  void BaseCryptoRandomStream::SetUSPosition(unsigned long int pos, unsigned short int shortData) {
    unsigned short int* pointer;
 
    try {
      if ( pos >= this->GetUSLength() )
        throw "Positions exceeded stream length !";
      else {
        pointer = (unsigned short int *)(this->cryptoStream + (pos * sizeof(unsigned short int)));
        (*pointer) = shortData;
      }
    }
    catch (char* str) {
      throw str;
    }
  }
      
  // Sets the unsigned long at specified position, position based in array of unsigned long
  void BaseCryptoRandomStream::SetULPosition(unsigned long int pos, unsigned long int longData) {
    unsigned long int* pointer;
 
    try {
      if ( pos >= this->GetULLength() )
        throw "Positions exceeded stream length !";
      else {
        pointer = (unsigned long int *)(this->cryptoStream + (pos * sizeof(unsigned long int)));
        (*pointer) = longData;
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Sets the unsigned 64 bit at specified postion, position based in array of unsigned long long int
  void BaseCryptoRandomStream::Set64Position(unsigned long long int pos, unsigned long long int longData) {
    unsigned long long int* pointer;
 
    try {
      if ( pos >= this->Get64Length() )
        throw "Positions exceeded stream length !";
      else {
        pointer = (unsigned long long int *)(this->cryptoStream + (pos * sizeof(unsigned long long int)));
        (*pointer) = longData;
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the bit unsigned char (vakue  0 or 1) at specified postion, position based in array of bits
  unsigned char BaseCryptoRandomStream::GetBitPosition(unsigned long int pos) {
 
    try {
      if ( pos >= this->GetBitLength() )
        throw "Positions exceeded stream length !";
      else
        return ( ((this->cryptoStream[(pos / BYTEBITS)] >> (pos % BYTEBITS)) & 0x01) );
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the unsigned char at specified postion, position based in array of unsigned char
  unsigned char BaseCryptoRandomStream::GetUCPosition(unsigned long int pos) {
 
    try {
      if ( pos >= this->GetUCLength() )
        throw "Positions exceeded stream length !";
      else
        return *((unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned char)])));
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the unsigned short at specified postion, position based in array of unsigned short
  unsigned short int BaseCryptoRandomStream::GetUSPosition(unsigned long int pos) {
 
    try {
      if ( pos >= this->GetUSLength() )
        throw "Positions exceeded stream length !";
      else
        return *((unsigned short int *)(&(this->cryptoStream[pos * sizeof(unsigned short int)])));
    }
    catch (char* str) {
      throw str;
    }
  }
      
  // Gets the unsigned long at specified position, position based in array of unsigned long
  unsigned long int BaseCryptoRandomStream::GetULPosition(unsigned long int pos) {
 
    try {
      if ( pos >= this->GetULLength() )
        throw "Positions exceeded stream length !";
      else 
        return *((unsigned long int *)(&(this->cryptoStream[pos * sizeof(unsigned long int)])));
    }
    catch (char* str) {
      throw str;
    }
  }
      
  // Gets the unsigned 64 bit at specified position, position based in array of unsigned 64 bit
  unsigned long long int BaseCryptoRandomStream::Get64Position(unsigned long long int pos) {
 
    try {
      if ( pos >= this->Get64Length() )
        throw "Positions exceeded stream length !";
      else 
        return *((unsigned long long int *)(&(this->cryptoStream[pos * sizeof(unsigned long long int)])));
    }
    catch (char* str) {
      throw str;
    }
  }
      
  // Gets the unsigned char at specified postion, position based in array of unsigned char
  unsigned char* BaseCryptoRandomStream::GetUCAddressPosition(unsigned long int pos) {
 
    if ( pos >= this->GetUCLength() )
      return NULL;
    else
      return (unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned char)]));
  }
 
  // Gets the unsigned short at specified postion, position based in array of unsigned short
  unsigned short int* BaseCryptoRandomStream::GetUSAddressPosition(unsigned long int pos) {
 
    if ( pos >= this->GetUSLength() )
      return NULL;
    else
      return (unsigned short int *)(&(this->cryptoStream[pos * sizeof(unsigned short int)]));
  }
      
  // Gets the unsigned long at specified postion, position based in array of unsigned long
  unsigned long int* BaseCryptoRandomStream::GetULAddressPosition(unsigned long int pos) {
 
    if ( pos >= this->GetULLength() )
      return NULL;
    else
      return (unsigned long int *)(&(this->cryptoStream[pos * sizeof(unsigned long int)]));
  }
      
  // Gets the unsigned 64 bit at specified postion, position based in array of unsigned 64 bit
  unsigned long long int* BaseCryptoRandomStream::Get64AddressPosition(unsigned long long int pos) {
 
    if ( pos >= this->Get64Length() )
      return NULL;
    else
      return (unsigned long long int *)(&(this->cryptoStream[pos * sizeof(unsigned long long int)]));
  }
 
  // Gets the baseCryptoRandomStream portion at specified position with
  // from baseCryptoRandomStream object, position and length based in bits (starting point must be
  // unsigned char aligned)
  void BaseCryptoRandomStream::GetBitSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos) {
 
    try {
      if ( pos >= this->GetBitLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        subStream->bitLength = this->GetBitLength() - pos;
        subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[(pos / BYTEBITS) * sizeof(unsigned char)]));
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the baseCryptoRandomStream portion at specified postion with 
  // from baseCryptoRandomStream object, position and length based in array of unsigned char
  void BaseCryptoRandomStream::GetUCSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos) {
 
    try {
      if ( pos >= this->GetUCLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        subStream->bitLength = this->GetBitLength() - (pos * BYTEBITS);
        subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned char)]));
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the baseCryptoRandomStream portion at specified postion
  // from baseCryptoRandomStream object, position and length based in array of unsigned short int
  void BaseCryptoRandomStream::GetUSSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos) {
 
    try {
      if ( pos >= this->GetUSLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        subStream->bitLength = this->GetBitLength() - (pos * BYTEBITS * sizeof(unsigned short int));
        subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned short int)]));
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the baseCryptoRandomStream portion at specified postion
  // from baseCryptoRandomStream object, position and length based in array of unsigned long int
  void BaseCryptoRandomStream::GetULSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos) {
 
    try {
      if ( pos >= this->GetULLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        subStream->bitLength = this->GetBitLength() - (pos * BYTEBITS * sizeof(unsigned long int));
        subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned long int)]));
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the baseCryptoRandomStream portion at specified position with a specified length
  // from baseCryptoRandomStream object, position and length based in bits (starting point must be
  // unsigned char aligned)
  void BaseCryptoRandomStream::GetBitSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos, unsigned long int length) {
 
    try {
      if ( pos >= this->GetBitLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        if ( (pos + length) > this->GetBitLength() ) {
          throw "Positions plus length exceeded stream length !";
        }
        else {
          subStream->bitLength = length;
          subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[(pos / BYTEBITS) * sizeof(unsigned char)]));
        }
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the baseCryptoRandomStream portion at specified postion with a specified length 
  // from baseCryptoRandomStream object, position and length based in array of unsigned char
  void BaseCryptoRandomStream::GetUCSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos, unsigned long int length) {
 
    try {
      if ( pos >= this->GetUCLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        if ( (pos + length) > (this->GetBitLength() / (BYTEBITS * sizeof(unsigned char))) ) {
          throw "Positions plus length exceeded stream length !";
        }
        else {
          subStream->bitLength = length * BYTEBITS;
          subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned char)]));
        }
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the baseCryptoRandomStream portion at specified postion with a specified length 
  // from baseCryptoRandomStream object, position and length based in array of unsigned short int
  void BaseCryptoRandomStream::GetUSSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos, unsigned long int length) {
 
    try {
      if ( pos >= this->GetUSLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        if ( (pos + length) > (this->GetBitLength() / (BYTEBITS * sizeof(unsigned short int))) ) {
          throw "Positions plus length exceeded stream length !";
        }
        else {
          subStream->bitLength = length * BYTEBITS * sizeof(unsigned short int);
          subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned short int)]));
        }
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Gets the baseCryptoRandomStream portion at specified postion with a specified length 
  // from baseCryptoRandomStream object, position and length based in array of unsigned long int
  void BaseCryptoRandomStream::GetULSubRandomStream(BaseCryptoRandomStream* subStream, unsigned long int pos, unsigned long int length) {
 
    try {
      if ( pos >= this->GetULLength() ) {
        throw "Positions exceeded stream length !";
      }
      else {
        if ( (pos + length) > (this->GetBitLength() / (BYTEBITS * sizeof(unsigned long int))) ) {
          throw "Positions plus length exceeded stream length !";
        }
        else {
          subStream->bitLength = length * BYTEBITS * sizeof(unsigned long int);
          subStream->cryptoStream = (unsigned char *)(&(this->cryptoStream[pos * sizeof(unsigned long int)]));
        }
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Reduces considered length of BaseCryptoRandomStream, real length is mantained, 
  // but any access to BaseCryptoRandomStream through the interface will be limited to 
  // the new considered length. BaseCryptoRandomStream will remain with its original 
  // length and using the specified memory.
  // Reduces length in bits.
  void BaseCryptoRandomStream::ReduceBitLength(unsigned long int value) {
 
    if ( this->reducedBitLength ) {
      this->reducedBitLength -= value; 
    }
    else {
      this->reducedBitLength = this->bitLength - value;
    }
  }
 
  // Reduces considered length of BaseCryptoRandomStream, real length is mantained, 
  // but any access to BaseCryptoRandomStream through the interface will be limited to 
  // the new considered length. BaseCryptoRandomStream will remain with its original 
  // length and using the specified memory.
  // Reduces length in unsigned chars.
  void BaseCryptoRandomStream::ReduceUCLength(unsigned long int value) {
 
    if ( this->reducedBitLength ) {
      this->reducedBitLength -= (value * BYTEBITS); 
    }
    else {
      this->reducedBitLength = this->bitLength - (value * BYTEBITS);
    }
  }
 
  // Reduces considered length of BaseCryptoRandomStream, real length is mantained, 
  // but any access to BaseCryptoRandomStream through the interface will be limited to 
  // the new considered length. BaseCryptoRandomStream will remain with its original 
  // length and using the specified memory.
  // Reduces length in unsigned short ints.
  void BaseCryptoRandomStream::ReduceUSLength(unsigned long int value) {
 
    if ( this->reducedBitLength ) {
      this->reducedBitLength -= (value * BYTEBITS * sizeof(unsigned short int)); 
    }
    else {
      this->reducedBitLength = this->bitLength - (value * BYTEBITS * sizeof(unsigned short int));
    }
  }
 
  // Reduces considered length of BaseCryptoRandomStream, real length is mantained, 
  // but any access to BaseCryptoRandomStream through the interface will be limited to 
  // the new considered length. BaseCryptoRandomStream will remain with its original 
  // length and using the specified memory.
  // Reduces length in unsigned long ints.
  void BaseCryptoRandomStream::ReduceULLength(unsigned long int value) {
 
    if ( this->reducedBitLength ) {
      this->reducedBitLength -= (value * BYTEBITS * sizeof(unsigned long int)); 
    }
    else {
      this->reducedBitLength = this->bitLength - (value * BYTEBITS * sizeof(unsigned long int));
    }
  }
 
  // Indicates if BaseCryptoRandomStream's length has been reduced in a 
  // fictitious way
  bool BaseCryptoRandomStream::ReducedLength(void) {
 
    return (this->reducedBitLength != 0);
  }
 
  // Gets amount of reduced length from original stream in bits.
  unsigned long int BaseCryptoRandomStream::GetReducedBitLength(void) {
 
    if ( this->ReducedLength() ) {
      return (this->bitLength - this->reducedBitLength);
    }
    else {
      return 0;
    }
  }
 
  // Gets amount of reduced length from original stream in unsigned chars.
  unsigned long int BaseCryptoRandomStream::GetReducedUCLength(void) {
 
    if ( this->ReducedLength() ) {
      return ((this->bitLength - this->reducedBitLength) / BYTEBITS);
    }
    else {
      return 0;
    }
  }
 
  // Gets amount of reduced length from original stream in unsigned short ints.
  unsigned long int BaseCryptoRandomStream::GetReducedUSLength(void) {
 
    if ( this->ReducedLength() ) {
      return ((this->bitLength - this->reducedBitLength) / SHORTBITS);
    }
    else {
      return 0;
    }
  }
 
  // Gets amount of reduced length from original stream in unsigned long ints.
  unsigned long int BaseCryptoRandomStream::GetReducedULLength(void) {
 
    if ( this->ReducedLength() ) {
      return ((this->bitLength - this->reducedBitLength) / LONGBITS);
    }
    else {
      return 0;
    }
  }
 
  // Restores original length of BaseCryptoRandomStream and removes any 
  // fictitious reduced length 
  void BaseCryptoRandomStream::RestoreLength(void) {
 
    this->reducedBitLength = 0;
  }
 
  // Operator equal, compares the BaseCryptoRandomStream object with the 
  // BaseCryptoRandomStream parameter
  bool BaseCryptoRandomStream::Equals(BaseCryptoRandomStream* otherStream) {
    unsigned long int iniRemaining;
    unsigned short int remainingBits, i;
    bool equalRemaining;
 
    if (otherStream == NULL) {
      return false;
    }
    else {
      if (this->GetBitLength() != otherStream->GetBitLength()) {
        return false;
      }
      else {
        remainingBits = this->GetBitLength() % BYTEBITS;
        if ( remainingBits ) {
          iniRemaining = this->GetUCLength() * BYTEBITS;
          equalRemaining = true;
          for ( i = iniRemaining; i < (iniRemaining + remainingBits); i++ ) {
            equalRemaining = equalRemaining && (this->GetBitPosition(i) == otherStream->GetBitPosition(i));
          }
          return (( ! memcmp(this->cryptoStream, otherStream->cryptoStream, this->GetUCLength())) && equalRemaining);
        }
        else {
          return ( ! memcmp(this->cryptoStream, otherStream->cryptoStream, this->GetUCLength()));
        }
      }
    }
  }
 
  // Operator copy, copies the content of BaseCryptoRandomStream object
  // to the BaseCryptoRandomStream object passed as parameter
  void BaseCryptoRandomStream::CopyTo(BaseCryptoRandomStream* target) {
    try {
      if ( this->GetUCLength() != target->GetUCLength() )
        throw "Streams have different lengths !";
      else {
        memcpy(target->cryptoStream, this->cryptoStream, this->GetUCLength());
      }
    }
    catch (char* str) {
      throw str;
    }
  }
 
  // Operator xor, xores the content of BaseCryptoRandomStream object with
  // BaseCryptoRandomStream stream
  void BaseCryptoRandomStream::Xor(BaseCryptoRandomStream* stream) {
    unsigned long int i;
    unsigned long int min;
    unsigned long int uls;
 
    min = (this->GetUCLength() < stream->GetUCLength()) ? this->GetUCLength() : stream->GetUCLength();
    uls = min / LONGBYTES;
    for ( i = 0; i < uls; i++ ) {
      this->SetULPosition(i, this->GetULPosition(i) ^ stream->GetULPosition(i));
    }
    for ( i = uls * LONGBYTES; i < min; i++ ) {
      this->SetUCPosition(i, this->GetUCPosition(i) ^ stream->GetUCPosition(i));
    }
  }
 
  // Operator xor, xores the content of BaseCryptoRandomStream object with
  // stream of unsigned long ints
  void BaseCryptoRandomStream::Xor(unsigned long int* stream, unsigned long int length) {
    unsigned long int i;
    unsigned long int min;
 
    min = (length < this->GetUCLength()) ? length : this->GetUCLength();
    for ( i = 0; i < min; i++ ) {
      this->SetULPosition(i, this->GetULPosition(i) ^ stream[i]);
    }
  }
 
  }
}