how to open a file and hash it ?

[magenta_lover]

Hi all,
i want to open a file with this code

Dim linetext As String
Private Sub Command1_Click()
    CommonDialog1.Filter = "Text Files(*.txt) | *.txt"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Input As #1
    Do
    Input #1, linetext
    Text1.Text = Text1.Text &linetext
    Loop Until EOF(1)
    End If
    Close #1
  
    End Sub

after that, i want hash that opened file with MD5.
How to do this in visual basic 6?

I really newbie in this things, i appreciate any help
thanks^^

[vb5prgrmr]

For MD5 there are a couple of ways...

See strongm's post about 1/4 of the way down in this thread...

http://www.tek-tips.com/viewthread.cfm?qid=535644

or there is a post at http://www.pscode.com that is a module that calculates the MD5 hash. (Strongm's is faster).

Good Luck

[magenta_lover]

Thanks a lot vb5prgrmr :)
your info is really useful..
thanks for help me to found what i need to solve the problem ^^