[Help] MD5 Updater
[Help] MD5 Updater
As the title says, I'm searching for an updater that uses md5 hashes. Meaning like if I have 20 different files on my ftp...it does compare the md5 hashes and updates if necessary...
Any suggestions <.<?
This is what I've found so far:
Any suggestions <.<?
This is what I've found so far:
Code:
Public Sub CheckSumAndRun(ByVal filename As String)
Try
f = New System.IO.FileStream(filename, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read, 8192)
Catch ex As Exception
MsgBox(ex.Message)
Exit Sub
End Try
md5 = New System.Security.Cryptography.MD5CryptoServiceProvider
md5.ComputeHash(f)
Dim hash As Byte() = md5.Hash
Dim buff As System.Text.StringBuilder = New System.Text.StringBuilder
Dim hashByte As Byte
For Each hashByte In hash
buff.Append(String.Format("{0:X2}", hashByte))
Next
f.Close()
If buff.ToString = main_md5 Then
p = Diagnostics.Process.Start(main_name, MainStartParam)
Me.Close()
Else
If My.Computer.FileSystem.FileExists(currdir & main_name) = True Then
My.Computer.FileSystem.DeleteFile(currdir & main_name, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
End If
wrong_main = True
BackgroundWorker1.RunWorkerAsync()
End If
End Sub
Here's the function that calculates the MD5 hash of a file:
[php]Public Function MD5CalcFile(ByVal filepath As String) As String
Using reader As New System.IO.FileStream(filepath, IO.FileMode.Open, IO.FileAccess.Read)
Using md5 As New System.Security.Cryptography.MD5CryptoServiceProvi der
Dim hash() As Byte = md5.ComputeHash(reader)
Return ByteArrayToString(hash)
End Using
End Using
End Function
[/php]
Convert the array to hex string:
[php]Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
Dim sb As New System.Text.StringBuilder(arrInput.Length * 2)
For i As Integer = 0 To arrInput.Length - 1
sb.Append(arrInput(i).ToString("X2"))
Next
Return sb.ToString().ToLower
End Function
[/php]
Finally call the MD5CalcFile function to get the hash. Loop through all files and calculate it.
[php]Public Function MD5CalcFile(ByVal filepath As String) As String
Using reader As New System.IO.FileStream(filepath, IO.FileMode.Open, IO.FileAccess.Read)
Using md5 As New System.Security.Cryptography.MD5CryptoServiceProvi der
Dim hash() As Byte = md5.ComputeHash(reader)
Return ByteArrayToString(hash)
End Using
End Using
End Function
[/php]
Convert the array to hex string:
[php]Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
Dim sb As New System.Text.StringBuilder(arrInput.Length * 2)
For i As Integer = 0 To arrInput.Length - 1
sb.Append(arrInput(i).ToString("X2"))
Next
Return sb.ToString().ToLower
End Function
[/php]
Finally call the MD5CalcFile function to get the hash. Loop through all files and calculate it.
That does not help me in getting a updater to work =D
/Haz idea.
But go ahead and help xD
/Haz idea.
But go ahead and help xD
Originally Posted by Blubb1337
That does not help me in getting a updater to work =D
I don't know exactly, unfortunately, can you tell me? I've never done this before.
Originally Posted by Blubb1337
I don't know exactly, unfortunately, can you tell me? I've never done this before.
Wow does everyone insist on using coded updates? I do , but I do it commercially... If your developing a release or practice code etc... Use VB's built in Update feature...
@Flamestabber , Maybe it's just me, but something familiar about you.... , in either case... no need to be so aggressive in your responses, if you want to help...then help... if not, and you feel you know the answer and you are 100% correct, then don't bother ..
@Flamestabber , Maybe it's just me, but something familiar about you.... , in either case... no need to be so aggressive in your responses, if you want to help...then help... if not, and you feel you know the answer and you are 100% correct, then don't bother ..
Originally Posted by NextGen1
Wow does everyone insist on using coded updates? I do , but I do it commercially... If your developing a release or practice code etc... Use VB's built in Update feature...
@Flamestabber , Maybe it's just me, but something familiar about you.... , in either case... no need to be so aggressive in your responses, if you want to help...then help... if not, and you feel you know the answer and you are 100% correct, then don't bother ..
@Flamestabber , Maybe it's just me, but something familiar about you.... , in either case... no need to be so aggressive in your responses, if you want to help...then help... if not, and you feel you know the answer and you are 100% correct, then don't bother ..
Ya we have a heavenly connection lol...
I was not aggressive, just trying to help him out ASAP coz I wanted to complete my project I was writing...
Anywayz, I talked to him on MSN, and he don't want to login to FTP and still wants to compare hashes
!!Similar Threads
- 2Last post
- 0Last post
- 7Last post
- 2Last post
- 7Last post