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

 

 


Tema destacado: Tutorial básico de Quickjs


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


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Delphi] DH PasteBin Manager 0.2
« en: 18 Octubre 2013, 18:00 pm »
Un simple programa en delphi para subir y bajar codigos en pastebin.

Unas imagenes :







Los codigos :

Menu

Código
  1. // DH PasteBin Manager 0.2
  2. // (C) Doddy Hackman 2013
  3.  
  4. unit paste;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  11.   IdHTTP, IdMultipartFormData, PerlRegEx, sSkinManager, ComCtrls, sStatusBar,
  12.   sGroupBox, sMemo, sButton, sEdit, sLabel, sListBox, acPNG, ExtCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     sSkinManager1: TsSkinManager;
  17.     Image1: TImage;
  18.     sGroupBox1: TsGroupBox;
  19.     sButton1: TsButton;
  20.     sButton2: TsButton;
  21.     sButton3: TsButton;
  22.     sButton4: TsButton;
  23.  
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure sButton3Click(Sender: TObject);
  26.     procedure sButton4Click(Sender: TObject);
  27.     procedure sButton1Click(Sender: TObject);
  28.     procedure sButton2Click(Sender: TObject);
  29.  
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   Form1: TForm1;
  38.  
  39. implementation
  40.  
  41. uses formdown, formup;
  42. {$R *.dfm}
  43.  
  44. procedure TForm1.FormCreate(Sender: TObject);
  45. var
  46.   dir: string;
  47. begin
  48.  
  49.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  50.   sSkinManager1.SkinName := 'matrix';
  51.   sSkinManager1.Active := True;
  52.  
  53.   dir := ExtractFilePath(Application.ExeName) + '/downloads';
  54.  
  55.   if not(DirectoryExists(dir)) then
  56.   begin
  57.     CreateDir(dir);
  58.   end;
  59.  
  60.   ChDir(dir);
  61.  
  62. end;
  63.  
  64. procedure TForm1.sButton1Click(Sender: TObject);
  65. begin
  66.   Form3.Show;
  67. end;
  68.  
  69. procedure TForm1.sButton2Click(Sender: TObject);
  70. begin
  71.   Form2.Show;
  72. end;
  73.  
  74. procedure TForm1.sButton3Click(Sender: TObject);
  75. begin
  76.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  77. end;
  78.  
  79. procedure TForm1.sButton4Click(Sender: TObject);
  80. begin
  81.   Form1.Close();
  82. end;
  83.  
  84. end.
  85.  
  86. // The End ?
  87.  

Uploader

