problem al descifrar un texto y mas

[c0rrupt_gamer]

Hola a todos, el problema es el siguiente.
Estoy haciendo una aplicacion que coje cada caracter del tec¡xto k le indiques, lo pasa al codigo ASCII y le resta un numero alaetorio entre el 10 y el 25 (ese numero aleatorio es el mismo para todo el text y se guarda en el mismo al encriptarlo.
El problema es k al desencriptarlo, en las partes en las k habia un punto y aparte no lo detecta y pone un punto y aparte. Por lo k el texto queda un tanto diferente.
Komo puedo evitarlo?
Otro problñema es k solo me deja abrir textos del formato ".txt", he probado con los formatos ".doc" o ".wps" y el vb me dice algo como "Input past of file" o algo asi.
Alguna idea?

[NYlOn]

Q codigo usas para cifrar/descifrar ?

[c0rrupt_gamer]

es un codigo sencillito k hice mientras tenia estropeado internet

Código [Seleccionar] Expandir

Private Sub cmdDesencriptartxt_Click()
clave = Mid$(Text1.Text, 2, 2)
Label1.Caption = "LOADING. . ."
DoEvents
For i = 5 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If c = " " Then
        code = code & " "
    Else
        code = code & Chr$(Asc(c) + clave)
    End If
Next
Text1.Text = code
i = 1
c = ""
code = ""
cmdDesencriptartxt.Enabled = False
clave = 0
Label1.Caption = ""
End Sub

Private Sub cmdEncriptartxt_Click()
Randomize timer
Label1.Caption = "LOADING. . ."
DoEvents
r = Int(Rnd * 16) + 10
For i = 1 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If Asc(c) - r < 1 Then
        On Error Resume Next
    ElseIf c = " " Then
        code = code & c
    Else
        code = code & Chr$(Asc(c) - r)
    End If
       
Next
Text1.Text = "[" & r & "]" & code
clave = r
code = ""
c = ""
r = 0
i = 1
cmdEncriptartxt.Enabled = False
cmdDesencriptartxt.Enabled = True
Label1.Caption = ""
End Sub

Las variables i, c, r, code y clave estan declaradas de forma global. Hace mucho k no miro el codigo, lo hice deprisa y corriendo asi k tampoco me acuerdo muy bien como iba.

A parte del problema mencionado antes, si encontrais algun fallo(k seguro k lo hay) hacedmelo saber ,ok?


Saludos.

[c0rrupt_gamer]

En serio nadie sabe como solucionar el problema???

Nadie??

[Kizar]

No se mu bien, pero te puedo decir que cuanco cargas un texto a una string, los saltos de linea los representa con un cuadradito []

Salu2

[c0rrupt_gamer]

En ese caso podria detectar cuando la variable c es = [].

Pero como hago para k al descifrar el vb cambie los [] por saltos o puntos y aparte?


Ps: lo mas gracioso de esto es k seguramente es algo facilisimo para muchos, o una simple linea de codigo.

[yeikos]

¿Pusiste el textbox en multiline?

[c0rrupt_gamer]

Claro, y el problema esta ahi, ej:
(antes de cifrar)

blablablabla
blabla
bla


(despues de cifrar y descifrar)

blablablablablablabla


El resultado keda asi, pero en cambio los espacios si k los respeta.

[Ertai]

El "Enter" o retorno de carro es el vbCrLf.

[_Sergi_]

Y para representar es VbNewLine