Adresse einer XProfan Variablen von einem fremden Programm aus ermitteln und ändern

[AHT]

Ich möchte mal testen, inwieweit man die Adresse einer vom Programm deklarierten XProfan Variablen von einem fremden Programm aus sicher ermitteln und ändern kann. Zum Testen bräuchte ich mal einige compilierte Profanprogramme (EXE), die in unterschiedlichen Profanversionen geschrieben sind (XProfan9 habe ich selbst).
Die Programme sollen folgendes tun:

a)

• Eine Longint Variable (&) global deklarieren.
• Diese Variable auf den Wert 1234567 setzen und dann nicht mehr verändern.
• Ein Programmfenster der Größe 460 X 75 erzeugen.

b)

• Eine LongInt Variable in einer Prozedur deklarieren.
• In der Prozedur die Variable auf den Wert 7654321 setzen.
• 5 Sekunden eine Schleife durchlaufen.
• Danach die globale und lokale Variable auslesen.
• Beide Variablen möglichst groß in einem Programmfenster darstellen.
• Die Prozedur verlassen und erneut aufrufen.

[Frabbing]

Ist einfacher wenn du die Quellcode dafür postest.

[AHT]

Das möchte ich nicht; die Variablen sollen immer anders heißen und der Quelltext nicht immer gleich groß sein.

[AHT]

Hier mal Kostprobe, wie das Programm aussehen sollte:
Download



PS: Bitte auch die Umfrage beachten.

[AHT]

Der Hintergrund der Sache

Ich lese öfters mal, das so etwas komplett unmöglich ist - in anderen Programmiersprachen gibt es aber sehr wohl Leute, die so etwas können (ich kenne einen ). Ich denke, das in XProfan die Vorgehensweise etwas anders ist als in anderen Sprachen (es geht mir darum, in welcher Sprache das Programm geschrieben ist, das manipuliert werden soll), das aber auch in XProfan das sehr wohl geht.
Da in XProfan die Vorgehensweise unter Umständen etwas anders ist, könnte es sein, das XProfan hier etwas sicherer ist als andere Sprachen, da die Vorgehensweise in XProfan bislang nicht bekannt und veröffentlicht ist - und das wird auch so bleiben.
Ich möchte das mal austesten...

[AHT]

Ich habe den Eindruck, das wird sehr interessant werden - bitte um Teilnahme .

[Frabbing]

Zitat von AHT

Hier mal Kostprobe, wie das Programm aussehen sollte:
Download



PS: Bitte auch die Umfrage beachten.

Poste doch einfach mal den Quellcode, dann compiliere ich mit 11.2. Bin irgenwie noch nicht fit.

[AHT]

Bitte Variablen anders benennen und anderen Fenstertitel wählen!
Es kann auch noch anderer Code drumherum gebaut werden.

Declare Global&
Global& = 1234567
WindowStyle 31
WindowTitle "Vartest von AHT"
Window 0, 0 - 460, 75
While 1
 Auslesen
EndWhile
Proc Auslesen
 Declare lokal&, Tick&
 lokal& = 7654321
 Tick& = &GetTickCount
 While &GetTickCount < (Tick& + 5000)
  Sleep 1
 EndWhile
 CLS
 UseFont "Arial",30, 12, 1, 0, 0
 Textcolor 0, -1
 Drawtext 0, 0, "Global=" + Str$(Global&)
 Textcolor RGB(255, 0, 0), -1
 Drawtext 230,0,"Lokal=" + Str$(lokal&)
endproc

[Frabbing]

Ok, bitteschön.

http://frabbing.bplaced.net/Test.zip

[AHT]

Packe es bitte noch einmal und lade es hoch - mein Packer zeigt an, dass das Archiv defekt ist.

[Bangkok]

da du ja 11.2 von Frank hast hier mit Version 8

http://www.diezor.de/test.zip

[AHT]

Dein Link läuft leider ins Leere - hab also noch von keinem von euch ein Programm. Kann auch mehrere in XProfan11 gebrauchen, wenn die sich etwas unterscheiden.

[Bangkok]

Lade nochmal, habe gerade eben selbst geladen, es geht einwandfrei

[AHT]

@Dieter: Hat jetzt geklappt
Deine Globale Variable hast du Test& genannt.
Sie liegt an Adresse 5351092 (dezimal) und dürfte dort immer und auf allen Windowsversionen liegen (letzteres Teste ich noch genauer).
Hier ein Screenshot deines Programms - dir dürfte da was auffalen .



Bislang alles richtig?

Alles weiter gleich...

[Bangkok]

Ja sie heißt test&, aber das weißt du, der Wert wurde ja geändert