Advertisement
Advertisement
| 04.05.2008 at 05:02PM PDT, ID: 23298918 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
|
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
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: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: |
//////////////////////////////////////////////////////////////////////
If IsVerbose Then
begin
pBuffer := '[' + GetNameFromHandle(Handle) + '] ' + 'Write Memory(0x' + IntToHex(Integer(BaseAddress),8) + '): ' + BufferToHex(PChar(Copy(tBuffer,1,cbWrite))) + ' | ByteCount: ' + IntToStr(cbWrite);
{$IFDEF Debug}
Log('pBuffer: ' + pBuffer);
{$ENDIF}
end
/////////////////////////////////////////////////////////////////////
function GetNameFromHandle(Handle : THandle): String;
var
Buffer : PChar;
begin
Result:='';
{$IFDEF Debug}
Log('GetNameFromHandle called. Handle=' + IntToStr(Handle));
{$ENDIF}
If Handle = 0 Then
begin
Exit;
end;
Try
Buffer := AllocMem(MAX_PATH + 1);
Try
If ((GetModuleFileNameEx(Handle,0,Buffer,MAX_PATH) = 0) And (GetLastError > 0)) Or ((GetModuleBaseName(Handle,0,Buffer,MAX_PATH) = 0) And (GetLastError > 0)) Then
begin
Result := '';
{$IFDEF Debug}
Log('Error at GetNameFromHandle. Error Code=' + IntToStr(GetLastError));
{$ENDIF}
end
Else
begin
Result := Buffer;
{$IFDEF Debug}
Log('End of GetNameFromHandle. Result=' + Buffer);
{$ENDIF}
end;
Finally
FreeMem(Buffer);
end;
Finally
end;
{$IFDEF Debug}
Log('End of GetNameFromHandle');
{$ENDIF}
end;
|
| Microsoft |
| Apple |
| Internet |
| Gamers |
| Digital Living |
| Virus & Spyware |
| Hardware |
| Software |
| ITPro |
| Developer |
| Storage |
| OS |
| Database |
| Security |
| Programming |
| Web Development |
| Networking |
| Other |
| Community Support |
| 04.07.2008 at 03:02AM PDT, ID: 21295458 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: |
...
Finally
FreeMem(Buffer);
end;
Except
{$IFDEF Debug}
ON e: Exception do
Log('GetNameFromHandle Error : ' + E.Message);
{$ENDIF}
end;
{$IFDEF Debug}
Log('End of GetNameFromHandle');
{$ENDIF}
...
|
| 04.08.2008 at 01:03AM PDT, ID: 21303272 |
| 04.08.2008 at 01:06AM PDT, ID: 21303288 |
| 04.08.2008 at 01:08AM PDT, ID: 21303298 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: |
procedure TForm1.Button1Click(Sender: TObject); var PID : Cardinal; Written : Cardinal; Buffer : Char; begin GetWindowThreadProcessID(FindWindow(nil,'Calculator'),PID); Buffer := #13; WriteProcessMemory(OpenProcess(PROCESS_ALL_ACCESS,False,PID),Pointer($400000),@Buffer,1,Written); end; |
| 05.05.2008 at 03:25AM PDT, ID: 21498983 |
| 05.05.2008 at 10:56AM PDT, ID: 21501705 |
| 05.05.2008 at 11:55AM PDT, ID: 21502140 |
| 05.06.2008 at 06:26AM PDT, ID: 21507064 |
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: |
procedure Log(Text: String);
begin
AssignFile(sLog,'C:\Spy.dll.log');
if fileexists('C:\Spy.dll.log') then
append(slog)
else
ReWrite(sLog);
try
Writeln(sLog,DateTimeToStr(Now) + ': ' + Text);
finally
closefile(slog);
end;
end;
procedure OpenLog;
begin
Log('Log started at ' + DateTimeToStr(Now));
end;
procedure CloseLog;
begin
log('Log ended at ' + DateTimeToStr(Now));
end;
|
| 05.16.2008 at 07:07PM PDT, ID: 21587731 |
