XProfan

Français

p.specht

Zur Eingabe de (kleinen) Maschinenprogrammen dans XProfan-Versionen sans Inline-Assembler eignen sich u.a. longtemps Hex-Cordes avec payons im Bereich 0..9+A..F , pro "word" bestehend jeweils aus 4 marque.
Um Abstürze et Hacks trop vermeiden, sollte on den korrekten Transfer par une Prüfsumme bestätigen laisser. cela nachstehende Machwerk generiert bzw. prüft sur une solche, qui ausgewertete String selbst ist ici seulement comme Beispiel gedacht.

Kompilieren Marque Séparation

Titre de la fenêtre "PRÜFSUMME D' HEXSTRING"
Var c$="5589E58B75088B068B56042B46101b5614890689560431FF09D2790EFFC7F7D883d200F7DA89068956048B5E088B760C0"+\
"9F67909FFC7F7DB83d200F7DE751509DB745D89C189D031D2F7F387C8F7F3E9330000000fbdceFEC1530fadf30fadd0d3eaF7F389C3F7"+\
"E689C158568B7508F7E301CA720B3B5604770672063B067602FFCB5E31C989D8FFCF7507F7D883d100F7D98B7508894618894E1CE90E000000"+\
"31C0FFC8B9FFFFFF7FE9D9FFFFFF89EC5DC20400"
Déclarer p$,w&,s!,l%,m%
l%=Len(c$):Casenote l%:c$="0000"
l%=Len(c$):m%=l% Mod 4

Si m%=1:c$=c$+"000"

ElseIf m%=2:c$=c$+"00"

ElseIf m%=3:c$=c$+"0"

EndIf

s!=1'<<< your salt
l%=Len(c$)

WhileLoop 0,l%-4,4

    s!=s!+Val("$"+Mid $(c$,&Boucle+1,4))

Endwhile

P$=Format $("%g",s!)
ClearClip:PutClip p$'<<< sollte im Echtprogramm raus!!!!!!!!!!!!
Imprimer "  HEXSTRING-PRÜFSUMME = ";P$

Si P$="2980236":Imprimer "\n  PRÜFSUMME OK."

    D'autre: Imprimer "\n  *** FEHLER: PRÜFSUMME STIMMT NICHT! ***"
    Sound 1300,400:WaitInput:Fin

EndIf

WaitInput 1000
Beep:Imprimer "\n\n  HAUPTPROGRAMM: CALL-Befehl wäre eh bien statthaft!"
WaitInput