XProfan

Título de la ventana "  ZAHLENSCHLOSS ":Ventana de Estilo 24
'(D) Demo 2017-10 by P.Pájaro carpintero, Wien. OHNE JEDE GEWÄHR!
'Profano-Eigenheit: Mausverwendung schaltet Keyboardeingabe de!
Ventana %maxx\2-75,(%maxy\2-75) - 166,148
var hdl1&=@Crear("Button",%hwnd,"1", 00,00, 40,30)
var hdl2&=@Crear("Button",%hwnd,"2", 40,00, 40,30)
var hdl3&=@Crear("Button",%hwnd,"3", 80,00, 40,30)
var hdld&=@Crear("Button",%hwnd,"C",120,00, 40,30)
var hdl4&=@Crear("Button",%hwnd,"4", 00,30, 40,30)
var hdl5&=@Crear("Button",%hwnd,"5", 40,30, 40,30)
var hdl6&=@Crear("Button",%hwnd,"6", 80,30, 40,30)
var hdlm&=@Crear("Button",%hwnd,">",120,30, 40,30)
var hdl7&=@Crear("Button",%hwnd,"7", 00,60, 40,30)
var hdl8&=@Crear("Button",%hwnd,"8", 40,60, 40,30)
var hdl9&=@Crear("Button",%hwnd,"9", 80,60, 40,30)
var hdls&=@Crear("Button",%hwnd,"<",120,60, 40,30)
var hdlk&=@Crear("Button",%hwnd,",", 00,90, 40,30)
var hdl0&=@Crear("Button",%hwnd,"0", 40,90, 80,30)
var hdlg&=@Crear("Button",%hwnd,"=",120,90, 40,30)
declarar Ende&,s$,n&,key&

WHILENOT Ende&

    waitinput:key&=%key

    IF key&

        If key&=ord("1"):inc n&:Título de la ventana str$(n&)+":1":s$=s$+"1"

        ElseIf key&=ord("2"):inc n&:Título de la ventana str$(n&)+":2":s$=s$+"2"

        ElseIf key&=ord("3"):inc n&:Título de la ventana str$(n&)+":3":s$=s$+"3"

        ElseIf (key&=ord("c")) or (key&=ord("C"))

            n&=0:Título de la ventana str$(int(n&+1))+": ":s$=""

        ElseIf key&=ord("4"):inc n&:Título de la ventana str$(n&)+":4":s$=s$+"4"

        ElseIf key&=ord("5"):inc n&:Título de la ventana str$(n&)+":5":s$=s$+"5"

        ElseIf key&=ord("6"):inc n&:Título de la ventana str$(n&)+":6":s$=s$+"6"

        ElseIf key&=ord(">"):inc n&:Título de la ventana str$(n&)+":>":s$=s$+">"

        ElseIf key&=ord("7"):inc n&:Título de la ventana str$(n&)+":7":s$=s$+"7"

        ElseIf key&=ord("8"):inc n&:Título de la ventana str$(n&)+":8":s$=s$+"8"

        ElseIf key&=ord("9"):inc n&:Título de la ventana str$(n&)+":9":s$=s$+"9"

        ElseIf key&=ord("<"):dec n&:caso n&<0:n&=0

            Título de la ventana str$(int(n&+1))+":":
            s$=left$(s$,len(s$)+if(len(s$)>2,-1,0))

        ElseIf key&=ord(","):inc n&:Título de la ventana str$(n&)+":,":s$=s$+","

        ElseIf key&=ord("0"):inc n&:Título de la ventana str$(n&)+":0":s$=s$+"0"

        ElseIf key&=ord("="):Título de la ventana str$(n&)+":="+s$:waitinput 2000

            Ende&=1:Título de la ventana "Wiedersehen!":waitinput 2000:FIN

        endif

    ELSE

        If Clicked(hdl1&):inc n&:Título de la ventana str$(n&)+":1":s$=s$+"1"

        ElseIf Clicked(hdl2&):inc n&:Título de la ventana str$(n&)+":2":s$=s$+"2"

        ElseIf Clicked(hdl3&):inc n&:Título de la ventana str$(n&)+":3":s$=s$+"3"

        ElseIf Clicked(hdld&):n&=0:Título de la ventana str$(int(n&+1))+": ":s$=""

        ElseIf Clicked(hdl4&):inc n&:Título de la ventana str$(n&)+":4":s$=s$+"4"

        ElseIf Clicked(hdl5&):inc n&:Título de la ventana str$(n&)+":5":s$=s$+"5"

        ElseIf Clicked(hdl6&):inc n&:Título de la ventana str$(n&)+":6":s$=s$+"6"

        ElseIf Clicked(hdlm&):inc n&:Título de la ventana str$(n&)+":>":s$=s$+">"

        ElseIf Clicked(hdl7&):inc n&:Título de la ventana str$(n&)+":7":s$=s$+"7"

        ElseIf Clicked(hdl8&):inc n&:Título de la ventana str$(n&)+":8":s$=s$+"8"

        ElseIf Clicked(hdl9&):inc n&:Título de la ventana str$(n&)+":9":s$=s$+"9"

        ElseIf Clicked(hdls&):dec n&:caso n&<0:n&=0:Título de la ventana str$(int(n&+1))+":"

            caso len(s$):s$=left$(s$,len(s$)-1)

        ElseIf Clicked(hdlk&):inc n&:Título de la ventana str$(n&)+":,":s$=s$+","

        ElseIf Clicked(hdl0&):inc n&:Título de la ventana str$(n&)+":0":s$=s$+"0"

        ElseIf Clicked(hdlg&):inc n&:Título de la ventana str$(n&)+":="+s$:Ende&=1

            waitinput 2000:Título de la ventana "Wiedersehen!":waitinput 2000:FIN

        endif

    ENDIF

    'Auswertung (Diese Versión todavía sin Obfuscator):

    if (n&=5) and (s$="12345")

        cls 0:font 2
        waitinput 1000
        beep
        imprimir "\n\n\n   K O R R E K T !  "
        waitinput 3000
        romper

    endif

