Kategori

Delphi

  • Jumlah Kode: 297
  • Update Kode Terbaru: Nov 19' 14
  • Jumlah Halaman : 30
  • Anda berada di halaman : 1

Add New Section to PE File

  • 2014-11-19
  • 100

{  Unit: uAddSection  Author: steve10120   Description: Add a new section to a PE file.   Thanks: Nacho_dj   Website: ic0de.org   History: First try              Bugfix - SetLength(bDataBuff, dwNewSectionSize); } unit uAddSection;//steve10120interfaceuses  Windows;function AddSection(szFileName:string; szNewSectionName:string; dwNewSectionSize:DWORD; Baca kanjut


Operate Clipboard without Clipboard Unit

  • 2014-11-19
  • 17

{    Coder: steve10120     Compiled: Delphi7     Website: hackhound.org } GetClipText retreives the current text in the clipboard. SetClipText sets the required text to the clipboard. function GetClipText(var szText:string):Boolean;var  hData:  DWORD;  pData:  Pointer;  dwSize: DWORD;begin  Result := FALSE;  if OpenClipBoard(0) then  begin    hData := Baca kanjut


Tree View File Manager

  • 2014-11-19
  • 28

A tree view or an outline view is a graphical user interface element (widget) that presents a hierarchical view of information. Each item (often called a branch or a node) can have a number of subitems. This is often visualized by indentation in a list. An item can be expanded to reveal subitems, if any exist, and collapsed to hide subitems. Tree views are often seen in file manager applications, Baca kanjut


Extract Complete Icon [All Sizes]

  • 2014-11-19
  • 17

ICO file format is an image file format for icons in Microsoft Windows. .ICO files contain one or more small images at multiple sizes and color depths. This function shows you how to extract the entire .ico file from an executable. Read more: http://en.wikipedia.org/wiki/ICO_%28file_format%29 {    Coder: Xash     Compiled: Delphi 10 Lite }Function PickIconDlgW(OwnerWnd: HWND; lpstrFile: Baca kanjut


Enumerate Services

  • 2014-11-19
  • 17

On Microsoft Windows operating systems, a Windows service is a long-running executable that performs specific functions and which is designed not to require user intervention. Windows services can be configured to start when the operating system is booted and run in the background as long as Windows is running, or they can be started manually when required. They are similar in concept to a Unix Baca kanjut


Listening to the Clipboard

  • 2014-11-19
  • 67

An application can be notified of changes in the data stored in the Windows clipboard by registering itself as a Clipboard Viewer. Clipboard viewers use two API calls and several messages to communicate with the Clipboard viewer chain. SetClipboardViewer adds a window to the beginning of the chain and returns a handle to the next viewer in the chain. ChangeClipboardChain removes a window from the Baca kanjut


Enumerate Windows

  • 2014-11-19
  • 17

In computing, a window is a visual area containing some kind of user interface. It usually has a rectangular shape.[1]  It displays the output of and may allow input to one or more processes. Read more: http://en.wikipedia.org/wiki/Window_%28computing%29 type  PMyEnumParam = ^TMyEnumParam;  TMyEnumParam = record    lb: TListbox;  end;function GetWindows(const hWnd: Longword; Param: Baca kanjut


Get Active Window Caption

  • 2014-11-19
  • 22

Retreives the title of the active window. function ActiveCaption: string;var  Handle: THandle;  Len: LongInt;  Title: string;begin  Result := '';  Handle := GetForegroundWindow;  if Handle 0 then  begin    Len := GetWindowTextLength(Handle) + 1;    SetLength(Title, Len);    GetWindowText(Handle, PChar(Title), Len);    ActiveCaption := TrimRight(Title);  Baca kanjut


Capture the Output of a DOS application

  • 2014-11-19
  • 20

{   Unit: uDOSOutput   Author: Marco Pipino   Description: Capture the Output of a DOS application   Original: freevbcode.com/ShowCode.asp?ID=3957   Ported by: steve10120   Website: hackhound.org   History: First try }unit uDOSOutput;interfaceuses Windows;function ExecuteCommand(CommandLine:string):string;var  mCommand: string;  mOutputs: string;implementationfunction Baca kanjut


Local API Redirection

  • 2014-11-19
  • 23

{     Unit: uRedirectAPI      Author: steve10120     Description: Redirect imported API's, making rebuilding after dump harder.     Notes: This is just a simple [mov eax, xxxx >> jmp eax] to the API, if you want to defeat generic tracing functions you should obfuscate it somehow.      Website: hackhound.org      History: First try}unit uRedirectAPI;interfaceuses Baca kanjut




Kategori

Tag Terhubung