支持Delphi2009/2010的DES加密单元

作者： garfieldtom 来源：博客园发布时间：2009-11-12 15:27 阅读：444 次原文链接 [收藏]

原来在D7/D2007下使用过一个DES的加密单元，但到了D2009/D2010后因为String被映射为unicodestring，不再是AnsiString，所以加密解密字符串失去了作用。经过修改，可以正确使用了，主要修改其中的string，显示指定为AnsiString，char，显示指定为AnsiChar.

unit DESCrypt;

interface
uses
SysUtils,Classes;

type
TByte32 = array[1..32] of Byte;
TSData = array[0..63] of Byte;
TBlock = array[0..7] of Byte;

function EnCryptStr(aStr: AnsiString; aKey: AnsiString ): AnsiString;
function DeCryptStr(aStr: AnsiString; aKey: AnsiString ): AnsiString;

function EnCrypt(in_buf:Tblock; aKey: AnsiString = '19711203'): Tblock;
function DeCrypt(in_buf:Tblock; aKey: AnsiString = '19711203'): Tblock;
procedure EnCryptFile(infile,outfile: AnsiString; aKey: AnsiString );
procedure DECryptFile(infile,outfile: AnsiString; aKey: AnsiString );

implementation

const
SA1: TSData =
(1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1,
   0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1);
SA2: TSData =
(1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0,
   0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1);
SA3: TSData =
(1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0,
   1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1);
SA4: TSData =
(0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1,
   1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1);
SA5: TSData =
(0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0,
   0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0);
SA6: TSData =
(1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1,
   1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1);
SA7: TSData =
(0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
   0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1);
SA8: TSData =
(1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0,
   0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1);
SB1: TSData =
(1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0,
   1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1);
SB2: TSData =
(1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1,
   0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0);
SB3: TSData =
(0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0,
   1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1);
SB4: TSData =
(1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0,
   0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1);
SB5: TSData =
(0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1,
   1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0);
SB6: TSData =
(1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0,
   0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1);
SB7: TSData =
(1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1,
   0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1);
SB8: TSData =
(1, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0,
   1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0);
SC1: TSData =
(1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0,
   0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0);
SC2: TSData =
(1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0,
   0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0);
SC3: TSData =
(1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0,
   0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0);
SC4: TSData =
(1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0,
   1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1);
SC5: TSData =
(1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1,
   0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1);
SC6: TSData =
(0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0,
   0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0);
SC7: TSData =
(0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1,
   0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0);
SC8: TSData =
(0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1,
   1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1);
SD1: TSData =
(0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0,
   0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1);
SD2: TSData =
(1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1,
   0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1);
SD3: TSData =
(0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1,
   1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0);
SD4: TSData =
(1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1,
   0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0);
SD5: TSData =
(0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0,
   0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1);
SD6: TSData =
(0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0,
   1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1);
SD7: TSData =
(0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0,
   1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0);
SD8: TSData =
(1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0,
   1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1);

Sc: array[1..16, 1..48] of Byte =
((15, 18, 12, 25, 2, 6, 4, 1, 16, 7, 22, 11, 24, 20, 13, 5, 27, 9, 17, 8, 28, 21, 14, 3,
   42, 53, 32, 38, 48, 56, 31, 41, 52, 46, 34, 49, 45, 50, 40, 29, 35, 54, 47, 43, 51, 37, 30, 33),
   (16, 19, 13, 26, 3, 7, 5, 2, 17, 8, 23, 12, 25, 21, 14, 6, 28, 10, 18, 9, 1, 22, 15, 4,
   43, 54, 33, 39, 49, 29, 32, 42, 53, 47, 35, 50, 46, 51, 41, 30, 36, 55, 48, 44, 52, 38, 31, 34),
   (18, 21, 15, 28, 5, 9, 7, 4, 19, 10, 25, 14, 27, 23, 16, 8, 2, 12, 20, 11, 3, 24, 17, 6,
   45, 56, 35, 41, 51, 31, 34, 44, 55, 49, 37, 52, 48, 53, 43, 32, 38, 29, 50, 46, 54, 40, 33, 36),
   (20, 23, 17, 2, 7, 11, 9, 6, 21, 12, 27, 16, 1, 25, 18, 10, 4, 14, 22, 13, 5, 26, 19, 8,
   47, 30, 37, 43, 53, 33, 36, 46, 29, 51, 39, 54, 50, 55, 45, 34, 40, 31, 52, 48, 56, 42, 35, 38),
   (22, 25, 19, 4, 9, 13, 11, 8, 23, 14, 1, 18, 3, 27, 20, 12, 6, 16, 24, 15, 7, 28, 21, 10,
   49, 32, 39, 45, 55, 35, 38, 48, 31, 53, 41, 56, 52, 29, 47, 36, 42, 33, 54, 50, 30, 44, 37, 40),
   (24, 27, 21, 6, 11, 15, 13, 10, 25, 16, 3, 20, 5, 1, 22, 14, 8, 18, 26, 17, 9, 2, 23, 12,
   51, 34, 41, 47, 29, 37, 40, 50, 33, 55, 43, 30, 54, 31, 49, 38, 44, 35, 56, 52, 32, 46, 39, 42),
   (26, 1, 23, 8, 13, 17, 15, 12, 27, 18, 5, 22, 7, 3, 24, 16, 10, 20, 28, 19, 11, 4, 25, 14,
   53, 36, 43, 49, 31, 39, 42, 52, 35, 29, 45, 32, 56, 33, 51, 40, 46, 37, 30, 54, 34, 48, 41, 44),
   (28, 3, 25, 10, 15, 19, 17, 14, 1, 20, 7, 24, 9, 5, 26, 18, 12, 22, 2, 21, 13, 6, 27, 16,
   55, 38, 45, 51, 33, 41, 44, 54, 37, 31, 47, 34, 30, 35, 53, 42, 48, 39, 32, 56, 36, 50, 43, 46),
   (1, 4, 26, 11, 16, 20, 18, 15, 2, 21, 8, 25, 10, 6, 27, 19, 13, 23, 3, 22, 14, 7, 28, 17,
   56, 39, 46, 52, 34, 42, 45, 55, 38, 32, 48, 35, 31, 36, 54, 43, 49, 40, 33, 29, 37, 51, 44, 47),
   (3, 6, 28, 13, 18, 22, 20, 17, 4, 23, 10, 27, 12, 8, 1, 21, 15, 25, 5, 24, 16, 9, 2, 19,
   30, 41, 48, 54, 36, 44, 47, 29, 40, 34, 50, 37, 33, 38, 56, 45, 51, 42, 35, 31, 39, 53, 46, 49),
   (5, 8, 2, 15, 20, 24, 22, 19, 6, 25, 12, 1, 14, 10, 3, 23, 17, 27, 7, 26, 18, 11, 4, 21,
   32, 43, 50, 56, 38, 46, 49, 31, 42, 36, 52, 39, 35, 40, 30, 47, 53, 44, 37, 33, 41, 55, 48, 51),
   (7, 10, 4, 17, 22, 26, 24, 21, 8, 27, 14, 3, 16, 12, 5, 25, 19, 1, 9, 28, 20, 13, 6, 23,
   34, 45, 52, 30, 40, 48, 51, 33, 44, 38, 54, 41, 37, 42, 32, 49, 55, 46, 39, 35, 43, 29, 50, 53),
   (9, 12, 6, 19, 24, 28, 26, 23, 10, 1, 16, 5, 18, 14, 7, 27, 21, 3, 11, 2, 22, 15, 8, 25,
   36, 47, 54, 32, 42, 50, 53, 35, 46, 40, 56, 43, 39, 44, 34, 51, 29, 48, 41, 37, 45, 31, 52, 55),
   (11, 14, 8, 21, 26, 2, 28, 25, 12, 3, 18, 7, 20, 16, 9, 1, 23, 5, 13, 4, 24, 17, 10, 27,
   38, 49, 56, 34, 44, 52, 55, 37, 48, 42, 30, 45, 41, 46, 36, 53, 31, 50, 43, 39, 47, 33, 54, 29),
   (13, 16, 10, 23, 28, 4, 2, 27, 14, 5, 20, 9, 22, 18, 11, 3, 25, 7, 15, 6, 26, 19, 12, 1,
   40, 51, 30, 36, 46, 54, 29, 39, 50, 44, 32, 47, 43, 48, 38, 55, 33, 52, 45, 41, 49, 35, 56, 31),
   (14, 17, 11, 24, 1, 5, 3, 28, 15, 6, 21, 10, 23, 19, 12, 4, 26, 8, 16, 7, 27, 20, 13, 2,
   41, 52, 31, 37, 47, 55, 30, 40, 51, 45, 33, 48, 44, 49, 39, 56, 34, 53, 46, 42, 50, 36, 29, 32));

