I am new to VB.NET and I am trying to learn. So, your indulgence for the
triviality of my questions is kindly requested.
I would like to calculate an MD5 hash for very lage files. The examples I
came across read the file into a byte array and apply the hash to that
array. The following code illustrates what I am doing. I would like to
perform the hash calculation on a stream. Is this possible? If so, an
example would be greatly appreciated.
Imports System.Text
Imports System.Security .Cryptography
Imports System.IO
Public Class Form1
Inherits System.Windows. Forms.Form
Dim fs As FileStream = New FileStream("c:\ ConfDenise.PDF" ,
FileMode.Open)
Dim r As BinaryReader = New BinaryReader(fs )
Public Function GenerateHash(By Ref Buff() As Byte) As String
Dim Md5 As New MD5CryptoServic eProvider()
Dim ByteHash() As Byte = Md5.ComputeHash (Buff)
Return Convert.ToBase6 4String(ByteHas h)
End Function
#Region " Windows Form Designer generated code "
' snip
#End Region
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
fs.Seek(0, SeekOrigin.Begi n)
Label1.Text = GenerateHash(r. ReadBytes(fs.Le ngth))
End Sub
End Class
--
Richard
Please reply to group or
Remove 'REMOVE' from my email address. 2 2896
If you are familiar with Block cipher encryption in .NET, hashes are
supposed to work the same way.
In other words, hash algorithms (like MD5) implement the ICryptoTransfor m
interface, which allows them to be used by the CryptoStream object.
You could create a memory stream, and wrap it with a CryptoStream, and pass
the MD5 instance to the CryptoStream constructor. Anytime you "write" to the
CryptoStream, it should transform the data through the protecte HashCore
function of MD5. Then, when you are done, you call FlushFinalBlock on the
CryptoStream, which in turn calls the MD5 HashFinal method. Then you can
check the Hash property of the md5 object for the final hash value.
Function GetHash() As String
Dim cs As CryptoStream
Dim ms As MemoryStream = New MemoryStream
Dim md5Hash As MD5CryptoServic eProvider = New MD5CryptoServic eProvider
Try
Dim buffer As Byte() = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15}
cs = New CryptoStream(ms , md5Hash, CryptoStreamMod e.Write)
cs.Write(buffer , 0, buffer.Length)
cs.FlushFinalBl ock()
Return Convert.ToBase6 4String(md5Hash .Hash())
Catch ex As Exception
MsgBox("Error during hash operation: " + ex.ToString())
Finally
If Not (cs Is Nothing) Then cs.Close()
If Not (md5Hash Is Nothing) Then md5Hash.Clear()
End Try
End Function
The only thing to note is that in my sample, i just filled the buffer once
with a bunch of numbers.
In your case, you need to wrap a Loop around the cs.Write(...) line, and
read from your file to the buffer one chunk at a time, and write the buffer
to the CryptoStream until you run out of file.
-Rob Teixeira [MVP]
"Richard Lemay" <rl************ *********@mailb locks.com> wrote in message
news:ul******** ******@TK2MSFTN GP11.phx.gbl... I am new to VB.NET and I am trying to learn. So, your indulgence for the triviality of my questions is kindly requested.
I would like to calculate an MD5 hash for very lage files. The examples I came across read the file into a byte array and apply the hash to that array. The following code illustrates what I am doing. I would like to perform the hash calculation on a stream. Is this possible? If so, an example would be greatly appreciated.
Imports System.Text Imports System.Security .Cryptography Imports System.IO
Public Class Form1 Inherits System.Windows. Forms.Form Dim fs As FileStream = New FileStream("c:\ ConfDenise.PDF" , FileMode.Open) Dim r As BinaryReader = New BinaryReader(fs )
Public Function GenerateHash(By Ref Buff() As Byte) As String Dim Md5 As New MD5CryptoServic eProvider() Dim ByteHash() As Byte = Md5.ComputeHash (Buff) Return Convert.ToBase6 4String(ByteHas h) End Function
#Region " Windows Form Designer generated code " ' snip #End Region
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click fs.Seek(0, SeekOrigin.Begi n) Label1.Text = GenerateHash(r. ReadBytes(fs.Le ngth)) End Sub End Class
-- Richard Please reply to group or Remove 'REMOVE' from my email address.
Thanks Rob,
I'll give it a try.
Richard
"Rob Teixeira [MVP]" <RobTeixeira@@m sn.com> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. .. If you are familiar with Block cipher encryption in .NET, hashes are supposed to work the same way. In other words, hash algorithms (like MD5) implement the ICryptoTransfor m interface, which allows them to be used by the CryptoStream object. You could create a memory stream, and wrap it with a CryptoStream, and
pass the MD5 instance to the CryptoStream constructor. Anytime you "write" to
the CryptoStream, it should transform the data through the protecte HashCore function of MD5. Then, when you are done, you call FlushFinalBlock on the CryptoStream, which in turn calls the MD5 HashFinal method. Then you can check the Hash property of the md5 object for the final hash value.
Function GetHash() As String
Dim cs As CryptoStream Dim ms As MemoryStream = New MemoryStream Dim md5Hash As MD5CryptoServic eProvider = New MD5CryptoServic eProvider
Try
Dim buffer As Byte() = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}
cs = New CryptoStream(ms , md5Hash, CryptoStreamMod e.Write) cs.Write(buffer , 0, buffer.Length)
cs.FlushFinalBl ock() Return Convert.ToBase6 4String(md5Hash .Hash())
Catch ex As Exception
MsgBox("Error during hash operation: " + ex.ToString())
Finally If Not (cs Is Nothing) Then cs.Close() If Not (md5Hash Is Nothing) Then md5Hash.Clear() End Try End Function
The only thing to note is that in my sample, i just filled the buffer once with a bunch of numbers. In your case, you need to wrap a Loop around the cs.Write(...) line, and read from your file to the buffer one chunk at a time, and write the
buffer to the CryptoStream until you run out of file.
-Rob Teixeira [MVP]
"Richard Lemay" <rl************ *********@mailb locks.com> wrote in message news:ul******** ******@TK2MSFTN GP11.phx.gbl... I am new to VB.NET and I am trying to learn. So, your indulgence for
the triviality of my questions is kindly requested.
I would like to calculate an MD5 hash for very lage files. The examples
I came across read the file into a byte array and apply the hash to that array. The following code illustrates what I am doing. I would like to perform the hash calculation on a stream. Is this possible? If so, an example would be greatly appreciated.
Imports System.Text Imports System.Security .Cryptography Imports System.IO
Public Class Form1 Inherits System.Windows. Forms.Form Dim fs As FileStream = New FileStream("c:\ ConfDenise.PDF" , FileMode.Open) Dim r As BinaryReader = New BinaryReader(fs )
Public Function GenerateHash(By Ref Buff() As Byte) As String Dim Md5 As New MD5CryptoServic eProvider() Dim ByteHash() As Byte = Md5.ComputeHash (Buff) Return Convert.ToBase6 4String(ByteHas h) End Function
#Region " Windows Form Designer generated code " ' snip #End Region
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As System.EventArg s) Handles Button1.Click fs.Seek(0, SeekOrigin.Begi n) Label1.Text = GenerateHash(r. ReadBytes(fs.Le ngth)) End Sub End Class
-- Richard Please reply to group or Remove 'REMOVE' from my email address.
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics |
by: Edvard Majakari |
last post by:
Hi all ya unit-testing experts there :)
Code I'm working on has to parse large and complex files and detect
equally complex and large amount of errors before the contents of the file
is fed to module interpreting it. First I created a unit-test class named
TestLoad which loaded, say, 40 files of which about 10 are correct and
other 30 files contained over 20 different types of errors. Different
methods on the TestLoad class were coded so...
|
by: Greg |
last post by:
I am working on a project that will have about 500,000 records in an XML
document. This document will need to be queried with XPath, and records
will need to be updated. I was thinking about splitting up the XML into
several XML documents (perhaps 50,000 per document) to be more efficient but
this will make things a lot more complex because the searching needs to go
accross all 500,000 records. Can anyone point me to some best practices...
|
by: Buddy Ackerman |
last post by:
I'm trying to write files directly to the client so that it forces the client to open the Save As dialog box rather than
display the file. On some occasions the files are very large (100MB+). On these files teh time that it takes until the
client displays the Save As dialog can be extrordinarily long (3+ minutes). I don't understand why.
I was initiall using the format:
Respnse.writefile("filepath", offset, length)
but that simply...
|
by: A.M-SG |
last post by:
Hi,
I have a ASP.NET aspx file that needs to pass large images from a network
storage to client browser. The requirement is that users cannot have access
to the network share. The aspx file must be the only method that users
receive image files.
|
by: jdev8080 |
last post by:
We are looking at creating large XML files containing binary data
(encoded as base64) and passing them to transformers that will parse
and transform the data into different formats.
Basically, we have images that have associated metadata and we are
trying to develop a unified delivery mechanism. Our XML documents may
be as large as 1GB and contain up to 100,000 images.
My question is, has anyone done anything like this before?
| |
by: mike |
last post by:
I help manage a large web site, one that has over
600 html pages... It's a reference site for ham radio
folks and as an example, one page indexes over
1.8 gb of on-line PDF documents.
The site is structured as an upside-down tree, and
(if I remember correctly) never more than 4 levels.
The site basically grew (like the creeping black blob) ...
all the pages were created in Notepad over the last
|
by: Lars B |
last post by:
Hey guys,
I have written a C++ program that passes data from a file to an FPGA board and back again using software and DMA buffers.
In my program I need to compare the size of a given file against a software buffer of size 3MB. This is needed so as to see which function to use to read from the file. As the files used range from very large (>30GB) to very small (<3MB), I have enabled large file support and I obtain the file size by using the...
|
by: theCancerus |
last post by:
Hi All,
I am not sure if this is the right place to ask this question but i am
very sure you may have faced this problem, i have already found some
post related to this but not the answer i am looking for.
My problem is that i have to upload images and store them. I am using
filesystem for that.
setup is something like this, their will be items/groups/user each can
|
by: =?Utf-8?B?UVNJRGV2ZWxvcGVy?= |
last post by:
Using .NET 2.0 is it more efficient to copy files to a single folder versus
spreading them across multiple folders.
For instance if we have 100,000 files to be copied,
Do we copy all of them to a single folder called 'All Files'
Do we spread them out and copy them to multiple folders like
Folder 000 - Copy files from 0 to 1000
Folder 001 - Copy files from 1000 to 2000
Folder 002 - Copy files from 2000 to 2999
|
by: byte8bits |
last post by:
How does C++ safely open and read very large files? For example, say I
have 1GB of physical memory and I open a 4GB file and attempt to read
it like so:
#include <iostream>
#include <fstream>
#include <string>
using namespace std;
int main () {
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
| |
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
| |
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| |