XProfan

Italia

p.specht

Maschinenprogramme per älteres XProfan:
Assembler-Hex in statisches Array (declare A&[fixeZahl]) packen gelingt nur per kleine Programme ohne grande Sprungweiten, solange diese Internetseite: [...]

noch online ist, und man sich dort 32-Bit-Code generieren lässt! Vorteil: Kann fast alle x86/x87/mmx/xmm/sse..-Befehle! Nachteil: Compiliert wird die Verwendung anderer als der XProfan-X4-geprüften Inline-Asmcodes riskant...

Kompilieren Markieren Separieren

Cls
'Vorspann per jedes ASM-Programm:
'55                      push   ebp
'89 e5                   mov    ebp,esp
'Quelle per "Wirkteil": https://defuse.ca/online-x86-assembler.htm
'8b 45 08                mov    eax,DWORD PTR [ebp + $08]
'Abspann per jedes ASM-Programm (Dein eigenes Edit):
'89 ec                   mov    esp,ebp
'5d                      pop    ebp
'c2 04 00                ret    $04  '<<< ZU EDITIEREN!: 4 Byte pro 1 Parameter
Var P$="5589E5"+"8B4508"+"89EC5DC20400"' (Vorspann + Wirkteil + Abspann)
Var Pz&=(len(P$)-1)/8
Declare B&[Pz&],Z$' : print sizeof(B&[])-1 '= Check MaxIndex

WhileLoop 0,Pz&:Z$=left$(mid$(P$,8*&Loop+1,8)+"00000000",8)

    Z$=mid$(z$,7,2)+mid$(z$,5,2)+mid$(z$,3,2)+mid$(z$,1,2):B&[&Loop]=val("$"+Z$)

endwhile

Print CALL(addr(b&[0]),1234567890)
WaitInput
End