elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recopilación Tutoriales y Manuales Hacking, Seguridad, Privacidad, Hardware, etc


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  [Delphi] Admin Finder 0.2
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Delphi] Admin Finder 0.2  (Leído 1,598 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] Admin Finder 0.2
« en: 12 Julio 2013, 15:58 pm »

Un simple programa para buscar el famoso panel de administracion.

Una imagen :



El codigo :

Código
  1. // Admin Finder 0.2
  2. // Coded By Doddy H
  3.  
  4. unit admin;
  5.  
  6. interface
  7.  
  8. uses
  9.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.  Dialogs, StdCtrls, sGroupBox, ComCtrls, sStatusBar, jpeg, ExtCtrls,
  11.  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  12.  sSkinManager, sListBox, sButton, sEdit, ShellApi, Menus;
  13.  
  14. type
  15.  TForm1 = class(TForm)
  16.    sSkinManager1: TsSkinManager;
  17.    IdHTTP1: TIdHTTP;
  18.    Image1: TImage;
  19.    sStatusBar1: TsStatusBar;
  20.    sGroupBox1: TsGroupBox;
  21.    sEdit1: TsEdit;
  22.    sGroupBox2: TsGroupBox;
  23.    sListBox1: TsListBox;
  24.    sEdit2: TsEdit;
  25.    PopupMenu1: TPopupMenu;
  26.    S1: TMenuItem;
  27.    A1: TMenuItem;
  28.    E1: TMenuItem;
  29.    procedure sListBox1DblClick(Sender: TObject);
  30.    procedure S1Click(Sender: TObject);
  31.    procedure S2Click(Sender: TObject);
  32.    procedure A1Click(Sender: TObject);
  33.    procedure E1Click(Sender: TObject);
  34.    procedure FormCreate(Sender: TObject);
  35.  private
  36.    { Private declarations }
  37.  public
  38.    { Public declarations }
  39.  end;
  40.  
  41. var
  42.  Form1: TForm1;
  43.  
  44. implementation
  45.  
  46. {$R *.dfm}
  47.  
  48. procedure TForm1.A1Click(Sender: TObject);
  49. begin
  50.  ShowMessage('Contact to lepuke[at]hotmail[com]');
  51. end;
  52.  
  53. procedure TForm1.E1Click(Sender: TObject);
  54. begin
  55.  Form1.Close();
  56. end;
  57.  
  58. procedure TForm1.FormCreate(Sender: TObject);
  59. begin
  60.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  61.  sSkinManager1.SkinName := 'garnet';
  62.  sSkinManager1.Active := True;
  63. end;
  64.  
  65. procedure TForm1.S1Click(Sender: TObject);
  66. const
  67.  paginas: array [1 .. 250] of string = ('admin/admin.asp', 'admin/login.asp',
  68.    'admin/index.asp', 'admin/admin.aspx', 'admin/login.aspx',
  69.    'admin/index.aspx', 'admin/webmaster.asp', 'admin/webmaster.aspx',
  70.    'asp/admin/index.asp', 'asp/admin/index.aspx', 'asp/admin/admin.asp',
  71.    'asp/admin/admin.aspx', 'asp/admin/webmaster.asp',
  72.    'asp/admin/webmaster.aspx', 'admin/', 'login.asp', 'login.aspx',
  73.    'admin.asp', 'admin.aspx', 'webmaster.aspx', 'webmaster.asp',
  74.    'login/index.asp', 'login/index.aspx', 'login/login.asp',
  75.    'login/login.aspx', 'login/admin.asp', 'login/admin.aspx',
  76.    'administracion/index.asp', 'administracion/index.aspx',
  77.    'administracion/login.asp', 'administracion/login.aspx',
  78.    'administracion/webmaster.asp', 'administracion/webmaster.aspx',
  79.    'administracion/admin.asp', 'administracion/admin.aspx', 'php/admin/',
  80.    'admin/admin.php', 'admin/index.php', 'admin/login.php',
  81.    'admin/system.php', 'admin/ingresar.php', 'admin/administrador.php',
  82.    'admin/default.php', 'administracion/', 'administracion/index.php',
  83.    'administracion/login.php', 'administracion/ingresar.php',
  84.    'administracion/admin.php', 'administration/', 'administration/index.php',
  85.    'administration/login.php', 'administrator/index.php',
  86.    'administrator/login.php', 'administrator/system.php', 'system/',
  87.    'system/login.php', 'admin.php', 'login.php', 'administrador.php',
  88.    'administration.php', 'administrator.php', 'admin1.html', 'admin1.php',
  89.    'admin2.php', 'admin2.html', 'yonetim.php', 'yonetim.html', 'yonetici.php',
  90.    'yonetici.html', 'adm/', 'admin/account.php', 'admin/account.html',
  91.    'admin/index.html', 'admin/login.html', 'admin/home.php',
  92.    'admin/controlpanel.html', 'admin/controlpanel.php', 'admin.html',
  93.    'admin/cp.php', 'admin/cp.html', 'cp.php', 'cp.html', 'administrator/',
  94.    'administrator/index.html', 'administrator/login.html',
  95.    'administrator/account.html', 'administrator/account.php',
  96.    'administrator.html', 'login.html', 'modelsearch/login.php',
  97.    'moderator.php', 'moderator.html', 'moderator/login.php',
  98.    'moderator/login.html', 'moderator/admin.php', 'moderator/admin.html',
  99.    'moderator/', 'account.php', 'account.html', 'controlpanel/',
  100.    'controlpanel.php', 'controlpanel.html', 'admincontrol.php',
  101.    'admincontrol.html', 'adminpanel.php', 'adminpanel.html', 'admin1.asp',
  102.    'admin2.asp', 'yonetim.asp', 'yonetici.asp', 'admin/account.asp',
  103.    'admin/home.asp', 'admin/controlpanel.asp', 'admin/cp.asp', 'cp.asp',
  104.    'administrator/index.asp', 'administrator/login.asp',
  105.    'administrator/account.asp', 'administrator.asp', 'modelsearch/login.asp',
  106.    'moderator.asp', 'moderator/login.asp', 'moderator/admin.asp',
  107.    'account.asp', 'controlpanel.asp', 'admincontrol.asp', 'adminpanel.asp',
  108.    'fileadmin/', 'fileadmin.php', 'fileadmin.asp', 'fileadmin.html',
  109.    'administration.html', 'sysadmin.php', 'sysadmin.html', 'phpmyadmin/',
  110.    'myadmin/', 'sysadmin.asp', 'sysadmin/', 'ur-admin.asp', 'ur-admin.php',
  111.    'ur-admin.html', 'ur-admin/', 'Server.php', 'Server.html', 'Server.asp',
  112.    'Server/', 'wpadmin/', 'administr8.php', 'administr8.html', 'administr8/',
  113.    'administr8.asp', 'webadmin/', 'webadmin.php', 'webadmin.asp',
  114.    'webadmin.html', 'administratie/', 'admins/', 'admins.php', 'admins.asp',
  115.    'admins.html', 'administrivia/', 'Database_Administration/', 'WebAdmin/',
  116.    'useradmin/', 'sysadmins/', 'admin1/', 'systemadministration/',
  117.    'administrators/', 'pgadmin/', 'directadmin/', 'staradmin/',
  118.    'ServerAdministrator/', 'SysAdmin/', 'administer/', 'LiveUser_Admin/',
  119.    'sysadmin/', 'typo3/', 'panel/', 'cpanel/', 'cPanel/', 'cpanel_file/',
  120.    'platz_login/', 'rcLogin/', 'blogindex/', 'formslogin/', 'autologin/',
  121.    'support_login/', 'meta_login/', 'manuallogin/', 'simpleLogin/',
  122.    'loginflat/', 'utility_login/', 'showlogin/', 'memlogin/', 'members/',
  123.    'login-redirect/', 'sublogin/', 'wplogin/', 'login1/', 'dirlogin/',
  124.    'login_db/', 'xlogin/', 'smblogin/', 'customer_login/', 'UserLogin/',
  125.    'loginus/', 'acct_login/', 'admin_area/', 'bigadmin/', 'project-admins/',
  126.    'phppgadmin/', 'pureadmin/', 'sqladmin/', 'radmind/', 'openvpnadmin/',
  127.    'wizmysqladmin/', 'vadmind/', 'ezsqliteadmin/', 'hpwebjetadmin/',
  128.    'newsadmin/', 'adminpro/', 'Lotus_Domino_Admin/', 'bbadmin/',
  129.    'vmailadmin/', 'Indy_admin/', 'ccp14admin/', 'irc-macadmin/',
  130.    'banneradmin/', 'sshadmin/', 'phpldapadmin/', 'macadmin/',
  131.    'administratoraccounts/', 'admin4_account/', 'admin4_colon/', 'radmind1/',
  132.    'SuperAdmin/', 'AdminTools/', 'cmsadmin/', 'SysAdmin2/', 'globes_admin/',
  133.    'cadmins/', 'phpSQLiteAdmin/', 'navSiteAdmin/', 'server_admin_small/',
  134.    'logo_sysadmin/', 'server/', 'database_administration/', 'power_user/',
  135.    'system_administration/', 'ss_vms_admin_sm/');
  136. var
  137.  IdHTTP: TIdHTTP;
  138.  i: integer;
  139.  
  140. begin
  141.  try
  142.  
  143.    sListBox1.Clear;
  144.  
  145.    sStatusBar1.Panels[0].text := '[+] Starting the scan';
  146.    Form1.sStatusBar1.Update;
  147.  
  148.    IdHTTP := TIdHTTP.Create(nil);
  149.  
  150.    for i := Low(paginas) to High(paginas) do
  151.      try
  152.  
  153.        sStatusBar1.Panels[0].text := '[+] Testing : ' + paginas[i];
  154.        Form1.sStatusBar1.Update;
  155.  
  156.        IdHTTP.Get(sEdit1.text + '/' + paginas[i]);
  157.        if IdHTTP.ResponseCode = 200 then
  158.          sListBox1.Items.Add(sEdit1.text + '/' + paginas[i]);
  159.        sListBox1.Update;
  160.      except
  161.        on E: EIdHttpProtocolException do
  162.          ;
  163.        on E: Exception do
  164.          ;
  165.      end;
  166.  finally
  167.    IdHTTP.Free;
  168.  end;
  169.  
  170.  sStatusBar1.Panels[0].text := '[+] Finished';
  171.  Form1.sStatusBar1.Update;
  172.  
  173. end;
  174.  
  175. procedure TForm1.S2Click(Sender: TObject);
  176. begin
  177.  Abort;
  178. end;
  179.  
  180. procedure TForm1.sListBox1DblClick(Sender: TObject);
  181. begin
  182.  sEdit2.text := sListBox1.Items.Strings[sListBox1.ItemIndex];
  183.  sEdit2.SelectAll;
  184.  sEdit2.CopyToClipboard;
  185. end;
  186.  
  187. end.
  188.  
  189. // The End ?
  190.  

Si quieren lo puede bajar de aca.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Perl]Admin Control Panel Finder V1
Scripting
juh 1 7,668 Último mensaje 24 Septiembre 2010, 05:35 am
por [L]ord [R]NA
[Python] Finder Admin By Doddy H
Scripting
BigBear 0 2,379 Último mensaje 7 Octubre 2011, 01:33 am
por BigBear
[Python] mushi_admin_finder.py [Admin-Finder]
Scripting
The_Mushrr00m 3 2,463 Último mensaje 29 Julio 2013, 01:24 am
por The_Mushrr00m
[PHP] Admin Panel Finder
PHP
2Fac3R 0 2,511 Último mensaje 29 Julio 2015, 20:59 pm
por 2Fac3R
Admin Panel Finder [By 2Fac3R]
Scripting
2Fac3R 0 2,099 Último mensaje 29 Julio 2015, 21:09 pm
por 2Fac3R
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines