pascal/lazarus-dcpcrypt
1
0
Fork 0
mirror of https://git.code.sf.net/p/lazarus-ccr/dcpcrypt synced 2025-11-28 21:49:45 +02:00
Code Issues Releases Activity

Fixes a hell of a lot of compiler warnings.

Browse Source 
* Also implemented a local dcpFillChar() method which uses a 'out'
  parameter causing less compiler hints.
This commit is contained in:
Graeme Geldenhuys
2009-11-17 17:11:47 +02:00
parent a6a0258b48
commit 9d151d353a
28 changed files with 144 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ciphers/dcprijndael.pas
View File

@@ -22,8 +22,8 @@
{* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER *}
{* DEALINGS IN THE SOFTWARE. *}
{******************************************************************************}
unit DCPrijndael;
unit DCPrijndael;
{$MODE Delphi}
interface
@@ -98,6 +98,7 @@ var
Block: array[0..15] of byte;
Cipher: TDCP_rijndael;
begin
dcpFillChar(Block, SizeOf(Block), 0);
Cipher:= TDCP_rijndael.Create(nil);
Cipher.Init(Key1,Sizeof(Key1)*8,nil);
Cipher.EncryptECB(InData1,Block);
@@ -138,7 +139,7 @@ var
begin
Size:= Size div 8;
FillChar(tk,Sizeof(tk),0);
dcpFillChar(tk,Sizeof(tk),0);
Move(Key,tk,Size);
if Size<= 16 then
begin