No self-introduction
Loading
Profile
Follow
codes (11)
File with Delphi Borland 7 unlock
no vote
Application background type NTStatus = cardinal; CONST STATUS_SUCCESS = NTStatus($00000000); STATUS_ACCESS_DENIED = NTStatus($C0000022); STATUS_INFO_LENGTH_MISMATCH = NTStatus($C0000004); SEVERITY_ERROR = NTStatus($C0000000); type PSYSTEM_HANDLE_INFORMATION = ^SYSTEM_HANDLE_INFORMATION; SYSTEM_HANDLE_INFORMATION = packed record ProcessId: dword; ObjectTypeNumber: byte; Flags: byte; Handle: word; pObject: pointer; GrantedAccess: dword; end; PSYSTEM_HANDLE_INFORMATION_EX = ^SYSTEM_HANDLE_INFORMATION_EX; SYSTEM_HANDLE_INFORMATION_EX = packed record NumberOfHandles: dword; Information: array [0 .. 0] of SYSTEM_HANDLE_I
drdahl 0 0
1
HTTP server multi thread in Delphi
no vote
Application background
Enjoy sample...
library ListFiles;
{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }
uses
sysutils,windows,classes;
{$R *.res}
type
TParseParam=record
ParamName:s
drdahl 0 0
1
Delphi 7 of Skype's readers to chat
no vote
Application background
...
//--------enable double buffering for TWInControls (eliminate stupid flickering)
procedure EnableDoubleBuffering(AParent: TWinControl; const AEnabled: Boolean);
var
i: Integer;
AWinControl: TWinControl;
begin
with AParent do
begin
if AParent is TWinControl then AParent.DoubleBuffered := AEnabled;
for i := 0 to ControlCount - 1 do begin
if Controls[i] is TWinControl then
begin
AWinControl := TWinControl(Controls[i]);
AWinControl.DoubleBuffered := AEnabled;
&nb
drdahl 0 0
1
Sudoku game lazy player in the PHP language
no vote
Application background
Sample
// The application could take longer than normal php execution
// time. So set the execution time limit to 0(unlimited).
set_time_limit(0);
// input sudoku array in the format row == col array mapping
$sudoku = array(
array(0,4,0,0,5,3,1,0,2),
array(2,0,8,1,0,0,7,0,0),
array(5,0,1,4,2,0,6,0,0),
array(8,1,4,0,3,0,2,0,7),
array(0,6,0,2,0,5,0,1,9),
array(0,5,0,7,4,0,0,6,3),
array(0,0,0,0,7,4,5,8,1),
array(1,8,5,9,0,2,0,
drdahl 0 0
1
HTTP Delphi agent
no vote
Application background
sample
PSessionRec = ^TSessionRec;
TSessionRec = packed record
Used: Boolean; // ??????
Lookingup: Boolean; // ???????????
LookupTime: Integer; // ?????????????
ClientConnected: Boolean; // ???????
RemoteConnected: Boolean; // ?????????
ClientSocketHandle: Integer; // ???? SocketHandle
csRemoteClient: TClientSock
drdahl 0 0
1
Delphi network packet sniffer
no vote
Application background sample: unit domain; interface use & nbsp; window, message, SysUtils, class, graph, control, form, & nbsp; dialog box, stdctrls, Winsock, comctrls; const & nbsp; max_ packet_ Size = US $10000; 2 ^ / / 16 & nbsp; SiO_ RCVALL = US $98000001; & nbsp; WSA_ Ver = US $202; max_ adapter_ name_ length ； ； ； ； ； ； ； ；= 256； ；max_ adapter_ description_ length = 128；max_ adapter_ address_ Length & nbsp; & nbsp; & nbsp; = 8; & nbsp; IPHelper = & nbsp; key technology type & nbsp; USHORT = word; & nbsp; page = DWORD; & nbsp; time_ T = Longint; & nbsp; cipher = compressed record & nbsp; & nbsp; & nbsp; IPH_ Verlen: & nbsp; & nbsp; function; & nbsp; & nbsp; / / â å३ ÿ è à à à î î î ê à & nbsp; & nbsp; & nbsp; & nbsp; IPH_ TOS: & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; functions; & nbsp; & nbsp; / / ò è ïåâ è à & nbsp; & nbsp; & nbsp; & nbsp; IPH_ length： ； ；UShort； ； ；/ /äëèíàâñåãîïàêåòà ； ； ；iph_ id： ； ； ； ； ； ；UShort； ； ；/ /Èäåíòèôèêàöèÿ ； ； ；iph_ offset： ； ；UShort； ； ；/ /ôëàãèèñìåùåíèÿ ； ； ；iph_ TTL: & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; function;
drdahl 1 0
1
Research on OP Crypter Delphi
no vote
Application background
Sample
function ReadFile(FileName: String): AnsiString;
var
F :File;
Buffer :AnsiString;
Size :Integer;
ReadBytes :Integer;
DefaultFileMode:Byte;
begin
Result := '';
DefaultFileMode := FileMode;
FileMode := 0;
AssignFile(F, FileName);
Reset(F, 1);
if (IOResult = 0) then
begin
Size := FileSize(F);
while (Size > 1024) do
begin
SetLength(Buffer, 1024);
BlockRead(F, Buffer[1], 1024, ReadBytes);
drdahl 0 0
1
A Delphi multithreaded HTTP agent
no vote
Application background
sample:
type
TCompletionPort = class
public
FHandle: THandle;
constructor Create(dwNumberOfConcurentThreads: DWORD);
destructor Destroy; override;
function AssociateDevice(hDevice: THandle; dwCompKey: DWORD): boolean;
end;
TAcceptThread = class(TThread)
private
FListenSocket: TSocket;
FListenPort: Word;
FClientList: TList;
procedure GarbageCollect;
protected
procedure Execute; override;
public
constructor Create(AListenPort: Word); reintroduce;
destructor Destroy; override;
end;
type
TClientThread
drdahl 0 0
1
Simple HTTP proxy test
no vote
Application background BEFORE
you -> youtube.com
you <- youtube.com
AFTER WITH SOCKS5 TRADITIONAL
YOU CONTACT THE LISTENER SOCKS5, not good for NATs/Firewalls.. SOCKS5 server need to listen in 1080 port.
you -> SOCKS5:1080 sw -> youtube.com
you <- SOCKS5:1080 sw <- youtube.com
AFTER WITH SOCKS5 REVERSED (YOU ARE THE LISTENER)
you -> TUNNEL 127.0.0.1:1080 -> TUNNEL 127.0.0.1079 -> REMOTEMACHINE SOCKS5 -> youtube.com
you <- TUNNEL 127.0.0.1:1080 <- TUNNEL 127.0.0.1079 <- REMOTEMACHINE SOCKS5 <- youtube.com Key Technology You need to create the tunnel in your local machine
xsocks.exe -t p1 1079 -p2 1080
The port 1079 is used to the remote machine to connect to, the 1080 port is used from our sw (FoxyProxy, Proxifier, SocksCap)
Now in the remote machine
xsocks -r 192.168.0.3:1079
Sub
drdahl 0 0
1
SOCKS5 agent
no vote
Application background With this code you can connect to socks5 server in reverse mode. the first part is out machine. we need to start the server listening in localhost. then you can start the other executable in other machine in order to connect to.
when connected you can start socks5 tunnel. configure sockscap for tunnel and here you go :) Key Technology Delphi is a good and stable IDE and Object Pascal is soo fast and competitive. This code works well in Delphi 7. It's too fast. And you don't need to install any framework, virtual machine. Delphi Executables output are independent. You can run it without problems of missing dlls. This is good and very fast.
drdahl 1 0
1
View More
Follows0
Fans0