cipher1.inc

Delphi MsgCommunicator 2-10 component.I ve used, really good job. can be Server-Client message appl

    $1924FB98,$D697E9BD,$89CC4340,$67779ED9,$B0BD42E8,$07888B89,$E7385B19,$79DBEEC8,
    $A1470A7C,$7CE90F42,$F8C91E84,$00000000,$09838680,$3248ED2B,$1EAC7011,$6C4E725A,
    $FDFBFF0E,$0F563885,$3D1ED5AE,$3627392D,$0A64D90F,$6821A65C,$9BD1545B,$243A2E36,
    $0CB1670A,$930FE757,$B4D296EE,$1B9E919B,$804FC5C0,$61A220DC,$5A694B77,$1C161A12,
    $E20ABA93,$C0E52AA0,$3C43E022,$121D171B,$0E0B0D09,$F2ADC78B,$2DB9A8B6,$14C8A91E,
    $578519F1,$AF4C0775,$EEBBDD99,$A3FD607F,$F79F2601,$5CBCF572,$44C53B66,$5B347EFB,
    $8B762943,$CBDCC623,$B668FCED,$B863F1E4,$D7CADC31,$42108563,$13402297,$842011C6,
    $857D244A,$D2F83DBB,$AE1132F9,$C76DA129,$1D4B2F9E,$DCF330B2,$0DEC5286,$77D0E3C1,
    $2B6C16B3,$A999B970,$11FA4894,$472264E9,$A8C48CFC,$A01A3FF0,$56D82C7D,$22EF9033,
    $87C74E49,$D9C1D138,$8CFEA2CA,$98360BD4,$A6CF81F5,$A528DE7A,$DA268EB7,$3FA4BFAD,
    $2CE49D3A,$500D9278,$6A9BCC5F,$5462467E,$F6C2138D,$90E8B8D8,$2E5EF739,$82F5AFC3,
    $9FBE805D,$697C93D0,$6FA92DD5,$CFB31225,$C83B99AC,$10A77D18,$E86E639C,$DB7BBB3B,
    $CD097826,$6EF41859,$EC01B79A,$83A89A4F,$E6656E95,$AA7EE6FF,$2108CFBC,$EFE6E815,
    $BAD99BE7,$4ACE366F,$EAD4099F,$29D67CB0,$31AFB2A4,$2A31233F,$C63094A5,$35C066A2,
    $7437BC4E,$FCA6CA82,$E0B0D090,$3315D8A7,$F14A9804,$41F7DAEC,$7F0E50CD,$172FF691,
    $768DD64D,$434DB0EF,$CC544DAA,$E4DF0496,$9EE3B5D1,$4C1B886A,$C1B81F2C,$467F5165,
    $9D04EA5E,$015D358C,$FA737487,$FB2E410B,$B35A1D67,$9252D2DB,$E9335610,$6D1347D6,
    $9A8C61D7,$377A0CA1,$598E14F8,$EB893C13,$CEEE27A9,$B735C961,$E1EDE51C,$7A3CB147,
    $9C59DFD2,$553F73F2,$1879CE14,$73BF37C7,$53EACDF7,$5F5BAAFD,$DF146F3D,$7886DB44,
    $CA81F3AF,$B93EC468,$382C3424,$C25F40A3,$1672C31D,$BC0C25E2,$288B493C,$FF41950D,
    $397101A8,$08DEB30C,$D89CE4B4,$6490C156,$7B6184CB,$D570B632,$48745C6C,$D04257B8));

  Rijndael_Key: array[0..255] of LongWord = (
    $00000000,$0B0D090E,$161A121C,$1D171B12,$2C342438,$27392D36,$3A2E3624,$31233F2A,
    $58684870,$5365417E,$4E725A6C,$457F5362,$745C6C48,$7F516546,$62467E54,$694B775A,
    $B0D090E0,$BBDD99EE,$A6CA82FC,$ADC78BF2,$9CE4B4D8,$97E9BDD6,$8AFEA6C4,$81F3AFCA,
    $E8B8D890,$E3B5D19E,$FEA2CA8C,$F5AFC382,$C48CFCA8,$CF81F5A6,$D296EEB4,$D99BE7BA,
    $7BBB3BDB,$70B632D5,$6DA129C7,$66AC20C9,$578F1FE3,$5C8216ED,$41950DFF,$4A9804F1,
    $23D373AB,$28DE7AA5,$35C961B7,$3EC468B9,$0FE75793,$04EA5E9D,$19FD458F,$12F04C81,
    $CB6BAB3B,$C066A235,$DD71B927,$D67CB029,$E75F8F03,$EC52860D,$F1459D1F,$FA489411,
    $9303E34B,$980EEA45,$8519F157,$8E14F859,$BF37C773,$B43ACE7D,$A92DD56F,$A220DC61,
    $F66D76AD,$FD607FA3,$E07764B1,$EB7A6DBF,$DA595295,$D1545B9B,$CC434089,$C74E4987,
    $AE053EDD,$A50837D3,$B81F2CC1,$B31225CF,$82311AE5,$893C13EB,$942B08F9,$9F2601F7,
    $46BDE64D,$4DB0EF43,$50A7F451,$5BAAFD5F,$6A89C275,$6184CB7B,$7C93D069,$779ED967,
    $1ED5AE3D,$15D8A733,$08CFBC21,$03C2B52F,$32E18A05,$39EC830B,$24FB9819,$2FF69117,
    $8DD64D76,$86DB4478,$9BCC5F6A,$90C15664,$A1E2694E,$AAEF6040,$B7F87B52,$BCF5725C,
    $D5BE0506,$DEB30C08,$C3A4171A,$C8A91E14,$F98A213E,$F2872830,$EF903322,$E49D3A2C,
    $3D06DD96,$360BD498,$2B1CCF8A,$2011C684,$1132F9AE,$1A3FF0A0,$0728EBB2,$0C25E2BC,
    $656E95E6,$6E639CE8,$737487FA,$78798EF4,$495AB1DE,$4257B8D0,$5F40A3C2,$544DAACC,
    $F7DAEC41,$FCD7E54F,$E1C0FE5D,$EACDF753,$DBEEC879,$D0E3C177,$CDF4DA65,$C6F9D36B,
    $AFB2A431,$A4BFAD3F,$B9A8B62D,$B2A5BF23,$83868009,$888B8907,$959C9215,$9E919B1B,
    $470A7CA1,$4C0775AF,$51106EBD,$5A1D67B3,$6B3E5899,$60335197,$7D244A85,$7629438B,
    $1F6234D1,$146F3DDF,$097826CD,$02752FC3,$335610E9,$385B19E7,$254C02F5,$2E410BFB,
    $8C61D79A,$876CDE94,$9A7BC586,$9176CC88,$A055F3A2,$AB58FAAC,$B64FE1BE,$BD42E8B0,
    $D4099FEA,$DF0496E4,$C2138DF6,$C91E84F8,$F83DBBD2,$F330B2DC,$EE27A9CE,$E52AA0C0,
    $3CB1477A,$37BC4E74,$2AAB5566,$21A65C68,$10856342,$1B886A4C,$069F715E,$0D927850,
    $64D90F0A,$6FD40604,$72C31D16,$79CE1418,$48ED2B32,$43E0223C,$5EF7392E,$55FA3020,
    $01B79AEC,$0ABA93E2,$17AD88F0,$1CA081FE,$2D83BED4,$268EB7DA,$3B99ACC8,$3094A5C6,
    $59DFD29C,$52D2DB92,$4FC5C080,$44C8C98E,$75EBF6A4,$7EE6FFAA,$63F1E4B8,$68FCEDB6,
    $B1670A0C,$BA6A0302,$A77D1810,$AC70111E,$9D532E34,$965E273A,$8B493C28,$80443526,
    $E90F427C,$E2024B72,$FF155060,$F418596E,$C53B6644,$CE366F4A,$D3217458,$D82C7D56,
    $7A0CA137,$7101A839,$6C16B32B,$671BBA25,$5638850F,$5D358C01,$40229713,$4B2F9E1D,
    $2264E947,$2969E049,$347EFB5B,$3F73F255,$0E50CD7F,$055DC471,$184ADF63,$1347D66D,
    $CADC31D7,$C1D138D9,$DCC623CB,$D7CB2AC5,$E6E815EF,$EDE51CE1,$F0F207F3,$FBFF0EFD,
    $92B479A7,$99B970A9,$84AE6BBB,$8FA362B5,$BE805D9F,$B58D5491,$A89A4F83,$A397468D);


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

  DES_PC2: array[0..47] of Byte =
   (13, 16, 10, 23,  0,  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, 28, 31);

  DES_Data: array[0..7, 0..63] of LongWord = (
   ($00200000,$04200002,$04000802,$00000000,$00000800,$04000802,$00200802,$04200800,
    $04200802,$00200000,$00000000,$04000002,$00000002,$04000000,$04200002,$00000802,
    $04000800,$00200802,$00200002,$04000800,$04000002,$04200000,$04200800,$00200002,
    $04200000,$00000800,$00000802,$04200802,$00200800,$00000002,$04000000,$00200800,
    $04000000,$00200800,$00200000,$04000802,$04000802,$04200002,$04200002,$00000002,
    $00200002,$04000000,$04000800,$00200000,$04200800,$00000802,$00200802,$04200800,
    $00000802,$04000002,$04200802,$04200000,$00200800,$00000000,$00000002,$04200802,
    $00000000,$00200802,$04200000,$00000800,$04000002,$04000800,$00000800,$00200002),
   ($00000100,$02080100,$02080000,$42000100,$00080000,$00000100,$40000000,$02080000,
    $40080100,$00080000,$02000100,$40080100,$42000100,$42080000,$00080100,$40000000,
    $02000000,$40080000,$40080000,$00000000,$40000100,$42080100,$42080100,$02000100,
    $42080000,$40000100,$00000000,$42000000,$02080100,$02000000,$42000000,$00080100,
    $00080000,$42000100,$00000100,$02000000,$40000000,$02080000,$42000100,$40080100,
    $02000100,$40000000,$42080000,$02080100,$40080100,$00000100,$02000000,$42080000,
    $42080100,$00080100,$42000000,$42080100,$02080000,$00000000,$40080000,$42000000,
    $00080100,$02000100,$40000100,$00080000,$00000000,$40080000,$02080100,$40000100),
   ($00000208,$08020200,$00000000,$08020008,$08000200,$00000000,$00020208,$08000200,
    $00020008,$08000008,$08000008,$00020000,$08020208,$00020008,$08020000,$00000208,
    $08000000,$00000008,$08020200,$00000200,$00020200,$08020000,$08020008,$00020208,
    $08000208,$00020200,$00020000,$08000208,$00000008,$08020208,$00000200,$08000000,
    $08020200,$08000000,$00020008,$00000208,$00020000,$08020200,$08000200,$00000000,
    $00000200,$00020008,$08020208,$08000200,$08000008,$00000200,$00000000,$08020008,
    $08000208,$00020000,$08000000,$08020208,$00000008,$00020208,$00020200,$08000008,
    $08020000,$08000208,$00000208,$08020000,$00020208,$00000008,$08020008,$00020200),
   ($01010400,$00000000,$00010000,$01010404,$01010004,$00010404,$00000004,$00010000,
    $00000400,$01010400,$01010404,$00000400,$01000404,$01010004,$01000000,$00000004,
    $00000404,$01000400,$01000400,$00010400,$00010400,$01010000,$01010000,$01000404,
    $00010004,$01000004,$01000004,$00010004,$00000000,$00000404,$00010404,$01000000,
    $00010000,$01010404,$00000004,$01010000,$01010400,$01000000,$01000000,$00000400,
    $01010004,$00010000,$00010400,$01000004,$00000400,$00000004,$01000404,$00010404,
    $01010404,$00010004,$01010000,$01000404,$01000004,$00000404,$00010404,$01010400,
    $00000404,$01000400,$01000400,$00000000,$00010004,$00010400,$00000000,$01010004),
   ($10001040,$00001000,$00040000,$10041040,$10000000,$10001040,$00000040,$10000000,
    $00040040,$10040000,$10041040,$00041000,$10041000,$00041040,$00001000,$00000040,
    $10040000,$10000040,$10001000,$00001040,$00041000,$00040040,$10040040,$10041000,
    $00001040,$00000000,$00000000,$10040040,$10000040,$10001000,$00041040,$00040000,
    $00041040,$00040000,$10041000,$00001000,$00000040,$10040040,$00001000,$00041040,
    $10001000,$00000040,$10000040,$10040000,$10040040,$10000000,$00040000,$10001040,
    $00000000,$10041040,$00040040,$10000040,$10040000,$10001000,$10001040,$00000000,
    $10041040,$00041000,$00041000,$00001040,$00001040,$00040040,$10000000,$10041000),
   ($20000010,$20400000,$00004000,$20404010,$20400000,$00000010,$20404010,$00400000,
    $20004000,$00404010,$00400000,$20000010,$00400010,$20004000,$20000000,$00004010,
    $00000000,$00400010,$20004010,$00004000,$00404000,$20004010,$00000010,$20400010,
    $20400010,$00000000,$00404010,$20404000,$00004010,$00404000,$20404000,$20000000,
    $20004000,$00000010,$20400010,$00404000,$20404010,$00400000,$00004010,$20000010,
    $00400000,$20004000,$20000000,$00004010,$20000010,$20404010,$00404000,$20400000,
    $00404010,$20404000,$00000000,$20400010,$00000010,$00004000,$20400000,$00404010,
    $00004000,$00400010,$20004010,$00000000,$20404000,$20000000,$00400010,$20004010),
   ($00802001,$00002081,$00002081,$00000080,$00802080,$00800081,$00800001,$00002001,
    $00000000,$00802000,$00802000,$00802081,$00000081,$00000000,$00800080,$00800001,
    $00000001,$00002000,$00800000,$00802001,$00000080,$00800000,$00002001,$00002080,
    $00800081,$00000001,$00002080,$00800080,$00002000,$00802080,$00802081,$00000081,
    $00800080,$00800001,$00802000,$00802081,$00000081,$00000000,$00000000,$00802000,
    $00002080,$00800080,$00800081,$00000001,$00802001,$00002081,$00002081,$00000080,
    $00802081,$00000081,$00000001,$00002000,$00800001,$00002001,$00802080,$00800081,
    $00002001,$00002080,$00800000,$00802001,$00000080,$00800000,$00002000,$00802080),
   ($80108020,$80008000,$00008000,$00108020,$00100000,$00000020,$80100020,$80008020,
    $80000020,$80108020,$80108000,$80000000,$80008000,$00100000,$00000020,$80100020,
    $00108000,$00100020,$80008020,$00000000,$80000000,$00008000,$00108020,$80100000,
    $00100020,$80000020,$00000000,$00108000,$00008020,$80108000,$80100000,$00008020,
    $00000000,$00108020,$80100020,$00100000,$80008020,$80100000,$80108000,$00008000,
    $80100000,$80008000,$00000020,$80108020,$00108020,$00000020,$00008000,$80000000,
    $00008020,$80108000,$00100000,$80000020,$00100020,$80008020,$80000020,$00100020,
    $00108000,$00000000,$80008000,$00008020,$80000000,$80100020,$80108020,$00108000));