Visual Basic 6 - Criptare(scusate per prima)

Io uso semplicemente,se la memoria non m'inganna :

Dim cont as integer
Dim frase,stringa as string
'stringa è la frase criptata
frase = "Ciao" ' La frase da criptare
For cont = 1 to Len(frase)
stringa = stringa & Chr(asc(mid(frase,cont,1)) - 20)
next
'sostituisci il 20 con un un numero,piu è grande maggiore sarà il livello di criptazione.

Mentre per decriptare,devi mettere sempre lo stesso numero,ma con +,ovvero :

Dim cont as integer
Dim frase,stringa as string
'stringa è la frase criptata
frase = "[!{;" ' La frase criptata(ammettiamo sia cosi)
For cont = 1 to Len(frase)
stringa = stringa & Chr(asc(mid(frase,cont,1)) [b]+[/b] 20)
next

Se ci sono errori dimmi,perche l'ho fatto a memoria,e non so se ricordo bene