Example: Rsa.CheckKey  Rsa.FromXMLString  (2)

[VB6 equivalent: RSA_FromXMLString]

Dim strInternalKey As String
Dim strXML As String
Dim nRet As Integer

strXML = "<RSAKeyValue>" _
& "<Modulus EncodingType='hexBinary'>0A66791D" _
& "C6988168DE7AB77419BB7FB0C001C627102700751429" _
& "42E19A8D8C51D053B3E3782A1DE5DC5AF4EBE9946817" _
& "0114A1DFE67CDC9A9AF55D655620BBAB</Modulus>" _
& "<Exponent EncodingType='hexBinary'>010001</Exponent>" _
& "</RSAKeyValue>"

strInternalKey = Rsa.FromXMLString(strXML, False)
If strInternalKey.Length = 0 Then
    Console.WriteLine("Error: ")
    Exit Sub
End If

Console.WriteLine("INTKEY=" & strInternalKey)

nRet = Rsa.CheckKey(strInternalKey)
Console.WriteLine("RSA_CheckKey returns " & nRet)

See Also:
Rsa.FromXMLString Method

[Contents] [Index]