Un simple programa para buscar el famoso panel de administracion en una pagina
{
PanelControl 0.1
Coded By Doddy H
Credits: Thanks to all members of clubdelphi for helping make this program
}
unit panel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, StdCtrls, WinSkinData;
type
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
IdHTTP1: TIdHTTP;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
Button3: TButton;
SkinData1: TSkinData;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
paginas:array[1..250] of string =('admin/admin.asp','admin/login.asp','admin/index.asp','admin/admin.aspx','admin/login.aspx','admin/index.aspx','admin/webmaster.asp',
'admin/webmaster.aspx','asp/admin/index.asp','asp/admin/index.aspx','asp/admin/admin.asp','asp/admin/admin.aspx','asp/admin/webmaster.asp',
'asp/admin/webmaster.aspx','admin/','login.asp','login.aspx','admin.asp','admin.aspx','webmaster.aspx','webmaster.asp','login/index.asp',
'login/index.aspx','login/login.asp','login/login.aspx','login/admin.asp','login/admin.aspx','administracion/index.asp','administracion/index.aspx',
'administracion/login.asp','administracion/login.aspx','administracion/webmaster.asp','administracion/webmaster.aspx','administracion/admin.asp',
'administracion/admin.aspx','php/admin/','admin/admin.php','admin/index.php','admin/login.php','admin/system.php','admin/ingresar.php',
'admin/administrador.php','admin/default.php','administracion/','administracion/index.php','administracion/login.php','administracion/ingresar.php',
'administracion/admin.php','administration/','administration/index.php','administration/login.php','administrator/index.php','administrator/login.php',
'administrator/system.php','system/','system/login.php','admin.php','login.php','administrador.php','administration.php','administrator.php',
'admin1.html','admin1.php','admin2.php','admin2.html','yonetim.php','yonetim.html','yonetici.php','yonetici.html','adm/','admin/account.php',
'admin/account.html','admin/index.html','admin/login.html','admin/home.php','admin/controlpanel.html','admin/controlpanel.php','admin.html',
'admin/cp.php','admin/cp.html','cp.php','cp.html','administrator/','administrator/index.html','administrator/login.html','administrator/account.html',
'administrator/account.php','administrator.html','login.html','modelsearch/login.php','moderator.php','moderator.html','moderator/login.php',
'moderator/login.html','moderator/admin.php','moderator/admin.html','moderator/','account.php','account.html','controlpanel/','controlpanel.php',
'controlpanel.html','admincontrol.php','admincontrol.html','adminpanel.php','adminpanel.html','admin1.asp','admin2.asp','yonetim.asp','yonetici.asp',
'admin/account.asp','admin/home.asp','admin/controlpanel.asp','admin/cp.asp','cp.asp','administrator/index.asp','administrator/login.asp',
'administrator/account.asp','administrator.asp','modelsearch/login.asp','moderator.asp','moderator/login.asp','moderator/admin.asp','account.asp',
'controlpanel.asp','admincontrol.asp','adminpanel.asp','fileadmin/','fileadmin.php','fileadmin.asp','fileadmin.html','administration.html',
'sysadmin.php','sysadmin.html','phpmyadmin/','myadmin/','sysadmin.asp','sysadmin/','ur-admin.asp','ur-admin.php','ur-admin.html','ur-admin/','Server.php','Server.html','Server.asp','Server/','wpadmin/','administr8.php','administr8.html','administr8/','administr8.asp',
'webadmin/','webadmin.php','webadmin.asp','webadmin.html','administratie/','admins/','admins.php','admins.asp','admins.html','administrivia/',
'Database_Administration/','WebAdmin/','useradmin/','sysadmins/','admin1/','systemadministration/','administrators/','pgadmin/','directadmin/',
'staradmin/','ServerAdministrator/','SysAdmin/','administer/','LiveUser_Admin/','sysadmin/','typo3/','panel/',
'cpanel/','cPanel/','cpanel_file/','platz_login/','rcLogin/','blogindex/','formslogin/','autologin/','support_login/',
'meta_login/','manuallogin/','simpleLogin/','loginflat/','utility_login/','showlogin/','memlogin/','members/',
'login-redirect/','sublogin/','wplogin/','login1/','dirlogin/',
'login_db/','xlogin/','smblogin/','customer_login/','UserLogin/','loginus/','acct_login/','admin_area/','bigadmin/','project-admins/','phppgadmin/','pureadmin/','sqladmin/','radmind/','openvpnadmin/','wizmysqladmin/','vadmind/','ezsqliteadmin/',
'hpwebjetadmin/','newsadmin/','adminpro/','Lotus_Domino_Admin/','bbadmin/','vmailadmin/','Indy_admin/','ccp14admin/','irc-macadmin/','banneradmin/','sshadmin/','phpldapadmin/','macadmin/','administratoraccounts/','admin4_account/',
'admin4_colon/','radmind1/','SuperAdmin/','AdminTools/','cmsadmin/','SysAdmin2/','globes_admin/','cadmins/','phpSQLiteAdmin/'
,'navSiteAdmin/','server_admin_small/','logo_sysadmin/','server/','database_administration/','power_user/','system_administration/','ss_vms_admin_sm/');
var
IdHTTP: TIdHTTP;
i:integer;
begin
try
Memo1.Clear;
Memo1.Lines.Add('[+] Starting the scan');
Memo1.Lines.Add('');
IdHTTP := TIdHTTP.Create(nil);
for i:= Low(paginas) to High(paginas) do
try
IdHTTP.Get(Edit1.Text+'/'+paginas[i]);
if IdHTTP.ResponseCode=200 then
Memo1.Lines.Add('[+] Link : '+Edit1.Text+'/'+paginas[i]);
except
on E : EIdHttpProtocolException do;
on E : Exception do;
end;
finally
idHTTP.Free;
end;
Memo1.Lines.Add('');
Memo1.Lines.Add('[+] Finished');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('Credits: Thanks to all members of clubdelphi for helping make this program');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;
end.
Una imagen
Si quieren bajar el proyecto con el compilado lo pueden hacer de
No puedes ver links
Registrate o Login
Tema: [Delphi] PanelControl 0.1 (Leído 45 veces)
Agosto 20, 2011, 12:36:35 am