Código
  1. // DH PasteBin Manager 0.2
  2. // (C) Doddy Hackman 2013
  3.  
  4. unit formup;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, sButton, sEdit, sLabel, sGroupBox, acPNG, ExtCtrls,
  11.   ComCtrls, sStatusBar, PerlRegEx, IdBaseComponent, IdComponent,
  12.   IdTCPConnection, IdTCPClient, IdHTTP, IdMultipartFormData, sMemo;
  13.  
  14. type
  15.   TForm3 = class(TForm)
  16.     sGroupBox4: TsGroupBox;
  17.     sLabel3: TsLabel;
  18.     sLabel4: TsLabel;
  19.     sEdit3: TsEdit;
  20.     sEdit4: TsEdit;
  21.     sGroupBox5: TsGroupBox;
  22.     sButton3: TsButton;
  23.     sButton4: TsButton;
  24.     sButton5: TsButton;
  25.     Image1: TImage;
  26.     sStatusBar1: TsStatusBar;
  27.     OpenDialog1: TOpenDialog;
  28.     IdHTTP1: TIdHTTP;
  29.     PerlRegEx1: TPerlRegEx;
  30.     sMemo1: TsMemo;
  31.     procedure sButton4Click(Sender: TObject);
  32.     procedure sButton5Click(Sender: TObject);
  33.     procedure sButton3Click(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   Form3: TForm3;
  42.  
  43. implementation
  44.  
  45. {$R *.dfm}
  46.  
  47. procedure TForm3.sButton3Click(Sender: TObject);
  48. var
  49.   datos: TIdMultiPartFormDataStream;
  50.   code: string;
  51.   titulo: string;
  52.   contenido: string;
  53.  
  54.   archivo: TextFile;
  55.   texto: string;
  56.  
  57. begin
  58.  
  59.   titulo := ExtractFileName(sEdit3.Text);
  60.  
  61.   sMemo1.Lines.Clear;
  62.  
  63.   AssignFile(archivo, sEdit3.Text);
  64.   Reset(archivo);
  65.  
  66.   while not Eof(archivo) do
  67.   begin
  68.     ReadLn(archivo, texto);
  69.     sMemo1.Lines.Add(texto);
  70.   end;
  71.  
  72.   CloseFile(archivo);
  73.  
  74.   contenido := sMemo1.Lines.Text;
  75.  
  76.   datos := TIdMultiPartFormDataStream.Create;
  77.  
  78.   datos.AddFormField('api_dev_key', 'fuck you');
  79.   datos.AddFormField('api_option', 'paste');
  80.   datos.AddFormField('api_paste_name', titulo);
  81.   datos.AddFormField('api_paste_code', contenido);
  82.  
  83.   sStatusBar1.Panels[0].Text := '[+] Uploading ...';
  84.   Form3.sStatusBar1.Update;
  85.  
  86.   code := IdHTTP1.Post('http://pastebin.com/api/api_post.php', datos);
  87.  
  88.   PerlRegEx1.Regex := 'pastebin';
  89.   PerlRegEx1.Subject := code;
  90.  
  91.   if PerlRegEx1.Match then
  92.   begin
  93.     sStatusBar1.Panels[0].Text := '[+] Done';
  94.     Form3.sStatusBar1.Update;
  95.     sEdit4.Text := code;
  96.   end
  97.   else
  98.   begin
  99.     sStatusBar1.Panels[0].Text := '[-] Error Uploading';
  100.     Form3.sStatusBar1.Update;
  101.   end;
  102.  
  103. end;
  104.  
  105. procedure TForm3.sButton4Click(Sender: TObject);
  106. begin
  107.   OpenDialog1.InitialDir := GetCurrentDir;
  108.  
  109.   if OpenDialog1.Execute then
  110.   begin
  111.     sEdit3.Text := OpenDialog1.FileName;
  112.   end;
  113.  
  114. end;
  115.  
  116. procedure TForm3.sButton5Click(Sender: TObject);
  117. begin
  118.   sEdit4.SelectAll;
  119.   sEdit4.CopyToClipboard;
  120. end;
  121.  
  122. end.
  123.  
  124. // The End ?
  125.  

El downloader.

Código
  1. // DH PasteBin Manager 0.2
  2. // (C) Doddy Hackman 2013
  3.  
  4. unit formdown;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, sListBox, sButton, sEdit, sLabel, sGroupBox, PerlRegEx,
  11.   IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, acPNG,
  12.   ExtCtrls, ComCtrls, sStatusBar, sMemo, acProgressBar;
  13.  
  14. type
  15.   TForm2 = class(TForm)
  16.     sGroupBox1: TsGroupBox;
  17.     sGroupBox2: TsGroupBox;
  18.     sLabel1: TsLabel;
  19.     sLabel2: TsLabel;
  20.     sEdit1: TsEdit;
  21.     sEdit2: TsEdit;
  22.     sButton1: TsButton;
  23.     sGroupBox3: TsGroupBox;
  24.     sListBox1: TsListBox;
  25.     sButton2: TsButton;
  26.     IdHTTP1: TIdHTTP;
  27.     PerlRegEx1: TPerlRegEx;
  28.     PerlRegEx2: TPerlRegEx;
  29.     Image1: TImage;
  30.     sStatusBar1: TsStatusBar;
  31.     sProgressBar1: TsProgressBar;
  32.  
  33.     procedure sButton1Click(Sender: TObject);
  34.     procedure sButton2Click(Sender: TObject);
  35.     procedure IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  36.       AWorkCount: Int64);
  37.     procedure IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  38.       AWorkCountMax: Int64);
  39.     procedure IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   Form2: TForm2;
  48.  
  49. implementation
  50.  
  51. {$R *.dfm}
  52.  
  53. procedure TForm2.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  54.   AWorkCount: Int64);
  55. begin
  56.   sProgressBar1.Position := AWorkCount;
  57.   sStatusBar1.Panels[0].Text := '[+] Downloading ...';
  58.   Form2.sStatusBar1.Update;
  59. end;
  60.  
  61. procedure TForm2.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  62.   AWorkCountMax: Int64);
  63. begin
  64.   sProgressBar1.Max := AWorkCountMax;
  65.   sStatusBar1.Panels[0].Text := '[+] Starting download ...';
  66.   Form2.sStatusBar1.Update;
  67. end;
  68.  
  69. procedure TForm2.IdHTTP1WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  70. begin
  71.   sProgressBar1.Position := 0;
  72.   sStatusBar1.Panels[0].Text := '[+] Finished';
  73.   Form2.sStatusBar1.Update;
  74. end;
  75.  
  76. procedure TForm2.sButton1Click(Sender: TObject);
  77. var
  78.   url: string;
  79.   url2: string;
  80.   code: string;
  81.   i: integer;
  82.   viendo: string;
  83.   chau: TStringList;
  84.  
  85. begin
  86.   //
  87.  
  88.   chau := TStringList.Create;
  89.  
  90.   chau.Duplicates := dupIgnore;
  91.   chau.Sorted := True;
  92.   chau.Assign(sListBox1.Items);
  93.   sListBox1.Items.Clear;
  94.   sListBox1.Items.Assign(chau);
  95.  
  96.   url := sEdit1.Text;
  97.   url2 := sEdit2.Text;
  98.  
  99.   if not(url = '') then
  100.   begin
  101.     PerlRegEx1.Regex := 'pastebin';
  102.     PerlRegEx1.Subject := url;
  103.  
  104.     if PerlRegEx1.Match then
  105.     begin
  106.       sListBox1.Items.Add(url);
  107.     end;
  108.   end;
  109.  
  110.   if not(url2 = '') then
  111.   begin
  112.  
  113.     code := IdHTTP1.Get(url2);
  114.  
  115.     PerlRegEx1.Regex := '(.)(http://.+?)\1';
  116.     PerlRegEx1.Subject := code;
  117.  
  118.     while PerlRegEx1.MatchAgain do
  119.     begin
  120.       for i := 1 to PerlRegEx1.SubExpressionCount do
  121.       begin
  122.         viendo := PerlRegEx1.SubExpressions[i];
  123.  
  124.         PerlRegEx2.Regex := 'pastebin';
  125.         PerlRegEx2.Subject := viendo;
  126.  
  127.         if PerlRegEx2.Match then
  128.         begin
  129.           sListBox1.Items.Add(viendo);
  130.         end;
  131.       end;
  132.     end;
  133.  
  134.   end;
  135.  
  136. end;
  137.  
  138. procedure TForm2.sButton2Click(Sender: TObject);
  139. var
  140.   url: string;
  141.   urlabajar: string;
  142.   id: string;
  143.   code: string;
  144.   titulo: string;
  145.   i: integer;
  146.   archivobajado: TFileStream;
  147. begin
  148.  
  149.   for i := sListBox1.Items.Count - 1 downto 0 do
  150.   begin
  151.  
  152.     //
  153.  
  154.     url := sListBox1.Items[i];
  155.  
  156.     PerlRegEx1.Regex := 'http:\/\/(.*)\/(.*)';
  157.     PerlRegEx1.Subject := url;
  158.  
  159.     if PerlRegEx1.Match then
  160.     begin
  161.  
  162.       urlabajar :=
  163.         'http://pastebin.com/download.php?i=' + PerlRegEx1.SubExpressions[2];
  164.       // sMemo1.Lines.Add(urlabajar);
  165.  
  166.       code := IdHTTP1.Get(url);
  167.  
  168.       PerlRegEx2.Regex := '<div class="paste_box_line1" title="(.*)">';
  169.       PerlRegEx2.Subject := code;
  170.  
  171.       if PerlRegEx2.Match then
  172.       begin
  173.         titulo := PerlRegEx2.SubExpressions[1];
  174.         // sMemo1.Lines.Add(titulo);
  175.  
  176.         // Baja esto carajo
  177.  
  178.         // sStatusBar1.Panels[0].Text := '[+] Downloading :' + urlabajar;
  179.         // Form2.sStatusBar1.Update;
  180.  
  181.         archivobajado := TFileStream.Create(titulo + '.txt', fmCreate);
  182.  
  183.         try
  184.           begin
  185.             DeleteFile(titulo);
  186.             IdHTTP1.Get(urlabajar, archivobajado);
  187.             sStatusBar1.Panels[0].Text := '[+] File Dowloaded';
  188.             Form2.sStatusBar1.Update;
  189.             archivobajado.Free;
  190.           end;
  191.         except
  192.           sStatusBar1.Panels[0].Text := '[-] Failed download';
  193.           Form2.sStatusBar1.Update;
  194.           archivobajado.Free;
  195.           Abort;
  196.         end;
  197.  
  198.  
  199.         //
  200.  
  201.       end;
  202.  
  203.     end;
  204.  
  205.  
  206.  
  207.     //
  208.  
  209.   end;
  210.  
  211.   sStatusBar1.Panels[0].Text := '[+] Done';
  212.   Form2.sStatusBar1.Update;
  213.  
  214. end;
  215.  
  216. end.
  217.  
  218. // The End ?
  219.  

Si quieren bajar el proyecto y el ejecutable lo pueden hacer de aca.
En línea
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Delphi] PirateBay Manager 0.8
Programación General 		BigBear 3 2,698 Último mensaje 20 Febrero 2014, 21:48 pm
por cron0ar8R
[Delphi] DH Server Manager 0.3
Programación General 		BigBear 0 1,896 Último mensaje 24 Abril 2015, 17:25 pm
por BigBear
[Delphi] FTP Manager 1.0
Programación General 		BigBear 1 2,510 Último mensaje 7 Agosto 2016, 01:32 am
por + 1 Oculto(s)
[Delphi] IRC Manager 0.3
Programación General 		BigBear 0 2,173 Último mensaje 20 Agosto 2016, 00:29 am
por BigBear
[Delphi] DH Database Manager 0.8
Programación General 		BigBear 0 2,323 Último mensaje 30 Enero 2017, 02:42 am
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines