Spanish Ayuda encripcion RSA (Solved)

Carlos marin

Active Member
Licensed User
Longtime User
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...
 

Carlos marin

Active Member
Licensed User
Longtime User
Hola estimados ya solucionado muchas gracias

B4X:
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)
 
Top