A2OS/source/CryptoBlowfish.Mod

MODULE CryptoBlowfish;   (** AUTHOR "GF"; PURPOSE "Blowfish en/decryption"; *)

(* 2002.07.08	g.f.

	based on 'blowfish.c' created by Paul Kocher <pck@netcom.com>  in 1997.
*)


IMPORT Ciphers := CryptoCiphers, S := SYSTEM, U := CryptoUtils;

CONST
	N = 16;

TYPE
	TP = ARRAY N + 2 OF SET32;
	TS = RECORD
			a	: ARRAY 256 OF LONGINT;
			b	: ARRAY 256 OF LONGINT;
			c	: ARRAY 256 OF SET32;
			d	: ARRAY 256 OF LONGINT;
		END;

VAR
	p0: TP;  s0: TS;

TYPE
	Cipher* = OBJECT (Ciphers.Cipher)
			VAR
				p: TP;
				s: TS;
				ivl, ivr: SET32;

				PROCEDURE InitKey*( CONST src: ARRAY OF CHAR; keybits: LONGINT );
				VAR i, m: LONGINT;  xl, xr: SET32;
				BEGIN
					InitKey^( src, keybits );  m := keybits DIV 8;  s := s0;
					FOR i := 0 TO N + 1 DO
						p[i] := p0[i] / U.SetFromBufferBE( src, (4*i) MOD m )
					END;
					xl := {};  xr := {};
					FOR i := 0 TO N BY 2 DO  encrypt0( xl, xr, xl, xr );  p[i] := xl;  p[i + 1] := xr  END;
					FOR i := 0 TO 254 BY 2 DO
						encrypt0( xl, xr, xl, xr );
						s.a[i] := S.VAL( LONGINT, xl );  s.a[i + 1] := S.VAL( LONGINT, xr );
					END;
					FOR i := 0 TO 254 BY 2 DO
						encrypt0( xl, xr, xl, xr );
						s.b[i] := S.VAL( LONGINT, xl );  s.b[i + 1] := S.VAL( LONGINT, xr );
					END;
					FOR i := 0 TO 254 BY 2 DO
						encrypt0( xl, xr, xl, xr );
						s.c[i] := xl;  s.c[i + 1] := xr;
					END;
					FOR i := 0 TO 254 BY 2 DO
						encrypt0( xl, xr, xl, xr );
						s.d[i] := S.VAL( LONGINT, xl );  s.d[i + 1] := S.VAL( LONGINT, xr );
					END
				END InitKey;

				PROCEDURE SetIV*( CONST src: ARRAY OF CHAR; mode: SHORTINT );
				BEGIN
					SetIV^( src, mode );
					ivl := U.SetFromBufferBE( src, 0 );  ivr := U.SetFromBufferBE( src, 4 );
				END SetIV;

				PROCEDURE Encrypt*( VAR buf: ARRAY OF CHAR;  ofs, len: LONGINT );
				VAR i: LONGINT;
				BEGIN
					ASSERT( isKeyInitialized & (mode IN {Ciphers.ECB, Ciphers.CBC}) );
					ASSERT( len MOD blockSize = 0 );   (* padding must have been added *)
					i := 0;
					WHILE i < len DO  EncryptBlock( buf, ofs + i );  INC( i, blockSize );   END
				END Encrypt;

				PROCEDURE Decrypt*( VAR buf: ARRAY OF CHAR;  ofs, len: LONGINT );
				VAR i: LONGINT;
				BEGIN
					ASSERT( isKeyInitialized );
					ASSERT( len MOD blockSize = 0 );   (* padding must have been added *)
					i := 0;
					WHILE i < len DO  DecryptBlock( buf, ofs + i );  INC( i, blockSize );   END
				END Decrypt;

				PROCEDURE EncryptBlock( VAR buf: ARRAY OF CHAR;  pos: LONGINT );
				VAR xl, xr, yl, yr: SET32;
				BEGIN
					xl := U.SetFromBufferBE( buf, pos );  xr := U.SetFromBufferBE( buf, pos + 4 );
					IF mode = Ciphers.CBC THEN  xl := xl/ivl;  xr := xr/ivr  END;
					encrypt0( xl, xr, yl, yr );
					U.SetToBufferBE( yl, buf, pos );  U.SetToBufferBE( yr, buf, pos + 4 );
					IF mode = Ciphers.CBC THEN  ivl := yl;  ivr := yr  END
				END EncryptBlock;

				PROCEDURE DecryptBlock( VAR buf: ARRAY OF CHAR;  pos: LONGINT );
				VAR xl, xr, yl, yr: SET32;
				BEGIN
					xl := U.SetFromBufferBE( buf, pos );  xr := U.SetFromBufferBE( buf, pos + 4 );
					decrypt0( xl, xr, yl, yr );
					IF mode = Ciphers.CBC THEN  yl := yl/ivl;  yr := yr/ivr;  ivl := xl;  ivr := xr  END;
					U.SetToBufferBE( yl, buf, pos );  U.SetToBufferBE( yr, buf, pos + 4 )
				END DecryptBlock;


				PROCEDURE F( x: LONGINT ): SET32;
				VAR
					ab, c: SET32; d: LONGINT;
				BEGIN
					ab := S.VAL( SET32, s.a[x DIV 1000000H MOD 100H] + s.b[x DIV 10000H MOD 100H] );
					c := s.c[x DIV 100H MOD 100H];
					d := s.d[x MOD 100H];
					RETURN S.VAL( SET32, S.VAL( LONGINT, ab/c ) + d );
				END F;

				PROCEDURE encrypt0( xl, xr: SET32;  VAR yl, yr: SET32 );
				VAR t: SET32;  i: INTEGER;
				BEGIN
					FOR i := 0 TO N - 1 DO
						xl := xl/p[i];  xr := F( S.VAL( LONGINT, xl ) )/xr;
						t := xl;  xl := xr;  xr := t
					 END;
					t := xl;  xl := xr;  xr := t;
					yr := xr/p[N];  yl := xl/p[N + 1];
				END encrypt0;

				PROCEDURE decrypt0( xl, xr: SET32;  VAR yl, yr: SET32 );
				VAR t: SET32;  i: INTEGER;
				BEGIN
					FOR i := N + 1 TO 2 BY -1 DO
						xl := xl/p[i];  xr := F( S.VAL( LONGINT, xl ) )/xr;
						t := xl;  xl := xr;  xr := t
					END;
					t := xl;  xl := xr;  xr := t;
					yr := xr/p[1];  yl := xl/p[0];
				END decrypt0;

				PROCEDURE & Init*;
				BEGIN
					Init^;  SetNameAndBlocksize( "blowfish", 8 );
				END Init;

			END Cipher;

	PROCEDURE NewCipher*(): Ciphers.Cipher;
	VAR cipher: Cipher;
	BEGIN
		NEW( cipher );  RETURN cipher
	END NewCipher;





	PROCEDURE Init0;
	VAR
		buf: U.InitBuffer;
		i: LONGINT;
	BEGIN
		NEW( buf, 256 );
		buf.Add( "243F6A88 85A308D3 13198A2E 03707344 A4093822 299F31D0 082EFA98 EC4E6C89" );
		buf.Add( "452821E6 38D01377 BE5466CF 34E90C6C C0AC29B7 C97C50DD 3F84D5B5 B5470917" );
		buf.Add( "9216D5D9 8979FB1B" );
		FOR i := 0 TO N + 2 - 1 DO   p0[i] := buf.GetSet()  END;

		buf.Init( 4096 );
		buf.Add( "D1310BA6 98DFB5AC 2FFD72DB D01ADFB7 B8E1AFED 6A267E96 BA7C9045 F12C7F99" );
		buf.Add( "24A19947 B3916CF7 0801F2E2 858EFC16 636920D8 71574E69 A458FEA3 F4933D7E" );
		buf.Add( "0D95748F 728EB658 718BCD58 82154AEE 7B54A41D C25A59B5 9C30D539 2AF26013" );
		buf.Add( "C5D1B023 286085F0 CA417918 B8DB38EF 8E79DCB0 603A180E 6C9E0E8B B01E8A3E" );
		buf.Add( "D71577C1 BD314B27 78AF2FDA 55605C60 E65525F3 AA55AB94 57489862 63E81440" );
		buf.Add( "55CA396A 2AAB10B6 B4CC5C34 1141E8CE A15486AF 7C72E993 B3EE1411 636FBC2A" );
		buf.Add( "2BA9C55D 741831F6 CE5C3E16 9B87931E AFD6BA33 6C24CF5C 7A325381 28958677" );
		buf.Add( "3B8F4898 6B4BB9AF C4BFE81B 66282193 61D809CC FB21A991 487CAC60 5DEC8032" );
		buf.Add( "EF845D5D E98575B1 DC262302 EB651B88 23893E81 D396ACC5 0F6D6FF3 83F44239" );
		buf.Add( "2E0B4482 A4842004 69C8F04A 9E1F9B5E 21C66842 F6E96C9A 670C9C61 ABD388F0" );
		buf.Add( "6A51A0D2 D8542F68 960FA728 AB5133A3 6EEF0B6C 137A3BE4 BA3BF050 7EFB2A98" );
		buf.Add( "A1F1651D 39AF0176 66CA593E 82430E88 8CEE8619 456F9FB4 7D84A5C3 3B8B5EBE" );
		buf.Add( "E06F75D8 85C12073 401A449F 56C16AA6 4ED3AA62 363F7706 1BFEDF72 429B023D" );
		buf.Add( "37D0D724 D00A1248 DB0FEAD3 49F1C09B 075372C9 80991B7B 25D479D8 F6E8DEF7" );
		buf.Add( "E3FE501A B6794C3B 976CE0BD 04C006BA C1A94FB6 409F60C4 5E5C9EC2 196A2463" );
		buf.Add( "68FB6FAF 3E6C53B5 1339B2EB 3B52EC6F 6DFC511F 9B30952C CC814544 AF5EBD09" );
		buf.Add( "BEE3D004 DE334AFD 660F2807 192E4BB3 C0CBA857 45C8740F D20B5F39 B9D3FBDB" );
		buf.Add( "5579C0BD 1A60320A D6A100C6 402C7279 679F25FE FB1FA3CC 8EA5E9F8 DB3222F8" );
		buf.Add( "3C7516DF FD616B15 2F501EC8 AD0552AB 323DB5FA FD238760 53317B48 3E00DF82" );
		buf.Add( "9E5C57BB CA6F8CA0 1A87562E DF1769DB D542A8F6 287EFFC3 AC6732C6 8C4F5573" );
		buf.Add( "695B27B0 BBCA58C8 E1FFA35D B8F011A0 10FA3D98 FD2183B8 4AFCB56C 2DD1D35B" );
		buf.Add( "9A53E479 B6F84565 D28E49BC 4BFB9790 E1DDF2DA A4CB7E33 62FB1341 CEE4C6E8" );
		buf.Add( "EF20CADA 36774C01 D07E9EFE 2BF11FB4 95DBDA4D AE909198 EAAD8E71 6B93D5A0" );
		buf.Add( "D08ED1D0 AFC725E0 8E3C5B2F 8E7594B7 8FF6E2FB F2122B64 8888B812 900DF01C" );
		buf.Add( "4FAD5EA0 688FC31C D1CFF191 B3A8C1AD 2F2F2218 BE0E1777 EA752DFE 8B021FA1" );
		buf.Add( "E5A0CC0F B56F74E8 18ACF3D6 CE89E299 B4A84FE0 FD13E0B7 7CC43B81 D2ADA8D9" );
		buf.Add( "165FA266 80957705 93CC7314 211A1477 E6AD2065 77B5FA86 C75442F5 FB9D35CF" );
		buf.Add( "EBCDAF0C 7B3E89A0 D6411BD3 AE1E7E49 00250E2D 2071B35E 226800BB 57B8E0AF" );
		buf.Add( "2464369B F009B91E 5563911D 59DFA6AA 78C14389 D95A537F 207D5BA2 02E5B9C5" );
		buf.Add( "83260376 6295CFA9 11C81968 4E734A41 B3472DCA 7B14A94A 1B510052 9A532915" );
		buf.Add( "D60F573F BC9BC6E4 2B60A476 81E67400 08BA6FB5 571BE91F F296EC6B 2A0DD915" );
		buf.Add( "B6636521 E7B9F9B6 FF34052E C5855664 53B02D5D A99F8FA1 08BA4799 6E85076A" );
		FOR i := 0 TO 255 DO  s0.a[i] :=  buf.GetInt()  END;

		buf.Init( 4096 );
		buf.Add( "4B7A70E9 B5B32944 DB75092E C4192623 AD6EA6B0 49A7DF7D 9CEE60B8 8FEDB266" );
		buf.Add( "ECAA8C71 699A17FF 5664526C C2B19EE1 193602A5 75094C29 A0591340 E4183A3E" );
		buf.Add( "3F54989A 5B429D65 6B8FE4D6 99F73FD6 A1D29C07 EFE830F5 4D2D38E6 F0255DC1" );
		buf.Add( "4CDD2086 8470EB26 6382E9C6 021ECC5E 09686B3F 3EBAEFC9 3C971814 6B6A70A1" );
		buf.Add( "687F3584 52A0E286 B79C5305 AA500737 3E07841C 7FDEAE5C 8E7D44EC 5716F2B8" );
		buf.Add( "B03ADA37 F0500C0D F01C1F04 0200B3FF AE0CF51A 3CB574B2 25837A58 DC0921BD" );
		buf.Add( "D19113F9 7CA92FF6 94324773 22F54701 3AE5E581 37C2DADC C8B57634 9AF3DDA7" );
		buf.Add( "A9446146 0FD0030E ECC8C73E A4751E41 E238CD99 3BEA0E2F 3280BBA1 183EB331" );
		buf.Add( "4E548B38 4F6DB908 6F420D03 F60A04BF 2CB81290 24977C79 5679B072 BCAF89AF" );
		buf.Add( "DE9A771F D9930810 B38BAE12 DCCF3F2E 5512721F 2E6B7124 501ADDE6 9F84CD87" );
		buf.Add( "7A584718 7408DA17 BC9F9ABC E94B7D8C EC7AEC3A DB851DFA 63094366 C464C3D2" );
		buf.Add( "EF1C1847 3215D908 DD433B37 24C2BA16 12A14D43 2A65C451 50940002 133AE4DD" );
		buf.Add( "71DFF89E 10314E55 81AC77D6 5F11199B 043556F1 D7A3C76B 3C11183B 5924A509" );
		buf.Add( "F28FE6ED 97F1FBFA 9EBABF2C 1E153C6E 86E34570 EAE96FB1 860E5E0A 5A3E2AB3" );
		buf.Add( "771FE71C 4E3D06FA 2965DCB9 99E71D0F 803E89D6 5266C825 2E4CC978 9C10B36A" );
		buf.Add( "C6150EBA 94E2EA78 A5FC3C53 1E0A2DF4 F2F74EA7 361D2B3D 1939260F 19C27960" );
		buf.Add( "5223A708 F71312B6 EBADFE6E EAC31F66 E3BC4595 A67BC883 B17F37D1 018CFF28" );
		buf.Add( "C332DDEF BE6C5AA5 65582185 68AB9802 EECEA50F DB2F953B 2AEF7DAD 5B6E2F84" );
		buf.Add( "1521B628 29076170 ECDD4775 619F1510 13CCA830 EB61BD96 0334FE1E AA0363CF" );
		buf.Add( "B5735C90 4C70A239 D59E9E0B CBAADE14 EECC86BC 60622CA7 9CAB5CAB B2F3846E" );
		buf.Add( "648B1EAF 19BDF0CA A02369B9 655ABB50 40685A32 3C2AB4B3 319EE9D5 C021B8F7" );
		buf.Add( "9B540B19 875FA099 95F7997E 623D7DA8 F837889A 97E32D77 11ED935F 16681281" );
		buf.Add( "0E358829 C7E61FD6 96DEDFA1 7858BA99 57F584A5 1B227263 9B83C3FF 1AC24696" );
		buf.Add( "CDB30AEB 532E3054 8FD948E4 6DBC3128 58EBF2EF 34C6FFEA FE28ED61 EE7C3C73" );
		buf.Add( "5D4A14D9 E864B7E3 42105D14 203E13E0 45EEE2B6 A3AAABEA DB6C4F15 FACB4FD0" );
		buf.Add( "C742F442 EF6ABBB5 654F3B1D 41CD2105 D81E799E 86854DC7 E44B476A 3D816250" );
		buf.Add( "CF62A1F2 5B8D2646 FC8883A0 C1C7B6A3 7F1524C3 69CB7492 47848A0B 5692B285" );
		buf.Add( "095BBF00 AD19489D 1462B174 23820E00 58428D2A 0C55F5EA 1DADF43E 233F7061" );
		buf.Add( "3372F092 8D937E41 D65FECF1 6C223BDB 7CDE3759 CBEE7460 4085F2A7 CE77326E" );
		buf.Add( "A6078084 19F8509E E8EFD855 61D99735 A969A7AA C50C06C2 5A04ABFC 800BCADC" );
		buf.Add( "9E447A2E C3453484 FDD56705 0E1E9EC9 DB73DBD3 105588CD 675FDA79 E3674340" );
		buf.Add( "C5C43465 713E38D8 3D28F89E F16DFF20 153E21E7 8FB03D4A E6E39F2B DB83ADF7" );
		FOR i := 0 TO 255 DO  s0.b[i] :=  buf.GetInt()  END;

		buf.Init( 4096 );
		buf.Add( "E93D5A68 948140F7 F64C261C 94692934 411520F7 7602D4F7 BCF46B2E D4A20068" );
		buf.Add( "D4082471 3320F46A 43B7D4B7 500061AF 1E39F62E 97244546 14214F74 BF8B8840" );
		buf.Add( "4D95FC1D 96B591AF 70F4DDD3 66A02F45 BFBC09EC 03BD9785 7FAC6DD0 31CB8504" );
		buf.Add( "96EB27B3 55FD3941 DA2547E6 ABCA0A9A 28507825 530429F4 0A2C86DA E9B66DFB" );
		buf.Add( "68DC1462 D7486900 680EC0A4 27A18DEE 4F3FFEA2 E887AD8C B58CE006 7AF4D6B6" );
		buf.Add( "AACE1E7C D3375FEC CE78A399 406B2A42 20FE9E35 D9F385B9 EE39D7AB 3B124E8B" );
		buf.Add( "1DC9FAF7 4B6D1856 26A36631 EAE397B2 3A6EFA74 DD5B4332 6841E7F7 CA7820FB" );
		buf.Add( "FB0AF54E D8FEB397 454056AC BA489527 55533A3A 20838D87 FE6BA9B7 D096954B" );
		buf.Add( "55A867BC A1159A58 CCA92963 99E1DB33 A62A4A56 3F3125F9 5EF47E1C 9029317C" );
		buf.Add( "FDF8E802 04272F70 80BB155C 05282CE3 95C11548 E4C66D22 48C1133F C70F86DC" );
		buf.Add( "07F9C9EE 41041F0F 404779A4 5D886E17 325F51EB D59BC0D1 F2BCC18F 41113564" );
		buf.Add( "257B7834 602A9C60 DFF8E8A3 1F636C1B 0E12B4C2 02E1329E AF664FD1 CAD18115" );
		buf.Add( "6B2395E0 333E92E1 3B240B62 EEBEB922 85B2A20E E6BA0D99 DE720C8C 2DA2F728" );
		buf.Add( "D0127845 95B794FD 647D0862 E7CCF5F0 5449A36F 877D48FA C39DFD27 F33E8D1E" );
		buf.Add( "0A476341 992EFF74 3A6F6EAB F4F8FD37 A812DC60 A1EBDDF8 991BE14C DB6E6B0D" );
		buf.Add( "C67B5510 6D672C37 2765D43B DCD0E804 F1290DC7 CC00FFA3 B5390F92 690FED0B" );
		buf.Add( "667B9FFB CEDB7D9C A091CF0B D9155EA3 BB132F88 515BAD24 7B9479BF 763BD6EB" );
		buf.Add( "37392EB3 CC115979 8026E297 F42E312D 6842ADA7 C66A2B3B 12754CCC 782EF11C" );
		buf.Add( "6A124237 B79251E7 06A1BBE6 4BFB6350 1A6B1018 11CAEDFA 3D25BDD8 E2E1C3C9" );
		buf.Add( "44421659 0A121386 D90CEC6E D5ABEA2A 64AF674E DA86A85F BEBFE988 64E4C3FE" );
		buf.Add( "9DBC8057 F0F7C086 60787BF8 6003604D D1FD8346 F6381FB0 7745AE04 D736FCCC" );
		buf.Add( "83426B33 F01EAB71 B0804187 3C005E5F 77A057BE BDE8AE24 55464299 BF582E61" );
		buf.Add( "4E58F48F F2DDFDA2 F474EF38 8789BDC2 5366F9C3 C8B38E74 B475F255 46FCD9B9" );
		buf.Add( "7AEB2661 8B1DDF84 846A0E79 915F95E2 466E598E 20B45770 8CD55591 C902DE4C" );
		buf.Add( "B90BACE1 BB8205D0 11A86248 7574A99E B77F19B6 E0A9DC09 662D09A1 C4324633" );
		buf.Add( "E85A1F02 09F0BE8C 4A99A025 1D6EFE10 1AB93D1D 0BA5A4DF A186F20F 2868F169" );
		buf.Add( "DCB7DA83 573906FE A1E2CE9B 4FCD7F52 50115E01 A70683FA A002B5C4 0DE6D027" );
		buf.Add( "9AF88C27 773F8641 C3604C06 61A806B5 F0177A28 C0F586E0 006058AA 30DC7D62" );
		buf.Add( "11E69ED7 2338EA63 53C2DD94 C2C21634 BBCBEE56 90BCB6DE EBFC7DA1 CE591D76" );
		buf.Add( "6F05E409 4B7C0188 39720A3D 7C927C24 86E3725F 724D9DB9 1AC15BB4 D39EB8FC" );
		buf.Add( "ED545578 08FCA5B5 D83D7CD3 4DAD0FC4 1E50EF5E B161E6F8 A28514D9 6C51133C" );
		buf.Add( "6FD5C7E7 56E14EC4 362ABFCE DDC6C837 D79A3234 92638212 670EFA8E 406000E0" );
		FOR i := 0 TO 255 DO  s0.c[i] :=  buf.GetSet()  END;

		buf.Init( 4096 );
		buf.Add( "3A39CE37 D3FAF5CF ABC27737 5AC52D1B 5CB0679E 4FA33742 D3822740 99BC9BBE" );
		buf.Add( "D5118E9D BF0F7315 D62D1C7E C700C47B B78C1B6B 21A19045 B26EB1BE 6A366EB4" );
		buf.Add( "5748AB2F BC946E79 C6A376D2 6549C2C8 530FF8EE 468DDE7D D5730A1D 4CD04DC6" );
		buf.Add( "2939BBDB A9BA4650 AC9526E8 BE5EE304 A1FAD5F0 6A2D519A 63EF8CE2 9A86EE22" );
		buf.Add( "C089C2B8 43242EF6 A51E03AA 9CF2D0A4 83C061BA 9BE96A4D 8FE51550 BA645BD6" );
		buf.Add( "2826A2F9 A73A3AE1 4BA99586 EF5562E9 C72FEFD3 F752F7DA 3F046F69 77FA0A59" );
		buf.Add( "80E4A915 87B08601 9B09E6AD 3B3EE593 E990FD5A 9E34D797 2CF0B7D9 022B8B51" );
		buf.Add( "96D5AC3A 017DA67D D1CF3ED6 7C7D2D28 1F9F25CF ADF2B89B 5AD6B472 5A88F54C" );
		buf.Add( "E029AC71 E019A5E6 47B0ACFD ED93FA9B E8D3C48D 283B57CC F8D56629 79132E28" );
		buf.Add( "785F0191 ED756055 F7960E44 E3D35E8C 15056DD4 88F46DBA 03A16125 0564F0BD" );
		buf.Add( "C3EB9E15 3C9057A2 97271AEC A93A072A 1B3F6D9B 1E6321F5 F59C66FB 26DCF319" );
		buf.Add( "7533D928 B155FDF5 03563482 8ABA3CBB 28517711 C20AD9F8 ABCC5167 CCAD925F" );
		buf.Add( "4DE81751 3830DC8E 379D5862 9320F991 EA7A90C2 FB3E7BCE 5121CE64 774FBE32" );
		buf.Add( "A8B6E37E C3293D46 48DE5369 6413E680 A2AE0810 DD6DB224 69852DFD 09072166" );
		buf.Add( "B39A460A 6445C0DD 586CDECF 1C20C8AE 5BBEF7DD 1B588D40 CCD2017F 6BB4E3BB" );
		buf.Add( "DDA26A7E 3A59FF45 3E350A44 BCB4CDD5 72EACEA8 FA6484BB 8D6612AE BF3C6F47" );
		buf.Add( "D29BE463 542F5D9E AEC2771B F64E6370 740E0D8D E75B1357 F8721671 AF537D5D" );
		buf.Add( "4040CB08 4EB4E2CC 34D2466A 0115AF84 E1B00428 95983A1D 06B89FB4 CE6EA048" );
		buf.Add( "6F3F3B82 3520AB82 011A1D4B 277227F8 611560B1 E7933FDC BB3A792B 344525BD" );
		buf.Add( "A08839E1 51CE794B 2F32C9B7 A01FBAC9 E01CC87E BCC7D1F6 CF0111C3 A1E8AAC7" );
		buf.Add( "1A908749 D44FBD9A D0DADECB D50ADA38 0339C32A C6913667 8DF9317C E0B12B4F" );
		buf.Add( "F79E59B7 43F5BB3A F2D519FF 27D9459C BF97222C 15E6FC2A 0F91FC71 9B941525" );
		buf.Add( "FAE59361 CEB69CEB C2A86459 12BAA8D1 B6C1075E E3056A0C 10D25065 CB03A442" );
		buf.Add( "E0EC6E0E 1698DB3B 4C98A0BE 3278E964 9F1F9532 E0D392DF D3A0342B 8971F21E" );
		buf.Add( "1B0A7441 4BA3348C C5BE7120 C37632D8 DF359F8D 9B992F2E E60B6F47 0FE3F11D" );
		buf.Add( "E54CDA54 1EDAD891 CE6279CF CD3E7E6F 1618B166 FD2C1D05 848FD2C5 F6FB2299" );
		buf.Add( "F523F357 A6327623 93A83531 56CCCD02 ACF08162 5A75EBB5 6E163697 88D273CC" );
		buf.Add( "DE966292 81B949D0 4C50901B 71C65614 E6C6C7BD 327A140A 45E1D006 C3F27B9A" );
		buf.Add( "C9AA53FD 62A80F00 BB25BFE2 35BDD2F6 71126905 B2040222 B6CBCF7C CD769C2B" );
		buf.Add( "53113EC0 1640E3D3 38ABBD60 2547ADF0 BA38209C F746CE76 77AFA1C5 20756060" );
		buf.Add( "85CBFE4E 8AE88DD8 7AAAF9B0 4CF9AA7E 1948C25C 02FB8A8C 01C36AE4 D6EBE1F9" );
		buf.Add( "90D4F869 A65CDEA0 3F09252D C208E69F B74E6132 CE77E25B 578FDFE3 3AC372E6" );
		FOR i := 0 TO 255 DO  s0.d[i] :=  buf.GetInt()  END;
	END Init0;

BEGIN
	Init0
END CryptoBlowfish.