Autor Beitrag
Iaa_1
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 61



BeitragVerfasst: Fr 11.07.08 09:36 
Hi leute ich habe folgendes Problem:
Ich möchte in einem Prozess die Adrese mit einer bestimmten Value überschreiben.
Soweit geht alles jedoch nun kommt das Problem:
Für den Rest den ich vorhabe muss ich Offset anwenden, nur wie?
Dies ist mein jetziger Source fürs Überschreiben:
ausblenden Delphi-Quelltext
1:
2:
buffer^:=Chr($2E4);
WriteProcessMemory(whandle,ptr($139D728),buffer,1,write);

ausblenden Quelltext
1:
2:
3:
Offset= 2E4
Adresse= 139D728
Value= 0

aber wie mache ich das dann?
(Habe mal anstatt 0 für die Value dort mal den Offset eingegeben: geht nicht.)


Moderiert von user profile iconNarses: Topic aus Sonstiges (Delphi) verschoben am Fr 11.07.2008 um 09:59
Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt
Tilman
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1405
Erhaltene Danke: 51

Win 7, Android
Turbo Delphi, Eclipse
BeitragVerfasst: Fr 11.07.08 16:17 
Öhm... wandle Offset und Adresse in integer um und addiere sie einfach? Muss aber zugeben dass ich nicht ganz durchsteige was da gemacht werden soll.

ausblenden Delphi-Quelltext
1:
2:
zahl := integer(adresse);
adresse := pointer(zahl);

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)
Iaa_1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 61



BeitragVerfasst: Fr 11.07.08 16:30 
das verstehe ich nicht,wie umwandeln und wie dann addieren?
Tilman
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1405
Erhaltene Danke: 51

Win 7, Android
Turbo Delphi, Eclipse
BeitragVerfasst: Fr 11.07.08 16:37 
ausblenden Delphi-Quelltext
1:
2:
buffer^:=Chr($2E4);
WriteProcessMemory(whandle,ptr($2E4+$139D728),buffer,1,write);


Aber mir kommt das komisch vor sag ich gleich.

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)
Iaa_1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 61



BeitragVerfasst: Fr 11.07.08 16:43 
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
procedure TForm1.Recoil(Sender: TObject);
var
fenster, whandle, prozess, thread:integer;
buffer:pchar;
write:cardinal;
begin
fenster:=FindWindow(nil'WarRock');
timer1.enabled:=false;
If fenster=0 then showmessage('Das Spiel ist nicht gestartet!')
else begin
timer4.enabled:=true;
thread:=GetWindowThreadProcessId(fenster,@prozess);
whandle:=OpenProcess(PROCESS_ALL_ACCESS,False,prozess);
GetMem(buffer,1);
buffer^:=Chr($2DC);
WriteProcessMemory(whandle,ptr($2DC+$139D728),buffer,1,write);
buffer^:=Chr($2E0);
WriteProcessMemory(whandle,ptr($2E0+$139D728),buffer,1,write);
buffer^:=Chr($2E4);
WriteProcessMemory(whandle,ptr($2E4+$139D728),buffer,1,write);
FreeMem(buffer);
closehandle(whandle);
end;
end;
end.


also das geht schonmal nicht... :(
Tilman
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1405
Erhaltene Danke: 51

Win 7, Android
Turbo Delphi, Eclipse
BeitragVerfasst: Fr 11.07.08 16:46 
Du hast hier hardgecodete Adressen - wo hast du die her? Normalerweise werden Speicheradressen von Windows dynamisch vergeben. Sie stimmen also bei einem aufruf des Programms - un im nächsten nicht mehr.

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5284
Erhaltene Danke: 27

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: Fr 11.07.08 16:50 
Und cheaten in Multiplayerspielen wird auch nicht gerne gesehen.

mfg
Iaa_1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 61



BeitragVerfasst: Fr 11.07.08 16:51 
die adressen stammen von dir^^ (die umgerechneten)
Tilman
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1405
Erhaltene Danke: 51

Win 7, Android
Turbo Delphi, Eclipse
BeitragVerfasst: Fr 11.07.08 16:53 
user profile iconIaa_1 hat folgendes geschrieben:
die adressen stammen von dir^^ (die umgerechneten)


Jaja, sehr witzig ^^
$139D728 mein ich. Woher kommt das.

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)
Iaa_1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 61



