// HTTP FingerPrinting 0.1
// Coded By Doddy H
unit http;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sMemo, sButton, sEdit, sLabel, sGroupBox, sSkinManager,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
IdCookieManager, Sockets, ComCtrls, sStatusBar, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
sGroupBox1: TsGroupBox;
sEdit1: TsEdit;
sButton1: TsButton;
sGroupBox2: TsGroupBox;
sMemo1: TsMemo;
IdHTTP1: TIdHTTP;
sStatusBar1: TsStatusBar;
Image1: TImage;
IdCookieManager1: TIdCookieManager;
procedure sButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
sSkinManager1.SkinName := 'cappuccino';
sSkinManager1.Active := True;
end;
procedure TForm1.sButton1Click(Sender: TObject);
var
i: integer;
begin
sStatusBar1.Panels[0].text := '[+] Working ...';
Form1.sStatusBar1.Update;
sMemo1.Clear;
try
IdHTTP1.Get(sEdit1.text);
sMemo1.Lines.Add('[+] ' + IdHTTP1.Response.ResponseText);
sMemo1.Lines.Add('[+] Date : ' + DateTimeToStr(IdHTTP1.Response.Date));
sMemo1.Lines.Add('[+] Server : ' + IdHTTP1.Response.Server);
sMemo1.Lines.Add('[+] Last-Modified : ' + DateTimeToStr
(IdHTTP1.Response.LastModified));
sMemo1.Lines.Add('[+] ETag: ' + IdHTTP1.Response.ETag);
sMemo1.Lines.Add('[+] Accept-Ranges : ' + IdHTTP1.Response.AcceptRanges);
sMemo1.Lines.Add('[+] Content-Length : ' + IntToStr
(IdHTTP1.Response.ContentLength));
sMemo1.Lines.Add('[+] Connection : ' + IdHTTP1.Response.Connection);
sMemo1.Lines.Add('[+] Content-Type : ' + IdHTTP1.Response.ContentType);
for i := 1 to IdCookieManager1.CookieCollection.count do
begin
sMemo1.Lines.Add('[+] Cookie : ' + IdCookieManager1.CookieCollection.Items
[i - 1].CookieText);
end;
sStatusBar1.Panels[0].text := '[+] Done';
Form1.sStatusBar1.Update;
except
sStatusBar1.Panels[0].text := '[-] Error';
Form1.sStatusBar1.Update;
end;
end;
end.
// The End ?