algoritmo di criptazioni password

Qui di seguito, si riporta un algoritmo per la creazione di password, l'algoritmo è molto semplice, ma con un pò di impegno, si può rendere più complesso e robusto.
txtpassword è una casella di testo


Private Sub genera()
Dim intcontalettere As Integer
Dim strTEsto As String
strTEsto = "abcdefghilmnopqrstuvz"

If Trim(txtparola.Text) = "" Then Exit Sub
For intcontalettere = 1 To Len(txtparola.Text)
txtpassword.Text = txtpassword.Text & Asc(Mid(txtparola, intcontalettere, 1)) & Mid(strTEsto, Int((21 * Rnd) + 1), 1)
Next intcontalettere

End Sub



Mentre per decriptare tale codice utilizzare la funzione qui di seguito.

Dim strNumero As String
Dim intConta As Integer
txtparola.Text = ""
For intConta = 1 To Len(txtpassword.Text)
If IsNumeric(Mid(txtpassword.Text, intConta, 1)) Then
strNumero = strNumero & Mid(txtpassword.Text, intConta, 1)
Else
txtparola.Text = txtparola.Text & Chr(CLng(strNumero))
strNumero = ""
End If

Next intConta