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 1.0

  • 0 Respuestas
  • 3370 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Febrero 23, 2017, 05:46:31 pm »
Un programa para buscar el panel de administracion usando threads para ser mas rápido y cómodo al usuario.

Una imagen :



El codigo :

Código: Delphi
  1. // Admin Finder 1.0
  2. // (C) Doddy Hackman 2016
  3.  
  4. unit finder;
  5.  
  6. interface
  7.  
  8. uses
  9.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  10.   System.Classes, Vcl.Graphics,
  11.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
  12.   Vcl.ComCtrls, idHTTP, OtlThreadPool, OtlComm, OtlTask,
  13.   OtlTaskControl, Vcl.Imaging.pngimage;
  14.  
  15. type
  16.   TFormHome = class(TForm)
  17.     imgLogo: TImage;
  18.     gbEnterConfiguration: TGroupBox;
  19.     lblPage: TLabel;
  20.     lblThreads: TLabel;
  21.     txtPage: TEdit;
  22.     txtThreads: TEdit;
  23.     udThreads: TUpDown;
  24.     gbConsole: TGroupBox;
  25.     mmOutput: TMemo;
  26.     btnStart: TButton;
  27.     btnStop: TButton;
  28.     status: TStatusBar;
  29.     procedure btnStopClick(Sender: TObject);
  30.     procedure btnStartClick(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   FormHome: TFormHome;
  39.  
  40. implementation
  41.  
  42. {$R *.dfm}
  43. // Functions
  44.  
  45. function message_box(title, message_text, type_message: string): string;
  46. begin
  47.   if not(title = '') and not(message_text = '') and not(type_message = '') then
  48.   begin
  49.     try
  50.       begin
  51.         if (type_message = 'Information') then
  52.         begin
  53.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  54.             MB_ICONINFORMATION);
  55.         end
  56.         else if (type_message = 'Warning') then
  57.         begin
  58.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  59.             MB_ICONWARNING);
  60.         end
  61.         else if (type_message = 'Question') then
  62.         begin
  63.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  64.             MB_ICONQUESTION);
  65.         end
  66.         else if (type_message = 'Error') then
  67.         begin
  68.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  69.             MB_ICONERROR);
  70.         end
  71.         else
  72.         begin
  73.           MessageBox(FormHome.Handle, PChar(message_text), PChar(title),
  74.             MB_ICONINFORMATION);
  75.         end;
  76.         Result := '[+] MessageBox : OK';
  77.       end;
  78.     except
  79.       begin
  80.         Result := '[-] Error';
  81.       end;
  82.     end;
  83.   end
  84.   else
  85.   begin
  86.     Result := '[-] Error';
  87.   end;
  88. end;
  89.  
  90. function check_page(page: string): boolean;
  91. var
  92.   nave: TIdHTTP;
  93. begin
  94.   try
  95.     begin
  96.       nave := TIdHTTP.Create(nil);
  97.       nave.Request.UserAgent :=
  98.         'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0';
  99.       nave.Get(page);
  100.       if nave.ResponseCode = 200 then
  101.       begin
  102.         Result := True;
  103.       end
  104.       else
  105.       begin
  106.         Result := False;
  107.       end;
  108.       nave.Free();
  109.     end;
  110.   except
  111.     begin
  112.       Result := False;
  113.     end;
  114.   end;
  115. end;
  116.  
  117. //
  118.  
  119. procedure TFormHome.btnStartClick(Sender: TObject);
  120. var
  121.   i: integer;
  122.   path: string;
  123. const
  124.   paths: array [1 .. 250] of string = ('admin/admin.asp', 'admin/login.asp',
  125.     'admin/index.asp', 'admin/admin.aspx', 'admin/login.aspx',
  126.     'admin/index.aspx', 'admin/webmaster.asp', 'admin/webmaster.aspx',
  127.     'asp/admin/index.asp', 'asp/admin/index.aspx', 'asp/admin/admin.asp',
  128.     'asp/admin/admin.aspx', 'asp/admin/webmaster.asp',
  129.     'asp/admin/webmaster.aspx', 'admin/', 'login.asp', 'login.aspx',
  130.     'admin.asp', 'admin.aspx', 'webmaster.aspx', 'webmaster.asp',
  131.     'login/index.asp', 'login/index.aspx', 'login/login.asp',
  132.     'login/login.aspx', 'login/admin.asp', 'login/admin.aspx',
  133.     'administracion/index.asp', 'administracion/index.aspx',
  134.     'administracion/login.asp', 'administracion/login.aspx',
  135.     'administracion/webmaster.asp', 'administracion/webmaster.aspx',
  136.     'administracion/admin.asp', 'administracion/admin.aspx', 'php/admin/',
  137.     'admin/admin.php', 'admin/index.php', 'admin/login.php', 'admin/system.php',
  138.     'admin/ingresar.php', 'admin/administrador.php', 'admin/default.php',
  139.     'administracion/', 'administracion/index.php', 'administracion/login.php',
  140.     'administracion/ingresar.php', 'administracion/admin.php',
  141.     'administration/', 'administration/index.php', 'administration/login.php',
  142.     'administrator/index.php', 'administrator/login.php',
  143.     'administrator/system.php', 'system/', 'system/login.php', 'admin.php',
  144.     'login.php', 'administrador.php', 'administration.php', 'administrator.php',
  145.     'admin1.html', 'admin1.php', 'admin2.php', 'admin2.html', 'yonetim.php',
  146.     'yonetim.html', 'yonetici.php', 'yonetici.html', 'adm/',
  147.     'admin/account.php', 'admin/account.html', 'admin/index.html',
  148.     'admin/login.html', 'admin/home.php', 'admin/controlpanel.html',
  149.     'admin/controlpanel.php', 'admin.html', 'admin/cp.php', 'admin/cp.html',
  150.     'cp.php', 'cp.html', 'administrator/', 'administrator/index.html',
  151.     'administrator/login.html', 'administrator/account.html',
  152.     'administrator/account.php', 'administrator.html', 'login.html',
  153.     'modelsearch/login.php', 'moderator.php', 'moderator.html',
  154.     'moderator/login.php', 'moderator/login.html', 'moderator/admin.php',
  155.     'moderator/admin.html', 'moderator/', 'account.php', 'account.html',
  156.     'controlpanel/', 'controlpanel.php', 'controlpanel.html',
  157.     'admincontrol.php', 'admincontrol.html', 'adminpanel.php',
  158.     'adminpanel.html', 'admin1.asp', 'admin2.asp', 'yonetim.asp',
  159.     'yonetici.asp', 'admin/account.asp', 'admin/home.asp',
  160.     'admin/controlpanel.asp', 'admin/cp.asp', 'cp.asp',
  161.     'administrator/index.asp', 'administrator/login.asp',
  162.     'administrator/account.asp', 'administrator.asp', 'modelsearch/login.asp',
  163.     'moderator.asp', 'moderator/login.asp', 'moderator/admin.asp',
  164.     'account.asp', 'controlpanel.asp', 'admincontrol.asp', 'adminpanel.asp',
  165.     'fileadmin/', 'fileadmin.php', 'fileadmin.asp', 'fileadmin.html',
  166.     'administration.html', 'sysadmin.php', 'sysadmin.html', 'phpmyadmin/',
  167.     'myadmin/', 'sysadmin.asp', 'sysadmin/', 'ur-admin.asp', 'ur-admin.php',
  168.     'ur-admin.html', 'ur-admin/', 'Server.php', 'Server.html', 'Server.asp',
  169.     'Server/', 'wpadmin/', 'administr8.php', 'administr8.html', 'administr8/',
  170.     'administr8.asp', 'webadmin/', 'webadmin.php', 'webadmin.asp',
  171.     'webadmin.html', 'administratie/', 'admins/', 'admins.php', 'admins.asp',
  172.     'admins.html', 'administrivia/', 'Database_Administration/', 'WebAdmin/',
  173.     'useradmin/', 'sysadmins/', 'admin1/', 'systemadministration/',
  174.     'administrators/', 'pgadmin/', 'directadmin/', 'staradmin/',
  175.     'ServerAdministrator/', 'SysAdmin/', 'administer/', 'LiveUser_Admin/',
  176.     'sysadmin/', 'typo3/', 'panel/', 'cpanel/', 'cPanel/', 'cpanel_file/',
  177.     'platz_login/', 'rcLogin/', 'blogindex/', 'formslogin/', 'autologin/',
  178.     'support_login/', 'meta_login/', 'manuallogin/', 'simpleLogin/',
  179.     'loginflat/', 'utility_login/', 'showlogin/', 'memlogin/', 'members/',
  180.     'login-redirect/', 'sublogin/', 'wplogin/', 'login1/', 'dirlogin/',
  181.     'login_db/', 'xlogin/', 'smblogin/', 'customer_login/', 'UserLogin/',
  182.     'loginus/', 'acct_login/', 'admin_area/', 'bigadmin/', 'project-admins/',
  183.     'phppgadmin/', 'pureadmin/', 'sqladmin/', 'radmind/', 'openvpnadmin/',
  184.     'wizmysqladmin/', 'vadmind/', 'ezsqliteadmin/', 'hpwebjetadmin/',
  185.     'newsadmin/', 'adminpro/', 'Lotus_Domino_Admin/', 'bbadmin/', 'vmailadmin/',
  186.     'Indy_admin/', 'ccp14admin/', 'irc-macadmin/', 'banneradmin/', 'sshadmin/',
  187.     'phpldapadmin/', 'macadmin/', 'administratoraccounts/', 'admin4_account/',
  188.     'admin4_colon/', 'radmind1/', 'SuperAdmin/', 'AdminTools/', 'cmsadmin/',
  189.     'SysAdmin2/', 'globes_admin/', 'cadmins/', 'phpSQLiteAdmin/',
  190.     'navSiteAdmin/', 'server_admin_small/', 'logo_sysadmin/', 'server/',
  191.     'database_administration/', 'power_user/', 'system_administration/',
  192.     'ss_vms_admin_sm/');
  193. begin
  194.   if not(txtPage.Text = '') and not(txtThreads.Text = '') then
  195.   begin
  196.     GlobalOmniThreadPool.MaxExecuting := StrToInt(txtThreads.Text) *
  197.       System.CPUCount;
  198.     status.Panels[0].Text := '[+] Scanning ...';
  199.     FormHome.Update;
  200.     for i := Low(paths) to High(paths) do
  201.     begin
  202.       Application.ProcessMessages;
  203.       path := txtPage.Text + '/' + paths[i];
  204.       CreateTask(
  205.         procedure(const task: IOmniTask)
  206.         var
  207.           path_to_load: string;
  208.         begin
  209.  
  210.           path_to_load := task.Param['path'].AsString;
  211.  
  212.           status.Panels[0].Text := 'Checking : ' + path_to_load + ' ...';
  213.           FormHome.Update;
  214.           if (check_page(path_to_load)) then
  215.           begin
  216.             mmOutput.Lines.Add(path_to_load);
  217.           end;
  218.  
  219.         end).SetParameter('path', path).Unobserved.Schedule;
  220.  
  221.     end;
  222.  
  223.     while GlobalOmniThreadPool.CountExecuting +
  224.       GlobalOmniThreadPool.CountQueued > 0 do
  225.     begin
  226.       Application.ProcessMessages;
  227.     end;
  228.  
  229.     status.Panels[0].Text := '[+] Finished';
  230.     FormHome.Update;
  231.  
  232.     message_box('Admin Finder 1.0', 'Scan Finished', 'Information');
  233.  
  234.   end
  235.   else
  236.   begin
  237.     message_box('Admin Finder 1.0', 'Complete the configuration', 'Warning');
  238.   end;
  239. end;
  240.  
  241. procedure TFormHome.btnStopClick(Sender: TObject);
  242. begin
  243.   GlobalOmniThreadPool.CancelAll;
  244.   status.Panels[0].Text := '[+] Stopped';
  245.   FormHome.Update;
  246.   message_box('Admin Finder 1.0', 'Scan Stopped', 'Information');
  247. end;
  248.  
  249. end.
  250.  
  251. // The End ?
  252.  

Si quieren bajar el programa y el proyecto con el codigo fuente lo pueden hacer desde aca :

SourceForge.

Eso seria todo.

 

¿Te gustó el post? COMPARTILO!



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

Iniciado por ANTRAX

Respuestas: 0
Vistas: 4069
Ú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: 2777
Ú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: 4855
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3616
Último mensaje Febrero 24, 2010, 04:54:23 pm
por ANTRAX
[Delphi] Creacion de un Server Builder con recursos

Iniciado por BigBear

Respuestas: 1
Vistas: 2114
Último mensaje Marzo 09, 2015, 07:56:20 pm
por Flemon