Home Explore Help
Sign In
pascal
/
CryptoLib4Pascal
mirror of https://github.com/Xor-el/CryptoLib4Pascal
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

consistency fix.

Ugochukwu Mmaduekwe 7 years ago
parent
5de600b1a3
commit
c42b5cf1e4
1 changed files with 2 additions and 2 deletions
Split View Show Diff Stats
  1. 2 2
      CryptoLib/src/Crypto/Engines/ClpPascalCoinIESEngine.pas

+ 2 - 2
CryptoLib/src/Crypto/Engines/ClpPascalCoinIESEngine.pas
View File 

@@ -236,8 +236,8 @@ begin
 
 
   PByte(Result)^ := Byte(System.Length(FV));
 
   (PByte(Result) + 1)^ := Byte(System.Length(T));
 
-  (PByte(Result) + 2)^ := UInt16(MessageToEncryptSize);
 
-  (PByte(Result) + 4)^ :=
 
+  (PWord(Result) + 1)^ := UInt16(MessageToEncryptSize);
 
+  (PWord(Result) + 2)^ :=
 
     UInt16(MessageToEncryptSize + MessageToEncryptPadSize);
 
 
   System.Move(FV[0], Result[SECURE_HEAD_SIZE], System.Length(FV) *