Unbeatable password program.

Unbeatable password program. Adapts itself to what you put in. Warning: Cannot minimize, do not use unless you are prepared to restart your computer in order to get back into your own system. Just a 4-bit pass code! Not to be used for commercial use or re-distributed except by myself. Needs to look neater, but i am not so bothered about that.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem *********************************************************************
rem Written by Mark Boyall
rem Version 2
rem Not to be reproduced for any purposes except by my express permission
rem *********************************************************************

load dll "WinLockDll.dll", 1
call dll 1, "CtrlAltDel_Enable_Disable" ,0
call dll 1, "AltTab2_Enable_Disable" ,0,0
call dll 1, "Keys_Enable_Disable" ,0
call dll 1, "TaskSwitching_Enable_Disable" ,0 : rem enable end disable win key + alt tab.

a = 1024

do
print "enter password"
input b
if b = a
print "enter password"
else 
c = b
z = rnd(4)
if z = 1
a = a^b^c^d^x^y^9
endif
if z = 2
a = a*99999999
endif
if z = 3
a = c
endif
if z = 4
a = ab^99999 
endif
a = a^9999999^b
endif

print "enter password"
input b
if b = a
print "enter password"
else 
d = b
z = rnd(4)
a = a^9999999^b
if z = 1
a = a^b^c^d^x^y^9
endif
if z = 2
a = a*99999999
endif
if z = 3
a = c
endif
if z = 4
a = ab^99999 
endif
endif

print "enter password"
input b
if b = a
print "enter password"
else 
e = b
a = a^9999999^b
z = rnd(4)
if z = 1
a = a^b^c^d^x^y^9
endif
if z = 2
a = a*99999999
endif
if z = 3
a = c
endif
if z = 4
a = ab^99999 
endif
endif

print "enter password"
input b
if b = a
goto label
else 
a = a^9999999^b
z = rnd(4)
if z = 1
a = a^b^c^d^x^y^9
endif
if z = 2
a = a*99999999
endif
if z = 3
a = c
endif
if z = 4
a = ab^99999 
endif
endif

x = d - c 

if b = c + x + x + x 
if b = d + x + x
if b = e + x 
a = a^b^c^d
endif
endif
endif

y = d/c

if b = c*y*y*y
if b = d*y*y
if b = e*y
a = a^b^c^d
endif
endif
endif

cls

loop

label:
call dll 1, "Keys_Enable_Disable" ,1
call dll 1, "CtrlAltDel_Enable_Disable" ,1
call dll 1, "AltTab2_Enable_Disable" ,0,1
call dll 1, "TaskSwitching_Enable_Disable" ,1
end