| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 加密压缩编程 >> 实例分析正文
最新推荐 更多内容
VB.Net实现RSA加密的实例
VB.Net实现RSA加密的实例
作者:未知    来源:乐博网收集     更新时间:2007-11-2

  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

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.Net获取随机密码的实例
    VB.Net用Salt哈希数据的实例
    用DPAPI加密和解密数据的实例
    储存加密的数据库连接字符串到注册表的实例
    Salt加密数据的.Net实例
    Rijndael加密解密的实例
    AES加密的实例
    Rijndael加密的实例
    SHA256 Hash加密的实例
    VB.Net对XML元素进行加密解密的实例
    VB.Net文件CRC32算法的实例
    VB.Net文件SHA1算法的实例
    Blowfish加密算法的实例
    Rijndael类的实例
    TripleDES加解密的实例
    VB.Net实现des加密算法的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]