Imports   System    
  Imports   System.IO    
  Imports   System.Text    
  Imports   System.Security.Cryptography    
   
  Class   Class1    
   
    Public   Shared   Sub   Main(ByVal   args   As   String())    
        Dim   c   As   Class1   =   New   Class1    
        c.StartDemo    
    End   Sub    
   
    Public   Sub   StartDemo()    
        Dim   rsa1   As   RSACryptoServiceProvider   =   New   RSACryptoServiceProvider    
        Dim   rsa2   As   RSACryptoServiceProvider   =   New   RSACryptoServiceProvider    
        Dim   publickey   As   String    
        publickey   =   rsa1.ToXmlString(False)    
        Dim   plaintext   As   String    
        plaintext   =   "测试的字符串。"    
        Console.WriteLine("原始数据是："   &   Microsoft.VisualBasic.Chr(10)   &   "{0}"   &   Microsoft.VisualBasic.Chr(10)   &   "",   plaintext)    
        rsa2.FromXmlString(publickey)    
        Dim   cipherbytes   As   Byte()    
        cipherbytes   =   rsa2.Encrypt(Encoding.UTF8.GetBytes(plaintext),   False)    
        Console.WriteLine("加密后的数据是：")    
        Dim   i   As   Integer   =   0    
        While   i   <   cipherbytes.Length    
            Console.Write("{0:X2}   ",   cipherbytes(i))    
            System.Math.Min(System.Threading.Interlocked.Increment(i),i-1)    
        End   While    
        Console.WriteLine(""   &   Microsoft.VisualBasic.Chr(10)   &   "")    
        Dim   plaintbytes   As   Byte()    
        plaintbytes   =   rsa1.Decrypt(cipherbytes,   False)    
        Console.WriteLine("解密后的数据是：")    
        Console.WriteLine(Encoding.UTF8.GetString(plaintbytes))    
        Console.ReadLine    
    End   Sub    

  End   Class