Issue with sign

VCL TMS Cryptography Pack
1

This code was werking perfect a few versions ago but now i cannot use the result of the sign anymore to get my signed documents with the latest versions so i cannot upgrade.

What is wrong?

function TSignedURLCalculator.Sign(aStringToSign: string): string;
const
cPrefix = '-----BEGINRSAPRIVATEKEY-----';
cSuffix = '-----ENDRSAPRIVATEKEY-----';
var
sSignedURL: string;
RSAUtil: TRSAEncSign;
begin
Result := '';
RSAUtil := TRSAEncSign.Create;
RSAUtil.keyLength := TRSAKeyLength.kl2048;
RSAUtil.OutputFormat := hexa;
RSAUtil.Unicode := yesUni;
RSAUtil.encType := oaep;
RSAUtil.withOpenSSL := True;
URLC.FPrivateKey := StringReplace(URLC.FPrivateKey,' ','',[rfReplaceAll, rfIgnoreCase]);
URLC.FPrivateKey := StringReplace(URLC.FPrivateKey,'''','',[rfReplaceAll, rfIgnoreCase]);
URLC.FPrivateKey := StringReplace(URLC.FPrivateKey,#13,'',[rfReplaceAll, rfIgnoreCase]);
URLC.FPrivateKey := StringReplace(URLC.FPrivateKey,#10,'',[rfReplaceAll, rfIgnoreCase]);
URLC.FPrivateKey := StringReplace(URLC.FPrivateKey, cPrefix,'',[rfReplaceAll, rfIgnoreCase]);
URLC.FPrivateKey := StringReplace(URLC.FPrivateKey, cSuffix,'',[rfReplaceAll, rfIgnoreCase]);
if URLC.FPrivateKey = '' then
Raise Exception.CreateFmt('No valid private key present: "%s"',[URLC.FPrivateKey]);
try
// Must be an RSA Private Key in PEM format (not another type of private key)
RSAUtil.FromOpenSSLPrivateKeyString(URLC.FPrivateKey);
RSAUtil.signType := TRSASignType(1);
sSignedURL := RSAUtil.Sign(aStringToSign);
Result := sSignedURL;
finally
RSAUtil.Free;
end;
end;

2

Hi,
A few things have changed since 4.3.3 and you don't need to use FromOpenSSLPrivateKeyString.

procedure TRSAEncSign.FromOpenSSLPrivateKey(filePath: string);
procedure TRSAEncSign.FromOpenSSLPrivateKeyString(key: string);
begin
  FromPrivateKey(key); // Use FromPrivateKey DIRECTLY
end;

You can use FromPrivateKey instead.

But the issue is not there.
Try adding:
RSAUtil.inputFormat := raw;
after RSAUtil.OutputFormat := hexa;

3

Hi,

Thanks for your swift answer.

Unfortunately, it doesn’t change anything.

Any other ideas?

Kind regards,
Erik

4

I would need a project to run in debug mode.
Is there an error code?