EndWhile

CLS
DestroyWindow(hdl1&)
DestroyWindow(hdl2&)
DestroyWindow(hdl3&)
DestroyWindow(hdld&)
DestroyWindow(hdl4&)
DestroyWindow(hdl5&)
DestroyWindow(hdl6&)
DestroyWindow(hdlm&)
DestroyWindow(hdl7&)
DestroyWindow(hdl8&)
DestroyWindow(hdl9&)
DestroyWindow(hdls&)
DestroyWindow(hdlk&)
DestroyWindow(hdl0&)
DestroyWindow(hdlg&)
Windowtitle "Geschützt:"
Ventana 0,0-%maxx,%maxy:cls 0:showmax
PRINT "                   "
PRINT "HIER WÜRDE DANN DAS"
PRINT "GESCHÜTZTE PROGRAMM"
PRINT "GESTARTET ODER EIN "
PRINT "ELEMENT ANGEZEIGT! "
PRINT "                   "
PRINT "==================="
PRINT "THANKS FOR TESTING!"
PRINT "===================";
waitinput 6000
FIN

windowstyle 24:Windowtitle "For your eyes only, XOR!":cls
declarar a$,b$,c$,d$
'c$="Geheim-Schlüssel"
c$="#IB&H	…"
a$="For your eyes only! 0123456789+-*:"
'a$="":whileloop 0,255:a$=a$+chr$(&Loop):endwhile
Start:
font 2:imprimir "\n Geheime Botschaft: ":font 0:imprimir a$
font 2:imprimir "\n     XOR-Schlüssel: ":font 0:imprimir c$
b$="":caso c$="":c$=chr$(0)

whileloop len(a$)

    b$=b$+chr$(xor(ord(mid$(a$,&Loop,1)),ord(mid$(c$,(&Loop mod len(c$))+1,1))))

endwhile

font 2:imprimir "\n           Chiffre: ":font 0:imprimir b$
clearclip:putclip b$
font 2:imprimir " ==> Zwischenablage!"
d$=""

whileloop len(b$)

    d$=d$+chr$(xor(ord(mid$(b$,&Loop,1)),ord(mid$(c$,(&Loop mod len(c$))+1,1))))

endwhile

font 2:imprimir "\n      Dechiffriert: "
font 0:imprimir d$
imprimir

if a$<>d$:font 2:imprimir "\n *** ERROR ***":sound 2000,2000:waitinput

endif

waitinput
cls
imprimir "\n Ihre Geheimbotschaft: ";
Entrada a$
goto "Start"