No hay problema, te entiendo, siempre que se nececita algo nadie contesta, je.

Lei tu post para no responderte cualquier cosa.

Perimero te explico:

El codigo que descifra es este:
Citar
DO WHILE A < LEN(CR$)
A = A + 1
B = B + 1: IF B > LEN(N$) THEN B = 1
C = C + 1: IF C > LEN(C$) THEN C = 1
D = ASC(MID$(CR$, A, 1)) - (ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1)))
Loop3:
IF D < 1 THEN D = D + 255: GOTO Loop3
M$ = M$ + CHR$(D)
LOOP

Lo que hace es correr los caracter ASCI segun el String "123456" restarlos y sumarlos usando como valores A,B y C de los otros String que los obtiene de la cadena cifrada.
En pocas palabras y para que entiendas, cuando se cifra corre caracteres ASCI e "inventa otros", el codigo desencriotado es menor al cifrado.

La inversa a eso seria sumar todo lo  que resta y demas, osea, en donde suma 5 caracteres y agrega X caracteres hacer lo inverso, restarle 5 caracteres y sacar X caracteres.
Y usa como llave de "encriptacion/desencriptacion" los Strings:
Citar
N$ = "123456" 'CODIGO UNO PARA descifrar
C$ = "123456" 'CODIGO DOS PARA descifrar
CR$ = ""

Parece complicado pero no lo es.

Saludos.