|
@@ -296,9 +296,7 @@ procedure TTestECAlgorithms.TestSumOfMultiplies;
|
|
|
var
|
|
var
|
|
|
x9: IX9ECParameters;
|
|
x9: IX9ECParameters;
|
|
|
begin
|
|
begin
|
|
|
- // x9 := TCustomNamedCurves.GetByName('secp256r1'); // original
|
|
|
|
|
- // x9 := TECNamedCurveTable.GetByName('secp256k1');
|
|
|
|
|
- x9 := TCustomNamedCurves.GetByName('secp256k1');
|
|
|
|
|
|
|
+ x9 := TCustomNamedCurves.GetByName('secp256r1');
|
|
|
CheckNotNull(x9);
|
|
CheckNotNull(x9);
|
|
|
DoTestSumOfMultiplies(x9);
|
|
DoTestSumOfMultiplies(x9);
|
|
|
end;
|
|
end;
|
|
@@ -317,9 +315,7 @@ procedure TTestECAlgorithms.TestSumOfTwoMultiplies;
|
|
|
var
|
|
var
|
|
|
x9: IX9ECParameters;
|
|
x9: IX9ECParameters;
|
|
|
begin
|
|
begin
|
|
|
- // x9 := TCustomNamedCurves.GetByName('secp256r1'); // original
|
|
|
|
|
- // x9 := TECNamedCurveTable.GetByName('secp256k1');
|
|
|
|
|
- x9 := TCustomNamedCurves.GetByName('secp256k1');
|
|
|
|
|
|
|
+ x9 := TCustomNamedCurves.GetByName('secp256r1');
|
|
|
CheckNotNull(x9);
|
|
CheckNotNull(x9);
|
|
|
DoTestSumOfTwoMultiplies(x9);
|
|
DoTestSumOfTwoMultiplies(x9);
|
|
|
end;
|
|
end;
|