Bueno les traigo mi método de cifrado preferido en una sola función que sirve tanto para cifrar como para descifrar, los carácteres no se repiten, El unico debug que le he encontrado y quisiera ayuda para solucionarlo es el siguiente:
Si el largo del texto es mayor al valor ASCII maximo (255) y los carácteres son los mimos en una cadena seguida de 255+1 carácter da debug...
Por ejemplo:
256 Caráracteres "a"

aaaaaaaaaaaaaaaaaa......
aaaaaaaaaaaaaaaaaaa....

Aqui el codigo:

 Public Function DEncriptStr(ByVal str As String) As String
        Dim int As Long = str.Length
        DEncriptStr = Nothing
        For Each x As String In str
            DEncriptStr = DEncriptStr & Chr(Asc(x) Xor int)
        Next
        Return DEncriptStr
    End Function

  Gracias de adelantado...

Adoro este foro .__. Gracias

Si es verdad que los estandares actuales son mejor de lo que podramos hacer, aunque nunca esta demas inventarse su propio algoritmo para ver como fue evolucionando xD, o simple diversion jajaja xD; puede que iventes el MD6 x ejemplo haciendo esto xD xD jajajaj