Siempre habia querido hacer un programa para hacer un whois en delphi pero en ese entonces no conocia delphi lo suficiente como para poder hacerlo , hoy me tome unos 10 min libres y logre hacer uno , para hacerlo instale indy y escribi unas pocas lineas para hacerlo.
Una imagen :
(http://doddyhackman.webcindario.com/images/getwhoisdelphi.jpg)
El codigo (muy corto xD)
// GetWhois 0.1
// Coded By Doddy H in the year 2013
unit whois;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, sMemo, sButton, sEdit, sLabel, sGroupBox, sSkinManager,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdWhois, ComCtrls,
sStatusBar, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
sSkinManager1: TsSkinManager;
sGroupBox1: TsGroupBox;
sLabel1: TsLabel;
sEdit1: TsEdit;
sButton1: TsButton;
sGroupBox2: TsGroupBox;
sMemo1: TsMemo;
IdWhois1: TIdWhois;
sStatusBar1: TsStatusBar;
Image1: TImage;
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 := 'garnet';
sSkinManager1.Active := True;
end;
procedure TForm1.sButton1Click(Sender: TObject);
begin
if sEdit1.text = '' then
begin
ShowMessage('Write the domain');
end
else
begin
sStatusBar1.Panels[0].text := '[+] Searching ...';
Form1.sStatusBar1.Update;
sMemo1.Clear;
sMemo1.Lines.text := IdWhois1.whois(sEdit1.text);
sStatusBar1.Panels[0].text := '';
Form1.sStatusBar1.Update;
end;
end;
end.
// The End ?
Si lo quieren bajar lo pueden hacer de aca (https://sourceforge.net/projects/getwhoiss/).