Tengo esta duda

[Valkyr]

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.

[Zeroql]

pero en que se te puede ayudar si ya te han dichjo todo

[Valkyr]

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.

[Zeroql]

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.

[elmaro]

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

[erbuson]

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

[Valkyr]

Nose que pasa que cuando le doy a empezar, sale Expected: end-of-statement y lo e copiado el codigo perfectamente

[xDie]

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

Código [Seleccionar] Expandir


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.zip

Salu2 

[Valkyr]

Código [Seleccionar] Expandir

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.

[CeLaYa]

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.php

si 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"