Dim privateKey As String=$"MIIEvAIBADANBgkqhkiG9w0BAQEFAASCBKYwggSiAgEAAoIBAQC2gqnurckKk1Zb
AXqyGDTKBVUg7wyr/WTb5ow0mecad…….
AXqyGDTKBVUg7wyr/WTb5ow0mecad…….
B4X:
Dim su As StringUtils
Dim privateKey As String="
Dim data() As Byte = Array As Byte(1, 2, 3)
Dim ByteFromPrivKey() As Byte = su.DecodeBase64(privateKey)
Dim k2 As KeyPairGenerator
k2.Initialize("RSA",2048)
k2.PublicKeyFromBytes(ByteFromPrivKey)
Dim sign As Signature
sign.Initialise("SHA256withRSA",sign.SIGNATURE_SIGN,k2.PrivateKey)
sign.Update(data)
Last edited: