Dim su As StringUtils
Dim mess As String
Dim MessBytes(0) As Byte
c.Initialize("RSA/NONE/NoPadding")
ForeignKPG.Initialize("RSA", 2048)
ForeignPubKeyString=Job.GetString
Log (ForeignPubKeyString)
ForeignPubKeyString=ForeignPubKeyString.Replace("-----BEGIN PUBLIC KEY----- ","")
ForeignPubKeyString=ForeignPubKeyString.Replace(" -----END PUBLIC KEY-----","")
Log (ForeignPubKeyString)
ForeignPubKeyBytes=su.DecodeBase64(ForeignPubKeyString)
ForeignKPG.publicKeyFromBytes(ForeignPubKeyBytes)
mess="Hallo"
MessageBytes = Bconv.StringToBytes(mess, "UTF8")
MessageBytesEncrypted = c.encrypt(MessageBytes, ForeignKPG.PublicKey, False)
MessageStringEncrypted=Bconv.HexFromBytes(MessageBytesEncrypted)