Einsprungadresse einer Procedur ermitteln?

**richard_boderich**

moin zusammen

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

gruß richard

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.

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)

Einsprungadresse einer Procedur ermitteln?

Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Re: Einsprungadresse einer Procedur ermitteln?

Forumregeln

richard_boderich Registriert seit: 21. Jun 2004 Ort: Berlin 1.067 Beiträge Delphi 7 Architect	#1 Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 10:13 moin zusammen weis jemand zufaellig wie es moeglich ist die einsprungadresse einer bestimmten procedure zu ermitteln? gruß richard mfG Richard Cimmams schrieb "das einzige was an ArmA gut ist, ist die Grafik bis 100m und der Rest ist so unreal wie unsere Demokratie."
	Zitat

NicoDE (Gast) n/a Beiträge	#2 Re: Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 10:42 Welcher Prozedur? GetProcAddress() ist so offensichtlich, dass ich vermute, dass du etwas anderes meinst...
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.196 Beiträge Delphi 12 Athens	#3 Re: Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 10:45 Von nico für Externes, also DLLs und Co. und von mir für's interne @Prozedurname Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat

brechi Registriert seit: 30. Jan 2004 823 Beiträge	#5 Re: Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 11:16 Kommt drauf an ob die den Virtuellen oder Raw Offset haben willst.
	Zitat

richard_boderich Registriert seit: 21. Jun 2004 Ort: Berlin 1.067 Beiträge Delphi 7 Architect	#6 Re: Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 11:22 warum geht das nicht? compiler meckert "variable erforderlich" var bla:longint; begin bla:=@procedurename Richard mfG Richard Cimmams schrieb "das einzige was an ArmA gut ist, ist die Grafik bis 100m und der Rest ist so unreal wie unsere Demokratie."
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#8 Re: Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 11:38 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. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

NicoDE (Gast) n/a Beiträge	#9 Re: Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 11:38 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).
	Zitat

brechi Registriert seit: 30. Jan 2004 823 Beiträge	#10 Re: Einsprungadresse einer Procedur ermitteln? 28. Jun 2006, 11:54 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)
	Zitat