Spanish Ayuda encripcion RSA (Solved)

[Carlos marin]

Buen día a todos

estoy trabajando en un proyecto necesito generar las llaves publica y privada (enviar la publica al servidor)
utilizo la libreria encryption pero no me funciona. alguien tiene un ejemplo mas simple para poder probar alguien es experto en este tema?? se los agradeceria mucho
pd: he mirado este ejemplo aqui pero no le entiendo ni j...

 

[GonzaloR]

Mira este post https://www.b4x.com/android/forum/threads/b4xencryption.48177/page-3#post-627245
La libreria genera las claves pero no las muestra correctamente.
Le he dejado ese post a ver si lo corrige.

 

[Carlos marin]

Hola estimados ya solucionado muchas gracias

c1.Initialize("RSA/NONE/OAEPPadding")
    kg.Initialize("RSA",3072)
    'kg.GenerateKey
    '---- PEDIR PUBLICA ----
    If miclase.pubk <> "" Then
        key=su.DecodeBase64(miclase.pubk)
    End If
    kg.PublicKeyFromBytes(key)
    data = str_json.GetBytes("UTF8")
    data = c1.Encrypt(data,kg.PublicKey, False)
    Dim str2 As String = su.EncodeBase64(data)