XProfan

Español

p.specht

A Eingabe de (pequeño) Maschinenprogrammen en XProfan-Versionen sin Inline-Ensamblador eignen se u.a. largo Hex-Cuerdas con Pagar en 0..9+A..F , pro "word" bestehend jeweils de 4 Signo.
Um Se bloquea y Hacks a vermeiden, debería uno el korrekten Transfer por una Prüfsumme bestätigen dejar. Das nachstehende Machwerk generiert o. prüft en una solche, el ausgewertete String incluso es hier sólo como Ejemplo pensamiento.

Kompilieren Marca Separación

Título de la ventana "PRÜFSUMME FÜR HEXSTRING"
Var c$="5589E58B75088B068B56042B46101b5614890689560431FF09D2790EFFC7F7D883d200F7DA89068956048B5E088B760C0"+\
"9F67909FFC7F7DB83d200F7DE751509DB745D89C189D031D2F7F387C8F7F3E9330000000fbdceFEC1530fadf30fadd0d3eaF7F389C3F7"+\
"E689C158568B7508F7E301CA720B3B5604770672063B067602FFCB5E31C989D8FFCF7507F7D883d100F7D98B7508894618894E1CE90E000000"+\
"31C0FFC8B9FFFFFF7FE9D9FFFFFF89EC5DC20400"
Declarar p$,w&,s!,l%,m%
l%=Len(c$):Casenote l%:c$="0000"
l%=Len(c$):m%=l% Mod 4

If 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$,&Loop+1,4))

EndWhile

P$=Formato$("%g",s!)
ClearClip:PutClip p$'<<< debería en el Echtprogramm fuera!!!!!!!!!!!!
Imprimir "  HEXSTRING-PRÜFSUMME = ";P$

If P$="2980236":Imprimir "\n  PRÜFSUMME OK."

    Más: Imprimir "\n  *** FEHLER: PRÜFSUMME STIMMT NICHT! ***"
    Sound 1300,400:WaitInput:End

EndIf

WaitInput 1000
Beep:Imprimir "\n\n  HAUPTPROGRAMM: CALL-Befehl wäre nun statthaft!"
WaitInput