Cita de: Valkyr_Spain en 30 Septiembre 2006, 19:07 PM
CLS 'limpia la pantalla
SCREEN 12 'posiscion del texto en la pantalla
COLOR 15 ' color que se va a usar para el texto
LOCATE 1, 20: PRINT "PROGRAMA CREADO POR: -=CICKLOW CIS WOLW=-" 'texto mostrado en la pantalla
COLOR 9
LOCATE 5, 20: PRINT "descifrando INFORMACION!!"
SLEEP 4 'tiempo de espera para seguir con la operacion
N$ = "123456" 'CODIGO UNO PARA descifrar 'N$,C$ se usan para la variables
C$ = "123456" 'CODIGO DOS PARA descifrar
CR$ = "" ' variable
A = 0: B = 0: C = 0: M$ = "" operacion
CR$ = "ÊØÚؤ›'ÛÝߘÎËÒÇÚÓœÕ'É×ךÃÖ•ÞÓÞ×וáÕØÑÌ"ØÒÜ" 'INFORMACION cifrada 'la info que esta cifrada
DO WHILE A < LEN(CR$) proceso de repeticion
A = A + 1 'variable contadora
B = B + 1: IF B > LEN(N$) THEN B = 1 si. sino
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))) 'se envia a D los valores en caractres del texto cifrado
Loop3: 'finalizar el repetir
IF D < 1 THEN D = D + 255: GOTO Loop3 ' si esto es igual a lo otro valla a repeteir #3
M$ = M$ + CHR$(D) 'variable donde se almacena los caracteres ya descifrados
LOOP
COLOR 5
LOCATE 12, 20: PRINT "INFORMACION descifrada CON EXITO"
COLOR 10
LOCATE 15, 13:
esto esta hecho en Qick basic (D.O.S) si sabes algo de programacion no importa el lenguaje debes a ver reconocido al menos unas lineas, es tanto esto de algoritmos...
bueno espero que haya sido de utilidad.