Hola, tengo este codigo
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:
Y no se si es visual basic o que lenguaje es, en caso de que sea visual basic, tengo de compilador el Microsoft Visual Basic 2005 express, y nose como meter el codigo ni nada ya que no se programacion en vb. Espero no ser una molestia.
Muchas gracias de antemano y Saludos.
ese lenguaje es basic, sis tienes qbasic lo puedes ejecutar tranquilamente... ò no se si funcione pero intenta programar no con form si no como instancia de simbolo de sistema . depronto funcione.
Eso es QuickBasic, necesitas un editor de QuickBasic. Pudes usar por ejemplo Microsoft QuickBasic. La versión 1.1 viene en el CD de Windows 95 y Windows 98 dentro del directorio .../OLD/DOS/.
Sólo tienes que abrir QuickBasic, pegar el código entero y pulsar F5. Si quieres más, bájate algún buen tutorial de QB o bien mira la documentación adjunta (QB.HLP) que encontrarás en la carpeta que te dije.
Por ejemplo, COLOR sirve para cambiar el color del texto, SCREEN para cambiar los modos de pantalla (1-13) y LOCATE mueve el cursor de texto (hay dos cursores, el de textos y el de gráficos) a una posición de la pantalla.
Un saludo
PD: Si no tienes los CDs de Windows, puedes usar Firstbasic (http://www.powerbasic.com/files/pub/), pero éste programa es shareware y es difícil encontrarlo crackeado ya que es para DOS. Busca los archivos que necesitas en google, la mula etc.
PD2: QuickBasic 1.1 no permite compilar (generar EXE), necesitas QuickBasic 4.5
Me he pillado el quickbasic 4.5 pero esque para meter estos simbolos
"ÊØÚؤ›'ÛÝߘÎËÒÇÚÓœÕ'É×ךÃÖ•ÞÓÞ×וáÕØÑÌ"ØÒÜ"
Nose como meterlos porque no se como se hace para copiar desde windows al editor ya que la opcion pegar o paste no e sale. Que hago para meter esos simbolos??.
Gracias y saludos.
tenes que usar el codigo ascii
es como esto
alt + 64 =@
alt+126=~
alt+192=└
alt+96=`
alt+92=\
y asi consecutivamente.
Pues acabo de intentar probar y no he encontrado una tabla ascii con esos caracteres y en donde se mete el codigo fuente en el programa el qbasic no me funciona hacer eso de alt+69 por ejemplo :-( :-( . Que puedo hacer para poder sacar esos caracteres?????
1. Puedes encontrar una tabla ASCII en la ayuda que viene con el IDE de QuickBasic 4.5. De ahi, puedes copiar y pegar lo que se te antoje.
2. Si no sabes hacer eso, siempre puedes usar el comando pegar de la consola de Windows. Pulsa ALT + ENTRAR para asegurarte de que estás en modo ventana, luego pulsa ALT + BARRA ESPACIADORA y selecciona "Edición/Pegar"
Un saludo
Si, e conseguio hacerlo, y muchas gracias. Pero ahora tengo otro problema, yo lo que quiero hacer es descifrar esa cadena, y no tengo ni la mas remota idea de como se puede hacer. Supongo que podria ser como invertir la funcion del programa pero no tengo ni idea. Si alguno de vd. saben como se hace esto que poste la respuesta porfavor que es muy importante.
Espero no ser mucha molestia.
Muchas gracias y saludos.
Valkyr=Jazz.
Por lo que lei del codigo, lo que posteaste es para descifrar una cadena ¿como que no podes?.
Tiene que estar cifrada a la inversa del codigo que posteaste obviamente.
Ems perdona pero no entiendo como se hace eso XD, esque nose nada de programacion en este lenguaje, espero que no sea mucho pedir que me ayuden alguno ha hacer lo que dice hotmail_pop3.
Muchas gracias por toda la ayuda.
Saludos Valkyr.
Haber si con esta informacion que me dio hotmail_pop3
CitarNo 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.
pero en que se te puede ayudar si ya te han dichjo todo
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.
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.
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
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
Nose que pasa que cuando le doy a empezar, sale Expected: end-of-statement y lo e copiado el codigo perfectamente :huh:
Cita de: Valkyr_Spain en 19 Octubre 2006, 19:40 PM
Nose que pasa que cuando le doy a empezar, sale Expected: end-of-statement y lo e copiado el codigo perfectamente :huh:
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.zip
Salu2 :)
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$
ENDAsi 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.
Cita de: erbuson en 19 Octubre 2006, 12:06 PM
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.
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"
Yo no queria aprender, solo queria desencriptarla para un reto, y como de qbasic o vbasic no se nada de nada pues no lo pude hacer yo solo, y ademas no puedo ponerme a aprender este lenguaje ahora porque tengo otras cosas que estudiar, y apenas tengo tiempo para ello, yo no pedi a nadie apuntandole con una pistola para que me resolviese el problema, yo postee, y ustedes me ayudaron, lo cual estoy profundamente agradecido, asique si piensas que esto es hacerme el trabajo pues lo veo muy bien, eres libre de pensar lo que quieras pero ya digo que no pedi a nadie que por fuerza me resolviese el problema solo digo eso.
Muchas gracias de nuevo por todo y espero no haber sido mucha molestia y no haberles robado mucho tiempo.
Gracias y saludos.
la cadena desecriptad es una pagina web