Programación General > Visual Basic para principiantes

 Que Falta?

(1/1)

delyryus:
tengo el siguiente codigo que tiene q desencriptar una cadena, pero para mostrar el resultado, hace falta una variable mas, y no se cual es :P


--- Código: Text ---CLSSCREEN 12COLOR 15LOCATE 1, 20: PRINT "PROGRAMA CREADO POR: -=CICKLOW CIS WOLW=-"COLOR 9LOCATE 5, 20: PRINT "DESENCRIPTANDO INFORMACION!!"SLEEP 4N$ = "PRUEVA" 'CODIGO UNO PARA DESENCRIPTARC$ = "Cicklow" 'CODIGO DOS PARA DESENCRIPTARCR$ = ""A = 0: B = 0: C = 0: M$ = ""CR$ = "û0-!üßö÷(# )ùÜ1%6ö$.(4êü!ì8@ù-ä:2(ûé)3"'INFORMACION ENCRIPTADADO 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)LOOPCOLOR 5LOCATE 12, 20: PRINT "INFORMACION DESENCRIPTADA CON EXITO"COLOR 10LOCATE 15, 13:   

RadicalEd:
wow Basic, casi nadie lo usa ya.
Esta es la variable que desencripta  D, entonces haces esto:

--- Código: Text ---LOCATE 12, 20: PRINT "INFORMACION DESENCRIPTADA CON EXITO" & D  

Navegación

[0] Índice de Mensajes