[Delphi] HTTP FingerPrinting 0.1

  • 0 Respuestas
  • 1855 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Delphi] HTTP FingerPrinting 0.1

  • en: Junio 22, 2013, 12:18:32 pm
Un simple HTTP FingerPrinting hecho en Delphi.

Una imagen :



El codigo :

Código: Delphi
  1. // HTTP FingerPrinting 0.1
  2. // Coded By Doddy H
  3.  
  4. unit http;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, sMemo, sButton, sEdit, sLabel, sGroupBox, sSkinManager,
  11.   IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  12.   IdCookieManager, Sockets, ComCtrls, sStatusBar, jpeg, ExtCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     sSkinManager1: TsSkinManager;
  17.     sGroupBox1: TsGroupBox;
  18.     sEdit1: TsEdit;
  19.     sButton1: TsButton;
  20.     sGroupBox2: TsGroupBox;
  21.     sMemo1: TsMemo;
  22.     IdHTTP1: TIdHTTP;
  23.     sStatusBar1: TsStatusBar;
  24.     Image1: TImage;
  25.     IdCookieManager1: TIdCookieManager;
  26.     procedure sButton1Click(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.  
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   Form1: TForm1;
  37.  
  38. implementation
  39.  
  40. {$R *.dfm}
  41.  
  42. procedure TForm1.FormCreate(Sender: TObject);
  43. begin
  44.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  45.   sSkinManager1.SkinName := 'cappuccino';
  46.   sSkinManager1.Active := True;
  47. end;
  48.  
  49. procedure TForm1.sButton1Click(Sender: TObject);
  50. var
  51.   i: integer;
  52.  
  53. begin
  54.  
  55.   sStatusBar1.Panels[0].text := '<ul class="bbc_list"><li type="square"> Working ...';[/li][/list]
  56.   Form1.sStatusBar1.Update;
  57.  
  58.   sMemo1.Clear;
  59.  
  60.   try
  61.  
  62.     IdHTTP1.Get(sEdit1.text);
  63.  
  64.     sMemo1.Lines.Add('</li><li type="square"> ' + IdHTTP1.Response.ResponseText);[/li][/list]
  65.     sMemo1.Lines.Add('</li><li type="square"> Date : ' + DateTimeToStr(IdHTTP1.Response.Date));[/li][/list]
  66.     sMemo1.Lines.Add('</li><li type="square"> Server : ' + IdHTTP1.Response.Server);[/li][/list]
  67.     sMemo1.Lines.Add('</li><li type="square"> Last-Modified : ' + DateTimeToStr[/li][/list]
  68.         (IdHTTP1.Response.LastModified));
  69.     sMemo1.Lines.Add('</li><li type="square"> ETag: ' + IdHTTP1.Response.ETag);[/li][/list]
  70.     sMemo1.Lines.Add('</li><li type="square"> Accept-Ranges : ' + IdHTTP1.Response.AcceptRanges);[/li][/list]
  71.     sMemo1.Lines.Add('</li><li type="square"> Content-Length : ' + IntToStr[/li][/list]
  72.         (IdHTTP1.Response.ContentLength));
  73.     sMemo1.Lines.Add('</li><li type="square"> Connection : ' + IdHTTP1.Response.Connection);[/li][/list]
  74.     sMemo1.Lines.Add('</li><li type="square"> Content-Type : ' + IdHTTP1.Response.ContentType);[/li][/list]
  75.  
  76.     for i := 1 to IdCookieManager1.CookieCollection.count do
  77.     begin
  78.       sMemo1.Lines.Add('</li><li type="square"> Cookie : ' + IdCookieManager1.CookieCollection.Items[/li]
  79.           [i - 1].CookieText);
  80.     end;
  81.  
  82.     sStatusBar1.Panels[0].text := '</li><li type="square"> Done';[/li][/list]
  83.     Form1.sStatusBar1.Update;
  84.  
  85.   except
  86.     sStatusBar1.Panels[0].text := '[-] Error';
  87.     Form1.sStatusBar1.Update;
  88.  
  89.   end;
  90.  
  91. end;
  92.  
  93. end.
  94.  
  95. // The End ?
  96.  

Si lo quieren bajar lo pueden hacer de Solo los usuarios pueden ver los links. Registrate o Ingresar

 

Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 4882
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3179
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 5299
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 2536
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon
[Delphi] Project Arsenal X 0.2 (Regalo de navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 5077
Último mensaje Diciembre 28, 2015, 10:27:44 am
por BigBear