[firebase-br] rfunc como instalar?

[Joaquim Pais]

Imports System.Security.CryptographyImports System.Text
 Public Class Util

    Public Shared Function GeraHashMD5(ByVal texto As String) As String

        Dim btyScr() As Byte = ASCIIEncoding.ASCII.GetBytes(texto)
        Dim objMd5 As New MD5CryptoServiceProvider()
        Dim btyRes() As Byte = objMd5.ComputeHash(btyScr)
        Dim intTotal As Integer = (CInt(btyRes.Length * 2) +
CInt((btyRes.Length / 8)))
        Dim strRes As StringBuilder = New StringBuilder(intTotal)
        Dim intI As Integer

        For intI = 0 To btyRes.Length - 1
            strRes.Append(BitConverter.ToString(btyRes, intI, 1))
        Next intI

        Return strRes.ToString().TrimEnd(New Char() {" "c}).ToLower

    End FunctionEnd Class

isto em vb.net

On 8/18/07, Arlei Ferreira Farnetani Junior (Farsoft) <junior em farsoft.com.br>
wrote:
>
> Pessoal, baixei o rfunc pois me disseram que
>
> ele tem varias funções legais. Tive vendo que
>
> ele está disponivel para fb 1.5!
>
>
>
> Alguem sabe se o mesmo roda no Fb 2?
>
>
>
> Como faço para instalar o mesmo?
>
>
>
> É recomendável utilizar o mesmo?
>
>
>
> Eu preciso de uma funçao que me gere o
>
> hash md5 e me indicaram ele...se
>
> alguem tiver algo mais simples agradeço!
>
>
>
> Grato!
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para editar sua configuração na lista, use o endereço
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>



-- 
Sem mais com os cumprimentos
____________________________
Joaquim Pais