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...

Primero un saludo a todos soy nuevo en elhacker.net y soy programador vb aficionado xD, uso visual basic 2008 express
Como cargo un archivo skn como skin para mi aplicación; ya registre el actskin4.ocx

Gracias de antemano