Einsprungadresse einer Procedur ermitteln?

[richard_boderich]

moin zusammen

weis jemand zufaellig wie es moeglich ist die einsprungadresse einer bestimmten procedure
zu ermitteln?

gruß richard

[NicoDE]

Welcher Prozedur? GetProcAddress() ist so offensichtlich, dass ich vermute, dass du etwas anderes meinst...

[himitsu]

Von nico für Externes, also DLLs und Co. und von mir für's interne
@Prozedurname

[richard_boderich]

nein ich will die einsprungadresse einer procedur meines delphi programms ermitteln.
das ganze will ich wissen weil ich dabei bin einen proof of concept crackerschutz zu entwicklen.


gruß richard

//edit: @himitsu sollte das wirklich so einfach sein?

[brechi]

Kommt drauf an ob die den Virtuellen oder Raw Offset haben willst.

[richard_boderich]

warum geht das nicht? compiler meckert "variable erforderlich"



var bla:longint;


begin

bla:=@procedurename


Richard

[Go2EITS]

@Brechi
Das Problem habe ich auch.

Ich möchte die Einsprungadresse + Endadresse einer Procedure/Funktion virtuell.
Ich verschlüssle die Procedure im Speicher. Bevor ich diese Aufrufe, wird die entschlüsselt
und wieder verschlüsselt. Ich weiß, nicht professionell, aber für den Anfang wird es wohl reichen.

Damit das Progremm nicht auf der Festplatte entschlüsselt werden kann (RAW), könnte man das Programm mit UPX komprimieren, damit wird zumindestens der einfache Cracker mal nicht zurechtkommen, da er den Prozess dumpen muss.

Go2eits

[Luckie]

Zitat von Go2EITS:

könnte man das Programm mit UPX komprimieren, damit wird zumindestens der einfache Cracker mal nicht zurechtkommen, da er den Prozess dumpen muss.

Nö, er kann es mit UPX auch wieder entpacken.

[NicoDE]

Zitat von richard_boderich:

warum geht das nicht?

LongInt und Pointer sind nicht kompatibel.
bla := LongInt(Addr(procedurename));

Stellt sich die Frage warum du ein LongInt verwendest. Vielleicht wären Funktionszeiger praktischer (typsicherer).

[brechi]

Zitat von richard_boderich:

warum geht das nicht? compiler meckert "variable erforderlich"

Dann bezweifel ich jetzt schon mal, dass du eine gute Methode gefunden hast, die länger als nen Tag sicher ist.

UPX header kaputtmachen, dann weigert sich UPX (Kann aber trotzdem ziemlich schnell anders entpackt werden)