MIRACLE NUMBER KEY

Share your advanced PureBasic knowledge/code with the community.
kvitaliy
Enthusiast
Enthusiast
Posts: 162
Joined: Mon May 10, 2010 4:02 pm

MIRACLE NUMBER KEY

Post by kvitaliy »

Тhese two magic numbers have extraordinary mathematical and esoteric properties, but most importantly - they are unique! There are no other such two numbers in the entire known natural set, as are 81 and 54. At the same time, these seemingly completely different numbers are related to each other by a very ephemeral but fundamental regularity of everything. However, here we will not delve into the jungle of mathematics and philosophy. Suffice it to say that we found a direct mathematical connection between these numbers and the structure of the matter of the universe. And then there were experiments ...
After spending about 300 experiments, we found an amazing - these two numbers are able to fulfill desires!
Be that as it may, in the course of our experiments, we very quickly came to the conclusion that only the random appearance of these two numbers in a certain sequence can become such a point of change in the life vector. And this is difficult - because the probability of the appearance of these numbers in such a sequence is extremely small! But why not use this chance ?! We created a simple program and found that pseudo-random generation of numbers using a computer processor is quite suitable for these purposes. And now we are absolutely free to offer this program to you!

Code: Select all

OpenConsole("MIRACLE NUMBER KEY")
EnableGraphicalConsole(1)

PrintN(" ╔══════════════════════════════════╗")
PrintN(" ║▒▒▒▒▒▒▒▒MIRACLE NUMBER KEY▒▒▒▒▒▒▒▒║")
PrintN(" ╠══════════════════════════════════╣")
PrintN(" ║▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ║▒▒▒▒▄▄▄▒▒▒▒▒▒▒▒▒▒▄▄▒▄▄▒▒▒▒▒▒▄▄▄▒▒▒║")
PrintN(" ║▒▒▄▄▒▒▒▄▄▒▒▒▒▒▒▒▒▄▒▄▒▄▒▒▒▒▒▄▒▒▒▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▒▒▒▒▒▒▒▄▄▒▄▄▒▒▒▒▒▄▄▄▄▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▄▄▄▄▄▄▄▄▒▄▒▄▒▒▒▒▒▄▄▒▄▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▄▄▄▄▄▄▄▄▄▄▄▄▒▒▒▒▒▄▄▄▄▄▒▒║")
PrintN(" ║▒▒▄▄▒▒▒▄▄▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▄▄▄▒▒▒║")
PrintN(" ║▒▒▒▄▄▄▄▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ║▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ╚══════════════════════════════════╝")
PrintN(" [press Enter ]")
Input()
Start:
ConsoleTitle( "Iteration : " + P)
PrintN(" ╔══════════════════════════════════╗")
PrintN(" ║▒▒▒▒▒▒▒▒MIRACLE NUMBER KEY▒▒▒▒▒▒▒▒║")
PrintN(" ╠══════════════════════════════════╣")
PrintN(" ║▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ║▒▒▒▒▄▄▄▒▒▒▒▒▒▒▒▒▒▄▄▒▄▄▒▒▒▒▒▒▄▄▄▒▒▒║")
PrintN(" ║▒▒▄▄▒▒▒▄▄▒▒▒▒▒▒▒▒▄▒▄▒▄▒▒▒▒▒▄▒▒▒▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▒▒▒▒▒▒▒▄▄▒▄▄▒▒▒▒▒▄▄▄▄▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▄▄▄▄▄▄▄▄▒▄▒▄▒▒▒▒▒▄▄▒▄▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▄▄▄▄▄▄▄▄▄▄▄▄▒▒▒▒▒▄▄▄▄▄▒▒║")
PrintN(" ║▒▒▄▄▒▒▒▄▄▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▄▄▄▒▒▒║")
PrintN(" ║▒▒▒▄▄▄▄▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ║▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ╚══════════════════════════════════╝")
 MIN=10
 MAX=99
N=Random(MAX,MIN)
M=Random(MAX,MIN)
P+1
If  N = 81
   If M = 54 
            Goto Winer:
    EndIf
EndIf
        
Goto Start
Winer:
ClearConsole()
PrintN(" ╔══════════════════════════════════╗")
PrintN(" ║▒▒▒▒▒▒▒▒MIRACLE NUMBER KEY▒▒▒▒▒▒▒▒║")
PrintN(" ╠══════════════════════════════════╣")
PrintN(" ║▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ║▒▒▒▒▄▄▄▒▒▒▒▒▒▒▒▒▒▄▄▒▄▄▒▒▄▄▄▒▒▒▒▒▒▒║")
PrintN(" ║▒▒▄▄▒▒▒▄▄▒▒▒▒▒▒▒▒▄▒▄▒▄▒▄▒▒▒▄▒▒▒▒▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▒▒▒▒▒▒▒▄▄▒▄▄▒▒▒▒▒▄▄▄▄▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▄▄▄▄▄▄▄▄▒▄▒▄▒▒▒▒▒▄▄▒▄▄▒▒║")
PrintN(" ║▒▄▄▒▒▒▒▒▄▄▄▄▄▄▄▄▄▄▄▄▄▄▒▒▒▒▒▄▄▄▄▄▒▒║")
PrintN(" ║▒▒▄▄▒▒▒▄▄▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▄▄▄▒▒▒║")
PrintN(" ║▒▒▒▄▄▄▄▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ║▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║")
PrintN(" ╚══════════════════════════════════╝")
PrintN(" [press Enter To exit]")
Input()
The program randomly generates two two-digit numbers and checks whether there is a pair of them equal to 81 and 54. If so, it stops and displays the corresponding graphic image of the open lock. This is exactly the turning point, when you should make your wish. Try it and you will be pleasantly surprised!

Happy upcoming Christmas, let your wishes come true!


The text is taken from the site http://miraclekey.far.ru/ and translated using the service Google
The original .BAT code:

Code: Select all

:: =========================================
::      (c) Numerological Laboratory
:: =========================================
@setlocal enabledelayedexpansion
@echo off
@title (c) Numerological Laboratory
@color 1B
@mode con: cols=37 lines=17
set ITR=0
@cls
@echo ЙНННННННННННННННННННННННННННННННННН»
@echo є°°°°°°°°MIRACLE NUMBER KEY°°°°°°°°є
@echo МННННННННННННННННННННННННННННННННННЧ
@echo є°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo є°°°°ЫЫЫ°°°°°°°°°°ЫЫ°ЫЫ°°°°°°ЫЫЫ°°°є
@echo є°°ЫЫ°°°ЫЫ°°°°°°°°Ы°Ы°Ы°°°°°Ы°°°Ы°°є
@echo є°ЫЫ°°°°°ЫЫ°°°°°°°ЫЫ°ЫЫ°°°°°ЫЫЫЫЫ°°є
@echo є°ЫЫ°°°°°ЫЫЫЫЫЫЫЫЫЫ°Ы°Ы°°°°°ЫЫ°ЫЫ°°є
@echo є°ЫЫ°°°°°ЫЫЫЫЫЫЫЫЫЫЫЫЫЫ°°°°°ЫЫЫЫЫ°°є
@echo є°°ЫЫ°°°ЫЫ°°°°°°°°°°°°°°°°°°°ЫЫЫ°°°є
@echo є°°°ЫЫЫЫ°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo є°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo ИННННННННННННННННННННННННННННННННННј
@echo [press any key]
>nul Pause
:Start
@title Iteration : %P%
@echo ЙНННННННННННННННННННННННННННННННННН»
@echo є°°°°°°°°MIRACLE NUMBER KEY°°°°°°°°є
@echo МННННННННННННННННННННННННННННННННННЧ
@echo є°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo є°°°°ЫЫЫ°°°°°°°°°°ЫЫ°ЫЫ°°°°°°ЫЫЫ°°°є
@echo є°°ЫЫ°°°ЫЫ°°°°°°°°Ы°Ы°Ы°°°°°Ы°°°Ы°°є
@echo є°ЫЫ°°°°°ЫЫ°°°°°°°ЫЫ°ЫЫ°°°°°ЫЫЫЫЫ°°є
@echo є°ЫЫ°°°°°ЫЫЫЫЫЫЫЫЫЫ°Ы°Ы°°°°°ЫЫ°ЫЫ°°є
@echo є°ЫЫ°°°°°ЫЫЫЫЫЫЫЫЫЫЫЫЫЫ°°°°°ЫЫЫЫЫ°°є
@echo є°°ЫЫ°°°ЫЫ°°°°°°°°°°°°°°°°°°°ЫЫЫ°°°є
@echo є°°°ЫЫЫЫ°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo є°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo ИННННННННННННННННННННННННННННННННННј
set MIN=10
set MAX=99
set /A N=%MIN%+(%MAX%-%MIN%+1)*%random%/32768
set /A M=%MIN%+(%MAX%-%MIN%+1)*%random%/32768
set /a P=ITR+=1 
IF "%N%"=="81" (
  If "%M%"=="54" (
            Goto Winer
        )
)
Goto Start
:Winer
@cls
@echo ЙНННННННННННННННННННННННННННННННННН»
@echo є°°°°°°°°MIRACLE NUMBER KEY°°°°°°°°є
@echo МННННННННННННННННННННННННННННННННННЧ
@echo є°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo є°°°°ЫЫЫ°°°°°°°°°°ЫЫ°ЫЫ°°ЫЫЫ°°°°°°°є
@echo є°°ЫЫ°°°ЫЫ°°°°°°°°Ы°Ы°Ы°Ы°°°Ы°°°°°°є
@echo є°ЫЫ°°°°°ЫЫ°°°°°°°ЫЫ°ЫЫ°°°°°ЫЫЫЫЫ°°є
@echo є°ЫЫ°°°°°ЫЫЫЫЫЫЫЫЫЫ°Ы°Ы°°°°°ЫЫ°ЫЫ°°є
@echo є°ЫЫ°°°°°ЫЫЫЫЫЫЫЫЫЫЫЫЫЫ°°°°°ЫЫЫЫЫ°°є
@echo є°°ЫЫ°°°ЫЫ°°°°°°°°°°°°°°°°°°°ЫЫЫ°°°є
@echo є°°°ЫЫЫЫ°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo є°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°є
@echo ИННННННННННННННННННННННННННННННННННј
@echo [press any key to exit]
>nul Pause
exit
walbus
Addict
Addict
Posts: 929
Joined: Sat Mar 02, 2013 9:17 am

Re: MIRACLE NUMBER KEY

Post by walbus »

There is only one number that can fulfill all wishes and decipher the wonder of the universe !

This number is 42
:o
Post Reply