(Xojo Plugin) RSASSA-PSS Algorithm with SHA256 Hashing
RSA encrypt a SHA256 hash with OAEP padding.
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim privkey As New Chilkat.PrivateKey
// Load the private key object from a PEM file.
// (To load from a PEM string, call LoadPem instead.)
Dim success As Boolean
success = privkey.LoadPemFile("somePath/myPrivateKey.pem")
If (success <> True) Then
System.DebugLog(privkey.LastErrorText)
Return
End If
Dim rsa As New Chilkat.Rsa
// Use RSA-PSS by setting OaepPadding = True
rsa.OaepPadding = True
// Use SHA256
rsa.OaepHash = "SHA-256"
success = rsa.ImportPrivateKeyObj(privkey)
// Generate a base64 signature.
rsa.EncodingMode = "base64"
Dim sigStr As String
sigStr = rsa.SignStringENC("String to be signed","SHA-256")
If (rsa.LastMethodSuccess <> True) Then
System.DebugLog(rsa.LastErrorText)
Return
End If
System.DebugLog("Signature: " + sigStr)
|
