Skip to content

Fixed UInt64 types #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
dmsvr04 wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Fixed UInt64 types #2

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion Ciphers/DCPblowfish.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ implementation
{$R-}{$Q-}
{$I DCPblowfish.inc}

class function TDCP_blowfish.GetID: integer;
class function TDCP_blowfish.GetId: integer;
begin
Result:= DCP_blowfish;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPcast128.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ TDCP_cast128= class(TDCP_blockcipher64)
Rounds: longword;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -62,7 +62,7 @@ class function TDCP_cast128.GetMaxKeySize: integer;
Result:= 128;
end;

class function TDCP_cast128.GetID: integer;
class function TDCP_cast128.GetId: integer;
begin
Result:= DCP_cast128;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPdes.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -331,7 +331,7 @@ class function TDCP_des.GetMaxKeySize: integer;
Result:= 64;
end;

class function TDCP_des.GetID: integer;
class function TDCP_des.GetId: integer;
begin
Result:= DCP_des;
end;
Expand Down Expand Up @@ -410,7 +410,7 @@ class function TDCP_3des.GetMaxKeySize: integer;
Result:= 192;
end;

class function TDCP_3des.GetID: integer;
class function TDCP_3des.GetId: integer;
begin
Result:= DCP_3des;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPgost.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -43,7 +43,7 @@ TDCP_gost= class(TDCP_blockcipher64)
KeyData: array[0..7] of DWord;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -64,7 +64,7 @@ class function TDCP_gost.GetMaxKeySize: integer;
Result:= 256;
end;

class function TDCP_gost.GetID: integer;
class function TDCP_gost.GetId: integer;
begin
Result:= DCP_gost;
end;
Expand Down
12 changes: 6 additions & 6 deletions Ciphers/DCPice.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -47,7 +47,7 @@ TDCP_ice= class(TDCP_customice)
protected
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -57,7 +57,7 @@ TDCP_thinice= class(TDCP_customice)
protected
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -67,7 +67,7 @@ TDCP_ice2= class(TDCP_customice)
protected
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand Down Expand Up @@ -318,7 +318,7 @@ class function TDCP_ice.GetMaxKeySize: integer;
Result:= 64;
end;

class function TDCP_ice.GetID: integer;
class function TDCP_ice.GetId: integer;
begin
Result:= DCP_ice;
end;
Expand Down Expand Up @@ -359,7 +359,7 @@ class function TDCP_thinice.GetMaxKeySize: integer;
Result:= 64;
end;

class function TDCP_thinice.GetID: integer;
class function TDCP_thinice.GetId: integer;
begin
Result:= DCP_thinice;
end;
Expand Down Expand Up @@ -400,7 +400,7 @@ class function TDCP_ice2.GetMaxKeySize: integer;
Result:= 128;
end;

class function TDCP_ice2.GetID: integer;
class function TDCP_ice2.GetId: integer;
begin
Result:= DCP_ice2;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPidea.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ TDCP_idea= class(TDCP_blockcipher64)
EK, DK: array[0..51] of word;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -54,7 +54,7 @@ class function TDCP_idea.GetMaxKeySize: integer;
Result:= 128;
end;

class function TDCP_idea.GetID: integer;
class function TDCP_idea.GetId: integer;
begin
Result:= DCP_idea;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPmars.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ TDCP_mars= class(TDCP_blockcipher128)
KeyData: array[0..39] of DWord;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -60,7 +60,7 @@ function RRot32(X: DWord; c: longword): DWord;
RRot32:= (X shr c) or (X shl (32 - c));
end;

class function TDCP_mars.GetID: integer;
class function TDCP_mars.GetId: integer;
begin
Result:= DCP_mars;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPmisty1.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,7 +41,7 @@ TDCP_misty1= class(TDCP_blockcipher64)
function FLINV(const FL_IN: DWord; const k: longword): DWord;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -63,7 +63,7 @@ function SwapDword(a: dword): dword;
Result:= ((a and $FF) shl 24) or ((a and $FF00) shl 8) or ((a and $FF0000) shr 8) or ((a and $FF000000) shr 24);
end;

