Example: Rsa.KeyBits  Rsa.RawPublic  Rsa.ReadPublicKey 

[VB6 equivalent: RSA_RawPublic]

Dim sEncDataHex As String
Dim abData() As Byte
Dim strCertFile As String
Dim sbPublicKey As StringBuilder

' Cut and paste from DUMPASN1 output
sEncDataHex = "2F 23 82 D2 F3 09 5F B8 0C 58 EB 4E" & _
    "9D BF 89 9A 81 E5 75 C4 91 3D D3 D0" & _
    "D5 7B B6 D5 FE 94 A1 8A AC E3 C4 84" & _
    "F5 CD 60 4E 27 95 F6 CF 00 86 76 75" & _
    "3F 2B F0 E7 D4 02 67 A7 F5 C7 8D 16" & _
    "04 A5 B3 B5 E7 D9 32 F0 24 EF E7 20" & _
    "44 D5 9F 07 C5 53 24 FA CE 01 1D 0F" & _
    "17 13 A7 2A 95 9D 2B E4 03 95 14 0B" & _
    "E9 39 0D BA CE 6E 9C 9E 0C E8 98 E6" & _
    "55 13 D4 68 6F D0 07 D7 A2 B1 62 4C" & _
    "E3 8F AF FD E0 D5 5D C7"

' Convert to bytes
abData = Cnv.FromHex(sEncDataHex)
' Check
Console.WriteLine(Cnv.ToHex(abData))

strCertFile = "AliceRSASignByCarl.cer"
' Read in PublicKey as base64 string 
sbPublicKey = Rsa.ReadPublicKey(strCertFile)
Console.WriteLine("IntKeyLen = " & sbPublicKey.Length)
If sbPublicKey.Length = 0 Then
    Console.WriteLine(General.LastError())
    Console.WriteLine("Unable to retrieve private key")
    Exit Sub
End If
Console.WriteLine("PubKey length= " & Rsa.KeyBits(sbPublicKey.ToString()) & " bits")

' Verify using the public key
Console.WriteLine("Input:  " & Cnv.ToHex(abData))
abData = Rsa.RawPublic(abData, sbPublicKey.ToString())
Console.WriteLine("Output: " & Cnv.ToHex(abData))

See Also:
Rsa.RawPublic Method (Byte[], String)
Rsa.RawPublic Method (Byte[], String, Int32)

[Contents] [Index]