var
G: array[1..16, 1..48] of Byte;
L, R, F: TByte32;
C: array[1..56] of Byte;

//对转换后的密码进行置换
procedure DES_Init(Key: TBlock; FCode: Boolean);
var
n, h: Byte;
begin
C[1] := Ord(Key[7] and 128 > 0); C[29] := Ord(Key[7] and 2 > 0);
C[2] := Ord(Key[6] and 128 > 0); C[30] := Ord(Key[6] and 2 > 0);
C[3] := Ord(Key[5] and 128 > 0); C[31] := Ord(Key[5] and 2 > 0);
C[4] := Ord(Key[4] and 128 > 0); C[32] := Ord(Key[4] and 2 > 0);
C[5] := Ord(Key[3] and 128 > 0); C[33] := Ord(Key[3] and 2 > 0);
C[6] := Ord(Key[2] and 128 > 0); C[34] := Ord(Key[2] and 2 > 0);
C[7] := Ord(Key[1] and 128 > 0); C[35] := Ord(Key[1] and 2 > 0);
C[8] := Ord(Key[0] and 128 > 0); C[36] := Ord(Key[0] and 2 > 0);

C[9] := Ord(Key[7] and 64 > 0); C[37] := Ord(Key[7] and 4 > 0);
C[10] := Ord(Key[6] and 64 > 0); C[38] := Ord(Key[6] and 4 > 0);
C[11] := Ord(Key[5] and 64 > 0); C[39] := Ord(Key[5] and 4 > 0);
C[12] := Ord(Key[4] and 64 > 0); C[40] := Ord(Key[4] and 4 > 0);
C[13] := Ord(Key[3] and 64 > 0); C[41] := Ord(Key[3] and 4 > 0);
C[14] := Ord(Key[2] and 64 > 0); C[42] := Ord(Key[2] and 4 > 0);
C[15] := Ord(Key[1] and 64 > 0); C[43] := Ord(Key[1] and 4 > 0);
C[16] := Ord(Key[0] and 64 > 0); C[44] := Ord(Key[0] and 4 > 0);

C[17] := Ord(Key[7] and 32 > 0); C[45] := Ord(Key[7] and 8 > 0);
C[18] := Ord(Key[6] and 32 > 0); C[46] := Ord(Key[6] and 8 > 0);
C[19] := Ord(Key[5] and 32 > 0); C[47] := Ord(Key[5] and 8 > 0);
C[20] := Ord(Key[4] and 32 > 0); C[48] := Ord(Key[4] and 8 > 0);
C[21] := Ord(Key[3] and 32 > 0); C[49] := Ord(Key[3] and 8 > 0);
C[22] := Ord(Key[2] and 32 > 0); C[50] := Ord(Key[2] and 8 > 0);
C[23] := Ord(Key[1] and 32 > 0); C[51] := Ord(Key[1] and 8 > 0);
C[24] := Ord(Key[0] and 32 > 0); C[52] := Ord(Key[0] and 8 > 0);

C[25] := Ord(Key[7] and 16 > 0); C[53] := Ord(Key[3] and 16 > 0);
C[26] := Ord(Key[6] and 16 > 0); C[54] := Ord(Key[2] and 16 > 0);
C[27] := Ord(Key[5] and 16 > 0); C[55] := Ord(Key[1] and 16 > 0);
C[28] := Ord(Key[4] and 16 > 0); C[56] := Ord(Key[0] and 16 > 0);

if FCode then
   begin
   for n := 1 to 16 do
     begin
     for h := 1 to 48 do
       begin
       G[n, h] := C[Sc[n, h]];
       end;
     end;
   end
else
   begin
   for n := 1 to 16 do
     begin
     for h := 1 to 48 do
       begin
       G[17 - n, h] := C[Sc[n, h]];
       end;
     end;
   end;
end;

