📄 decdata.pas
字号:
unit DECData;
interface
const
Square_SE: array[0..255] of Byte = (
177, 206, 195, 149, 90, 173, 231, 2, 77, 68, 251, 145, 12, 135, 161, 80,
203, 103, 84, 221, 70, 143, 225, 78, 240, 253, 252, 235, 249, 196, 26, 110,
94, 245, 204, 141, 28, 86, 67, 254, 7, 97, 248, 117, 89, 255, 3, 34,
138, 209, 19, 238, 136, 0, 14, 52, 21, 128, 148, 227, 237, 181, 83, 35,
75, 71, 23, 167, 144, 53, 171, 216, 184, 223, 79, 87, 154, 146, 219, 27,
60, 200, 153, 4, 142, 224, 215, 125, 133, 187, 64, 44, 58, 69, 241, 66,
101, 32, 65, 24, 114, 37, 147, 112, 54, 5, 242, 11, 163, 121, 236, 8,
39, 49, 50, 182, 124, 176, 10, 115, 91, 123, 183, 129, 210, 13, 106, 38,
158, 88, 156, 131, 116, 179, 172, 48, 122, 105, 119, 15, 174, 33, 222, 208,
46, 151, 16, 164, 152, 168, 212, 104, 45, 98, 41, 109, 22, 73, 118, 199,
232, 193, 150, 55, 229, 202, 244, 233, 99, 18, 194, 166, 20, 188, 211, 40,
175, 47, 230, 36, 82, 198, 160, 9, 189, 140, 207, 93, 17, 95, 1, 197,
159, 61, 162, 155, 201, 59, 190, 81, 25, 31, 63, 92, 178, 239, 74, 205,
191, 186, 111, 100, 217, 243, 62, 180, 170, 220, 213, 6, 192, 126, 246, 102,
108, 132, 113, 56, 185, 29, 127, 157, 72, 139, 42, 218, 165, 51, 130, 57,
214, 120, 134, 250, 228, 43, 169, 30, 137, 96, 107, 234, 85, 76, 247, 226);
// by tol (to speed calculation up)
Square_SEint: array[0..255] of LongWord = (
177, 206, 195, 149, 90, 173, 231, 2, 77, 68, 251, 145, 12, 135, 161, 80,
203, 103, 84, 221, 70, 143, 225, 78, 240, 253, 252, 235, 249, 196, 26, 110,
94, 245, 204, 141, 28, 86, 67, 254, 7, 97, 248, 117, 89, 255, 3, 34,
138, 209, 19, 238, 136, 0, 14, 52, 21, 128, 148, 227, 237, 181, 83, 35,
75, 71, 23, 167, 144, 53, 171, 216, 184, 223, 79, 87, 154, 146, 219, 27,
60, 200, 153, 4, 142, 224, 215, 125, 133, 187, 64, 44, 58, 69, 241, 66,
101, 32, 65, 24, 114, 37, 147, 112, 54, 5, 242, 11, 163, 121, 236, 8,
39, 49, 50, 182, 124, 176, 10, 115, 91, 123, 183, 129, 210, 13, 106, 38,
158, 88, 156, 131, 116, 179, 172, 48, 122, 105, 119, 15, 174, 33, 222, 208,
46, 151, 16, 164, 152, 168, 212, 104, 45, 98, 41, 109, 22, 73, 118, 199,
232, 193, 150, 55, 229, 202, 244, 233, 99, 18, 194, 166, 20, 188, 211, 40,
175, 47, 230, 36, 82, 198, 160, 9, 189, 140, 207, 93, 17, 95, 1, 197,
159, 61, 162, 155, 201, 59, 190, 81, 25, 31, 63, 92, 178, 239, 74, 205,
191, 186, 111, 100, 217, 243, 62, 180, 170, 220, 213, 6, 192, 126, 246, 102,
108, 132, 113, 56, 185, 29, 127, 157, 72, 139, 42, 218, 165, 51, 130, 57,
214, 120, 134, 250, 228, 43, 169, 30, 137, 96, 107, 234, 85, 76, 247, 226);
Square_SD: array[0..255] of Byte = (
53, 190, 7, 46, 83, 105, 219, 40, 111, 183, 118, 107, 12, 125, 54, 139,
146, 188, 169, 50, 172, 56, 156, 66, 99, 200, 30, 79, 36, 229, 247, 201,
97, 141, 47, 63, 179, 101, 127, 112, 175, 154, 234, 245, 91, 152, 144, 177,
135, 113, 114, 237, 55, 69, 104, 163, 227, 239, 92, 197, 80, 193, 214, 202,
90, 98, 95, 38, 9, 93, 20, 65, 232, 157, 206, 64, 253, 8, 23, 74,
15, 199, 180, 62, 18, 252, 37, 75, 129, 44, 4, 120, 203, 187, 32, 189,
249, 41, 153, 168, 211, 96, 223, 17, 151, 137, 126, 250, 224, 155, 31, 210,
103, 226, 100, 119, 132, 43, 158, 138, 241, 109, 136, 121, 116, 87, 221, 230,
57, 123, 238, 131, 225, 88, 242, 13, 52, 248, 48, 233, 185, 35, 84, 21,
68, 11, 77, 102, 58, 3, 162, 145, 148, 82, 76, 195, 130, 231, 128, 192,
182, 14, 194, 108, 147, 236, 171, 67, 149, 246, 216, 70, 134, 5, 140, 176,
117, 0, 204, 133, 215, 61, 115, 122, 72, 228, 209, 89, 173, 184, 198, 208,
220, 161, 170, 2, 29, 191, 181, 159, 81, 196, 165, 16, 34, 207, 1, 186,
143, 49, 124, 174, 150, 218, 240, 86, 71, 212, 235, 78, 217, 19, 142, 73,
85, 22, 255, 59, 244, 164, 178, 6, 160, 167, 251, 27, 110, 60, 51, 205,
24, 94, 106, 213, 166, 33, 222, 254, 42, 28, 243, 10, 26, 25, 39, 45);
Square_PHI: array[0..255] of LongWord = (
$00000000,$03010102,$06020204,$05030306,$0C040408,$0F05050A,$0A06060C,$0907070E,
$18080810,$1B090912,$1E0A0A14,$1D0B0B16,$140C0C18,$170D0D1A,$120E0E1C,$110F0F1E,
$30101020,$33111122,$36121224,$35131326,$3C141428,$3F15152A,$3A16162C,$3917172E,
$28181830,$2B191932,$2E1A1A34,$2D1B1B36,$241C1C38,$271D1D3A,$221E1E3C,$211F1F3E,
$60202040,$63212142,$66222244,$65232346,$6C242448,$6F25254A,$6A26264C,$6927274E,
$78282850,$7B292952,$7E2A2A54,$7D2B2B56,$742C2C58,$772D2D5A,$722E2E5C,$712F2F5E,
$50303060,$53313162,$56323264,$55333366,$5C343468,$5F35356A,$5A36366C,$5937376E,
$48383870,$4B393972,$4E3A3A74,$4D3B3B76,$443C3C78,$473D3D7A,$423E3E7C,$413F3F7E,
$C0404080,$C3414182,$C6424284,$C5434386,$CC444488,$CF45458A,$CA46468C,$C947478E,
$D8484890,$DB494992,$DE4A4A94,$DD4B4B96,$D44C4C98,$D74D4D9A,$D24E4E9C,$D14F4F9E,
$F05050A0,$F35151A2,$F65252A4,$F55353A6,$FC5454A8,$FF5555AA,$FA5656AC,$F95757AE,
$E85858B0,$EB5959B2,$EE5A5AB4,$ED5B5BB6,$E45C5CB8,$E75D5DBA,$E25E5EBC,$E15F5FBE,
$A06060C0,$A36161C2,$A66262C4,$A56363C6,$AC6464C8,$AF6565CA,$AA6666CC,$A96767CE,
$B86868D0,$BB6969D2,$BE6A6AD4,$BD6B6BD6,$B46C6CD8,$B76D6DDA,$B26E6EDC,$B16F6FDE,
$907070E0,$937171E2,$967272E4,$957373E6,$9C7474E8,$9F7575EA,$9A7676EC,$997777EE,
$887878F0,$8B7979F2,$8E7A7AF4,$8D7B7BF6,$847C7CF8,$877D7DFA,$827E7EFC,$817F7FFE,
$758080F5,$768181F7,$738282F1,$708383F3,$798484FD,$7A8585FF,$7F8686F9,$7C8787FB,
$6D8888E5,$6E8989E7,$6B8A8AE1,$688B8BE3,$618C8CED,$628D8DEF,$678E8EE9,$648F8FEB,
$459090D5,$469191D7,$439292D1,$409393D3,$499494DD,$4A9595DF,$4F9696D9,$4C9797DB,
$5D9898C5,$5E9999C7,$5B9A9AC1,$589B9BC3,$519C9CCD,$529D9DCF,$579E9EC9,$549F9FCB,
$15A0A0B5,$16A1A1B7,$13A2A2B1,$10A3A3B3,$19A4A4BD,$1AA5A5BF,$1FA6A6B9,$1CA7A7BB,
$0DA8A8A5,$0EA9A9A7,$0BAAAAA1,$08ABABA3,$01ACACAD,$02ADADAF,$07AEAEA9,$04AFAFAB,
$25B0B095,$26B1B197,$23B2B291,$20B3B393,$29B4B49D,$2AB5B59F,$2FB6B699,$2CB7B79B,
$3DB8B885,$3EB9B987,$3BBABA81,$38BBBB83,$31BCBC8D,$32BDBD8F,$37BEBE89,$34BFBF8B,
$B5C0C075,$B6C1C177,$B3C2C271,$B0C3C373,$B9C4C47D,$BAC5C57F,$BFC6C679,$BCC7C77B,
$ADC8C865,$AEC9C967,$ABCACA61,$A8CBCB63,$A1CCCC6D,$A2CDCD6F,$A7CECE69,$A4CFCF6B,
$85D0D055,$86D1D157,$83D2D251,$80D3D353,$89D4D45D,$8AD5D55F,$8FD6D659,$8CD7D75B,
$9DD8D845,$9ED9D947,$9BDADA41,$98DBDB43,$91DCDC4D,$92DDDD4F,$97DEDE49,$94DFDF4B,
$D5E0E035,$D6E1E137,$D3E2E231,$D0E3E333,$D9E4E43D,$DAE5E53F,$DFE6E639,$DCE7E73B,
$CDE8E825,$CEE9E927,$CBEAEA21,$C8EBEB23,$C1ECEC2D,$C2EDED2F,$C7EEEE29,$C4EFEF2B,
$E5F0F015,$E6F1F117,$E3F2F211,$E0F3F313,$E9F4F41D,$EAF5F51F,$EFF6F619,$ECF7F71B,
$FDF8F805,$FEF9F907,$FBFAFA01,$F8FBFB03,$F1FCFC0D,$F2FDFD0F,$F7FEFE09,$F4FFFF0B);
// by tol: rotated PHI array (to speed calculation up)
Square_PHIr: array[0..3, 0..255] of LongWord = (
($00000000,$03010102,$06020204,$05030306,$0C040408,$0F05050A,$0A06060C,$0907070E,
$18080810,$1B090912,$1E0A0A14,$1D0B0B16,$140C0C18,$170D0D1A,$120E0E1C,$110F0F1E,
$30101020,$33111122,$36121224,$35131326,$3C141428,$3F15152A,$3A16162C,$3917172E,
$28181830,$2B191932,$2E1A1A34,$2D1B1B36,$241C1C38,$271D1D3A,$221E1E3C,$211F1F3E,
$60202040,$63212142,$66222244,$65232346,$6C242448,$6F25254A,$6A26264C,$6927274E,
$78282850,$7B292952,$7E2A2A54,$7D2B2B56,$742C2C58,$772D2D5A,$722E2E5C,$712F2F5E,
$50303060,$53313162,$56323264,$55333366,$5C343468,$5F35356A,$5A36366C,$5937376E,
$48383870,$4B393972,$4E3A3A74,$4D3B3B76,$443C3C78,$473D3D7A,$423E3E7C,$413F3F7E,
$C0404080,$C3414182,$C6424284,$C5434386,$CC444488,$CF45458A,$CA46468C,$C947478E,
$D8484890,$DB494992,$DE4A4A94,$DD4B4B96,$D44C4C98,$D74D4D9A,$D24E4E9C,$D14F4F9E,
$F05050A0,$F35151A2,$F65252A4,$F55353A6,$FC5454A8,$FF5555AA,$FA5656AC,$F95757AE,
$E85858B0,$EB5959B2,$EE5A5AB4,$ED5B5BB6,$E45C5CB8,$E75D5DBA,$E25E5EBC,$E15F5FBE,
$A06060C0,$A36161C2,$A66262C4,$A56363C6,$AC6464C8,$AF6565CA,$AA6666CC,$A96767CE,
$B86868D0,$BB6969D2,$BE6A6AD4,$BD6B6BD6,$B46C6CD8,$B76D6DDA,$B26E6EDC,$B16F6FDE,
$907070E0,$937171E2,$967272E4,$957373E6,$9C7474E8,$9F7575EA,$9A7676EC,$997777EE,
$887878F0,$8B7979F2,$8E7A7AF4,$8D7B7BF6,$847C7CF8,$877D7DFA,$827E7EFC,$817F7FFE,
$758080F5,$768181F7,$738282F1,$708383F3,$798484FD,$7A8585FF,$7F8686F9,$7C8787FB,
$6D8888E5,$6E8989E7,$6B8A8AE1,$688B8BE3,$618C8CED,$628D8DEF,$678E8EE9,$648F8FEB,
$459090D5,$469191D7,$439292D1,$409393D3,$499494DD,$4A9595DF,$4F9696D9,$4C9797DB,
$5D9898C5,$5E9999C7,$5B9A9AC1,$589B9BC3,$519C9CCD,$529D9DCF,$579E9EC9,$549F9FCB,
$15A0A0B5,$16A1A1B7,$13A2A2B1,$10A3A3B3,$19A4A4BD,$1AA5A5BF,$1FA6A6B9,$1CA7A7BB,
$0DA8A8A5,$0EA9A9A7,$0BAAAAA1,$08ABABA3,$01ACACAD,$02ADADAF,$07AEAEA9,$04AFAFAB,
$25B0B095,$26B1B197,$23B2B291,$20B3B393,$29B4B49D,$2AB5B59F,$2FB6B699,$2CB7B79B,
$3DB8B885,$3EB9B987,$3BBABA81,$38BBBB83,$31BCBC8D,$32BDBD8F,$37BEBE89,$34BFBF8B,
$B5C0C075,$B6C1C177,$B3C2C271,$B0C3C373,$B9C4C47D,$BAC5C57F,$BFC6C679,$BCC7C77B,
$ADC8C865,$AEC9C967,$ABCACA61,$A8CBCB63,$A1CCCC6D,$A2CDCD6F,$A7CECE69,$A4CFCF6B,
$85D0D055,$86D1D157,$83D2D251,$80D3D353,$89D4D45D,$8AD5D55F,$8FD6D659,$8CD7D75B,
$9DD8D845,$9ED9D947,$9BDADA41,$98DBDB43,$91DCDC4D,$92DDDD4F,$97DEDE49,$94DFDF4B,
$D5E0E035,$D6E1E137,$D3E2E231,$D0E3E333,$D9E4E43D,$DAE5E53F,$DFE6E639,$DCE7E73B,
$CDE8E825,$CEE9E927,$CBEAEA21,$C8EBEB23,$C1ECEC2D,$C2EDED2F,$C7EEEE29,$C4EFEF2B,
$E5F0F015,$E6F1F117,$E3F2F211,$E0F3F313,$E9F4F41D,$EAF5F51F,$EFF6F619,$ECF7F71B,
$FDF8F805,$FEF9F907,$FBFAFA01,$F8FBFB03,$F1FCFC0D,$F2FDFD0F,$F7FEFE09,$F4FFFF0B),
($00000000,$01010203,$02020406,$03030605,$0404080C,$05050A0F,$06060C0A,$07070E09,
$08081018,$0909121B,$0A0A141E,$0B0B161D,$0C0C1814,$0D0D1A17,$0E0E1C12,$0F0F1E11,
$10102030,$11112233,$12122436,$13132635,$1414283C,$15152A3F,$16162C3A,$17172E39,
$18183028,$1919322B,$1A1A342E,$1B1B362D,$1C1C3824,$1D1D3A27,$1E1E3C22,$1F1F3E21,
$20204060,$21214263,$22224466,$23234665,$2424486C,$25254A6F,$26264C6A,$27274E69,
$28285078,$2929527B,$2A2A547E,$2B2B567D,$2C2C5874,$2D2D5A77,$2E2E5C72,$2F2F5E71,
$30306050,$31316253,$32326456,$33336655,$3434685C,$35356A5F,$36366C5A,$37376E59,
$38387048,$3939724B,$3A3A744E,$3B3B764D,$3C3C7844,$3D3D7A47,$3E3E7C42,$3F3F7E41,
$404080C0,$414182C3,$424284C6,$434386C5,$444488CC,$45458ACF,$46468CCA,$47478EC9,
$484890D8,$494992DB,$4A4A94DE,$4B4B96DD,$4C4C98D4,$4D4D9AD7,$4E4E9CD2,$4F4F9ED1,
$5050A0F0,$5151A2F3,$5252A4F6,$5353A6F5,$5454A8FC,$5555AAFF,$5656ACFA,$5757AEF9,
$5858B0E8,$5959B2EB,$5A5AB4EE,$5B5BB6ED,$5C5CB8E4,$5D5DBAE7,$5E5EBCE2,$5F5FBEE1,
$6060C0A0,$6161C2A3,$6262C4A6,$6363C6A5,$6464C8AC,$6565CAAF,$6666CCAA,$6767CEA9,
$6868D0B8,$6969D2BB,$6A6AD4BE,$6B6BD6BD,$6C6CD8B4,$6D6DDAB7,$6E6EDCB2,$6F6FDEB1,
$7070E090,$7171E293,$7272E496,$7373E695,$7474E89C,$7575EA9F,$7676EC9A,$7777EE99,
$7878F088,$7979F28B,$7A7AF48E,$7B7BF68D,$7C7CF884,$7D7DFA87,$7E7EFC82,$7F7FFE81,
$8080F575,$8181F776,$8282F173,$8383F370,$8484FD79,$8585FF7A,$8686F97F,$8787FB7C,
$8888E56D,$8989E76E,$8A8AE16B,$8B8BE368,$8C8CED61,$8D8DEF62,$8E8EE967,$8F8FEB64,
$9090D545,$9191D746,$9292D143,$9393D340,$9494DD49,$9595DF4A,$9696D94F,$9797DB4C,
$9898C55D,$9999C75E,$9A9AC15B,$9B9BC358,$9C9CCD51,$9D9DCF52,$9E9EC957,$9F9FCB54,
$A0A0B515,$A1A1B716,$A2A2B113,$A3A3B310,$A4A4BD19,$A5A5BF1A,$A6A6B91F,$A7A7BB1C,
$A8A8A50D,$A9A9A70E,$AAAAA10B,$ABABA308,$ACACAD01,$ADADAF02,$AEAEA907,$AFAFAB04,
$B0B09525,$B1B19726,$B2B29123,$B3B39320,$B4B49D29,$B5B59F2A,$B6B6992F,$B7B79B2C,
$B8B8853D,$B9B9873E,$BABA813B,$BBBB8338,$BCBC8D31,$BDBD8F32,$BEBE8937,$BFBF8B34,
$C0C075B5,$C1C177B6,$C2C271B3,$C3C373B0,$C4C47DB9,$C5C57FBA,$C6C679BF,$C7C77BBC,
$C8C865AD,$C9C967AE,$CACA61AB,$CBCB63A8,$CCCC6DA1,$CDCD6FA2,$CECE69A7,$CFCF6BA4,
$D0D05585,$D1D15786,$D2D25183,$D3D35380,$D4D45D89,$D5D55F8A,$D6D6598F,$D7D75B8C,
$D8D8459D,$D9D9479E,$DADA419B,$DBDB4398,$DCDC4D91,$DDDD4F92,$DEDE4997,$DFDF4B94,
$E0E035D5,$E1E137D6,$E2E231D3,$E3E333D0,$E4E43DD9,$E5E53FDA,$E6E639DF,$E7E73BDC,
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -