Dim key_ As KeyPairGenerator
key_.Initialize("RSA",1024)
'It crashed on the next line
key_.PrivateKeyFromBytes(bytes)
'After we do this
Dim ByteEnc AsByteConverter
Dim MyMac As Mac
MyMac.Initialise("HMAC-SHA1",key_.PrivateKey)
MyMac.Update(ByteEnc.StringToBytes(textToSign,"utf-8"))
Dim x AsStringUtils
SAFPTHash = x.EncodeBase64(MyMac.Sign())
Dim xsign As Signature
xsign.Initialise("SHA1withRSA",xsign.SIGNATURE_SIGN,key_.PrivateKey)
xsign.Update(ByteEnc.StringToBytes(textToSign,"utf-8"))
SAFPTHash = x.EncodeBase64(xsign.Sign())