Anti Virus - SuperJer Forum

2009 Sep 6 • 2547
10 ₧

  code
Imports System.Security.Cryptography
Imports System.Text
Imports System.IO

Public Class Form1
    Dim file As String = "asdf"
    Dim newfile As String = "non"
    Dim filein As New FileStream(INfile.text, FileMode.Open, FileAccess.Read)

    Function getMd5Hash(ByVal input As String) As String
        ' Create a new instance of the MD5 object.
        Dim md5Hasher As MD5 = MD5.Create()
        ' Convert the input string to a byte array and compute the hash.
        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
        ' Create a new Stringbuilder to collect the bytes and create a string.
        Dim sBuilder As New StringBuilder()
        ' Loop through each byte of the hashed data  and format each one as a hexadecimal string.
        Dim i As Integer
        For i = 0 To data.Length - 1
            sBuilder.Append(data(i).ToString("x2"))
        Next i
        ' Return the hexadecimal string.
        Return sBuilder.ToString()
    End Function
    'Get the SHA1 Hash of a String
    ''' <param name="strToHash">The String to Hash</param>
    Function getSHA1Hash(ByVal strToHash As String) As String
        Dim sha1Obj As New Security.Cryptography.SHA1CryptoServiceProvider
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)

        bytesToHash = sha1Obj.ComputeHash(bytesToHash)

        Dim strResult As String = ""

        For Each b As Byte In bytesToHash
            strResult += b.ToString("x2")
        Next

        Return strResult
    End Function

    Private Sub Bencrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bencrypt.Click
        file = filein.ToString()
        If RBmd5.Checked = True Then
            newfile = getMd5Hash(file)
        ElseIf RBsha1.Checked = True Then
            newfile = getSHA1Hash(file)
        End If
        newfile = getMd5Hash(file)
        Dim this As System.IO.StreamWriter
        this = My.Computer.FileSystem.OpenTextFileWriter("C:\Users\Sprinkles\Desktop\new.txt", True)
        this.WriteLine(newfile)
        this.Close()
    End Sub
End Class

I get an Invalid Operation exception.
I cannot, at all, figure out why.
Even when I comment things out it still doesn't work.
I have to delete all of it to fix it.
I don't even know....

Edit ok it has something to do with the FileStream Declaration, I
hard coded it and it works now. But it only does so many characters.

How do I encrypt a file?
When I encrypt a file I get

  code
8f588de478ee81a213fe9e1be0a78131

When the other programs encrypt a file they get

  code
浜ᙴ榈屠훗췜댳ꁵ퇳

And theirs goes on and on...how do I get it like that?

≡

2010 Jan 11 at 21:40 PST — Ed. 2010 Jan 12 at 09:25 PST