C# / VB.NET - criptare il nome utente

Salve a tutti mi piacerebbe sapere come posso criptare un nome utente con un'algoritmo che posso utilizzare anche con il php cioè sia con il vb.net sia con il php estraendo il nome utente (dal registro di sistema) vorrei criptarlo, che algoritmo posso usare? come faccio in vb.net???
Grazie mille a tutti

Se va bene un algoritmo di hashing usa lo sha1 o l'md5(ti consiglio sha1), in php si fa:

$var = sha1($dati);
oppure
$var = md5($dati);


in vb.net invece guarda qui:

gabrielebesta.it/wp/

Scusate ma questa cosa mi interessa... come faccio poi a decriptrlo?

Scusate ma vorrei sapere come posso criptare una stringa interna al programma e non che bisogna salvare il file poi aprirlo, poi criptarlo ma solo: Ho una textbox dove scrivo ciao e lui mi deve criptare il ciao senza salvarlo ne niente solo criptarlo subito al momento...

Se è un hash non lo decripti, semplicemente lo compari!






Un po di inventiva su! Invece di passargli lo Stream trasformi la stringa in un array di byte e gli passi quello!
Se non sai come trsformare una stringa in un array di byte vedi qua:
chilkatsoft.com/faq/…

Caro manvb.net anche se aggiungo quella funzione che mi hai postato mi da sempre errore di sintassi, prova a controlare il codice magari ho sbagliato:

Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class frmMain
    Dim passw As String = Nothing

    Public Shared Function StrToByteArray(ByVal str As String) As Byte()
        Dim encoding As New System.Text.ASCIIEncoding()
        Return encoding.GetBytes(str)
    End Function

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StrToByteArray(passw.ToString)
    End Sub

    Public Function genera_hash(ByVal file_path As String, _
                                ByVal tipo_hash As String) As String
        Dim buffer() As Byte = Nothing

        If tipo_hash = "md5" Then
            Dim md5 As New MD5CryptoServiceProvider()
            md5.ComputeHash(passw)
            buffer = md5.Hash
        ElseIf tipo_hash = "sha1" Then
            Dim sha1 As New SHA1CryptoServiceProvider()
            sha1.ComputeHash(passw)
            buffer = sha1.Hash
        End If

        Dim hash As New StringBuilder(buffer.Length)
        For i As Integer = 0 To buffer.Length - 1
            hash.Append(buffer(i).ToString("X2"))
        Next

        Return hash.ToString.ToLower
    End Function
End Class

Mi pare ovvio che a ComputeHash gli devi passare l'array di byte e non la stringa passw!
Una domandina, ma non lo usi l'intellisense?

Certo ke lo uso ma scs cm faccio no riesco a capire sn i pallone sn stato sotto il sole...