class function TDCP_misty1.GetID: integer;
class function TDCP_misty1.GetId: integer;
begin
Result:= DCP_misty1;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPrc2.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ TDCP_rc2= class(TDCP_blockcipher64)
KeyData: array[0..63] of word;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand Down Expand Up @@ -66,7 +66,7 @@ class function TDCP_rc2.GetMaxKeySize: integer;
Result:= 1024;
end;

class function TDCP_rc2.GetID: integer;
class function TDCP_rc2.GetId: integer;
begin
Result:= DCP_rc2;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPrc4.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,7 @@ TDCP_rc4= class(TDCP_cipher)
protected
KeyData, KeyOrg: array[0..255] of byte;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -49,7 +49,7 @@ TDCP_rc4= class(TDCP_cipher)
implementation
{$R-}{$Q-}

class function TDCP_rc4.GetID: integer;
class function TDCP_rc4.GetId: integer;
begin
Result:= DCP_rc4;
end;
Expand Down
2 changes: 1 addition & 1 deletion Ciphers/DCPrc5.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -71,7 +71,7 @@ function RRot32(a, b: longword): longword;
Result:= (a shr b) or (a shl (32-b));
end;

class function TDCP_rc5.GetID: integer;
class function TDCP_rc5.GetId: integer;
begin
Result:= DCP_rc5;
end;
Expand Down
2 changes: 1 addition & 1 deletion Ciphers/DCPrc6.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -75,7 +75,7 @@ function RRot32(X: DWord; c: longword): DWord;
RRot32:= (X shr c) or (X shl (32 - c));
end;

class function TDCP_rc6.GetID: integer;
class function TDCP_rc6.GetId: integer;
begin
Result:= DCP_rc6;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPrijndael.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@ TDCP_rijndael= class(TDCP_blockcipher128)
rk, drk: array[0..MAXROUNDS,0..7] of DWord;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -60,7 +60,7 @@ class function TDCP_rijndael.GetMaxKeySize: integer;
Result:= 256;
end;

class function TDCP_rijndael.GetID: integer;
class function TDCP_rijndael.GetId: integer;
begin
Result:= DCP_rijndael;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPserpent.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -36,7 +36,7 @@ TDCP_serpent= class(TDCP_blockcipher128)
l_key: array[0..131] of dword;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -51,7 +51,7 @@ TDCP_serpent= class(TDCP_blockcipher128)
implementation
{$R-}{$Q-}

class function TDCP_serpent.GetID: integer;
class function TDCP_serpent.GetId: integer;
begin
Result:= DCP_serpent;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPtea.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ TDCP_tea= class(TDCP_blockcipher64)
KeyData: array[0..3] of dword;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -58,7 +58,7 @@ function SwapDword(a: dword): dword;
Result:= ((a and $FF) shl 24) or ((a and $FF00) shl 8) or ((a and $FF0000) shr 8) or ((a and $FF000000) shr 24);
end;

class function TDCP_tea.GetID: integer;
class function TDCP_tea.GetId: integer;
begin
Result:= DCP_tea;
end;
Expand Down
4 changes: 2 additions & 2 deletions Ciphers/DCPtwofish.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -47,7 +47,7 @@ TDCP_twofish= class(TDCP_blockcipher128)
sbox: array[0..3,0..255] of DWord;
procedure InitKey(const Key; Size: longword); override;
public
class function GetID: integer; override;
class function GetId: integer; override;
class function GetAlgorithm: string; override;
class function GetMaxKeySize: integer; override;
class function SelfTest: boolean; override;
Expand All @@ -68,7 +68,7 @@ implementation
MDS: array[0..3,0..255] of dword;
MDSDone: boolean;

class function TDCP_twofish.GetID: integer;
class function TDCP_twofish.GetId: integer;
begin
Result:= DCP_twofish;
end;
Expand Down
Loading