ks.Initialize("Keystore")
Log(ks.Aliases)
Dim kpg As KeyPairGenerator
Dim Enc As Cipher
Enc.Initialize("RSA/ECB/PKCS1Padding")
kpg.Initialize("RSA",2048)
kpg.GenerateKey
'this part throws the error
ks.setEntry2("DonMan",kpg.PrivateKeyToBytes,ks.getCertificateChain("DonMan"))
Dim Text As String = "Hello World"
Dim su As StringUtils
Dim bytes() As Byte = Text.GetBytes("UTF8")
Log(su.EncodeBase64(kpg.PrivateKeyToBytes))
Dim encryptedstring As String = su.EncodeBase64(Enc.Encrypt(bytes,kpg.PublicKey,False))
Log(encryptedstring)
Dim bc As ByteConverter
Log( bc.StringFromBytes(Enc.Decrypt(su.DecodeBase64(encryptedstring),kpg.PrivateKey,False),"UTF8"))