raw
smg_comms_skeys_s...    1 ------------------------------------------------------------------------------
smg_comms_skeys_s...    2 ------------------------------------------------------------------------------
smg_comms_skeys_s...    3 -- This file is part of 'CRC32'                                             --
smg_comms_skeys_s...    4 --                                                                          --
smg_comms_skeys_s...    5 -- You do not have, nor can you ever acquire the right to use, copy or      --
smg_comms_skeys_s...    6 -- distribute this software ; Should you use this software for any purpose, -- 
smg_comms_skeys_s...    7 -- or copy and distribute it to anyone or in any manner, you are breaking   --
smg_comms_skeys_s...    8 -- the laws of whatever soi-disant jurisdiction, and you promise to         --
smg_comms_skeys_s...    9 -- continue doing so for the indefinite future. In any case, please         --
smg_comms_skeys_s...   10 -- always : read and understand any software ; verify any PGP signatures    --
smg_comms_skeys_s...   11 -- that you use - for any purpose.                                          --
smg_comms_skeys_s...   12 --                                                                          --
smg_comms_skeys_s...   13 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm .     --
smg_comms_skeys_s...   14 ------------------------------------------------------------------------------
smg_comms_skeys_s...   15 ------------------------------------------------------------------------------
smg_comms_skeys_s...   16 
smg_comms_skeys_s...   17   -- CRC32, lookup-based implementation
smg_comms_skeys_s...   18   -- S.MG, 2018
smg_comms_skeys_s...   19   --
smg_comms_skeys_s...   20   -- The CRC32 is a checksum calculated as the remainder of dividing
smg_comms_skeys_s...   21   -- the input data by the 0x04C11DB7 polynomial. Specifications:
smg_comms_skeys_s...   22   -- Name   : "CRC-32"
smg_comms_skeys_s...   23   -- Width  : 32        (number of bits)
smg_comms_skeys_s...   24   -- Poly   : 04C11DB7  (generator polynomial)
smg_comms_skeys_s...   25   -- Init   : FFFFFFFF
smg_comms_skeys_s...   26   -- RefIn  : True      (input is reflected)  
smg_comms_skeys_s...   27   -- RefOut : True      (output is reflected)
smg_comms_skeys_s...   28   -- XorOut : FFFFFFFF
smg_comms_skeys_s...   29   -- Check  : CBF43926  (expected value for input "123456789")
smg_comms_skeys_s...   30   --
smg_comms_skeys_s...   31   -- This implementation is based on the CRC32 specification in:
smg_comms_skeys_s...   32   -- Sarwate, D.V. "Computation of Cyclic Redundancy Checks via Table Look-Up"
smg_comms_skeys_s...   33   -- in Communications of the ACM, Vol. 31 No. 8, pp.1008-1013, Aug. 1988
smg_comms_skeys_s...   34 
smg_comms_skeys_s...   35 with Interfaces; use Interfaces;
smg_comms_skeys_s...   36 with Raw_Types;
smg_comms_skeys_s...   37 
smg_comms_skeys_s...   38 package CRC32 is
smg_comms_skeys_s...   39   -- local, shorthand version of Interfaces. types
smg_comms_skeys_s...   40   subtype CRC32 is Interfaces.Unsigned_32;
smg_comms_skeys_s...   41   subtype Octet is Interfaces.Unsigned_8;
smg_comms_skeys_s...   42 
smg_comms_skeys_s...   43   subtype Octet_Array is Raw_Types.Octets;
smg_comms_skeys_s...   44 
smg_comms_skeys_s...   45   -- interface for external callers
smg_comms_skeys_s...   46     -- calculate CRC32 for the given string
smg_comms_skeys_s...   47   function CRC( S: in String ) return CRC32;
smg_comms_skeys_s...   48 
smg_comms_skeys_s...   49     -- calculate CRC32 for the given array of octets
smg_comms_skeys_s...   50   function CRC( Data: in Octet_Array ) return CRC32;
smg_comms_skeys_s...   51 
smg_comms_skeys_s...   52 
smg_comms_skeys_s...   53   -- internal constants and helper methods
smg_comms_skeys_s...   54 private
smg_comms_skeys_s...   55 	function Shift_Right( Value  : CRC32; 
smg_comms_skeys_s...   56                         Amount : Natural) 
smg_comms_skeys_s...   57                         return CRC32;
smg_comms_skeys_s...   58   pragma Import(Intrinsic, Shift_Right); 
smg_comms_skeys_s...   59 
smg_comms_skeys_s...   60   Init_Value : constant CRC32 := 16#FFFF_FFFF#; -- Initial value
smg_comms_skeys_s...   61   Xor_Out    : constant CRC32 := 16#FFFF_FFFF#; -- For extracting result
smg_comms_skeys_s...   62   LSB_Mask   : constant CRC32 := 16#0000_00FF#; -- lsb mask for a CRC32 value
smg_comms_skeys_s...   63   
smg_comms_skeys_s...   64   -- lookup table with precomputed values for CRC32
smg_comms_skeys_s...   65   Lookup : constant array (CRC32 range 0 .. 255) of CRC32 :=
smg_comms_skeys_s...   66      (16#0000_0000#, 16#7707_3096#, 16#EE0E_612C#, 16#9909_51BA#,
smg_comms_skeys_s...   67       16#076D_C419#, 16#706A_F48F#, 16#E963_A535#, 16#9E64_95A3#,
smg_comms_skeys_s...   68       16#0EDB_8832#, 16#79DC_B8A4#, 16#E0D5_E91E#, 16#97D2_D988#,
smg_comms_skeys_s...   69       16#09B6_4C2B#, 16#7EB1_7CBD#, 16#E7B8_2D07#, 16#90BF_1D91#,
smg_comms_skeys_s...   70       16#1DB7_1064#, 16#6AB0_20F2#, 16#F3B9_7148#, 16#84BE_41DE#,
smg_comms_skeys_s...   71       16#1ADA_D47D#, 16#6DDD_E4EB#, 16#F4D4_B551#, 16#83D3_85C7#,
smg_comms_skeys_s...   72       16#136C_9856#, 16#646B_A8C0#, 16#FD62_F97A#, 16#8A65_C9EC#,
smg_comms_skeys_s...   73       16#1401_5C4F#, 16#6306_6CD9#, 16#FA0F_3D63#, 16#8D08_0DF5#,
smg_comms_skeys_s...   74       16#3B6E_20C8#, 16#4C69_105E#, 16#D560_41E4#, 16#A267_7172#,
smg_comms_skeys_s...   75       16#3C03_E4D1#, 16#4B04_D447#, 16#D20D_85FD#, 16#A50A_B56B#,
smg_comms_skeys_s...   76       16#35B5_A8FA#, 16#42B2_986C#, 16#DBBB_C9D6#, 16#ACBC_F940#,
smg_comms_skeys_s...   77       16#32D8_6CE3#, 16#45DF_5C75#, 16#DCD6_0DCF#, 16#ABD1_3D59#,
smg_comms_skeys_s...   78       16#26D9_30AC#, 16#51DE_003A#, 16#C8D7_5180#, 16#BFD0_6116#,
smg_comms_skeys_s...   79       16#21B4_F4B5#, 16#56B3_C423#, 16#CFBA_9599#, 16#B8BD_A50F#,
smg_comms_skeys_s...   80       16#2802_B89E#, 16#5F05_8808#, 16#C60C_D9B2#, 16#B10B_E924#,
smg_comms_skeys_s...   81       16#2F6F_7C87#, 16#5868_4C11#, 16#C161_1DAB#, 16#B666_2D3D#,
smg_comms_skeys_s...   82       16#76DC_4190#, 16#01DB_7106#, 16#98D2_20BC#, 16#EFD5_102A#,
smg_comms_skeys_s...   83       16#71B1_8589#, 16#06B6_B51F#, 16#9FBF_E4A5#, 16#E8B8_D433#,
smg_comms_skeys_s...   84       16#7807_C9A2#, 16#0F00_F934#, 16#9609_A88E#, 16#E10E_9818#,
smg_comms_skeys_s...   85       16#7F6A_0DBB#, 16#086D_3D2D#, 16#9164_6C97#, 16#E663_5C01#,
smg_comms_skeys_s...   86       16#6B6B_51F4#, 16#1C6C_6162#, 16#8565_30D8#, 16#F262_004E#,
smg_comms_skeys_s...   87       16#6C06_95ED#, 16#1B01_A57B#, 16#8208_F4C1#, 16#F50F_C457#,
smg_comms_skeys_s...   88       16#65B0_D9C6#, 16#12B7_E950#, 16#8BBE_B8EA#, 16#FCB9_887C#,
smg_comms_skeys_s...   89       16#62DD_1DDF#, 16#15DA_2D49#, 16#8CD3_7CF3#, 16#FBD4_4C65#,
smg_comms_skeys_s...   90       16#4DB2_6158#, 16#3AB5_51CE#, 16#A3BC_0074#, 16#D4BB_30E2#,
smg_comms_skeys_s...   91       16#4ADF_A541#, 16#3DD8_95D7#, 16#A4D1_C46D#, 16#D3D6_F4FB#,
smg_comms_skeys_s...   92       16#4369_E96A#, 16#346E_D9FC#, 16#AD67_8846#, 16#DA60_B8D0#,
smg_comms_skeys_s...   93       16#4404_2D73#, 16#3303_1DE5#, 16#AA0A_4C5F#, 16#DD0D_7CC9#,
smg_comms_skeys_s...   94       16#5005_713C#, 16#2702_41AA#, 16#BE0B_1010#, 16#C90C_2086#,
smg_comms_skeys_s...   95       16#5768_B525#, 16#206F_85B3#, 16#B966_D409#, 16#CE61_E49F#,
smg_comms_skeys_s...   96       16#5EDE_F90E#, 16#29D9_C998#, 16#B0D0_9822#, 16#C7D7_A8B4#,
smg_comms_skeys_s...   97       16#59B3_3D17#, 16#2EB4_0D81#, 16#B7BD_5C3B#, 16#C0BA_6CAD#,
smg_comms_skeys_s...   98       16#EDB8_8320#, 16#9ABF_B3B6#, 16#03B6_E20C#, 16#74B1_D29A#,
smg_comms_skeys_s...   99       16#EAD5_4739#, 16#9DD2_77AF#, 16#04DB_2615#, 16#73DC_1683#,
smg_comms_skeys_s...  100       16#E363_0B12#, 16#9464_3B84#, 16#0D6D_6A3E#, 16#7A6A_5AA8#,
smg_comms_skeys_s...  101       16#E40E_CF0B#, 16#9309_FF9D#, 16#0A00_AE27#, 16#7D07_9EB1#,
smg_comms_skeys_s...  102       16#F00F_9344#, 16#8708_A3D2#, 16#1E01_F268#, 16#6906_C2FE#,
smg_comms_skeys_s...  103       16#F762_575D#, 16#8065_67CB#, 16#196C_3671#, 16#6E6B_06E7#,
smg_comms_skeys_s...  104       16#FED4_1B76#, 16#89D3_2BE0#, 16#10DA_7A5A#, 16#67DD_4ACC#,
smg_comms_skeys_s...  105       16#F9B9_DF6F#, 16#8EBE_EFF9#, 16#17B7_BE43#, 16#60B0_8ED5#,
smg_comms_skeys_s...  106       16#D6D6_A3E8#, 16#A1D1_937E#, 16#38D8_C2C4#, 16#4FDF_F252#,
smg_comms_skeys_s...  107       16#D1BB_67F1#, 16#A6BC_5767#, 16#3FB5_06DD#, 16#48B2_364B#,
smg_comms_skeys_s...  108       16#D80D_2BDA#, 16#AF0A_1B4C#, 16#3603_4AF6#, 16#4104_7A60#,
smg_comms_skeys_s...  109       16#DF60_EFC3#, 16#A867_DF55#, 16#316E_8EEF#, 16#4669_BE79#,
smg_comms_skeys_s...  110       16#CB61_B38C#, 16#BC66_831A#, 16#256F_D2A0#, 16#5268_E236#,
smg_comms_skeys_s...  111       16#CC0C_7795#, 16#BB0B_4703#, 16#2202_16B9#, 16#5505_262F#,
smg_comms_skeys_s...  112       16#C5BA_3BBE#, 16#B2BD_0B28#, 16#2BB4_5A92#, 16#5CB3_6A04#,
smg_comms_skeys_s...  113       16#C2D7_FFA7#, 16#B5D0_CF31#, 16#2CD9_9E8B#, 16#5BDE_AE1D#,
smg_comms_skeys_s...  114       16#9B64_C2B0#, 16#EC63_F226#, 16#756A_A39C#, 16#026D_930A#,
smg_comms_skeys_s...  115       16#9C09_06A9#, 16#EB0E_363F#, 16#7207_6785#, 16#0500_5713#,
smg_comms_skeys_s...  116       16#95BF_4A82#, 16#E2B8_7A14#, 16#7BB1_2BAE#, 16#0CB6_1B38#,
smg_comms_skeys_s...  117       16#92D2_8E9B#, 16#E5D5_BE0D#, 16#7CDC_EFB7#, 16#0BDB_DF21#,
smg_comms_skeys_s...  118       16#86D3_D2D4#, 16#F1D4_E242#, 16#68DD_B3F8#, 16#1FDA_836E#,
smg_comms_skeys_s...  119       16#81BE_16CD#, 16#F6B9_265B#, 16#6FB0_77E1#, 16#18B7_4777#,
smg_comms_skeys_s...  120       16#8808_5AE6#, 16#FF0F_6A70#, 16#6606_3BCA#, 16#1101_0B5C#,
smg_comms_skeys_s...  121       16#8F65_9EFF#, 16#F862_AE69#, 16#616B_FFD3#, 16#166C_CF45#,
smg_comms_skeys_s...  122       16#A00A_E278#, 16#D70D_D2EE#, 16#4E04_8354#, 16#3903_B3C2#,
smg_comms_skeys_s...  123       16#A767_2661#, 16#D060_16F7#, 16#4969_474D#, 16#3E6E_77DB#,
smg_comms_skeys_s...  124       16#AED1_6A4A#, 16#D9D6_5ADC#, 16#40DF_0B66#, 16#37D8_3BF0#,
smg_comms_skeys_s...  125       16#A9BC_AE53#, 16#DEBB_9EC5#, 16#47B2_CF7F#, 16#30B5_FFE9#,
smg_comms_skeys_s...  126       16#BDBD_F21C#, 16#CABA_C28A#, 16#53B3_9330#, 16#24B4_A3A6#,
smg_comms_skeys_s...  127       16#BAD0_3605#, 16#CDD7_0693#, 16#54DE_5729#, 16#23D9_67BF#,
smg_comms_skeys_s...  128       16#B366_7A2E#, 16#C461_4AB8#, 16#5D68_1B02#, 16#2A6F_2B94#,
smg_comms_skeys_s...  129       16#B40B_BE37#, 16#C30C_8EA1#, 16#5A05_DF1B#, 16#2D02_EF8D#);
smg_comms_skeys_s...  130 
smg_comms_skeys_s...  131 end CRC32;