Schranz0r, you should code faster...
The contest ends this weekend...
The contest ends this weekend...
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
main()
FUNCTION main:
PRINT getOutput$("a547b28e9c95036c97e1369efc64d7216b9af46ed24e5cbcb6d81c6984d3c1f4f5b5e31aff81c6261cae7d0bab45346d76910dbfc04691c8fc0a8b46ab9a8c14127fc443ec71175cdf24375f8d71780f"), 0, 0
SHOWSCREEN
KEYWAIT
END
ENDFUNCTION
FUNCTION getOutput$: info$
LOCAL decrypted$, binaryLines$[], loop, pos, sum, digit, output$
DIM binaryLines$[11]
// String decryption
decrypted$ = DECRYPT$("GlbasicRocks", info$)
// Here I'm spliting the whole binary string into 11 parts of 7 "letters"
FOR loop = 0 TO 10
binaryLines$[loop] = MID$(decrypted$, 0 + (loop * 7), 7)
NEXT
// A little binary check
FOREACH b$ IN binaryLines$[]
sum = 0
FOR pos = 0 TO 6
// converts binary in decimal
digit = MID$(b$, pos, 1)
IF digit = 1 AND pos = 0 THEN INC sum, 64
IF digit = 1 AND pos = 1 THEN INC sum, 32
IF digit = 1 AND pos = 2 THEN INC sum, 16
IF digit = 1 AND pos = 3 THEN INC sum, 8
IF digit = 1 AND pos = 4 THEN INC sum, 4
IF digit = 1 AND pos = 5 THEN INC sum, 2
IF digit = 1 AND pos = 6 THEN INC sum, 1
NEXT
// and decimal to ascii
output$ = output$ + CHR$(sum)
NEXT
RETURN output$
ENDFUNCTION
QuoteSet the "Lines" mode to "full" (screen) and the video mode to "full" or "refresh" to play video full screen and not inside the window. These settings can be pre-configured. The window covers the whole screen and contact to keyboard commands cannot be lost.