Support Forums

My Turn!!?!?!

I didn't get around to error handling and checking if the files in the textbox were valid files. But I will implement that later. Also when I have time I'm going to try this out in C# as well.

---

Looks I'm the lone wolf when it comes to the way we did this project! My code is pretty simple though. Looks like everyone did it the hard way!
Everybody's seemed to get their programs to work. Another challenge bites the dust.

@Infinity
What are you using this for? Im thinking you forgot to take it out?

(04-18-2011, 12:54 PM)Fragma Wrote: [ -> ]By the way guys.. Can I host the next challenge?

I don't see why not!

(04-18-2011, 10:21 AM)The High Roller Wrote: [ -> ]My Submission:

Spoiler (Click to View)

Screenshot:

Download Link:

Code:

http://www.mediafire.com/?cp96hb8n4wx4uhn

Source Code:

Code:

Public Class Form1

    Public Function VerifyMD5HashCode(ByVal filepath As String) As String
        Using verifythefile As New System.IO.FileStream(filepath, IO.FileMode.Open, IO.FileAccess.Read)
            Using themd5code As New System.Security.Cryptography.MD5CryptoServiceProvider
                Dim thahash() As Byte = themd5code.ComputeHash(verifythefile)
                Return ByteArrayToString(thahash)
            End Using
        End Using
    End Function
    Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
        Dim StringBuilder As New System.Text.StringBuilder(arrInput.Length * 2)
        For i As Integer = 0 To arrInput.Length - 1
            StringBuilder.Append(arrInput(i).ToString("X2"))
        Next
        Return StringBuilder.ToString().ToLower
    End Function
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MD5Hash1.Text = VerifyMD5HashCode(filepath1.Text)
        MD5Hash2.Text = VerifyMD5HashCode(filepath2.Text)
        If filepath1.Text = filepath2.Text Then
            MsgBox("The selected files are the same.", 64, "File Comparison Result")
            TrueResults.Text = "Both Files Are Identical"
            TrueResults.ForeColor = Color.LimeGreen
        Else
            MsgBox("The selected files are different.", 48, "File Comparison Result")
            TrueResults.Text = "Both Files Are Unidentical"
            TrueResults.ForeColor = Color.Red
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SelectFiles.ShowDialog()
        SelectFiles.Title = "Select File #1..."
    End Sub
    Private Sub SelectFiles_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SelectFiles.FileOk
        Dim file1 As String = SelectFiles.FileName
        filepath1.Text = file1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SelectFiles2.ShowDialog()
        SelectFiles2.Title = "Select File #2..."
    End Sub

    Private Sub SelectFiles2_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SelectFiles2.FileOk
        Dim file2 As String = SelectFiles2.FileName
        filepath2.Text = file2
    End Sub

    Private Sub filepath2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filepath2.TextChanged
        Button3.Enabled = True
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Process.Start("http://www.supportforums.net/member.php?action=profile&uid=4502")
    End Sub
End Class

Now this is what I call useful for something in the future. Great idea Infinity.

Where are the comment's yo?!?

That's a good question lol, I tried a different method of getting the file location directory, but I changed my method and reverted it to the one that I have now. I don't know why I kept it in there, I copied the code out with minor modifications though, but that variable isn't even used after it's defined I just noticed. I took it out though.

I like the way you changed the string though, to whether it's a file that got modified or not, I don't see a big point in what the last file was, although it is a little fancy lol.

Where's the drag and drop feature and all of that though? lol If you added a button to copy out the MD5 hashes somehow that would be an improvement too I think.

---

(04-18-2011, 12:39 PM)dudesons123 Wrote: [ -> ]The code:

Spoiler (Click to View)

Code:

Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class Form1


    Private Sub FButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FButton1.Click
        If OpenFileDialog1.ShowDialog(Me) = 1 Then
            txtFile1.Text = OpenFileDialog1.FileName
            Label3.Text = GetFileSize(txtFile1.Text).ToString & "kb"
        End If
    End Sub
    Private Function GetFileSize(ByVal MyFilePath As String) As Long
        Dim MyFile As New FileInfo(MyFilePath)
        Dim FileSize As Long = MyFile.Length
        Return FileSize
    End Function
    Private Sub FButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FButton2.Click
        If OpenFileDialog2.ShowDialog(Me) = 1 Then
            txtFile2.Text = OpenFileDialog2.FileName
            Label4.Text = GetFileSize(txtFile2.Text).ToString & "kb"
        End If
    End Sub
    Private Sub FButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FButton3.Click
        Me.Close()
    End Sub

    Private Sub FButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FButton4.Click
        Dim pipi As String = CalculateMD5(txtFile1.Text)
        Dim kaka As String = CalculateMD5(txtFile2.Text)
        If pipi = kaka Then
            MessageBox.Show("The 2 files are the same", "Yes!!")
        Else
            MessageBox.Show("Those are 2 different files", "Oh noes :(")
        End If

    End Sub
    Private Function CalculateMD5(ByVal strFilepath As String) As String
        Dim File() As Byte = System.IO.File.ReadAllBytes(strFilepath)
        Dim Md5 As New MD5CryptoServiceProvider()
        Dim byteHash() As Byte = Md5.ComputeHash(File)
        Return ByteArrayToString(byteHash)
    End Function
    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
End Class

The download link: http://7019.a.hostable.me/CheckMD5.exe
And an image:

This isn't in correct MD5 format though, but it's a good attempt

I updated my code and program functionality, it's a lot more advanced than it used to be, and no more annoying popup windows for MD5 confirmation. It's all in a label like KoBE's program. I got the idea of him, and I like it a lot better now that I added my code to make it that way.

Update: Added a paste function as well which will erase everything from the manual input MD5 hash textbox, and paste the data string from your clipboard. (The last piece of text you copied)



Direct Download (Immediate):
http://download1289.mediafire.com/96yfwb...k+v2.0.exe

Can you post the source? I don't really want to download it because I have to much crap on my computer.

(04-19-2011, 10:40 AM)Fragma Wrote: [ -> ]Can you post the source? I don't really want to download it because I have to much crap on my computer.

I already did, I just added a few things to it thats all. For the paste function I just added:


and for the new label for MD5 hash comparison confirmation:


The program is only 345Kb lol

(04-19-2011, 10:43 AM)Infinity Wrote: [ -> ]The program is only 345Kb lol

Thanks. The file size wasn't a problem, I just don't like having loads of programs cluttering my folders.
Did you change "{0:X1}" to "{0:X2}" like I recommended?

(04-19-2011, 10:46 AM)Fragma Wrote: [ -> ]Thanks. The file size wasn't a problem, I just don't like having loads of programs cluttering my folders.
Did you change "{0:X1}" to "{0:X2}" like I recommended?

Yeah I did, I also changed a few lines of code to tidy things up. I don't have repeats of the same thing like I used to. Only a couple where I needed it

Edit: My app is finally complete. all errors were solved and handled. Works perfect