XProfan

Français

p.specht

une particularité de XProfan-11´s Clicked()-Befehl: il scheint qui Auswertung qui internen %Key-Variable trop behindern. c'est pourquoi funktioniert cela nachstehende, quelque chose naïf programmierte Zahlenschloss (Democode: "12345", C = CLEAR) seulement ENTWEDER avec Keyboard-Eingabe ODER avec Mausklicks sur qui Buttons, im letzteren le cas ist ensuite allerdings aucun Keyboardeingabe plus possible. qui Übergang de Keyboard trop souris klappt mais.

Kompilieren Marque Séparation

Titre de la fenêtre "  ZAHLENSCHLOSS ":Fenêtre Style 24
'(D) Demo 2017-10 by P.Specht, vienne. OHNE JEDE GEWÄHR!
'Profan-particularité: Mausverwendung schaltet Keyboardeingabe ab!
Fenêtre %maxx\2-75,(%maxy\2-75) - 166,148
var hdl1&=@Créer("Button",%hwnd,"1", 00,00, 40,30)
var hdl2&=@Créer("Button",%hwnd,"2", 40,00, 40,30)
var hdl3&=@Créer("Button",%hwnd,"3", 80,00, 40,30)
var hdld&=@Créer("Button",%hwnd,"C",120,00, 40,30)
var hdl4&=@Créer("Button",%hwnd,"4", 00,30, 40,30)
var hdl5&=@Créer("Button",%hwnd,"5", 40,30, 40,30)
var hdl6&=@Créer("Button",%hwnd,"6", 80,30, 40,30)
var hdlm&=@Créer("Button",%hwnd,">",120,30, 40,30)
var hdl7&=@Créer("Button",%hwnd,"7", 00,60, 40,30)
var hdl8&=@Créer("Button",%hwnd,"8", 40,60, 40,30)
var hdl9&=@Créer("Button",%hwnd,"9", 80,60, 40,30)
var hdls&=@Créer("Button",%hwnd,"<",120,60, 40,30)
var hdlk&=@Créer("Button",%hwnd,», 00,90, 40,30)
var hdl0&=@Créer("Button",%hwnd,"0", 40,90, 80,30)
var hdlg&=@Créer("Button",%hwnd,"=",120,90, 40,30)
declare Ende&,s$,n&,key&

WHILENOT Ende&

    waitinput:key&=%clé

    IF key&

        Si key&=ord("1"):inc n&:Titre de la fenêtre str$(n&)+":1":s$=$ S+"1"

        ElseIf key&=ord("2"):inc n&:Titre de la fenêtre str$(n&)+":2":s$=$ S+"2"

        ElseIf key&=ord("3"):inc n&:Titre de la fenêtre str$(n&)+":3":s$=$ S+"3"

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

            n&=0:Titre de la fenêtre str$(int(n&+1))+": ":s$=»

        ElseIf key&=ord("4"):inc n&:Titre de la fenêtre str$(n&)+":4":s$=$ S+"4"

        ElseIf key&=ord("5"):inc n&:Titre de la fenêtre str$(n&)+":5":s$=$ S+"5"

        ElseIf key&=ord("6"):inc n&:Titre de la fenêtre str$(n&)+":6":s$=$ S+"6"

        ElseIf key&=ord(">"):inc n&:Titre de la fenêtre str$(n&)+":>":s$=$ S+">"

        ElseIf key&=ord("7"):inc n&:Titre de la fenêtre str$(n&)+":7":s$=$ S+"7"

        ElseIf key&=ord("8"):inc n&:Titre de la fenêtre str$(n&)+":8":s$=$ S+"8"

        ElseIf key&=ord("9"):inc n&:Titre de la fenêtre str$(n&)+":9":s$=$ S+"9"

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

            Titre de la fenêtre str$(int(n&+1))+»:
            s$=left$(s$,len($ S)+si(len($ S)>2,-1,0))

        ElseIf key&=ord(»):inc n&:Titre de la fenêtre str$(n&)+",":s$=$ S+»

        ElseIf key&=ord("0"):inc n&:Titre de la fenêtre str$(n&)+":0":s$=$ S+"0"

        ElseIf key&=ord("="):Titre de la fenêtre str$(n&)+":="+s$:waitinput 2000

            Ende&=1:Titre de la fenêtre "Wiedersehen!":waitinput 2000:FIN

        endif

    ELSE

        Si Clicked(hdl1&):inc n&:Titre de la fenêtre str$(n&)+":1":s$=$ S+"1"

        ElseIf Clicked(hdl2&):inc n&:Titre de la fenêtre str$(n&)+":2":s$=$ S+"2"

        ElseIf Clicked(hdl3&):inc n&:Titre de la fenêtre str$(n&)+":3":s$=$ S+"3"

        ElseIf Clicked(hdld&):n&=0:Titre de la fenêtre str$(int(n&+1))+": ":s$=»

        ElseIf Clicked(hdl4&):inc n&:Titre de la fenêtre str$(n&)+":4":s$=$ S+"4"

        ElseIf Clicked(hdl5&):inc n&:Titre de la fenêtre str$(n&)+":5":s$=$ S+"5"

        ElseIf Clicked(hdl6&):inc n&:Titre de la fenêtre str$(n&)+":6":s$=$ S+"6"

        ElseIf Clicked(hdlm&):inc n&:Titre de la fenêtre str$(n&)+":>":s$=$ S+">"

        ElseIf Clicked(hdl7&):inc n&:Titre de la fenêtre str$(n&)+":7":s$=$ S+"7"

        ElseIf Clicked(hdl8&):inc n&:Titre de la fenêtre str$(n&)+":8":s$=$ S+"8"

        ElseIf Clicked(hdl9&):inc n&:Titre de la fenêtre str$(n&)+":9":s$=$ S+"9"

        ElseIf Clicked(hdls&):dec n&:cas n&<0:n&=0:Titre de la fenêtre str$(int(n&+1))+»

            cas len($ S):s$=left$(s$,len($ S)-1)

        ElseIf Clicked(hdlk&):inc n&:Titre de la fenêtre str$(n&)+",":s$=$ S+»

        ElseIf Clicked(hdl0&):inc n&:Titre de la fenêtre str$(n&)+":0":s$=$ S+"0"

        ElseIf Clicked(hdlg&):inc n&:Titre de la fenêtre str$(n&)+":="+s$:Ende&=1

            waitinput 2000:Titre de la fenêtre "Wiedersehen!":waitinput 2000:FIN

        endif

    ENDIF

    'Auswertung (cet Version encore sans Obfuscator):

    si (n&=5) and ($ S="12345")

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

    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:"
Fenêtre 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

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

25.05.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

p.specht

XOR-Obfuskator vers neugierige Nasen, qui den Zahlenschloss-Code aus qui Source auslesen voulons

Kompilieren Marque Séparation

style de fenêtre 24:Windowtitle "For your eyes only, XOR!":cls
declare 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:imprimer "\n Geheime Botschaft: ":font 0:imprimer a$
font 2:imprimer "\n     XOR-Schlüssel: ":font 0:imprimer c$
b$=»:cas c$=»:c$=chr$(0)

whileloop len(a$)

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

endwhile

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

whileloop len(b$)

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

endwhile

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

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

endif

waitinput
cls
imprimer "\n ses Geheimbotschaft: ";
Contribution a$
goto "Start"