//对输入的8字节数据加密/解密
procedure DES_Code(Input: TBlock; var Output: TBlock);
var
n: Byte;
z: Word;
begin
L[1] := Ord(Input[7] and 64 > 0); R[1] := Ord(Input[7] and 128 > 0);
L[2] := Ord(Input[6] and 64 > 0); R[2] := Ord(Input[6] and 128 > 0);
L[3] := Ord(Input[5] and 64 > 0); R[3] := Ord(Input[5] and 128 > 0);
L[4] := Ord(Input[4] and 64 > 0); R[4] := Ord(Input[4] and 128 > 0);
L[5] := Ord(Input[3] and 64 > 0); R[5] := Ord(Input[3] and 128 > 0);
L[6] := Ord(Input[2] and 64 > 0); R[6] := Ord(Input[2] and 128 > 0);
L[7] := Ord(Input[1] and 64 > 0); R[7] := Ord(Input[1] and 128 > 0);
L[8] := Ord(Input[0] and 64 > 0); R[8] := Ord(Input[0] and 128 > 0);
L[9] := Ord(Input[7] and 16 > 0); R[9] := Ord(Input[7] and 32 > 0);
L[10] := Ord(Input[6] and 16 > 0); R[10] := Ord(Input[6] and 32 > 0);
L[11] := Ord(Input[5] and 16 > 0); R[11] := Ord(Input[5] and 32 > 0);
L[12] := Ord(Input[4] and 16 > 0); R[12] := Ord(Input[4] and 32 > 0);
L[13] := Ord(Input[3] and 16 > 0); R[13] := Ord(Input[3] and 32 > 0);
L[14] := Ord(Input[2] and 16 > 0); R[14] := Ord(Input[2] and 32 > 0);
L[15] := Ord(Input[1] and 16 > 0); R[15] := Ord(Input[1] and 32 > 0);
L[16] := Ord(Input[0] and 16 > 0); R[16] := Ord(Input[0] and 32 > 0);
L[17] := Ord(Input[7] and 4 > 0); R[17] := Ord(Input[7] and 8 > 0);
L[18] := Ord(Input[6] and 4 > 0); R[18] := Ord(Input[6] and 8 > 0);
L[19] := Ord(Input[5] and 4 > 0); R[19] := Ord(Input[5] and 8 > 0);
L[20] := Ord(Input[4] and 4 > 0); R[20] := Ord(Input[4] and 8 > 0);
L[21] := Ord(Input[3] and 4 > 0); R[21] := Ord(Input[3] and 8 > 0);
L[22] := Ord(Input[2] and 4 > 0); R[22] := Ord(Input[2] and 8 > 0);
L[23] := Ord(Input[1] and 4 > 0); R[23] := Ord(Input[1] and 8 > 0);
L[24] := Ord(Input[0] and 4 > 0); R[24] := Ord(Input[0] and 8 > 0);
L[25] := Input[7] and 1;           R[25] := Ord(Input[7] and 2 > 0);
L[26] := Input[6] and 1;           R[26] := Ord(Input[6] and 2 > 0);
L[27] := Input[5] and 1;           R[27] := Ord(Input[5] and 2 > 0);
L[28] := Input[4] and 1;           R[28] := Ord(Input[4] and 2 > 0);
L[29] := Input[3] and 1;           R[29] := Ord(Input[3] and 2 > 0);
L[30] := Input[2] and 1;           R[30] := Ord(Input[2] and 2 > 0);
L[31] := Input[1] and 1;           R[31] := Ord(Input[1] and 2 > 0);
L[32] := Input[0] and 1;           R[32] := Ord(Input[0] and 2 > 0);

for n := 1 to 16 do
   begin
   z := ((R[32] xor G[n, 1]) shl 5) or ((R[5] xor G[n, 6]) shl 4)
     or ((R[ 1] xor G[n, 2]) shl 3) or ((R[2] xor G[n, 3]) shl 2)
     or ((R[ 3] xor G[n, 4]) shl 1) or ( R[4] xor G[n, 5]);
   F[ 9] := L[ 9] xor SA1[z];
   F[17] := L[17] xor SB1[z];
   F[23] := L[23] xor SC1[z];
   F[31] := L[31] xor SD1[z];

   z := ((R[4] xor G[n, 7]) shl 5) or ((R[9] xor G[n, 12]) shl 4)
     or ((R[5] xor G[n, 8]) shl 3) or ((R[6] xor G[n, 9]) shl 2)
     or ((R[7] xor G[n, 10]) shl 1) or ( R[8] xor G[n, 11]);
   F[13] := L[13] xor SA2[z];
   F[28] := L[28] xor SB2[z];
   F[ 2] := L[ 2] xor SC2[z];
   F[18] := L[18] xor SD2[z];

   z := ((R[ 8] xor G[n, 13]) shl 5) or ((R[13] xor G[n, 18]) shl 4)
     or ((R[ 9] xor G[n, 14]) shl 3) or ((R[10] xor G[n, 15]) shl 2)
     or ((R[11] xor G[n, 16]) shl 1) or ( R[12] xor G[n, 17]);
   F[24] := L[24] xor SA3[z];
   F[16] := L[16] xor SB3[z];
   F[30] := L[30] xor SC3[z];
   F[ 6] := L[ 6] xor SD3[z];

   z := ((R[12] xor G[n, 19]) shl 5) or ((R[17] xor G[n, 24]) shl 4)
     or ((R[13] xor G[n, 20]) shl 3) or ((R[14] xor G[n, 21]) shl 2)
     or ((R[15] xor G[n, 22]) shl 1) or ( R[16] xor G[n, 23]);
   F[26] := L[26] xor SA4[z];
   F[20] := L[20] xor SB4[z];
   F[10] := L[10] xor SC4[z];
   F[ 1] := L[ 1] xor SD4[z];

   z := ((R[16] xor G[n, 25]) shl 5) or ((R[21] xor G[n, 30]) shl 4)
     or ((R[17] xor G[n, 26]) shl 3) or ((R[18] xor G[n, 27]) shl 2)
     or ((R[19] xor G[n, 28]) shl 1) or ( R[20] xor G[n, 29]);
   F[ 8] := L[ 8] xor SA5[z];
   F[14] := L[14] xor SB5[z];
   F[25] := L[25] xor SC5[z];
   F[ 3] := L[ 3] xor SD5[z];

   z := ((R[20] xor G[n, 31]) shl 5) or ((R[25] xor G[n, 36]) shl 4)
     or ((R[21] xor G[n, 32]) shl 3) or ((R[22] xor G[n, 33]) shl 2)
     or ((R[23] xor G[n, 34]) shl 1) or ( R[24] xor G[n, 35]);
   F[ 4] := L[ 4] xor SA6[z];
   F[29] := L[29] xor SB6[z];
   F[11] := L[11] xor SC6[z];
   F[19] := L[19] xor SD6[z];

   z := ((R[24] xor G[n, 37]) shl 5) or ((R[29] xor G[n, 42]) shl 4)
     or ((R[25] xor G[n, 38]) shl 3) or ((R[26] xor G[n, 39]) shl 2)
     or ((R[27] xor G[n, 40]) shl 1) or ( R[28] xor G[n, 41]);
   F[32] := L[32] xor SA7[z];
   F[12] := L[12] xor SB7[z];
   F[22] := L[22] xor SC7[z];
   F[ 7] := L[ 7] xor SD7[z];

   z := ((R[28] xor G[n, 43]) shl 5) or ((R[ 1] xor G[n, 48]) shl 4)
     or ((R[29] xor G[n, 44]) shl 3) or ((R[30] xor G[n, 45]) shl 2)
     or ((R[31] xor G[n, 46]) shl 1) or ( R[32] xor G[n, 47]);
   F[ 5] := L[ 5] xor SA8[z];
   F[27] := L[27] xor SB8[z];
   F[15] := L[15] xor SC8[z];
   F[21] := L[21] xor SD8[z];

   L := R;
   R := F;
   end;

Output[0] := (L[8] shl 7) or (R[8] shl 6) or (L[16] shl 5) or (R[16] shl 4)
   or (L[24] shl 3) or (R[24] shl 2) or (L[32] shl 1) or R[32];
Output[1] := (L[7] shl 7) or (R[7] shl 6) or (L[15] shl 5) or (R[15] shl 4)
   or (L[23] shl 3) or (R[23] shl 2) or (L[31] shl 1) or R[31];
Output[2] := (L[6] shl 7) or (R[6] shl 6) or (L[14] shl 5) or (R[14] shl 4)
   or (L[22] shl 3) or (R[22] shl 2) or (L[30] shl 1) or R[30];
Output[3] := (L[5] shl 7) or (R[5] shl 6) or (L[13] shl 5) or (R[13] shl 4)
   or (L[21] shl 3) or (R[21] shl 2) or (L[29] shl 1) or R[29];
Output[4] := (L[4] shl 7) or (R[4] shl 6) or (L[12] shl 5) or (R[12] shl 4)
   or (L[20] shl 3) or (R[20] shl 2) or (L[28] shl 1) or R[28];
Output[5] := (L[3] shl 7) or (R[3] shl 6) or (L[11] shl 5) or (R[11] shl 4)
   or (L[19] shl 3) or (R[19] shl 2) or (L[27] shl 1) or R[27];
Output[6] := (L[2] shl 7) or (R[2] shl 6) or (L[10] shl 5) or (R[10] shl 4)
   or (L[18] shl 3) or (R[18] shl 2) or (L[26] shl 1) or R[26];
Output[7] := (L[1] shl 7) or (R[1] shl 6) or (L[9] shl 5) or (R[9] shl 4)
   or (L[17] shl 3) or (R[17] shl 2) or (L[25] shl 1) or R[25];
end;

//把密码转换成8字节的数据
function StrToKey(aKey: AnsiString): TBlock;
var
Key : TBlock;
I   : Integer;
begin
FillChar(Key, SizeOf(TBlock), 0);
for I := 1 to Length(aKey) do
   begin
   Key[I mod SizeOf(TBlock)] := Key[I mod SizeOf(TBlock)] + Ord(aKey[I]);
   end;
result := Key;
end;

//加密8字节的数据
function EnCrypt(in_Buf: Tblock; aKey: AnsiString): TBlock;
var
WriteBuf: TBlock;
Key     : TBlock;
begin
try
   fillchar(writeBuf,8,0);
   Key := StrToKey(aKey);
   Des_Init(Key, True);
   Des_Code(in_buf, WriteBuf);
   result:=writebuf;
except
   fillchar(writeBuf,8,0);
   result:=writebuf;
end;
end;

//解密8字节的数据
function DeCrypt(in_buf: Tblock; aKey: AnsiString):Tblock;
var
WriteBuf : TBlock;
Key      : TBlock;
begin
try
   Key := StrToKey(aKey);
   Des_Init(Key, False);
   FillChar(WriteBuf, 8, 0);
   Des_Code(in_Buf, WriteBuf);
   result :=WriteBuf;
except
   FillChar(WriteBuf, 8, 0);
   result :=WriteBuf;
end;
end;

//加密字符串
function EnCryptStr(aStr: AnsiString; aKey: AnsiString): AnsiString;
var
ReadBuf : TBlock;
WriteBuf: TBlock;
Key     : TBlock;
Count   : Integer;
Offset : Integer;
I   : Integer;
S   : AnsiString;
begin
result := '';
Key := StrToKey(aKey);
Des_Init(Key, True);
Offset := 1;
Count := Length(aStr);
repeat
   S := Copy(aStr, Offset, 8);
   FillChar(ReadBuf, 8, 0);
   Move(S[1], ReadBuf, Length(S));
   Des_Code(ReadBuf, WriteBuf);
   for I := 0 to 7 do
     begin
       result := result + IntToHex(WriteBuf[I], 2);
     end;
   Offset := Offset + 8;
until Offset > ((Count+7) div 8) * 8;
end;

//解密字符串
function DeCryptStr(aStr: AnsiString; aKey: AnsiString): AnsiString;
var
ReadBuf,
WriteBuf : TBlock;
Key      : TBlock;
Offset : Integer;
Count   : Integer;
I        : Integer;
S        : AnsiString;
begin
try
   Key := StrToKey(aKey);
   Des_Init(Key, False);
   S := '';
   I := 1;
   repeat
     S := S + AnsiChar(Chr(StrToInt('$'+Copy(aStr, I, 2))));
     Inc(I, 2);
   until I > Length(aStr);
   //Result:=s;
   //Exit;
   Offset := 1;
   Count := Length(S);
   while Offset < ((Count+7) div 8 * 8) do
     begin
     FillChar(ReadBuf, 8, 0);
     Move(S[Offset], ReadBuf, 8);
     Des_Code(ReadBuf, WriteBuf);

     for I := 0 to 7 do
       begin
       result := result + AnsiChar(Chr(WriteBuf[I]));
       end;

     Offset := Offset + 8;
     end;
   result := StrPas(PAnsiChar(result));
except
   result := '';
end;
end;

//加密文件
procedure EnCryptFile(infile,outfile: AnsiString; aKey: AnsiString );
var
ReadBuf : TBlock;
WriteBuf: TBlock;
LEN,len1,len2,I:INTEGER;
ms1,ms2:Tmemorystream;
begin
if (infile='') or (outfile='') or (akey='') then exit;
try
   ms1:=Tmemorystream.Create;
   ms2:=Tmemorystream.Create;
   ms1.LoadFromFile(infile);
   //得到原始文件长度并按8的整数倍对齐
   len:=ms1.Size;
   len1 := ( len + 7 ) SHR 3; // 按 8Bytes(64bits) 对齐
   ms1.Size := len1 SHL 3;

   len2:=ms1.Size;
   ms1.Position:=0;
   len1:=len2 div 8;
   for i:=0 to len1-1 do
     begin
       ms1.Read(Readbuf,8);
       writebuf:=EnCrypt(readbuf,aKey);
       ms2.Write(writebuf,8);
     end;
   //保存原始文件长度
   ms2.Seek( 0, soFromEnd );
   ms2.Write( len, SizeOf( len) ); // 将原始大小记录在数据末
   ms2.SaveToFile(outfile);
   ms1.Free;
   ms2.Free;
except
   ms1.Free;
   ms2.Free;
end;
end;

