AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi WinSocket Buffer richtig angeben?
Thema durchsuchen
Ansicht
Themen-Optionen

WinSocket Buffer richtig angeben?

Ein Thema von DarkPressure · begonnen am 30. Apr 2006 · letzter Beitrag vom 4. Mai 2006
Antwort Antwort
DarkPressure

Registriert seit: 24. Mär 2006
28 Beiträge
 
Delphi 2006 Architect
 
#1

WinSocket Buffer richtig angeben?

  Alt 30. Apr 2006, 17:02
Hallo erstmal,
Habe mal wieder ein Problem.
Ich möchte über eine (injected) DLL ein WinSocketSend ausführen.
Dazu muss ich von meinem Programm erst Speicher im Zielprogramm sichern und meine Daten reinschreiben (den Buffer).
Läuft momentan so ab:
Delphi-Quellcode:
Uses madRemote;
..
    Lenge := 4 + Length(Unit1.Name) + 3 + Length(Edit1.Text) + 1;
    for Long := 1 to Length(Unit1.Name) do
    begin
    NewName := NewName + IntToHex(ord(Unit1.Name[Long]), 2);
    end;
    for Long2 := 1 to Length(Edit1.Text) do
    begin
    NewText := NewText + IntToHex(ord(Edit1.Text[Long2]), 2);
    end;
    SollBuffer := Pchar('F3001000' + NewName + '203A20'+ NewText + '00');
    Place := AllocMemEx(Lenge, Unit1.PID);
    Proc := OpenProcess(PROCESS_VM_WRITE, False, Unit1.PID);
    WriteProcessMemory(Proc, Place, SollBuffer, Lenge, BytesWritten);
    CloseHandle(Proc);
    FreeMemEx(Place, Proc);
..
Der SollBuffer besteht nur aus HexWerten und das ist falsch.
Die HexWerte müssen in ein konformes Format umgewandelt werden, hat da jemand ne Idee?
  Mit Zitat antworten Zitat
DarkPressure

Registriert seit: 24. Mär 2006
28 Beiträge
 
Delphi 2006 Architect
 
#2

Re: WinSocket Buffer richtig angeben?

  Alt 30. Apr 2006, 19:33
Falls es hilft, so soll es eingesetzt werden in der DLL
Programm schickt:
Delphi-Quellcode:
    if AskRO(IntToStr(Socket) + '§' + IntToStr(Integer(Place)) + '§' + IntToStr(Lenge) + '§' + IntToStr(Flags)) = True then
    FreeMemEx(Place, Proc);
Angenommen und eingesetzt so:
Delphi-Quellcode:
procedure GetMsgFromEXE(name : pchar;
                        messageBuf : pointer; messageLen : dword;
                        answerBuf : pointer; answerLen : dword); stdcall;
begin
  // this code has to be thread safe!
    Stringarray := Explode('§', pchar(messageBuf));
    Send(StrToInt(Stringarray[0]), Pointer(Stringarray[1]), StrToInt(StringArray[2]), StrToInt(StringArray[3]));
    boolean(answerBuf^) := True;
end;
  Mit Zitat antworten Zitat
DarkPressure

Registriert seit: 24. Mär 2006
28 Beiträge
 
Delphi 2006 Architect
 
#3

Re: WinSocket Buffer richtig angeben?

  Alt 4. Mai 2006, 20:04
Mitllerweile weiß ich das ich den Hex String Byte für Byte also z.b. 01 nächster 00 in den Speicher schreiben muss.
Kann mir mal jemand da aushelfen wie ich das anstellen kann?
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz