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
  • 1569 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!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2116
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3766
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
[Delphi] Creacion de un Troyano de conexion inversa

Iniciado por BigBear

Respuestas: 4
Vistas: 4221
Último mensaje Mayo 05, 2017, 09:10:55 am
por _inicio_cerrarsesión
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

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