SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: delyryus en Jueves 16 de Junio de 2005, 06:26

Título: Que Falta?
Publicado por: delyryus en Jueves 16 de Junio de 2005, 06:26
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
  1. CLS
  2. SCREEN 12
  3. COLOR 15
  4. LOCATE 1, 20: PRINT "PROGRAMA CREADO POR: -=CICKLOW CIS WOLW=-"
  5. COLOR 9
  6. LOCATE 5, 20: PRINT "DESENCRIPTANDO INFORMACION!!"
  7. SLEEP 4
  8. N$ = "PRUEVA" 'CODIGO UNO PARA DESENCRIPTAR
  9. C$ = "Cicklow" 'CODIGO DOS PARA DESENCRIPTAR
  10. CR$ = ""
  11. A = 0: B = 0: C = 0: M$ = ""
  12. CR$ = "û0-!üßö÷(# )ù Ü1%6ö$.(4êü!ì8@ù-ä:2(ûé)3"'INFORMACION ENCRIPTADA
  13. DO WHILE A < LEN(CR$)
  14.  A = A + 1
  15.  B = B + 1: IF B > LEN(N$) THEN B = 1
  16.  C = C + 1: IF C > LEN(C$) THEN C = 1
  17.  D = ASC(MID$(CR$, A, 1)) - (ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1)))
  18. Loop3:
  19.  IF D < 1 THEN D = D + 255: GOTO Loop3
  20.  M$ = M$ + CHR$(D)
  21. LOOP
  22. COLOR 5
  23. LOCATE 12, 20: PRINT "INFORMACION DESENCRIPTADA CON EXITO"
  24. COLOR 10
  25. LOCATE 15, 13:
  26.  
  27.  
  28.  
Título: Re: Que Falta?
Publicado por: RadicalEd en Jueves 16 de Junio de 2005, 18:19
wow Basic, casi nadie lo usa ya.
Esta es la variable que desencripta  D, entonces haces esto:
Código: Text
  1. LOCATE 12, 20: PRINT "INFORMACION DESENCRIPTADA CON EXITO" & D
  2.  
  3.