Delphi ActiveX Requires Chilkat v11.7.0+

Authenticode Sign a VBScript File (.vbs)

See more Code Signing Examples

Demonstrates how to Authenticode sign a VBScript file (.vbs). Signing VBScript files requires Chilkat v11.7.0 or later. The signature is appended to the file as a comment block. Delphi ActiveX

var
success: Integer;
cert: TChilkatCert;
json: TChilkatJsonObject;
scriptPath: WideString;
signer: TChilkatCodeSign;
sigInfo: TChilkatJsonObject;
valid: Integer;

begin
success := 0;

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

//  Signing a VBScript file (.vbs) requires Chilkat v11.7.0 or later.

//  Load the code signing certificate.  It must have access to its private key.
cert := TChilkatCert.Create(Self);
success := cert.LoadPfxFile('C:/someDir/myCodeSigningCert.pfx','pfx password');
if (success = 0) then
  begin
    Memo1.Lines.Add(cert.LastErrorText);
    Exit;
  end;

//  Sign with SHA256, and ask a timestamp authority for a timestamp.  A timestamp lets the
//  signature continue to validate after the code signing certificate has expired.
//  
//  {
//    "hashAlg": "sha256",
//    "timestampToken": {
//      "enabled": true,
//      "tsaUrl": "http://timestamp.digicert.com",
//      "requestTsaCert": true,
//      "hashAlg": "sha256"
//    }
//  }
json := TChilkatJsonObject.Create(Self);
json.UpdateString('hashAlg','sha256');
json.UpdateBool('timestampToken.enabled',1);
json.UpdateString('timestampToken.tsaUrl','http://timestamp.digicert.com');
json.UpdateBool('timestampToken.requestTsaCert',1);
json.UpdateString('timestampToken.hashAlg','sha256');

scriptPath := 'C:/someDir/Backup.vbs';

signer := TChilkatCodeSign.Create(Self);

//  The script is modified in place.  The signature is appended to the end of the file as a comment block:
//  
//    '' SIG '' Begin signature block
//    '' SIG '' MIIoKgYJKoZIhvcNAQcCoIIoGzCCKBcCAQExDzANBglg
//    '' SIG '' ...
//    '' SIG '' End signature block
//  
//  If the script is already signed, the new signature block replaces the existing one.
success := signer.AddSignature(scriptPath,cert.ControlInterface,json.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(signer.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Signed the VBScript file.');

//  Verify the signature that was just added.
sigInfo := TChilkatJsonObject.Create(Self);
valid := signer.VerifySignature(scriptPath,sigInfo.ControlInterface);
if (valid = 0) then
  begin
    Memo1.Lines.Add(signer.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('The signature is valid.');

//  Note: Other script types, such as JScript (.js), are not supported.
//  AddSignature returns false for an unsupported file type and does not modify the file.