Hola APOKLIPTICO
Pues si quiero empezar a crear mis algoritmos, pero para eso es cierto q necesito practikar
Aorita estoy trabajando con VB NET (2008)
Mira por ejemplo hace tiempo buskando en internet me encontre este algoritmo
Function Cifra(Byval texto as string,Byval clave as string)
Dim I As Integer,C As String,almacen As String
For I = 1 To Len(texto) 'vamos a recorrer todo el texto
C = Asc(Mid(texto, I, 1)) 'cada repeticion C tendra el valor de los caracteres(1*1)
C += Asc(Mid(ju, (I Mod Len(clave)) + 1, 1)) 'aqui esta lo interesante !!
almacen += Chr(C And &HFF) 'aqui se va almacenando el textoCifrado
Next
Return almacen
End Function
'***************************
'******* PARA DESCIFRAR
'**************************
Function Dcifra(Byval texto as string,Byval clave as string)
Dim I As Integer,C As String,almacen As String
For I = 1 To Len(texto)
C = Asc(Mid(texto, I, 1))
C -= Asc(Mid(ju, (I Mod Len(clave)) + 1, 1))
almacen += Chr(C And &HFF)
Next
Return almacen
End Function