BeitragVerfasst: Fr 11.07.08 16:55 
ach das, das habe ich in einer Liste gefunden:
Die Liste wird immer geupdatet und die nutze ich eigentlich sonst auch und da gings (bei Values freezen ohne offset).
Iaa_1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 61



BeitragVerfasst: Sa 12.07.08 20:19 
weiss es sonst keiner?:(
Xentar
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 2077
Erhaltene Danke: 2

Win XP
Delphi 5 Ent., Delphi 2007 Prof
BeitragVerfasst: Sa 12.07.08 21:52 
Google meint, dass WarRock ein Onlinespiel sei.. und das was du vorhast, verstößt sicher gegen die AGBs...

Kann ein Mod bitte hier den Thread schließen?
elundril
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 3747
Erhaltene Danke: 123

Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
BeitragVerfasst: So 13.07.08 04:34 
**auf anraten zensiert**

hey, tino, gausi oder sonstwer vom mod-team, könnt ihr bitte die IP-Adresse an PunkBuster bzw an K2 weiterleiten damit der typ gesperrt wird?

lg

_________________
This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.


Zuletzt bearbeitet von elundril am So 13.07.08 04:57, insgesamt 1-mal bearbeitet
ZeitGeist87
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1593
Erhaltene Danke: 20

Win95-Win10
Delphi 10 Seattle, Rad Studio 2007, Delphi 7 Prof., C++, WSH, Turbo Pascal, PHP, Delphi X2
BeitragVerfasst: So 13.07.08 04:46 
Elundril..nicht sehr konstruktiv..geht auch in einem anderen Tonfall..

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
elundril
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 3747
Erhaltene Danke: 123

Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
BeitragVerfasst: So 13.07.08 04:48 
gehts denn überhaupt konstruktiv? und mein tonfall könnte schlimmer sein, dürfte eigentlich sogar, immerhin hab ich wegen solchen leuten zum spielen aufgehört!

//edit: sry, du hast recht. ich werd meinen beitrag zensieren. Da is die aufgestaute wut gegen hacker wohl etwas durchgekommen. tut mir leid.

_________________
This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.


Zuletzt bearbeitet von elundril am So 13.07.08 04:56, insgesamt 1-mal bearbeitet
ZeitGeist87
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1593
Erhaltene Danke: 20

Win95-Win10
Delphi 10 Seattle, Rad Studio 2007, Delphi 7 Prof., C++, WSH, Turbo Pascal, PHP, Delphi X2
BeitragVerfasst: So 13.07.08 04:56 
Ja, geht es!

Warum und weshalb du aufgehört hast sind deine persönlichen Gründe, und klar ist Cheaten/Botten etc. wirklich nicht schön.
Aber erklär ihm das doch per PN ;-)

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
F34r0fTh3D4rk
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 5284
Erhaltene Danke: 27

Win Vista (32), Win 7 (64)
Eclipse, SciTE, Lazarus
BeitragVerfasst: So 13.07.08 12:10 
Die IP-Adresse wird da aber auch nicht viel bringen ;)

mfg
Iaa_1 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 61



BeitragVerfasst: Mo 14.07.08 14:07 
oh man -.-
aber ihr wisst das net das game warrock gemeint ist?
und ja cheaten ist doof ...
elundril
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 3747
Erhaltene Danke: 123

Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
BeitragVerfasst: Mo 14.07.08 14:38 
dann verrat uns mal was du mit deinem programm vor hast? und ich kenn nur ein programm das warrock heißt...

_________________
This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
Fabian E.
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 554

Windows 7 Ultimate
Visual Studio 2008 Pro, Visual Studion 2010 Ultimate
BeitragVerfasst: Mo 14.07.08 14:50 
user profile iconIaa_1 hat folgendes geschrieben:

aber ihr wisst das net das game warrock gemeint ist?


user profile iconIaa_1 hat folgendes geschrieben:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
procedure TForm1.Recoil(Sender: TObject);
[...]
fenster:=FindWindow(nil'WarRock');
timer1.enabled:=false;
If fenster=0 then showmessage('Das Spiel ist nicht gestartet!')
[...]


Achso :roll:
Dieses Thema ist gesperrt, Du kannst keine Beiträge editieren oder beantworten.

Das Thema wurde von einem Team-Mitglied geschlossen. Wenn du mit der Schließung des Themas nicht einverstanden bist, kontaktiere bitte das Team.