Un simple HTTP FingerPrinting hecho en Delphi.

Una imagen :



El codigo :

// 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 ?
 

Si lo quieren bajar lo pueden hacer de aca