Examples Delphi

Techniques for identifying keys that resist brute-force and dictionary attacks. Includes Delphi source for analyzing keys, converting passphrases to keys and permuting keys.
[256bit Keys For Strong Encryption]
// source code at bottom
The security of any good cryptosystem relies on the key. No matter how large a key, there will be an imposing decrease in security if it is poorly used by the software. Keys should be measured according to the bits of entropy contained within them, and simple keys should be disallowed. They should contain many different characters, and have no discernable patterns. Only when these conditions are met will a key withstand dictionary and brute force attacks.
A key's entropy measures the amount of unpredictable bits.
Considering users will usually only use alpha-numeric characters, you should only use the minimum number of bits possible to represent that key. Using 8 bits per character means there are 256 different characters available. An attacker knows the user will only use alpha-numeric characters (62 characters, 6 bits), and will not bother testing for the 194 other characters. A practical technique is to convert each character (1 byte) into a 6bit number, and concatenating then next to each other. You could allow only lower case letters and a few numbers and reduce each character to 5bits (32 characters). It is important to demand the user to use passwords that are larger to achieve the same key size. With this said, an 8 character key should not be considered to be 64bits, but in fact 48bits (6bits x 8 characters). Keys with low entropy pose a security threat no matter how well designed the rest of the system is designed.
Short, one-word keys should not be tolerated within a cryptosystem. Even if you optimize entropy, there simply isn't enough key data in a 5 character key to withstand a brute force attack. A 30bit key (6bits x 5 characters) only allows a possibility of a few billion keys, which only takes a few hours to exhaust on a powerful computer. A key of at least 128bits should be required for sesitive data; this ensures a span of a few years before the need arises for a new and longer key. At 6bits per character this means the key should be 22 or more characters long. This may seem large, but nothing stops you from using phrases. As an example lets look at the phrase "ThE ElevatoR WaS GoinG UP", it is 25 characters long. The key is 150 bits long, but still easy to remember. All keys should be dealt with in this manner. There is no excuse for allowing a user to use an 8 character key and compromising the entire cryptosystem.
A key provides better resistance against algorithmic searches when it contains many different characters. If the key is 22 characters long, but only contains 4 different characters, then it is severely weak. To keep things simple, at least half the characters in a key should be different (22 character key should have at least 11 different characters). More different characters in a key make it harder to statistically predict the next character. Although such an attack is unlikely, there is no room for error. Preventing all known types of attacks and anticipating breaches before-hand is of utter-most importance no matter how insignificant a risk may seem. A risk is always a risk. It is important to encourage users to have the most different characters they can remember in each key to make algorithmic searches yield no results.
Attackers love patterns, they make key searches and his life much easier. Users seem to think that keys like: "bingobingo" are more secure than those like: "bingo", but the fact is they are only slightly better. Smart attackers know all the tricks users devise to make their keys harder to guess. Using a word twice should be strongly discouraged. Oftentimes users add numbers at the end of the key, to make it less predictable. Unfortunately 80% of the time the number is 123, and the other 20% is 321. For an attacker to test these additional keys, he must also test with 123 added to each key, as well as 321. This means he has to search 3 times as many keys; this only represents a 1.5 bit increase instead of the 18bits 3 characters should offer. Testing keys for patterns can be a very complex obstacle, and will not be discussed in this paper. After obvious patterns have been disallowed it is wise to pass the key through a one-way hash function such as SHA or HAVAL. These functions take an input of data and create an out which has no solvable relationship to the input; for every possible input there is only one output. The output of these hash functions is seemingly random and will effectively disguise any discrete patterns.
Eliminating patterns makes it very difficult for an attacker to
search for weak keys.
//***** NOTES:
The source bellow is part of a library in progress cummulating 3 years of research. It's meant to be an example, but if you want to use it in a program, a little bit of credit would be nice.
These key routines have been optimized and re-written a dozen times, I've tried to comment as best I could. The procedure structures may seem odd because I originaly wrote them in C++. The pseudo random number generator comes from an unknown source, and this implementation of haval is a [severe] modification of David Barton's haval.pas found in the DCPcrypt 1.3 component suite. I used context encapsulation so that the procedures wouldn't have to be instantiated in a multi-threaded environment (server maybe?).
Description:
[MutateKey]
Transforms a key into another by expanding and compressing. No previous keys can be determined by the current key, but all the succeeding keys can be. This is usefull for adding entropy to a key (so that there are no shortcuts to brute searches) or for sessions which may need to use multiple session-keys.
[PasswordToKey]
Converts a string with 64 possible characters: 'a'-'z', 'A'-'Z', '0'-'9', '_' and '.' into a 256bit by leaving out 2 bits from every character (64 chars only need 6bits to represent each, instead of 8bits for 256 chars), and then uses MutateKey to add entropy.
[AnanlyzeKey]
Examines a key's entropy by searching for patterns, counting the bits needed per character, evaluation 0/1 (binary) distribution, and derives a summative rating of the key measured in bit-length.
(a complete example of this can be found at http://www.geocities.com/drmungkee/software/codebase.html)
//******************* UNIT BEGINS HERE ****************************************
unit keyfunc;
interface
type
key256=array[0..7]of longword;
Prng_CTX=record
r:array[1..97]of real;
x1,x2,x3:longword;
end;
TPrng_CTX=^Prng_CTX;
Haval_CTX=record
lenhi,lenlo:longword;
Index:longword;
hash:array[0..7]of longword;
hashbuffer:array[0..127]of byte;
end;
THaval_CTX=^Haval_CTX;
KeyStatistics=record
KeyLength:longword;
KeySize:longword;
CharCount:byte;
CharBits:byte;
Patterns:longword;
Differential:longword;
BruteLength:longword;
Rating:longword;
end;
TKeyStatistics=^KeyStatistics;
procedure MutateKey(var key:key256);
function PasswordToKey(pass:string):key256;
function AnalyzePassword(pass:string):KeyStatistics;
implementation
const BIT_MASK:array[0..7]of byte = (1,2,4,8,16,32,64,128);
HASH_SIZE=256;
PrngM1:longword=259200;
PrngI1:longword=7141;
PrngC1:longword=54773;
PrngM2:longword=134456;
PrngI2:longword=8121;
PrngC2:longword=28411;
PrngM3:longword=243000;
PrngI3:longword=4561;
PrngC3:longword=51349;
//*******************************************************************
// Haval
//
// Derived from David Barton's haval.pas (DCPcrypt 1.3 component suite)
//
//*******************************************************************
procedure HavalCompress(ctx:THaval_CTX);
function rr32(x:longword;c:longint):longword;register;assembler;
asm
mov ecx,edx
ror eax,cl
end;
procedure r1(var x7,x6,x5,x4,x3,x2,x1,x0:longword;const w:longword);
var t:longword;
begin
t:=((x2)and((x6)xor(x1))xor(x5)and(x4)xor(x0)and(x3)xor(x6));
x7:=rr32(t,7)+rr32(x7,11)+w;
end;
procedure r2(var x7,x6,x5,x4,x3,x2,x1,x0:longword;const w,c:longword);
var t:longword;
begin
t:=(x3 and(x4 and(not x0)xor x1 and x2 xor x6 xor x5)xor x1 and(x4 xor x2)
xor x0 and x2 xor x5);
x7:=rr32(t,7)+rr32(x7,11)+w+c;
end;
procedure r3(var x7,x6,x5,x4,x3,x2,x1,x0:longword;const w,c:longword);
var t:longword;
begin
t:=((x4)and((x1)and(x3)xor(x2)xor(x5))xor(x1)and(x0)xor(x3)and(x6)
xor(x5));
x7:=rr32(t,7)+rr32(x7,11)+w+c;
end;
procedure r4(var x7,x6,x5,x4,x3,x2,x1,x0:longword;const w,c:longword);
var t:longword;
begin
t:=(x3 and(x5 and(not x0)xor x2 and(not x1)xor x4 xor x1 xor x6)xor x2
and(x4 and x0 xor x5 xor x1)xor x0 and x1 xor x6);
x7:=rr32(t,7)+rr32(x7,11)+w+c;
end;
procedure r5(var x7,x6,x5,x4,x3,x2,x1,x0:longword;const w,c:longword);
var t:longword;
begin
t:=(x1 and(x3 and x4 and x6 xor(not x5))xor x3 and x0 xor x4 and x5
xor x6 and x2);
x7:=rr32(t,7)+rr32(x7,11)+w+c;
end;
var t7,t6,t5,t4,t3,t2,t1,t0:longword;
w:array[0..31] of longword;
begin
t0:=ctx.hash[0];
t1:=ctx.hash[1];
t2:=ctx.hash[2];
t3:=ctx.hash[3];
t4:=ctx.hash[4];
t5:=ctx.hash[5];
t6:=ctx.hash[6];
t7:=ctx.hash[7];
move(ctx.hashbuffer,w,sizeof(w));
r1(t7,t6,t5,t4,t3,t2,t1,t0,w[ 0]);
r1(t6,t5,t4,t3,t2,t1,t0,t7,w[ 1]);
r1(t5,t4,t3,t2,t1,t0,t7,t6,w[ 2]);
r1(t4,t3,t2,t1,t0,t7,t6,t5,w[ 3]);
r1(t3,t2,t1,t0,t7,t6,t5,t4,w[ 4]);
r1(t2,t1,t0,t7,t6,t5,t4,t3,w[ 5]);
r1(t1,t0,t7,t6,t5,t4,t3,t2,w[ 6]);
r1(t0,t7,t6,t5,t4,t3,t2,t1,w[ 7]);
r1(t7,t6,t5,t4,t3,t2,t1,t0,w[ 8]);
r1(t6,t5,t4,t3,t2,t1,t0,t7,w[ 9]);
r1(t5,t4,t3,t2,t1,t0,t7,t6,w[10]);
r1(t4,t3,t2,t1,t0,t7,t6,t5,w[11]);
r1(t3,t2,t1,t0,t7,t6,t5,t4,w[12]);
r1(t2,t1,t0,t7,t6,t5,t4,t3,w[13]);
r1(t1,t0,t7,t6,t5,t4,t3,t2,w[14]);
r1(t0,t7,t6,t5,t4,t3,t2,t1,w[15]);
r1(t7,t6,t5,t4,t3,t2,t1,t0,w[16]);
r1(t6,t5,t4,t3,t2,t1,t0,t7,w[17]);
r1(t5,t4,t3,t2,t1,t0,t7,t6,w[18]);
r1(t4,t3,t2,t1,t0,t7,t6,t5,w[19]);
r1(t3,t2,t1,t0,t7,t6,t5,t4,w[20]);
r1(t2,t1,t0,t7,t6,t5,t4,t3,w[21]);
r1(t1,t0,t7,t6,t5,t4,t3,t2,w[22]);
r1(t0,t7,t6,t5,t4,t3,t2,t1,w[23]);
r1(t7,t6,t5,t4,t3,t2,t1,t0,w[24]);
r1(t6,t5,t4,t3,t2,t1,t0,t7,w[25]);
r1(t5,t4,t3,t2,t1,t0,t7,t6,w[26]);
r1(t4,t3,t2,t1,t0,t7,t6,t5,w[27]);
r1(t3,t2,t1,t0,t7,t6,t5,t4,w[28]);
r1(t2,t1,t0,t7,t6,t5,t4,t3,w[29]);
r1(t1,t0,t7,t6,t5,t4,t3,t2,w[30]);
r1(t0,t7,t6,t5,t4,t3,t2,t1,w[31]);
r2(t7,t6,t5,t4,t3,t2,t1,t0,w[ 5],$452821E6);
r2(t6,t5,t4,t3,t2,t1,t0,t7,w[14],$38D01377);
r2(t5,t4,t3,t2,t1,t0,t7,t6,w[26],$BE5466CF);
r2(t4,t3,t2,t1,t0,t7,t6,t5,w[18],$34E90C6C);
r2(t3,t2,t1,t0,t7,t6,t5,t4,w[11],$C0AC29B7);
r2(t2,t1,t0,t7,t6,t5,t4,t3,w[28],$C97C50DD);
r2(t1,t0,t7,t6,t5,t4,t3,t2,w[ 7],$3F84D5B5);
r2(t0,t7,t6,t5,t4,t3,t2,t1,w[16],$B5470917);
r2(t7,t6,t5,t4,t3,t2,t1,t0,w[ 0],$9216D5D9);
r2(t6,t5,t4,t3,t2,t1,t0,t7,w[23],$8979FB1B);
r2(t5,t4,t3,t2,t1,t0,t7,t6,w[20],$D1310BA6);
r2(t4,t3,t2,t1,t0,t7,t6,t5,w[22],$98DFB5AC);
r2(t3,t2,t1,t0,t7,t6,t5,t4,w[ 1],$2FFD72DB);
r2(t2,t1,t0,t7,t6,t5,t4,t3,w[10],$D01ADFB7);
r2(t1,t0,t7,t6,t5,t4,t3,t2,w[ 4],$B8E1AFED);
r2(t0,t7,t6,t5,t4,t3,t2,t1,w[ 8],$6A267E96);
r2(t7,t6,t5,t4,t3,t2,t1,t0,w[30],$BA7C9045);
r2(t6,t5,t4,t3,t2,t1,t0,t7,w[ 3],$F12C7F99);
r2(t5,t4,t3,t2,t1,t0,t7,t6,w[21],$24A19947);
r2(t4,t3,t2,t1,t0,t7,t6,t5,w[ 9],$B3916CF7);
r2(t3,t2,t1,t0,t7,t6,t5,t4,w[17],$0801F2E2);
r2(t2,t1,t0,t7,t6,t5,t4,t3,w[24],$858EFC16);
r2(t1,t0,t7,t6,t5,t4,t3,t2,w[29],$636920D8);
r2(t0,t7,t6,t5,t4,t3,t2,t1,w[ 6],$71574E69);
r2(t7,t6,t5,t4,t3,t2,t1,t0,w[19],$A458FEA3);
r2(t6,t5,t4,t3,t2,t1,t0,t7,w[12],$F4933D7E);
r2(t5,t4,t3,t2,t1,t0,t7,t6,w[15],$0D95748F);
r2(t4,t3,t2,t1,t0,t7,t6,t5,w[13],$728EB658);
r2(t3,t2,t1,t0,t7,t6,t5,t4,w[ 2],$718BCD58);
r2(t2,t1,t0,t7,t6,t5,t4,t3,w[25],$82154AEE);
r2(t1,t0,t7,t6,t5,t4,t3,t2,w[31],$7B54A41D);
r2(t0,t7,t6,t5,t4,t3,t2,t1,w[27],$C25A59B5);
r3(t7,t6,t5,t4,t3,t2,t1,t0,w[19],$9C30D539);
r3(t6,t5,t4,t3,t2,t1,t0,t7,w[ 9],$2AF26013);
r3(t5,t4,t3,t2,t1,t0,t7,t6,w[ 4],$C5D1B023);
r3(t4,t3,t2,t1,t0,t7,t6,t5,w[20],$286085F0);
r3(t3,t2,t1,t0,t7,t6,t5,t4,w[28],$CA417918);
r3(t2,t1,t0,t7,t6,t5,t4,t3,w[17],$B8DB38EF);
r3(t1,t0,t7,t6,t5,t4,t3,t2,w[ 8],$8E79DCB0);
r3(t0,t7,t6,t5,t4,t3,t2,t1,w[22],$603A180E);
r3(t7,t6,t5,t4,t3,t2,t1,t0,w[29],$6C9E0E8B);
r3(t6,t5,t4,t3,t2,t1,t0,t7,w[14],$B01E8A3E);
r3(t5,t4,t3,t2,t1,t0,t7,t6,w[25],$D71577C1);
r3(t4,t3,t2,t1,t0,t7,t6,t5,w[12],$BD314B27);
r3(t3,t2,t1,t0,t7,t6,t5,t4,w[24],$78AF2FDA);
r3(t2,t1,t0,t7,t6,t5,t4,t3,w[30],$55605C60);
r3(t1,t0,t7,t6,t5,t4,t3,t2,w[16],$E65525F3);
r3(t0,t7,t6,t5,t4,t3,t2,t1,w[26],$AA55AB94);
r3(t7,t6,t5,t4,t3,t2,t1,t0,w[31],$57489862);
r3(t6,t5,t4,t3,t2,t1,t0,t7,w[15],$63E81440);
r3(t5,t4,t3,t2,t1,t0,t7,t6,w[ 7],$55CA396A);
r3(t4,t3,t2,t1,t0,t7,t6,t5,w[ 3],$2AAB10B6);
r3(t3,t2,t1,t0,t7,t6,t5,t4,w[ 1],$B4CC5C34);
r3(t2,t1,t0,t7,t6,t5,t4,t3,w[ 0],$1141E8CE);
r3(t1,t0,t7,t6,t5,t4,t3,t2,w[18],$A15486AF);
r3(t0,t7,t6,t5,t4,t3,t2,t1,w[27],$7C72E993);
r3(t7,t6,t5,t4,t3,t2,t1,t0,w[13],$B3EE1411);
r3(t6,t5,t4,t3,t2,t1,t0,t7,w[ 6],$636FBC2A);
r3(t5,t4,t3,t2,t1,t0,t7,t6,w[21],$2BA9C55D);
r3(t4,t3,t2,t1,t0,t7,t6,t5,w[10],$741831F6);
r3(t3,t2,t1,t0,t7,t6,t5,t4,w[23],$CE5C3E16);
r3(t2,t1,t0,t7,t6,t5,t4,t3,w[11],$9B87931E);
r3(t1,t0,t7,t6,t5,t4,t3,t2,w[ 5],$AFD6BA33);
r3(t0,t7,t6,t5,t4,t3,t2,t1,w[ 2],$6C24CF5C);
r4(t7,t6,t5,t4,t3,t2,t1,t0,w[24],$7A325381);
r4(t6,t5,t4,t3,t2,t1,t0,t7,w[ 4],$28958677);
r4(t5,t4,t3,t2,t1,t0,t7,t6,w[ 0],$3B8F4898);
r4(t4,t3,t2,t1,t0,t7,t6,t5,w[14],$6B4BB9AF);
r4(t3,t2,t1,t0,t7,t6,t5,t4,w[ 2],$C4BFE81B);
r4(t2,t1,t0,t7,t6,t5,t4,t3,w[ 7],$66282193);
r4(t1,t0,t7,t6,t5,t4,t3,t2,w[28],$61D809CC);
r4(t0,t7,t6,t5,t4,t3,t2,t1,w[23],$FB21A991);
r4(t7,t6,t5,t4,t3,t2,t1,t0,w[26],$487CAC60);
r4(t6,t5,t4,t3,t2,t1,t0,t7,w[ 6],$5DEC8032);
r4(t5,t4,t3,t2,t1,t0,t7,t6,w[30],$EF845D5D);
r4(t4,t3,t2,t1,t0,t7,t6,t5,w[20],$E98575B1);
r4(t3,t2,t1,t0,t7,t6,t5,t4,w[18],$DC262302);
r4(t2,t1,t0,t7,t6,t5,t4,t3,w[25],$EB651B88);
r4(t1,t0,t7,t6,t5,t4,t3,t2,w[19],$23893E81);
r4(t0,t7,t6,t5,t4,t3,t2,t1,w[ 3],$D396ACC5);
r4(t7,t6,t5,t4,t3,t2,t1,t0,w[22],$0F6D6FF3);
r4(t6,t5,t4,t3,t2,t1,t0,t7,w[11],$83F44239);
r4(t5,t4,t3,t2,t1,t0,t7,t6,w[31],$2E0B4482);
r4(t4,t3,t2,t1,t0,t7,t6,t5,w[21],$A4842004);
r4(t3,t2,t1,t0,t7,t6,t5,t4,w[ 8],$69C8F04A);
r4(t2,t1,t0,t7,t6,t5,t4,t3,w[27],$9E1F9B5E);
r4(t1,t0,t7,t6,t5,t4,t3,t2,w[12],$21C66842);
r4(t0,t7,t6,t5,t4,t3,t2,t1,w[ 9],$F6E96C9A);
r4(t7,t6,t5,t4,t3,t2,t1,t0,w[ 1],$670C9C61);
r4(t6,t5,t4,t3,t2,t1,t0,t7,w[29],$ABD388F0);
r4(t5,t4,t3,t2,t1,t0,t7,t6,w[ 5],$6A51A0D2);
r4(t4,t3,t2,t1,t0,t7,t6,t5,w[15],$D8542F68);
r4(t3,t2,t1,t0,t7,t6,t5,t4,w[17],$960FA728);
r4(t2,t1,t0,t7,t6,t5,t4,t3,w[10],$AB5133A3);
r4(t1,t0,t7,t6,t5,t4,t3,t2,w[16],$6EEF0B6C);
r4(t0,t7,t6,t5,t4,t3,t2,t1,w[13],$137A3BE4);
r5(t7,t6,t5,t4,t3,t2,t1,t0,w[27],$BA3BF050);
r5(t6,t5,t4,t3,t2,t1,t0,t7,w[ 3],$7EFB2A98);
r5(t5,t4,t3,t2,t1,t0,t7,t6,w[21],$A1F1651D);
r5(t4,t3,t2,t1,t0,t7,t6,t5,w[26],$39AF0176);
r5(t3,t2,t1,t0,t7,t6,t5,t4,w[17],$66CA593E);
r5(t2,t1,t0,t7,t6,t5,t4,t3,w[11],$82430E88);
r5(t1,t0,t7,t6,t5,t4,t3,t2,w[20],$8CEE8619);
r5(t0,t7,t6,t5,t4,t3,t2,t1,w[29],$456F9FB4);
r5(t7,t6,t5,t4,t3,t2,t1,t0,w[19],$7D84A5C3);
r5(t6,t5,t4,t3,t2,t1,t0,t7,w[ 0],$3B8B5EBE);
r5(t5,t4,t3,t2,t1,t0,t7,t6,w[12],$E06F75D8);
r5(t4,t3,t2,t1,t0,t7,t6,t5,w[ 7],$85C12073);
r5(t3,t2,t1,t0,t7,t6,t5,t4,w[13],$401A449F);
r5(t2,t1,t0,t7,t6,t5,t4,t3,w[ 8],$56C16AA6);
r5(t1,t0,t7,t6,t5,t4,t3,t2,w[31],$4ED3AA62);
r5(t0,t7,t6,t5,t4,t3,t2,t1,w[10],$363F7706);
r5(t7,t6,t5,t4,t3,t2,t1,t0,w[ 5],$1BFEDF72);
r5(t6,t5,t4,t3,t2,t1,t0,t7,w[ 9],$429B023D);
r5(t5,t4,t3,t2,t1,t0,t7,t6,w[14],$37D0D724);
r5(t4,t3,t2,t1,t0,t7,t6,t5,w[30],$D00A1248);
r5(t3,t2,t1,t0,t7,t6,t5,t4,w[18],$DB0FEAD3);
r5(t2,t1,t0,t7,t6,t5,t4,t3,w[ 6],$49F1C09B);
r5(t1,t0,t7,t6,t5,t4,t3,t2,w[28],$075372C9);
r5(t0,t7,t6,t5,t4,t3,t2,t1,w[24],$80991B7B);
r5(t7,t6,t5,t4,t3,t2,t1,t0,w[ 2],$25D479D8);
r5(t6,t5,t4,t3,t2,t1,t0,t7,w[23],$F6E8DEF7);
r5(t5,t4,t3,t2,t1,t0,t7,t6,w[16],$E3FE501A);
r5(t4,t3,t2,t1,t0,t7,t6,t5,w[22],$B6794C3B);
r5(t3,t2,t1,t0,t7,t6,t5,t4,w[ 4],$976CE0BD);
r5(t2,t1,t0,t7,t6,t5,t4,t3,w[ 1],$04C006BA);
r5(t1,t0,t7,t6,t5,t4,t3,t2,w[25],$C1A94FB6);
r5(t0,t7,t6,t5,t4,t3,t2,t1,w[15],$409F60C4);
inc(ctx.hash[0],t0);
inc(ctx.hash[1],t1);
inc(ctx.hash[2],t2);
inc(ctx.hash[3],t3);
inc(ctx.hash[4],t4);
inc(ctx.hash[5],t5);
inc(ctx.hash[6],t6);
inc(ctx.hash[7],t7);
fillchar(w,sizeof(w),0);
ctx.index:=0;
fillchar(ctx.hashbuffer,sizeof(ctx.hashbuffer),0);
end;
procedure HavalUpdateLen(ctx:THaval_CTX;len:longword);
begin
inc(ctx.lenlo,(len shl 3));
if ctx.lenlo<(len shl 3)then inc(ctx.lenhi);
inc(ctx.lenhi,len shr 29);
end;
procedure HavalFlush(ctx:THaval_CTX);
begin
ctx.lenhi:=0;
ctx.lenlo:=0;
ctx.index:=0;
fillchar(ctx.hashbuffer,sizeof(ctx.hashbuffer),0);
fillchar(ctx.hash,sizeof(ctx.hash),0);
end;
procedure HavalInit(ctx:THaval_CTX);
begin
HavalFlush(ctx);
ctx.hash[0]:=$243F6A88;
ctx.hash[1]:=$85A308D3;
ctx.hash[2]:=$13198A2E;
ctx.hash[3]:=$03707344;
ctx.hash[4]:=$A4093822;
ctx.hash[5]:=$299F31D0;
ctx.hash[6]:=$082EFA98;
ctx.hash[7]:=$EC4E6C89;
end;
procedure HavalUpdate(ctx:THaval_CTX;const Buffer; Size: longint);
var p:^byte;
begin
HavalUpdateLen(ctx,size);
p:=@buffer;
while size>0 do
begin
if(sizeof(ctx.hashbuffer)-ctx.index)<=longword(size)then
begin
move(p^,ctx.hashbuffer[ctx.index],sizeof(ctx.hashbuffer)-ctx.index);
dec(size,sizeof(ctx.hashbuffer)-ctx.index);
inc(p,sizeof(ctx.hashbuffer)-ctx.index);
HavalCompress(ctx);
end else
begin
move(p^,ctx.hashbuffer[ctx.index],size);
inc(ctx.index,size);
size:=0;
end;
end;
end;
procedure HavalFinal(ctx:THaval_CTX;var digest);
begin
ctx.hashbuffer[ctx.index]:=$80;
if ctx.index>118 then HavalCompress(ctx);
ctx.hashbuffer[118]:=((HASH_SIZE and 3)shl 6)or(5 shl 3)or 1;
ctx.hashbuffer[119]:=(HASH_SIZE shr 2)and $FF;
move(ctx.lenlo,ctx.hashbuffer[120],sizeof(ctx.lenlo));
move(ctx.lenhi,ctx.hashbuffer[124],sizeof(ctx.lenhi));
HavalCompress(ctx);
move(ctx.hash,digest,HASH_SIZE div 8);
HavalFlush(ctx);
end;
//******************************************************************************
// PRNG
//******************************************************************************
procedure PrngInit(ctx:TPrng_CTX;seed:longword);
var i:byte;
begin
ctx.x1:=(seed+PrngC1)mod PrngM1;
ctx.x1:=(ctx.x1*PrngI1+PrngC1)mod PrngM1;
ctx.x2:=ctx.x1 mod PrngM2;
ctx.x1:=(ctx.x1*PrngI1+PrngC1)mod PrngM1;
ctx.x3:=ctx.x1 mod PrngM3;
for i:=1 to 97 do
begin
ctx.x1:=(ctx.x1*PrngI1+PrngC1)mod PrngM1;
ctx.x2:=(ctx.x2*PrngI2+PrngC2)mod PrngM2;
ctx.r[i]:=(ctx.x1+ctx.x2/PrngM2)/PrngM1;
end;
end;
function Prng(ctx:TPrng_CTX):longword;
var i:longword;
begin
ctx.x1:=(ctx.x1*PrngI1+PrngC1)mod PrngM1;
ctx.x2:=(ctx.x2*PrngI2+PrngC2)mod PrngM2;
ctx.x3:=(ctx.x3*PrngI3+PrngC3)mod PrngM3;
i:=1+(97*ctx.x3)div PrngM3;
Prng:=trunc($FFFFFFFF*ctx.r[i]);
ctx.r[i]:=(ctx.x1+ctx.x2/PrngM2)/PrngM1;
end;
procedure PrngFlush(ctx:TPrng_CTX);
var i:byte;
begin
ctx.x1:=0;
ctx.x2:=0;
ctx.x3:=0;
for i:=1 to 97 do ctx.r[i]:=0;
end;
//******************************************************************************
// Key Routines
//******************************************************************************
procedure MutateKey(var key:key256);
var i:byte;
exp_key:array[0..1,0..7]of longword;
ran_ctx:Prng_CTX;
hash_ctx:Haval_CTX;
temp_key:key256;
begin
// *** [1]feed key as 8 seeds into PRNG to generate 16 longs
for i:=0 to 7 do
begin
PrngInit(@ran_ctx,key[i]); //use key as seed data
exp_key[0,i]:=Prng(@ran_ctx); //expand key
exp_key[1,i]:=not Prng(@ran_ctx); //negate to reduce PRNG relationship
end;
// *** [2]feed [1] as 64 bytes into SHA256
for i:=0 to 7 do temp_key[i]:=key[i];
HavalInit(@hash_ctx);
HavalUpdate(@hash_ctx,exp_key[0][0],64); //feed expanded key as data
HavalFinal(@hash_ctx,key);
// *** [3]xor(^) [2] and [1] to produce the final key
for i:=0 to 7 do key[i]:=key[i]xor temp_key[i]; //reduce HASH relationship
end;
function PasswordToKey(pass:string):key256;
var i,j:integer;
temp_chars:array[0..42]of byte;
key_size:byte;
temp_key:array[0..31]of byte;
temp_pos:byte;
bit_pos:byte;
begin
// *** [1]convert 8bit Chars to 6bit bytes
for i:=1 to length(pass)do
case byte(pass[i]) of
97..122:temp_chars[i]:=byte(pass[i])-97; //if a..z assign 0-25
65..90 :temp_chars[i]:=byte(pass[i])-39; //if A..Z assign 26-51
48..57 :temp_chars[i]:=byte(pass[i])+4; //if 0..9 assign 52-61
byte('.'):temp_chars[i]:=62; //if . assign 62
byte('_'):temp_chars[i]:=63; //if _ assign 63
end;
key_size:=(length(pass)*6)div 8; //keysize with 6bit chars
// *** [2]append 6bit Chars to each other
temp_pos:=0; //temp buffer position
bit_pos:=0; //bit position
for i:=0 to key_size-1 do //concatonate 6bit chars together
begin
temp_key[i]:=0;
for j:=0 to 7 do
begin
inc(temp_key[i],
((temp_chars[temp_pos] and BIT_MASK[bit_pos]) shr bit_pos) shl j);
inc(bit_pos,1);
if bit_pos=6 then
begin
bit_pos:=0;
inc(temp_pos,1);
end;
end;
end;
// *** [3]make full 256bit key
if key_size<44 then
begin
j:=0;
for i:=key_size to 43 do //fill in empty bytes
begin
temp_key[i]:=temp_key[j]xor i;
inc(j,1);
end;
end;
// *** [4]eliminate english language redundancy
MutateKey(key256(temp_key));
PasswordToKey:=key256(temp_key);
end;
function AnalyzePassword(pass:string):KeyStatistics;
var i,j:longword;
key:array[0..1023]of byte;
chars:array[0..255] of byte;
pat_pos,pat_len:longword;
ones,zeros:longword;
stat:KeyStatistics;
begin
// *** [1]count keylenght
stat.KeyLength:=length(pass);
// *** [2]copy key to buffer
for i:=0 to stat.KeyLength-1 do key[i]:=byte(pass[i]);
// *** [3]count char repetition
for i:=0 to 255 do chars[i]:=0;
for i:=0 to stat.KeyLength-1 do inc(chars[key[i]],1);
// *** [4]count different characters
stat.CharCount:=0;
for i:=0 to 255 do if chars[i]<>0 then inc(stat.CharCount,1);
// *** [5]count charbits
stat.CharBits:=0;
for i:=0 to 7 do if stat.CharCount > BIT_MASK[i] then inc(stat.CharBits,1);
// *** [6]count patterns
pat_pos:=0;
pat_len:=0;
repeat
i:=pat_pos;
repeat
if (key[i]=key[pat_pos])and(i<>pat_pos)then //if match is found
repeat
inc(pat_len,1); //increment pattern size
inc(i,1); //move to next char
inc(pat_pos,1); //next char in pattern
until (key[i]<>key[pat_pos])or(i=stat.KeyLength); //until pattern ends
inc(i,1);
until (i>stat.KeyLength-1); //until finished searching for this pattern
inc(pat_pos,1); //start new pattern with the next char
until pat_pos>stat.KeyLength; //until all patterns have been searched
if pat_len=0 then stat.Patterns:=0
else stat.Patterns:=(pat_len*100)div stat.KeyLength;
// *** [7]count bit-differential
ones:=0;
zeros:=0;
for i:=0 to stat.KeyLength-1 do
for j:=0 to 7 do
if (key[i] and BIT_MASK[j])=0 then inc(zeros,1) else inc(ones,1);
stat.Differential:=(longword(abs(ones-zeros))*100)div(stat.KeyLength*8);
// *** [8]count brutelength
stat.BruteLength:=stat.CharBits*stat.KeyLength;
// *** [9]count keysize
stat.KeySize:=stat.KeyLength*8;
// *** [10]count rating := BL - ((((pat+dif) /2) /100) *BL)
stat.Rating:=stat.BruteLength-
((((stat.Patterns+stat.Differential)div 2)*stat.BruteLength)div 100);
AnalyzePassword:=stat;
end;
end.
(C)Copyright DrMungkee, 2001 (www.drmungkee.com, drmungkee@hotmail.com)