ua.client.TdOPCUAClient.DecryptPrivateKey

Function can be used to decrypt an encrypted private key.

Delphi

function DecryptPrivateKey(const EncryptedKey: uaByteString; const pwd: string): uaByteString;

C++

__fastcall uaByteString DecryptPrivateKey(const uaByteString EncryptedKey, const AnsiString pwd);

Description

Function 'DecryptPrivateKey' that can be used to decrypt an encrypted private key.

The function works with native and openSSL security Library

Example

program ConsolePrivateFromFile; {$APPTYPE CONSOLE} {$R *.res} uses sysutils, IOUtils, ua.client; var OPCClient: TdOPCUAClient; ProgPath : string; Bytes : TBytes; begin ProgPath := ExtractFilePath(Paramstr(0)); OPCClient := TdOPCUaClient.Create(nil); try OPCClient.Url := 'opc.tcp://localhost:53530/OPCUA/SimulationServer'; OPCClient.SecurityLib := TuaSecurityLib.uaSNative; // or also possibe TuaSecurityLib.uaSOpenSSL OPCClient.SecurityMode := TuaSecurityMode.uaSSignAndEncrypt; OPCClient.SecurityPolicy := TuaSecurityPolicy.uaSPBasic256Sha256; Bytes := TFile.ReadAllBytes(ProgPath+'UAPassword.pem'); // read encrypted private key from file Bytes := OPCClient.DecryptPrivateKey(Bytes,'test'); // decypt private key with password OPCClient.SecurityKeypair.PrivateKey.FromBytes(Bytes); OPCClient.SecurityKeypair.PublicKey.FromFile (ProgPath+'UAPassword.der'); OPCClient.Active := true; Writeln('connected :-)'); except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; FreeAndNil(OPCClient); Writeln('press any key to exit'); readln; end.

Help Feedback