//解密文件
procedure DeCryptFile(infile,outfile: AnsiString; aKey: AnsiString );
var
ReadBuf,
WriteBuf : TBlock;
LEN,len1,len2,I:INTEGER;
ms1,ms2:Tmemorystream;
begin
if (infile='') or (outfile='') or (akey='') then exit;
try
   //加密
   ms1:=Tmemorystream.Create;
   ms2:=Tmemorystream.Create;
   ms1.LoadFromFile(infile);
   //得到原始文件长度len
   len1 := SizeOf( len );
   ms1.Seek( -len1, soFromEnd ); // 取得原始大小
   ms1.Read( len, len1 );

   len1 := ms1.Size - len1;
   ms1.Size := len1;
   len1 := ( len1 + 7 ) SHR 3; // 按 8Bytes(64bits) 对齐
   If ( ms1.Size <> ( len1 SHL 3 ) ) Then
       Raise Exception.Create( 'Invalid data size!' );

   len1:=ms1.Size;
   len1:=len1 div 8;
   ms1.Position:=0;
   ms2.Position:=0;
   fillchar(readbuf,8,0);
   for i:=0 to len1-1 do
     begin
       ms1.Read(readbuf,8);
       writebuf:=DeCrypt(readbuf,aKey);
       ms2.Write(writebuf,8);
   end;
   ms2.SetSize(len);
   ms2.SaveToFile(outfile);
   ms1.Free;
   ms2.Free;
except
   ms1.Free;
   ms2.Free;
end;
end;

end.

