comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Delphi] Admin Finder 0.2

  • 0 Respuestas
  • 1513 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 12, 2013, 10:58:42 am »
Un simple programa para buscar el famoso panel de administracion.

Una imagen :



El codigo :

Código: Delphi
  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.

 

¿Te gustó el post? COMPARTILO!



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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3259
Ú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: 2050
Ú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: 3490
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Project Spartacus 1.0 (Regalo de Navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 1677
Último mensaje Diciembre 26, 2014, 11:54:34 pm
por n4pst3r
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2977
Último mensaje Febrero 24, 2010, 04:54:23 pm
por ANTRAX