 Autor
|
Tema: Tengo esta duda (Leído 4,888 veces)
|
Valkyr
 Desconectado
Mensajes: 646
Divide y vencerás
|
Haber si con esta informacion que me dio hotmail_pop3 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.
Haber si alguien me puede echar una mano. Saludos y gracias.
|
|
|
|
|
En línea
|
|
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
pero en que se te puede ayudar si ya te han dichjo todo
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
Valkyr
Desconectado
Mensajes: 646
Divide y vencerás
|
Ya, pero esque nose como se hace todo lo que me han dicho, ya dije que yo no se nada de programacion en este lenguaje, ni en vb, ni en qb ni en ninguno XD. Quizas estoy pidiendo demasiado, pero esque nose hacer esto y lo necesito.
Muchas gracias por todo.
Saludos.
|
|
|
|
|
En línea
|
|
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
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.
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
elmaro
Desconectado
Mensajes: 301
Unas simples palabras...
|
para que necesitas saber que es esa cadena cifrada??
es un ejemplo? o enverdad es algo importante???
si es importante simplemente pregunta a kien la cifro y que te la desencripte si es que no sabes ocmo hacerlo, xq ya se te dijo como hacerlo,. lo que te resta es bajarte un manual de qbasic y seguir paso a paso para poder correr el codigo a la perfeccion
|
|
|
|
|
En línea
|
|
|
|
erbuson
Desconectado
Mensajes: 2
|
Hola:
Si dispones de la fuente original, unicamente debes añadir después de
LOCATE 12, 20: PRINT "INFORMACION descifrada CON EXITO"
COLOR 10
LOCATE 15, 13:
la instruccion
PRINT M$
y te aparecerá el texto descifrado, aunque creo que te vas a llevar una soprpresa.
Un saludo
|
|
|
|
|
En línea
|
|
|
|
Valkyr
Desconectado
Mensajes: 646
Divide y vencerás
|
Nose que pasa que cuando le doy a empezar, sale Expected: end-of-statement y lo e copiado el codigo perfectamente  |
|
|
|
|
En línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
Nose que pasa que cuando le doy a empezar, sale Expected: end-of-statement y lo e copiado el codigo perfectamente Tienes qeu decir cuando termian el programa poenr un End al final CLS
SCREEN 12
COLOR 15
LOCATE 1, 20: PRINT "PROGRAMA CREADO POR: -=CICKLOW CIS WOLW=-"
COLOR 9
LOCATE 5, 20: PRINT "descifrando INFORMACION!!"
SLEEP 4
N$ = "123456" 'CODIGO UNO PARA descifrar
C$ = "123456" 'CODIGO DOS PARA descifrar
CR$ = ""
A = 0: B = 0: C = 0: M$ = ""
CR$ = "ÊØÚؤ›‘ÛÝߘÎËÒÇÚӜՒÉ×ךÃÖ•ÞÓÞ×וáÕØÑÌ”ØÒÜ" 'INFORMACION cifrada
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
COLOR 5
LOCATE 12, 20: PRINT "INFORMACION descifrada CON EXITO"
COLOR 10
LOCATE 15, 13:
END
Y aqui tienes un compilador Basic http://www.upseros.com/compiladores/qbasic45.zipSalu2 
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
Valkyr
Desconectado
Mensajes: 646
Divide y vencerás
|
CLS
SCREEN 12
COLOR 15
LOCATE 1, 20: PRINT "PROGRAMA CREADO POR: -=CICKLOW CIS WOLW=-"
COLOR 9
LOCATE 5, 20: PRINT "descifrando INFORMACION!!"
SLEEP 4
N$ = "123456" 'CODIGO UNO PARA descifrar
C$ = "123456" 'CODIGO DOS PARA descifrar
CR$ = ""
A = 0: B = 0: C = 0: M$ = ""
CR$ = "ÊØÚؤ›‘ÛÝߘÎËÒÇÚӜՒÉ×ךÃÖ•ÞÓÞ×וáÕØÑÌ”ØÒÜ" 'INFORMACION cifrada
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
COLOR 5
LOCATE 12, 20: PRINT "INFORMACION descifrada CON EXITO"
COLOR 10
LOCATE 15, 13:
PRINT M$
END Asi es como lo tengo puesto y me sigue dando el mismo error end-of-statement. Gracias por el qbasic45 pero ya lo tengo, gracias de todas formas. Haber si alguien sabe porque da este error, quizas sea el programa. aunque creo que te vas a llevar una soprpresa.
¿Porque dices que me voy a llevar una sorpresa?¿Esque has conseguido descifrar la informacion?. Saludos y Muchas gracias por todo lo que me estan ayudando.
|
|
|
|
|
En línea
|
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
Alguna vez vi que alguien escribio que no estamos aqui para hacerle el trabajo a otros, no se si sea verdad que no sabes nada de programación y quieras aprender o estes buscando alguien que te haga la chamba, pero como hoy ando de buenas hay te va la cadena descifrada: http://www.binari0s.com.ar/virus/ykloh.phpsi deberas quieres aprender a programar entonces de tarea te dejo hacer funcionar el codigo el VB, es de lo mas sencillo que pueda haber, "solo copiar y pegar" |
|
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
|
 |
