diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-12-29 11:48:38 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-12-29 11:48:38 +0000 |
| commit | 9c7737ff9511c53b5a335bba11cfc4ba2824f76e (patch) | |
| tree | a86d5ff0d390b0f8168f48d758f6b6885895e094 /packages/fcl-base/src/idea.pp | |
| parent | f33d813211c7a138c9bb8c82c35ebc36806b227b (diff) | |
| download | fpc-9c7737ff9511c53b5a335bba11cfc4ba2824f76e.tar.gz | |
* Make sure key is zero-padded if seed is smaller than key length (bug 20949, patch from Ilya Melnikov)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19904 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-base/src/idea.pp')
| -rw-r--r-- | packages/fcl-base/src/idea.pp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/packages/fcl-base/src/idea.pp b/packages/fcl-base/src/idea.pp index 9210841bbf..03e351e405 100644 --- a/packages/fcl-base/src/idea.pp +++ b/packages/fcl-base/src/idea.pp @@ -289,6 +289,7 @@ begin Raise EIDEAError.Create(SErrEmptyKey); If (Length(S)>SizeOf(Key)) then KLen:=SizeOf(Key); + FillChar(Key,SizeOf(Key),0); Move(S[1],Key,KLen); end; |