FUNCAO DE VBNET PARA VB6
Boa tarde
como é que eu transforma esta função do vbnet para vb6
Imports System.Security.Cryptography
Public Function md5_file(ByVal filepath As String, Optional ByVal raw_output As Boolean = False) As String
Try
If Not System.IO.File.Exists(filepath) Then
Throw New Exception([Ô]Arquivo inexistente[Ô])
End If
Dim fs As New System.IO.FileStream(filepath, IO.FileMode.Open) [ô]usando a classe FileStream em vez da StreamReader
Dim md5 As New MD5CryptoServiceProvider
md5.ComputeHash(fs) [ô]Calculando direto atraves do objeto
fs.Close()
Dim hashfinal As String = [Ô][Ô]
For i As Integer = 0 To md5.Hash.Length - 1
If raw_output Then
hashfinal += Convert.ToChar(md5.Hash(i))
Else
hashfinal += Convert.ToString(md5.Hash(i).ToString([Ô]x2[Ô]))
End If
Next
Return hashfinal
Catch ex As Exception
Return ex.Message
End Try
End Function
como é que eu transforma esta função do vbnet para vb6
Imports System.Security.Cryptography
Public Function md5_file(ByVal filepath As String, Optional ByVal raw_output As Boolean = False) As String
Try
If Not System.IO.File.Exists(filepath) Then
Throw New Exception([Ô]Arquivo inexistente[Ô])
End If
Dim fs As New System.IO.FileStream(filepath, IO.FileMode.Open) [ô]usando a classe FileStream em vez da StreamReader
Dim md5 As New MD5CryptoServiceProvider
md5.ComputeHash(fs) [ô]Calculando direto atraves do objeto
fs.Close()
Dim hashfinal As String = [Ô][Ô]
For i As Integer = 0 To md5.Hash.Length - 1
If raw_output Then
hashfinal += Convert.ToChar(md5.Hash(i))
Else
hashfinal += Convert.ToString(md5.Hash(i).ToString([Ô]x2[Ô]))
End If
Next
Return hashfinal
Catch ex As Exception
Return ex.Message
End Try
End Function
Basicamente, você precisa de uma rotina que criptografe com MD5.
Segue um exemplo que encontrei no PSCODE.
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=71163&lngWId=1
Segue um exemplo que encontrei no PSCODE.
http://pscode.com/vb/scripts/ShowCode.asp?txtCodeId=71163&lngWId=1
Tópico encerrado , respostas não são mais permitidas