mess="Hallo"
MessageBytes = Bconv.StringToBytes(mess, "UTF8")
MessageBytesEncrypted = c.encrypt(MessageBytes, ForeignKPG.PublicKey, False)
MessageStringEncrypted=Bconv.StringFromBytes(MessageBytesEncrypted,"UTF8")
MessageStringEncrypted=su.EncodeBase64(MessageBytesEncrypted)
Dim DeCryptM As HttpJob
DeCryptM.Initialize("DeCryptM", Me)
DeCryptM.Download2("http://192.168.178.21/rsa/RSASql.php", _
Array As String("Action", "DeCryptM", "Mess", MessageStringEncrypted ))