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

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 磁盘文件编程 >> 实例分析正文
最新推荐 更多内容
VB.Net文件SHA1算法的实例
VB.Net文件SHA1算法的实例
作者:Iva    来源:乐博网收集     更新时间:2009-8-6

源代码为C#,乐博网将其转化为vb.net,原作者为Dariush Tasdighi 来自伊朗,他的网站是http://www.iranianexperts.com/  。

  1. Namespace Lobspace
  2.     Public NotInheritable Class Lobdotcn
  3.         Private Sub New()
  4.         End Sub
  5.        
  6.         Private Shared Function ConvertStringToByteArray(ByVal data As String) As Byte()
  7.             Return (New System.Text.UnicodeEncoding()).GetBytes(data)
  8.         End Function
  9.        
  10.         Private Shared Function GetFileStream(ByVal pathName As String) As System.IO.FileStream
  11.             Return (New System.IO.FileStream(pathName, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite))
  12.         End Function
  13.        
  14.         Public Shared Function GetSHA1Hash(ByVal pathName As String) As String
  15.             Dim strResult As String = ""
  16.             Dim strHashData As String = ""
  17.            
  18.             Dim arrbytHashValue As Byte()
  19.             Dim oFileStream As System.IO.FileStream = Nothing
  20.            
  21.             Dim oSHA1Hasher As New System.Security.Cryptography.SHA1CryptoServiceProvider()
  22.            
  23.             Try   '更多vb.net源码和实例,请关注lob.cn (乐 博 网)
  24.                 oFileStream = GetFileStream(pathName)
  25.                 arrbytHashValue = oSHA1Hasher.ComputeHash(oFileStream)
  26.                 oFileStream.Close()
  27.                
  28.                 strHashData = System.BitConverter.ToString(arrbytHashValue)
  29.                 strHashData = strHashData.Replace("-", "")
  30.                 strResult = strHashData
  31.             Catch ex As System.Exception
  32.                 System.Windows.Forms.MessageBox.Show(ex.Message, "Error!", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.[Error], System.Windows.Forms.MessageBoxDefaultButton.Button1)
  33.             End Try
  34.            
  35.             Return (strResult)
  36.         End Function
  37.        
  38.         Public Shared Function GetMD5Hash(ByVal pathName As String) As String
  39.             Dim strResult As String = ""
  40.             Dim strHashData As String = ""
  41.            
  42.             Dim arrbytHashValue As Byte()
  43.             Dim oFileStream As System.IO.FileStream = Nothing
  44.            
  45.             Dim oMD5Hasher As New System.Security.Cryptography.MD5CryptoServiceProvider()
  46.            
  47.             Try
  48.                 oFileStream = GetFileStream(pathName)
  49.                 arrbytHashValue = oMD5Hasher.ComputeHash(oFileStream)
  50.                 oFileStream.Close()
  51.                
  52.                 strHashData = System.BitConverter.ToString(arrbytHashValue)
  53.                 strHashData = strHashData.Replace("-", "")
  54.                 strResult = strHashData
  55.             Catch ex As System.Exception
  56.                 System.Windows.Forms.MessageBox.Show(ex.Message, "Error!", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.[Error], System.Windows.Forms.MessageBoxDefaultButton.Button1)
  57.             End Try
  58.            
  59.             Return (strResult)
  60.         End Function
  61.     End Class
  62. End Namespace
  • 上一篇:

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

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