Delphi保存字符串到文本文件龙门吹雪
Delphi保存字符串到文本文件，若指定文件不存在，则自动创建；保存字符串时采用累加形式。proceduremSaveToFile(constFileName:string;sts:string);varMyTextFile:TextFile;//定义变量MyTextFile为文本文件类型begin//(*步骤1，将文件变量与外部文件联系。相当于为外部文件找了个“替身”*)AssignFile(M
DOK系统重写 yujunl 生活感悟
经验的积累，往往有意想不到灵感，一直想重写DOK的系统，工作量的庞大，有心无力！二年之后，对系统的熟知，对DELPHI的熟知，一个晚上一个无意的操作，竟然解决了问题。达到我的理想。很是骄傲了一段时间，多少人多少年，都没有解决的问题，在我手里解决了！我是幸运的而已！并非比他们牛。但绝对比他们努力！
Delphi基本图像处理代码 comeoffbest Java
Delphi基本图像处理代码//浮雕procedureEmboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;vari,j,Gray,Azimuthvalue,R,G,B:integer;SrcRGB,SrcRGB1,SrcRGB2,DestRGB:pRGBTriple;beginfori:=0toSrcBmp.Height-1d
房产怎么利用Delphi发送销售短信乐讯通云通信 php 开发语言 java json
现在的房价价格并不是很稳定，因此在房价下降时，很多人都想出手买房。而开发商也想趁这个机会好好宣传自己的楼盘，所以，群发短信便成为了一个很好宣传手段，成本低，覆盖率高的特性，让群发短信在开发商之间广受好评。针对一些客户来说，通过群发短信可以实时知道自己倾向的楼盘的价格，在好的时机出手。支持免费对接试用：乐讯通PaaS平台找好用的短信平台,选择乐讯通,短信群发|短信平台|群发短信软件|群发短信平台|乐
VBto Converter代码转换工具最新V2.89版中游鱼原创 VB 补丁 .net microsoft vb6 代码转换
VBtoConverter代码转换工具最新V2.89版VBtoConverter是来自国外的一款简单实用，功能强大的VB6源代码转换工具。作为一款实用的编程工具软件，可以将MicrosoftVisualBasic6.0project（包括源代码）转换成MSVC++MFC,VC++.NET(CLR),VBNET,C#,J#,BorlandC++Builder,BorlandDelphi源代码文件。可
delphi fireDAC+SQLite 在多线程下笔记蝈蝈(GuoGuo) SQLite Delphi sqlite 笔记 jvm
sqlite1篇文章0订阅订阅专栏SQLite官方描述是支持多线程的，参考：UsingSQLiteInMulti-ThreadedApplicationsFIREDAC默认的threadsafe为2，要求是为每个线程单独建立一个连接，实际测试，应该是有且只能有一个连接。特别是主线程需要注意。在有DBGRID的情况下，多个连接会导致databaseislocked的错误。关于多线程的配置，官方文档描
[ v1.3 基本搞定 ] Delphi UDP + TCP 通信问题 holen DELPHI DELPHI
主体思路：先由管理机发UDP命令到客户端，客户端在获取主机IP后，再建立TCP连接，这样就不用手工去客户端设主机IP了，而且主机IP可随意变化。管理机（TCP服务端/UDP客户端）源码：unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,
java delphi 三层_DELPHI三层架构设计方案门田木 java delphi 三层
随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了，不喜欢举例子。大多数文章中都或多或少的讲到了三层架构。表示层，业务层，数据层。又把业务层再细分，分为外观服务层，主业务服务，及数据库库服务层。今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。业务层要与表示层尽量解藕，我的方法是：首先我们在中间层TLB_中定义一个接口IBusinessService,定
delphi 计算文件与当前时间差(天小时分钟秒) 强哥83 Delphi delphi integer
procedureTForm1.FormCreate(Sender:TObject);//窗体初始化variFileHandle:Integer;FileTime:TDateTime;Days:Integer;Hours:Integer;Minutes:Integer;Seconds:Integer;beginDataPath:=ExtractFilePath(paramstr(0))+'data
Delphi v11 安卓权限申请 pcplayer android Delphi
问题Delphi10.4的安卓权限申请代码，在Delphi11下面编译无法通过。原因原因是里面有几个变量类型的定义有所不同。procedureTDmBLE.RequestPermissionsResult(Sender:TObject;constAPermissions:TArray;constAGrantResults:TArray);上述代码是Delphi10.4的，里面有两个类型需要更改：1
C语言开发windows桌面程序,开发 windows 桌面软件，现在主流用什么技术？ weixin_39963465
桌面软件还是得win32,工具只有两个选择vc和delphi,不建议用.net,存在部署问题.还有大佬说桌面还是老老实实C#吧，看需求选择WPF或者Winforms或者干脆激进一点，直接上win10的UAP？另外我每天默念100遍，拿Web应付Windows的软件都去死吧，死干净点。这是作为用户的想法。拿web应付的多数吃内存是nativeapp的几倍甚至几十倍，对高dpi支持和新技术支持也差，再
linux的make和makefile 猪蹄手 linux 运维服务器
一.什么是make和makefilemakefile作用：一个工程中的源文件不计数，其按类型、功能、模块分别放在若干个目录中，makefile定义了一系列的规则来指定，哪些文件需要先编译，哪些文件需要后编译，哪些文件需要重新编译，甚至于进行更复杂的功能操作make作用:make是一个命令工具，是一个解释makefile中指令的命令工具，一般来说，大多数的IDE都有这个命令，比如：Delphi的ma
Delphi Web前端开发教程（9）：基于TMS WEB Core框架 xyzhan Delphi 前端 Delphi Web前端开发教程 TMS WEB Core WEB开发
3、RESTServers服务端(后端)框架REST服务端特点：-为远程资源提供一个RESTAPI接口。也可以为其他网络内容提供服务；-包括在DelphiEnterprise&Architect企业版和架构师版中的RAD服务器、DataSnap、WebBroker；-开源框架：DelphiMVCFramework、MARS-Curiosity、SynopsemORMotORM/SOA/MVCFra
【Delphi 基础知识 29】ListBox控件的详细使用南通DXZ 100天精通Delphi 开发语言
在Delphi中，TListBox是一个常用的控件，用于显示项目列表。以下是TListBox的一些常见用法：添加项目：使用ListBox.Items.Add方法可以向列表框中添加项目。例如：ListBox1.Items.Add('Item1');ListBox1.Items.Add('Item2');删除项目：使用ListBox.Items.Delete方法可以删除指定位置的项目。例如：ListB
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（动态数组） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
5.1.4动态数组在传统的Pascal中，数组的大小是固定的，并且在声明数据类型时限制了元素的数量。然而，ObjectPascal支持动态数组的直接和本地实现。注解：“直接实现动态数组”与使用指针和动态内存分配来获得类似效果的方法截然不同…后者代码非常复杂且容易出错。顺便说一句，动态数组是大多数现代编程语言中唯一的一种结构形式。动态数组是动态分配的，并进行引用计数（使得参数传递更快，因为只传递引用
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（静态数组） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
第5章数组与记录我在第二章介绍数据类型时，提到了ObjectPascal中既有内置数据类型又有自定义数据类型。自定义数据类型的一个简单示例是在该章节中介绍的枚举类型。自定义类型的真正强大体现在更高级的机制中，比如数组、记录和类。在本章中，我将讲述前两个机制，基本上它们的存在可以追溯到Pascal的早期定义，但经过多年的改变（现在变得更加强大），它们与早期同名的定义类型几乎没有相似之处。在本章末尾，
(delphi11最新学习资料) Object Pascal 学习笔记---第5章第1节（开放式数组形参） langfengyl Object Pascal Handbook 学习笔记 delphi delphi11 Object Pascal
5.1.5开放式数组形参对于数组的使用有一个非常特殊的场景，即用于向函数传递一个灵活的参数列表。除了直接传递数组外，本节和下一节还将解释两种特殊的语法约定。在上一段代码中的Format函数就是一个使用了这种约定的函数，它的第二个参数接受一个就地定义的数组值。与C语言（以及其他一些基于C语法的语言）不同，在传统的Pascal语言中，函数或过程总是有固定数量的参数。然而，在ObjectPascal中，
delphi cef3 获取浏览器成员变量过路客甲乙 delphi c++
delphicef3获取成员变量。新版本可以运行老版本无法运行。报错E2009Incompatibletypes:'methodpointerandregularprocedure'解决办法：GlobalCEFApp.OnProcessMessageReceived：=RenderProcessHandler_OnProcessMessageReceivedEvent;把全局方法修改为类方法Glo
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第3节（内联函数） langfengyl Object Pascal Handbook 学习笔记 delphi Object Pascal delphi11
4.3内联在ObjectPascal中，内联函数和方法是一种低级语言特性，可以带来显著的优化效果。一般来说，当你调用一个方法时，编译器会生成一些代码，让你的程序跳转到一个新的执行点。这意味着要设置堆栈框架并进行一些操作，可能需要十几条机器指令。不过，你执行的方法可能非常简短，甚至可能是一个访问方法，只是设置或返回某个私有字段。在这种情况下，将实际代码复制到调用位置，避免堆栈帧设置和其他一切操作，是
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第2.6节（默认参数） langfengyl 学习笔记 delphi Object Pascal delphi11
4.2.6默认参数与重载相关的另一个特性是可以为函数的某些参数提供默认值，这样就可以在调用函数时可使用或不使用这些参数。如果调用中缺少参数，函数将使用默认值。让我举一个例子（仍然是OverloadTest示例的一部分）。我们可以定义以下Show调用的封装，提供两个默认参数：procedureNewMessage(Msg:string;Caption:string='Message';Separat
(delphi11最新学习资料) Object Pascal 学习笔记---第4章第4节（函数的高级特性） langfengyl Object Pascal Handbook 学习笔记 delphi Object Pascal delphi11
4.4函数的高级特性到目前为止，我已经介绍了与函数相关的核心功能，但还有一些高级功能值得探索。不过，如果你确实是软件开发方面的新手，你可能会想暂时跳过本章的其余部分，转到下一章。4.4.1ObjectPascal的调用约定每当你的代码需要调用函数时，双方需要就参数从调用者传递给被调用者的实际方式达成一致，这就是所谓的调用约定。一般来说，函数调用是通过堆栈内存区域传递参数（并期望返回值）。不过，参数
用 Delphi 程序调用 Python 代码画曲线图 -- 数据来自 Delphi 程序 pcplayer python 开发语言 Delphi
接本博客上一篇文章，使用Python的matplotlib库画曲线。上次是为了实现调用该库，数据是直接写死在Python代码里面的。代码是这一行：squares=[1,4,9,16,25];既然是Delphi调用Python的库，数据应该是Delphi的程序传递给Python的代码，然后Python的代码利用Python库把图画出来。比如，数据可能来自数据库。做数据库编程，Delphi非常擅长啊。
用 Delphi 程序调用 Python 代码画曲线图 pcplayer python 开发语言 Delphi
用Python的库画图Python代码如下：importmatplotlib.pyplotaspltsquares=[1,4,9,16,25];plt.plot(squares);plt.grid(True)#网格线plt.show();#这句话会弹出个窗口出来，里面是上述数据的曲线。把以上代码，放进PyScripter这个Python的开发工具IDE里面，点三角形小箭头图标（Run按钮），或者按
Python4Delphi: 使用Delphi代码调用Python代码里面的类 pcplayer python 开发语言 Delphi
书接上回。上一篇我写了如何用Delphi代码调用Python代码里面的函数。这一篇如题。问题：假设有一个Python的开源代码，里面有一个类，比较复杂，它有比较复杂的算法，刚好我们在写Delphi程序的时候需要。如何用Delphi直接调用这个类，使用它的算法？Python代码如下：classMyPerson:def__init__(self,FirstName,LastName):self.MyF
Delphi 程序直接调用 Python 的函数 pcplayer python 开发语言
在本系列的第一篇博客文章：Delphi程序员初学Python笔记-CSDN博客在这篇文章里面，我提到，一个Python的函数，我用Delphi无法直接调用它，所以我对它做了一个Python的包装。原因是，那是我第一次学习使用Python4Delphi这个控件。那时候要执行Python代码，我只会使用PythonEngine1.ExecStrings(Python代码)这样的方式。这样做，就是在De
delphi cppUncleSix
收到邀请，要求用Delphi做Android的App，郁闷之极，这些老外为啥总要我做不熟悉的东西呢。既然这样，做为"全能"的软件工程师，我就现学现用，看看能不能一两个小时学会，网上百度了一下，资料少，中国人都不用delphi了呢？这么强，这么高效的工具，可惜了。自己研究了一下，看上去用delphi做Android的App还是很简单高效的。好东西为我所用，若客户没有特别指定什么工具，我以后就用Del
IT技术人员必须不断学习新的专业技术华西建筑关联专业公司华鲲智慧学习程序人生创业创新自动化物联网人工智能
IT技术人员从业后可以说有很多专业的技术，需要你不断地学习，不断地打破自己原来的技术藩篱，学习全新的专业技术。小编是一个70后的程序员，我们大学时候学的编程语言现在很多人听都没有听说过，更别说用过，像VF\汇编\PASCAL等。刚参加工作的时候跟着同事在项目开发测试过程中学习了VB，工作四年后开始创业，又全新学习了PB和Delphi。可开发的C/S版管理软件还没有推出几年，发现友商更多地推出了基于
动态添加DevExpress 套件中 dxBar的菜单项目 flexitime function delphi insert integer button blog
WrittenbyflexitimePS:有鉴于几位热心网友的意见，所以还是决定写一下一些技术相关的BLOG，并希望能有网友不吝赐教DevExpress是一个十分有名的Delphi控件套装，这个套件很多时候都是带有原码的，而我这篇文章正如题目所述的问题，是研究在dxBar中动态添加菜单。其实要完成这件事情并不困难，只是几行代码就说明问题了，但为什么要写这篇文章呢，主要的目的在于说明如何在没有其它资
从技术开始-企业内部信息化架构演变 wangbing1125 云计算
回顾下历史。整个过程，在下都经历了。foxbase，标准C，VB，Delphi，VC，C#到VUE+JAVA现在各企业内部信息化架构大多在1.0和2.0之间现在都在嚷嚷数字化转型，老实讲，我搞不懂专家讲的那些东西，甚至弄不清信息化、数字化到底有啥区别。我搞了20多年的信息系统，难道不是数字化的？有一点大家到是共识，就是现在这种架构不能满足需求了，得改。1、用户是单点登录了，但是授权还是各自系统再做
_di_ILanguageEnumerable - C++ Builder 玄坴
C++Builder参考手册➙System::Sysutils➙_di_ILanguageEnumerable头文件：#include命名空间：System::Sysutils类型定义：typedefSystem::DelphiInterface_di_ILanguageEnumerable;ILanguageEnumerable智能接口指针，函数PreferredUILanguageList的返
springmvc 下 freemarker页面枚举的遍历输出杨白白 enum freemarker
spring mvc freemarker 中遍历枚举 1枚举类型有一个本地方法叫values（），这个方法可以直接返回枚举数组。所以可以利用这个遍历。 enum public enum BooleanEnum { TRUE(Boolean.TRUE, "是"), FALSE(Boolean.FALSE, "否");
实习简要总结 byalias 工作
来白虹不知不觉中已经一个多月了，因为项目还在需求分析及项目架构阶段，自己在这段时间都是在学习相关技术知识，现在对这段时间的工作及学习情况做一个总结：（1）工作技能方面大体分为两个阶段，Java Web 基础阶段和Java EE阶段 1）Java Web阶段在这个阶段，自己主要着重学习了 JSP, Servlet, JDBC, MySQL，这些知识的核心点都过了一遍，也
Quartz——DateIntervalTrigger触发器 eksliang quartz
转载请出自出处：http://eksliang.iteye.com/blog/2208559 一.概述 simpleTrigger 内部实现机制是通过计算间隔时间来计算下次的执行时间，这就导致他有不适合调度的定时任务。例如我们想每天的 1：00AM 执行任务，如果使用 SimpleTrigger，间隔时间就是一天。注意这里就会有一个问题，即当有 misfired 的任务并且恢复执行时，该执行时间
Unix快捷键 18289753290 unix Unix；快捷键;
复制，删除，粘贴： dd:删除光标所在的行 &nbs
获取Android设备屏幕的相关参数酷的飞上天空 android
包含屏幕的分辨率以及屏幕宽度的最大dp 高度最大dp TextView text = (TextView)findViewById(R.id.text); DisplayMetrics dm = new DisplayMetrics(); text.append("getResources().ge
要做物联网？先保护好你的数据蓝儿唯美数据
根据Beecham Research的说法，那些在行业中希望利用物联网的关键领域需要提供更好的安全性。在Beecham的物联网安全威胁图谱上，展示了那些可能产生内外部攻击并且需要通过快速发展的物联网行业加以解决的关键领域。 Beecham Research的技术主管Jon Howes说：“之所以我们目前还没有看到与物联网相关的严重安全事件，是因为目前还没有在大型客户和企业应用中进行部署，也就
Java取模（求余）运算随便小屋 java
整数之间的取模求余运算很好求，但几乎没有遇到过对负数进行取模求余，直接看下面代码： /** * * @author Logic * */ public class Test { public static void main(String[] args) { // TODO A
SQL注入介绍 aijuans sql注入
二、SQL注入范例这里我们根据用户登录页面 <form action="" > 用户名：<input type="text" name="username"><br/> 密码：<input type="password" name="passwor
优雅代码风格 aoyouzi 代码
总结了几点关于优雅代码风格的描述：代码简单：不隐藏设计者的意图，抽象干净利落，控制语句直截了当。接口清晰：类型接口表现力直白，字面表达含义，API 相互呼应以增强可测试性。依赖项少：依赖关系越少越好，依赖少证明内聚程度高，低耦合利于自动测试，便于重构。没有重复：重复代码意味着某些概念或想法没有在代码中良好的体现，及时重构消除重复。战术分层：代码分层清晰，隔离明确，
布尔数组百合不是茶 java 布尔数组
androi中提到了布尔数组; 布尔数组默认的是false, 并且只会打印false或者是true 布尔数组的例子; 根据字符数组创建布尔数组 char[] c = {'p','u','b','l','i','c'}; //根据字符数组的长度创建布尔数组的个数 boolean[] b = new bool
web.xml之welcome-file-list、error-page bijian1013 java web.xml servlet error-page
welcome-file-list 1.定义： <welcome-file-list> <welcome-file>login.jsp</welcome> </welcome-file-list> 2.作用：用来指定WEB应用首页名称。 error-page1.定义： <error-page&g
richfaces 4 fileUpload组件删除上传的文件 sunjing clear Richfaces 4 fileupload
页面代码 <h:form id="fileForm"> <rich:
技术文章备忘 bit1129 技术文章
Zookeeper http://wenku.baidu.com/view/bab171ffaef8941ea76e05b8.html http://wenku.baidu.com/link?url=8thAIwFTnPh2KL2b0p1V7XSgmF9ZEFgw4V_MkIpA9j8BX2rDQMPgK5l3wcs9oBTxeekOnm5P3BK8c6K2DWynq9nfUCkRlTt9uV
org.hibernate.hql.ast.QuerySyntaxException: unexpected token: on near line 1解决方案白糖_ Hibernate
文章摘自：http://blog.csdn.net/yangwawa19870921/article/details/7553181 在编写HQL时，可能会出现这种代码： select a.name,b.age from TableA a left join TableB b on a.id=b.id 如果这是HQL，那么这段代码就是错误的，因为HQL不支持
sqlserver按照字段内容进行排序 bozch 按照内容排序
在做项目的时候，遇到了这样的一个需求：从数据库中取出的数据集，首先要将某个数据或者多个数据按照地段内容放到前面显示，例如:从学生表中取出姓李的放到数据集的前面； select * fro
编程珠玑-第一章-位图排序 bylijinnan java 编程珠玑
import java.io.BufferedWriter; import java.io.File; import java.io.FileWriter; import java.io.IOException; import java.io.Writer; import java.util.Random; public class BitMapSearch {
Java关于==和equals chenbowen00 java
关于==和equals概念其实很简单，一个是比较内存地址是否相同，一个比较的是值内容是否相同。虽然理解上不难，但是有时存在一些理解误区，如下情况： 1、 String a = "aaa"; a=="aaa"; ==> true 2、 new String("aaa")==new String("aaa
[IT与资本]软件行业需对外界投资热情保持警惕 comsci it
我还是那个看法,软件行业需要增强内生动力,尽量依靠自有资金和营业收入来进行经营,避免在资本市场上经受各种不同类型的风险,为企业自主研发核心技术和产品提供稳定,温和的外部环境... 如果我们在自己尚未掌握核心技术之前,企图依靠上市来筹集资金,然后使劲往某个领域砸钱,然
oracle 数据块结构 daizj oracle 块数据块块结构行目录
oracle 数据块是数据库存储的最小单位，一般为操作系统块的N倍。其结构为：块头－－〉空行－－〉数据，其实际为纵行结构。块的标准大小由初始化参数DB_BLOCK_SIZE指定。具有标准大小的块称为标准块（Standard Block）。块的大小和标准块的大小不同的块叫非标准块（Nonstandard Block）。同一数据库中，Oracle9i及以上版本支持同一数据库中同时使用标
github上一些觉得对自己工作有用的项目收集 dengkane github
github上一些觉得对自己工作有用的项目收集技能类 markdown语法中文说明回到顶部全文检索 elasticsearch bigdesk elasticsearch管理插件回到顶部 nosql mapdb 支持亿级别map, list, 支持事务. 可考虑做为缓存使用 C
初二上学期难记单词二 dcj3sjt126com english word
dangerous 危险的 panda 熊猫 lion 狮子 elephant 象 monkey 猴子 tiger 老虎 deer 鹿 snake 蛇 rabbit 兔子 duck 鸭 horse 马 forest 森林 fall 跌倒；落下 climb 爬；攀登 finish 完成；结束 cinema 电影院；电影 seafood 海鲜；海产食品 bank 银行
8、mysql外键(FOREIGN KEY)的简单使用 dcj3sjt126com mysql
一、基本概念 1、MySQL中“键”和“索引”的定义相同，所以外键和主键一样也是索引的一种。不同的是MySQL会自动为所有表的主键进行索引，但是外键字段必须由用户进行明确的索引。用于外键关系的字段必须在所有的参照表中进行明确地索引，InnoDB不能自动地创建索引。 2、外键可以是一对一的，一个表的记录只能与另一个表的一条记录连接，或者是一对多的，一个表的记录与另一个表的多条记录连接。 3、如
java循环标签 Foreach shuizhaosi888 标签 java循环 foreach
1. 简单的for循环 public static void main(String[] args) { for (int i = 1, y = i + 10; i < 5 && y < 12; i++, y = i * 2) { System.err.println("i=" + i + " y="
Spring Security（05）——异常信息本地化 234390216 exception Spring Security 异常信息本地化
异常信息本地化 Spring Security支持将展现给终端用户看的异常信息本地化，这些信息包括认证失败、访问被拒绝等。而对于展现给开发者看的异常信息和日志信息（如配置错误）则是不能够进行本地化的，它们是以英文硬编码在Spring Security的代码中的。在Spring-Security-core-x
DUBBO架构服务端告警Failed to send message Response javamingtingzhao 架构 DUBBO
废话不多说，警告日志如下，不知道有哪位遇到过，此异常在服务端抛出(服务器启动第一次运行会有这个警告)，后续运行没问题，找了好久真心不知道哪里错了。 WARN 2015-07-18 22:31:15,272 com.alibaba.dubbo.remoting.transport.dispatcher.ChannelEventRunnable.run(84)
JS中Date对象中几个用法 leeqq JavaScript Date 最后一天
近来工作中遇到这样的两个需求 1. 给个Date对象，找出该时间所在月的第一天和最后一天 2. 给个Date对象，找出该时间所在周的第一天和最后一天需求1中的找月第一天很简单，我记得api中有setDate方法可以使用使用setDate方法前，先看看getDate var date = new Date(); console.log(date); // Sat J
MFC中使用ado技术操作数据库你不认识的休道人 sql mfc
1.在stdafx.h中导入ado动态链接库 #import"C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","end")2.在CTestApp文件的InitInstance()函数中domodal之前写::CoIniti
Android Studio加速 rensanning android studio
Android Studio慢、吃内存！启动时后会立即通过Gradle来sync & build工程。（1）设置Android Studio a) 禁用插件 File -> Settings... Plugins 去掉一些没有用的插件。比如：Git Integration、GitHub、Google Cloud Testing、Google Cloud
各数据库的批量Update操作 tomcat_oracle java oracle sql mysql sqlite
MyBatis的update元素的用法与insert元素基本相同，因此本篇不打算重复了。本篇仅记录批量update操作的 sql语句，懂得SQL语句，那么MyBatis部分的操作就简单了。　　注意：下列批量更新语句都是作为一个事务整体执行，要不全部成功，要不全部回滚。 MSSQL的SQL语句　WITH R AS（　　SELECT 'John' as name, 18 as
html禁止清除input文本输入缓存 xp9802 input
多数浏览器默认会缓存input的值，只有使用ctl+F5强制刷新的才可以清除缓存记录。如果不想让浏览器缓存input的值，有2种方法：方法一：在不想使用缓存的input中添加 autocomplete="off"; eg: <input type="text" autocomplete="off" name

支持Delphi2009/2010的DES加密单元

支持Delphi2009/2010的DES加密单元

你可能感兴趣的:(Delphi)