02-10-2004, 10:03 PM
This challenge isn't challenging no more. Here is my original proggie:
I've invented another encryptation algo. The output was:
Now crack this one.
Code:
DECLARE FUNCTION decript$ (a$)
DECLARE FUNCTION encript$ (a$)
a$ = "HELLO WORLD"
PRINT a$
b$ = encript$(a$)
PRINT b$
c$ = decript$(b$)
PRINT c$
FUNCTION decript$ (a$)
c% = VAL(a$): res$ = CHR$(c%)
o$ = RIGHT$(a$, LEN(a$) - LEN(LTRIM$(STR$(VAL(a$)))))
WHILE o$ <> ""
m$ = LEFT$(o$, 1)
o$ = RIGHT$(o$, LEN(o$) - 1)
IF m$ = "<" THEN c% = c% - VAL(o$) ELSE IF m$ = ">" THEN c% = c% + VAL(o$)
IF m$ <> "=" THEN o$ = RIGHT$(o$, LEN(o$) - LEN(LTRIM$(STR$(VAL(o$)))))
res$ = res$ + CHR$(c%)
WEND
decript$ = res$
END FUNCTION
FUNCTION encript$ (a$)
a% = ASC(LEFT$(a$, 1)): out$ = LTRIM$(STR$(a%))
FOR i% = 2 TO LEN(a$)
m% = ASC(MID$(a$, i%, 1))
IF m% = a% THEN
out$ = out$ + "="
ELSEIF m% < a% THEN
out$ = out$ + "<" + LTRIM$(STR$(a% - m%))
ELSE
out$ = out$ + ">" + LTRIM$(STR$(m% - a%))
END IF
a% = m%
NEXT i%
encript$ = out$
END FUNCTION
I've invented another encryptation algo. The output was:
Code:
35520781707917087370403237390843093082270089242032262084180723599073160833251033
Now crack this one.
SCUMM (the band) on Myspace!
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i