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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 ... 43
111  Programación / Programación General / [Delphi] DH Icon Changer 0.5 en: 11 Abril 2014, 18:36 pm
Version final de este programa para cambiarle el icono a cualquier programa (eso creo).

Una imagen :



El codigo.

Código
  1. // DH Icon Changer 0.5
  2. // (C) Doddy Hackman 2014
  3. // Based on IconChanger By Chokstyle
  4. // Thanks to Chokstyle
  5.  
  6. unit icon;
  7.  
  8. interface
  9.  
  10. uses
  11.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  12.   System.Classes, Vcl.Graphics,
  13.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, madRes, Vcl.StdCtrls,
  14.   Vcl.Imaging.pngimage, Vcl.ExtCtrls, Vcl.ComCtrls, about;
  15.  
  16. type
  17.   TForm1 = class(TForm)
  18.     Image1: TImage;
  19.     GroupBox1: TGroupBox;
  20.     Edit1: TEdit;
  21.     Button1: TButton;
  22.     OpenDialog1: TOpenDialog;
  23.     StatusBar1: TStatusBar;
  24.     GroupBox2: TGroupBox;
  25.     GroupBox3: TGroupBox;
  26.     Button2: TButton;
  27.     GroupBox4: TGroupBox;
  28.     Button3: TButton;
  29.     Button4: TButton;
  30.     Button5: TButton;
  31.     Edit2: TEdit;
  32.     Image2: TImage;
  33.     OpenDialog2: TOpenDialog;
  34.     procedure Button1Click(Sender: TObject);
  35.     procedure Button4Click(Sender: TObject);
  36.     procedure Button5Click(Sender: TObject);
  37.     procedure FormCreate(Sender: TObject);
  38.     procedure Button2Click(Sender: TObject);
  39.     procedure Button3Click(Sender: TObject);
  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.Button1Click(Sender: TObject);
  54. begin
  55.   if OpenDialog1.Execute then
  56.   begin
  57.     Edit1.Text := OpenDialog1.FileName;
  58.   end;
  59. end;
  60.  
  61. procedure TForm1.Button2Click(Sender: TObject);
  62. begin
  63.  
  64.   if OpenDialog2.Execute then
  65.   begin
  66.     Image2.Picture.LoadFromFile(OpenDialog2.FileName);
  67.     Edit2.Text := OpenDialog2.FileName;
  68.   end;
  69.  
  70. end;
  71.  
  72. procedure TForm1.Button3Click(Sender: TObject);
  73. var
  74.   op: string;
  75.   change: dword;
  76.   valor: string;
  77.  
  78. begin
  79.  
  80.   valor := IntToStr(128);
  81.  
  82.   op := InputBox('Backup', 'Backup ?', 'Yes');
  83.  
  84.   if op = 'Yes' then
  85.   begin
  86.     CopyFile(PChar(Edit1.Text), PChar(ExtractFilePath(Application.ExeName) +
  87.       'backup' + ExtractFileExt(Edit1.Text)), True);
  88.   end;
  89.  
  90.   try
  91.     begin
  92.       change := BeginUpdateResourceW(PWideChar(wideString(Edit1.Text)), false);
  93.       LoadIconGroupResourceW(change, PWideChar(wideString(valor)), 0,
  94.         PWideChar(wideString(Edit2.Text)));
  95.       EndUpdateResourceW(change, false);
  96.       StatusBar1.Panels[0].Text := '[+] Changed !';
  97.       Form1.StatusBar1.Update;
  98.     end;
  99.   except
  100.     begin
  101.       StatusBar1.Panels[0].Text := '[-] Error';
  102.       Form1.StatusBar1.Update;
  103.  
  104.     end;
  105.   end;
  106. end;
  107.  
  108. procedure TForm1.Button4Click(Sender: TObject);
  109. begin
  110.   Form2.Show;
  111. end;
  112.  
  113. procedure TForm1.Button5Click(Sender: TObject);
  114. begin
  115.   Form1.Close();
  116.   Form2.Close();
  117. end;
  118.  
  119. procedure TForm1.FormCreate(Sender: TObject);
  120. begin
  121.  
  122.   OpenDialog1.InitialDir := GetCurrentDir;
  123.   OpenDialog2.InitialDir := GetCurrentDir;
  124.   OpenDialog2.Filter := 'Icons|*.ico|';
  125.  
  126. end;
  127.  
  128. end.
  129.  
  130. // The End ?
  131.  

Si quieren bajar el programa lo pueden hacer de aca.
112  Programación / Programación General / [Delphi] LocateIP 0.5 en: 4 Abril 2014, 20:16 pm
Version final de este programa para localizar la IP y DNS de una pagina.

Una imagen :



El codigo :

Código
  1. // LocateIP 0.5
  2. // (C) Doddy Hackman 2014
  3. // Credits :
  4. // Based on the services :
  5. // To get IP -- http://whatismyipaddress.com/
  6. // To locate IP -- http://www.melissadata.com/
  7. // To get DNS -- http://www.ip-adress.com/
  8. // Thanks to whatismyipaddress.com , www.melissadata.com , www.ip-adress.com
  9.  
  10. unit locate;
  11.  
  12. interface
  13.  
  14. uses
  15.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  16.   System.Classes, Vcl.Graphics,
  17.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,
  18.   IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, PerlRegEx,
  19.   IdMultipartFormData, Vcl.Imaging.pngimage, Vcl.ExtCtrls;
  20.  
  21. type
  22.   TForm1 = class(TForm)
  23.     GroupBox1: TGroupBox;
  24.     Edit1: TEdit;
  25.     Button1: TButton;
  26.     GroupBox2: TGroupBox;
  27.     Edit2: TEdit;
  28.     Edit3: TEdit;
  29.     Edit4: TEdit;
  30.     StatusBar1: TStatusBar;
  31.     Label1: TLabel;
  32.     Label2: TLabel;
  33.     Label3: TLabel;
  34.     IdHTTP1: TIdHTTP;
  35.     Image1: TImage;
  36.     GroupBox3: TGroupBox;
  37.     ListBox1: TListBox;
  38.     procedure Button1Click(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.Button1Click(Sender: TObject);
  53. var
  54.   regex: TPerlRegEx;
  55.   par: TIdMultiPartFormDataStream;
  56.   rta: string;
  57.   z: integer;
  58.  
  59. begin
  60.  
  61.   regex := TPerlRegEx.Create();
  62.  
  63.   par := TIdMultiPartFormDataStream.Create;
  64.   par.AddFormField('DOMAINNAME', Edit1.text);
  65.  
  66.   StatusBar1.Panels[0].text := '[+] Getting IP ...';
  67.   Form1.StatusBar1.Update;
  68.  
  69.   rta := IdHTTP1.Post('http://whatismyipaddress.com/hostname-ip', par);
  70.  
  71.   regex.regex := 'Lookup IP Address: <a href=(.*)>(.*)<\/a>';
  72.   regex.Subject := rta;
  73.  
  74.   if regex.Match then
  75.   begin
  76.     Edit1.text := regex.Groups[2];
  77.  
  78.     StatusBar1.Panels[0].text := '[+] Locating ...';
  79.     Form1.StatusBar1.Update;
  80.  
  81.     rta := IdHTTP1.Get
  82.       ('http://www.melissadata.com/lookups/iplocation.asp?ipaddress=' +
  83.       Edit1.text);
  84.  
  85.     regex.regex := 'City<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
  86.     regex.Subject := rta;
  87.  
  88.     if regex.Match then
  89.     begin
  90.       Edit2.text := regex.Groups[2];
  91.     end
  92.     else
  93.     begin
  94.       Edit2.text := 'Not Found';
  95.     end;
  96.  
  97.     regex.regex := 'Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
  98.     regex.Subject := rta;
  99.  
  100.     if regex.Match then
  101.     begin
  102.       Edit3.text := regex.Groups[2];
  103.     end
  104.     else
  105.     begin
  106.       Edit3.text := 'Not Found';
  107.     end;
  108.  
  109.     regex.regex := 'State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
  110.     regex.Subject := rta;
  111.  
  112.     if regex.Match then
  113.     begin
  114.       Edit4.text := regex.Groups[2];
  115.     end
  116.     else
  117.     begin
  118.       Edit4.text := 'Not Found';
  119.     end;
  120.  
  121.     StatusBar1.Panels[0].text := '[+] Getting DNS ...';
  122.     Form1.StatusBar1.Update;
  123.  
  124.     ListBox1.Items.Clear;
  125.  
  126.     rta := IdHTTP1.Get('http://www.ip-adress.com/reverse_ip/' + Edit1.text);
  127.  
  128.     regex.regex := 'whois\/(.*?)\">Whois';
  129.     regex.Subject := rta;
  130.  
  131.     while regex.MatchAgain do
  132.     begin
  133.       for z := 1 to regex.GroupCount do
  134.         ListBox1.Items.Add(regex.Groups[z]);
  135.     end;
  136.  
  137.   end
  138.   else
  139.   begin
  140.     StatusBar1.Panels[0].text := '[-] Error';
  141.     Form1.StatusBar1.Update;
  142.   end;
  143.  
  144.   StatusBar1.Panels[0].text := '[+] Finished';
  145.   Form1.StatusBar1.Update;
  146.  
  147.   regex.Free;
  148.  
  149. end;
  150.  
  151. end.
  152.  
  153. // The End ?
  154.  

Si lo quieren bajar lo pueden hacer de aca.
113  Programación / Scripting / [Perl] Radio X 0.4 en: 28 Marzo 2014, 16:29 pm
Actualice mi programa en perl llamado "Radio X" debido a que las emisoras no me gustaban , asi que actualice el hash con 31 estaciones , todas de diferentes generos , aunque la unica que siempre escucho siempre es la de musica clasica.

Aclaracion de dependencia :

Aclaro que necesitan bajar el mplayer , esta el link de descarga en el script , una vez que lo tengan descargado y descomprimido creen una carpeta llamada
"mplayer" y copian todos los archivos del archivo descomprimido en la carpeta recien creada , todo esto tiene que ser en el mismo directorio donde este el script.

El codigo :

Código
  1. #!usr/bin/perl
  2. #Radio X
  3. #Version 0.4
  4. #(C) Doddy Hackman 2014
  5. #
  6. #Download : http://www.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc2.zip
  7. #
  8.  
  9. use Cwd;
  10.  
  11. my @emisoras = (
  12.  
  13.     {},
  14.  
  15.     {
  16.  
  17.         "nombre" => "idobi Radio",
  18.         "genero" => "Alternative",
  19.         "link"   => "http://69.46.88.21:80"
  20.  
  21.     },
  22.  
  23.     {
  24.  
  25.         "nombre" => "BLUES RADIO (1.FM TM)",
  26.         "genero" => "Blues",
  27.         "link"   => "http://205.164.35.58:80"
  28.  
  29.     },
  30.  
  31.     {
  32.  
  33.         "nombre" => "Venice Classic Radio Italia",
  34.         "genero" => "Classical",
  35.         "link"   => "http://174.36.206.197:8000"
  36.  
  37.     },
  38.  
  39.     {
  40.  
  41.         "nombre" => "100hitz - New Country",
  42.         "genero" => "Country",
  43.         "link"   => "http://69.4.234.186:9210"
  44.  
  45.     },
  46.  
  47.     {
  48.  
  49.         "nombre" => "RADIO 7 - POLNOCNE",
  50.         "genero" => "Decades",
  51.         "link"   => "http://94.23.36.107:443"
  52.  
  53.     },
  54.  
  55.     {
  56.  
  57.         "nombre" => "COOLfahrenheit 93",
  58.         "genero" => "Easy Listening",
  59.         "link"   => "http://203.150.225.77:8400"
  60.  
  61.     },
  62.  
  63.     {
  64.  
  65.         "nombre" => "Ibiza Global Radio",
  66.         "genero" => "Electronic",
  67.         "link"   => "http://198.50.197.161:8024"
  68.  
  69.     },
  70.  
  71.     {
  72.  
  73.         "nombre" => "HBR1.com - I.D.M. Tranceponder",
  74.         "genero" => "Trance",
  75.         "link"   => "http://ubuntu.hbr1.com:19800/trance.ogg"
  76.  
  77.     },
  78.  
  79.     {
  80.  
  81.         "nombre" => "COOL radio - Beograd",
  82.         "genero" => "Folk",
  83.         "link"   => "http://176.9.30.66:80"
  84.  
  85.     },
  86.  
  87.     {
  88.  
  89.         "nombre" => "COOL radio - Beograd",
  90.         "genero" => "Folk",
  91.         "link"   => "http://176.9.30.66:80"
  92.  
  93.     },
  94.  
  95.     {
  96.  
  97.         "nombre" => "HPR4",
  98.         "genero" => "Inspirational",
  99.         "link"   => "http://50.7.77.179:8024"
  100.  
  101.     },
  102.  
  103.     {
  104.  
  105.         "nombre" => "Radio Carsija - Melli",
  106.         "genero" => "International",
  107.         "link"   => "http://80.237.153.95:19406"
  108.  
  109.     },
  110.  
  111.     {
  112.  
  113.         "nombre" => "TheJazzGroove.com",
  114.         "genero" => "Jazz",
  115.         "link"   => "http://199.180.72.2:8015"
  116.  
  117.     },
  118.  
  119.     {
  120.  
  121.         "nombre" => "Paisa Estereo",
  122.         "genero" => "Latin",
  123.         "link"   => "http://199.217.118.10:7094"
  124.  
  125.     },
  126.  
  127.     {
  128.  
  129.         "nombre" => "RockRadio1.Com",
  130.         "genero" => "Metal",
  131.         "link"   => "http://77.74.192.50:8000"
  132.  
  133.     },
  134.  
  135.     {
  136.  
  137.         "nombre" => "Adom 106.3FM",
  138.         "genero" => "Misc",
  139.         "link"   => "http://67.159.60.45:8100"
  140.  
  141.     },
  142.  
  143.     {
  144.  
  145.         "nombre" => "Healing",
  146.         "genero" => "New Age",
  147.         "link"   => "http://222.122.178.183:11070"
  148.  
  149.     },
  150.  
  151.     {
  152.  
  153.         "nombre" => "RADIO SOUND POP",
  154.         "genero" => "Pop",
  155.         "link"   => "http://99.198.118.250:8076"
  156.  
  157.     },
  158.  
  159.     {
  160.  
  161.         "nombre" => "Latido 90.1 FM",
  162.         "genero" => "Public Radio",
  163.         "link"   => "http://64.251.21.48:42000"
  164.  
  165.     },
  166.  
  167.     {
  168.  
  169.         "nombre" => "Radio Mandela",
  170.         "genero" => "Funk",
  171.         "link"   => "http://184.154.150.93:9010"
  172.  
  173.     },
  174.  
  175.     {
  176.  
  177.         "nombre" => "Boneyaad Radio",
  178.         "genero" => "Rap",
  179.         "link"   => "http://69.175.103.226:8180"
  180.  
  181.     },
  182.  
  183.     {
  184.  
  185.         "nombre" => "Reggae141.com",
  186.         "genero" => "Reggae",
  187.         "link"   => "http://184.107.197.154:8002"
  188.  
  189.     },
  190.  
  191.     {
  192.  
  193.         "nombre" => "Classic Rock 915",
  194.         "genero" => "Rock",
  195.         "link"   => "http://117.53.175.113:15018"
  196.  
  197.     },
  198.  
  199.     {
  200.  
  201.         "nombre" => "181.fm - Rock 181 (Active Rock)",
  202.         "genero" => "Rock",
  203.         "link"   => "http://108.61.73.118:14008"
  204.  
  205.     },
  206.  
  207.     {
  208.  
  209.         "nombre" => "181.FM - The Buzz",
  210.         "genero" => "Rock",
  211.         "link"   => "http://108.61.73.119:14126"
  212.  
  213.     },
  214.  
  215.     {
  216.  
  217.         "nombre" => "181.FM - Good Time Oldies",
  218.         "genero" => "Rock",
  219.         "link"   => "http://108.61.73.118:14046"
  220.  
  221.     },
  222.  
  223.     {
  224.  
  225.         "nombre" => "Top40",
  226.         "genero" => "Pop Dance R&B Rock",
  227.         "link"   => "http://95.141.24.79:80"
  228.  
  229.     },
  230.  
  231.     {
  232.  
  233.         "nombre" => "MUSIK.ORIENTAL",
  234.         "genero" => "Seasonal and Holiday",
  235.         "link"   => "http://193.34.51.40:80"
  236.  
  237.     },
  238.  
  239.     {
  240.  
  241.         "nombre" => "NOVA 100.3",
  242.         "genero" => "Soundtracks",
  243.         "link"   => "http://117.53.175.113:15010"
  244.  
  245.     },
  246.  
  247.     {
  248.  
  249.         "nombre" => "Alex Jones - Infowars.com",
  250.         "genero" => "Talk",
  251.         "link"   => "http://50.7.130.109:80"
  252.  
  253.     },
  254.  
  255.     {
  256.  
  257.         "nombre" => "illusive Radio Punta",
  258.         "genero" => "Themes",
  259.         "link"   => "http://38.96.148.141:9996"
  260.  
  261.     }
  262.  
  263. );
  264.  
  265. $SIG{INT} = \&retorno;
  266.  
  267. chdir( getcwd() . "/mplayer/" );
  268.  
  269. menu();
  270.  
  271. sub retorno {
  272.     print "\n\n[+] Press any key for return to the menu\n\n";
  273.     <stdin>;
  274.     clean();
  275.     menu();
  276. }
  277.  
  278. sub menu {
  279.  
  280.     head();
  281.  
  282.     print "\n\n[+] Listing ["
  283.       . int( @emisoras - 1 ) . "] "
  284.       . "stations found ...\n";
  285.  
  286.     for my $em ( 1 .. @emisoras - 1 ) {
  287.  
  288.         print "\n[+] ID : " . $em . "\n";
  289.         print "[+] Name : " . $emisoras[$em]->{nombre} . "\n";
  290.         print "[+] Type : " . $emisoras[$em]->{genero} . "\n";
  291.  
  292.         #print "[$em] - ".$emisoras[$em]->{genero}."\n";
  293.  
  294.     }
  295.  
  296.     print "\n[+] Write exit to go out\n";
  297.  
  298.     print "\n[+] Option : ";
  299.     chomp( my $op = <stdin> );
  300.  
  301.     if ( $op eq "exit" ) {
  302.         copyright();
  303.     }
  304.  
  305.     if ( $op =~ /\d+/ ) {
  306.         print "\n[!] Listening : " . $emisoras[$op]->{link} . " ...\n\n";
  307.         system("mplayer $emisoras[$op]->{link}");
  308.     }
  309.  
  310.     copyright();
  311.  
  312. }
  313.  
  314. sub head {
  315.  
  316.     clean();
  317.  
  318.     print qq(
  319.  
  320.  
  321.  @@@@@     @    @@@@    @   @@@@     @     @
  322.  @    @    @    @   @   @  @    @    @     @
  323.  @    @   @ @   @    @  @  @    @     @   @ 
  324.  @    @   @ @   @    @  @  @    @      @ @  
  325.  @@@@@   @   @  @    @  @  @    @       @   
  326.  @    @  @   @  @    @  @  @    @      @ @  
  327.  @    @  @@@@@  @    @  @  @    @     @   @ 
  328.  @    @ @     @ @   @   @  @    @    @     @
  329.  @    @ @     @ @@@@    @   @@@@     @     @
  330.  
  331. );
  332.  
  333. }
  334.  
  335. sub copyright {
  336.     print "\n\n-- == (C) Doddy Hackman 2014 == --\n\n";
  337.     <stdin>;
  338.     exit(1);
  339. }
  340.  
  341. sub clean {
  342.     my $os = $^O;
  343.     if ( $os =~ /Win32/ig ) {
  344.         system("cls");
  345.     }
  346.     else {
  347.         system("clear");
  348.     }
  349. }
  350.  
  351. #The End ?
  352.  
  353.  

Un ejemplo de uso

Código:



 @@@@@     @    @@@@    @   @@@@     @     @
 @    @    @    @   @   @  @    @    @     @
 @    @   @ @   @    @  @  @    @     @   @
 @    @   @ @   @    @  @  @    @      @ @
 @@@@@   @   @  @    @  @  @    @       @
 @    @  @   @  @    @  @  @    @      @ @
 @    @  @@@@@  @    @  @  @    @     @   @
 @    @ @     @ @   @   @  @    @    @     @
 @    @ @     @ @@@@    @   @@@@     @     @



[+] Listing [31] stations found ...

[+] ID : 1
[+] Name : idobi Radio
[+] Type : Alternative

[+] ID : 2
[+] Name : BLUES RADIO (1.FM TM)
[+] Type : Blues

[+] ID : 3
[+] Name : Venice Classic Radio Italia
[+] Type : Classical

[+] ID : 4
[+] Name : 100hitz - New Country
[+] Type : Country

[+] ID : 5
[+] Name : RADIO 7 - POLNOCNE
[+] Type : Decades

[+] ID : 6
[+] Name : COOLfahrenheit 93
[+] Type : Easy Listening

[+] ID : 7
[+] Name : Ibiza Global Radio
[+] Type : Electronic

[+] ID : 8
[+] Name : HBR1.com - I.D.M. Tranceponder
[+] Type : Trance

[+] ID : 9
[+] Name : COOL radio - Beograd
[+] Type : Folk

[+] ID : 10
[+] Name : COOL radio - Beograd
[+] Type : Folk

[+] ID : 11
[+] Name : HPR4
[+] Type : Inspirational

[+] ID : 12
[+] Name : Radio Carsija - Melli
[+] Type : International

[+] ID : 13
[+] Name : TheJazzGroove.com
[+] Type : Jazz

[+] ID : 14
[+] Name : Paisa Estereo
[+] Type : Latin

[+] ID : 15
[+] Name : RockRadio1.Com
[+] Type : Metal

[+] ID : 16
[+] Name : Adom 106.3FM
[+] Type : Misc

[+] ID : 17
[+] Name : Healing
[+] Type : New Age

[+] ID : 18
[+] Name : RADIO SOUND POP
[+] Type : Pop

[+] ID : 19
[+] Name : Latido 90.1 FM
[+] Type : Public Radio

[+] ID : 20
[+] Name : Radio Mandela
[+] Type : Funk

[+] ID : 21
[+] Name : Boneyaad Radio
[+] Type : Rap

[+] ID : 22
[+] Name : Reggae141.com
[+] Type : Reggae

[+] ID : 23
[+] Name : Classic Rock 915
[+] Type : Rock

[+] ID : 24
[+] Name : 181.fm - Rock 181 (Active Rock)
[+] Type : Rock

[+] ID : 25
[+] Name : 181.FM - The Buzz
[+] Type : Rock

[+] ID : 26
[+] Name : 181.FM - Good Time Oldies
[+] Type : Rock

[+] ID : 27
[+] Name : Top40
[+] Type : Pop Dance R&B Rock

[+] ID : 28
[+] Name : MUSIK.ORIENTAL
[+] Type : Seasonal and Holiday

[+] ID : 29
[+] Name : NOVA 100.3
[+] Type : Soundtracks

[+] ID : 30
[+] Name : Alex Jones - Infowars.com
[+] Type : Talk

[+] ID : 31
[+] Name : illusive Radio Punta
[+] Type : Themes

[+] Write exit to go out

[+] Option : 3

[!] Listening : http://174.36.206.197:8000 ...

MPlayer 1.0rc2-4.2.1 (C) 2000-2007 MPlayer Team
CPU: AMD Sempron(tm) 140 Processor (Family: 16, Model: 6, Stepping: 2)
CPUflags:  MMX: 1 MMX2: 1 3DNow: 1 3DNow2: 1 SSE: 1 SSE2: 1
Compiled with runtime CPU detection.

Playing http://174.36.206.197:8000.
Connecting to server 174.36.206.197[174.36.206.197]: 8000...
Name   : Venice Classic Radio Italia
Genre  : Classical
Website: http://www.veniceclassicradio.eu/
Public : yes
Bitrate: 128kbit/s
Cache size set to 320 KBytes
Cache fill:  0.00% (0 bytes)   No bind found for key ''.

Cache fill:  7.50% (24576 bytes)
ICY Info: StreamTitle='Frederic Chopin (1810-1849) - 'Allegro de concert' per pi
anoforte in la Maggiore Op.46 (11:37)  {+info: veniceclassicradio.eu}';StreamUrl
='';
Cache fill: 17.50% (57344 bytes)
Audio file file format detected.
==========================================================================
Opening audio decoder: [mp3lib] MPEG layer-2, layer-3
mpg123: Can't rewind stream by 154 bits!
AUDIO: 44100 Hz, 2 ch, s16le, 128.0 kbit/9.07% (ratio: 16000->176400)
Selected audio codec: [mp3] afm: mp3lib (mp3lib MPEG layer-2, layer-3)
==========================================================================
AO: [dsound] 44100Hz 2ch s16le (2 bytes per sample)
Video: no video
Starting playback...

ICY Info: StreamTitle='Mauro Giuliani (1781-1829) - Variazioni su 'Deh! Calma, o
h ciel!' per chitarra e quartetto (08:00)  {+info: veniceclassicradio.eu}';Strea
mUrl='';

ICY Info: StreamTitle='Johann Sebastian Bach (1685-1750) - 'Il clavicembalo ben
temperato' - Libro I - Praeludium et Fuga in si bemolle Maggiore BWV866 (02:42)
 {+info: veniceclassicradio.eu}';StreamUrl='';

ICY Info: StreamTitle='Antonio Palella (1692-1761) - Concerto a 4  in sol Maggio
re (12:42)  {+info: veniceclassicradio.eu}';StreamUrl='';

ICY Info: StreamTitle='Anton Reicha (1770-1836) - Sonata per fagotto e pianofort
e (16:19)  {+info: veniceclassicradio.eu}';StreamUrl='';

ICY Info: StreamTitle='Gioachino Rossini (1792-1868) - Sonata per archi in mi be
molle Maggiore No.5 (14:51)  {+info: veniceclassicradio.eu}';StreamUrl='';

ICY Info: StreamTitle='Fernand De La Tombelle (1854-1928) - Andante espressivo p
er violoncello e pianoforte (04:39)  {+info: veniceclassicradio.eu}';StreamUrl='
';

ICY Info: StreamTitle='Franz Schubert (1797-1828) - Sinfonia in re Maggiore No.3
 D200 (23:09)  {+info: veniceclassicradio.eu}';StreamUrl='';


Eso es todo.
114  Programación / Java / [Java] MD5 Cracker 1.0 en: 21 Marzo 2014, 22:04 pm
Un simple programa en Java para crackear un hash MD5.

Una imagen :



Si lo quieren bajar lo pueden hacer de aca.
115  Programación / Java / [Java] BingHackTool 1.0 en: 14 Marzo 2014, 16:17 pm
Un simple programa en Java para buscar paginas vulnerables a SQLI usando Bing.

Una imagen :



Si lo quieren bajar lo pueden hacer de aca.
116  Programación / Java / [Java] LocateIP 1.0 en: 7 Marzo 2014, 18:54 pm
Un simple programa en java para localizar una pagina.

Una imagen :



Si lo quieren bajar lo pueden hacer de aca.
117  Programación / Programación General / [Delphi] DH Player 0.5 en: 28 Febrero 2014, 16:35 pm
Un reproductor de musica , en esta version le agregue un buscador usando mp3skull para buscar y descargar canciones , para despues guardarlas en una carpeta llamada "downloads" y escucharlas cuando quieran.

Una imagen :



El codigo :

Código
  1. // DH Player 0.5
  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, sPageControl,
  13.   sStatusBar, sButton, PerlRegEx, IdBaseComponent, IdComponent, IdTCPConnection,
  14.   IdTCPClient, IdHTTP, sListView, acPNG, sLabel;
  15.  
  16. type
  17.   TForm1 = class(TForm)
  18.     sSkinManager1: TsSkinManager;
  19.     Image1: TImage;
  20.     PopupMenu1: TPopupMenu;
  21.     L1: TMenuItem;
  22.     R1: TMenuItem;
  23.     A1: TMenuItem;
  24.     E1: TMenuItem;
  25.     Timer1: TTimer;
  26.     sPageControl1: TsPageControl;
  27.     sTabSheet1: TsTabSheet;
  28.     sGroupBox4: TsGroupBox;
  29.     MediaPlayer1: TMediaPlayer;
  30.     sGroupBox2: TsGroupBox;
  31.     sEdit1: TsEdit;
  32.     sGroupBox5: TsGroupBox;
  33.     sListBox1: TsListBox;
  34.     sGroupBox1: TsGroupBox;
  35.     sProgressBar1: TsProgressBar;
  36.     sTabSheet2: TsTabSheet;
  37.     sStatusBar1: TsStatusBar;
  38.     sGroupBox3: TsGroupBox;
  39.     sEdit2: TsEdit;
  40.     sListBox2: TsListBox;
  41.     sListBox3: TsListBox;
  42.     sListBox4: TsListBox;
  43.     sButton1: TsButton;
  44.     IdHTTP1: TIdHTTP;
  45.     PerlRegEx1: TPerlRegEx;
  46.     sGroupBox6: TsGroupBox;
  47.     sListView1: TsListView;
  48.     sTabSheet3: TsTabSheet;
  49.     sGroupBox7: TsGroupBox;
  50.     MediaPlayer2: TMediaPlayer;
  51.     sGroupBox8: TsGroupBox;
  52.     sListBox5: TsListBox;
  53.     sGroupBox9: TsGroupBox;
  54.     sGroupBox10: TsGroupBox;
  55.     sProgressBar2: TsProgressBar;
  56.     sProgressBar3: TsProgressBar;
  57.     Timer2: TTimer;
  58.  
  59.     IdHTTP2: TIdHTTP;
  60.  
  61.     sTabSheet4: TsTabSheet;
  62.     sGroupBox11: TsGroupBox;
  63.     Image2: TImage;
  64.     sLabel1: TsLabel;procedure A1Click(Sender: TObject);
  65.     procedure E1Click(Sender: TObject);
  66.     procedure R1Click(Sender: TObject);
  67.     procedure L1Click(Sender: TObject);
  68.     procedure Timer1Timer(Sender: TObject);
  69.     procedure sListBox1DblClick(Sender: TObject);
  70.     procedure FormCreate(Sender: TObject);
  71.     procedure sButton1Click(Sender: TObject);
  72.     procedure sListView1DblClick(Sender: TObject);
  73.     procedure sListBox5DblClick(Sender: TObject);
  74.     procedure Timer2Timer(Sender: TObject);
  75.     procedure IdHTTP2Work(ASender: TObject; AWorkMode: TWorkMode;
  76.       AWorkCount: Int64);
  77.     procedure IdHTTP2WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  78.       AWorkCountMax: Int64);
  79.     procedure IdHTTP2WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  80.  
  81.   private
  82.     { Private declarations }
  83.   public
  84.     { Public declarations }
  85.   end;
  86.  
  87. var
  88.   Form1: TForm1;
  89.  
  90. implementation
  91.  
  92. {$R *.dfm}
  93. // Functions
  94.  
  95. function getfilename(archivo: string): string;
  96. var
  97.   test: TStrings;
  98. begin
  99.  
  100.   test := TStringList.Create;
  101.   test.Delimiter := '/';
  102.   test.DelimitedText := archivo;
  103.   Result := test[test.Count - 1];
  104.  
  105.   test.Free;
  106.  
  107. end;
  108.  
  109. //
  110.  
  111. procedure TForm1.A1Click(Sender: TObject);
  112. begin
  113.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  114. end;
  115.  
  116. procedure TForm1.E1Click(Sender: TObject);
  117. begin
  118.   Form1.Close();
  119. end;
  120.  
  121. procedure TForm1.FormCreate(Sender: TObject);
  122. var
  123.   dir: string;
  124.   search: TSearchRec;
  125.   cantidad: Integer;
  126. begin
  127.   sProgressBar1.Max := 0;
  128.   sProgressBar2.Max := 0;
  129.   sProgressBar3.Max := 0;
  130.  
  131.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  132.   sSkinManager1.SkinName := 'fm';
  133.   sSkinManager1.Active := True;
  134.  
  135.   begin
  136.  
  137.     dir := ExtractFilePath(Application.ExeName) + '/downloads';
  138.  
  139.     if not(DirectoryExists(dir)) then
  140.     begin
  141.       CreateDir(dir);
  142.     end;
  143.  
  144.     ChDir(dir);
  145.  
  146.     sListBox5.Clear;
  147.  
  148.     cantidad := FindFirst(ExtractFilePath(Application.ExeName)
  149.         + '/downloads/' + '*.mp3', faAnyFile, search);
  150.  
  151.     while cantidad = 0 do
  152.     begin
  153.       if FileExists(dir + '/' + search.name) then
  154.       begin
  155.         sListBox5.Items.Add(search.name);
  156.       end;
  157.       cantidad := FindNext(search);
  158.     end;
  159.     FindClose(search);
  160.   end;
  161.  
  162. end;
  163.  
  164. procedure TForm1.IdHTTP2Work(ASender: TObject; AWorkMode: TWorkMode;
  165.   AWorkCount: Int64);
  166. begin
  167.   sProgressBar2.Position := AWorkCount;
  168.   sStatusBar1.Panels[0].Text := '[+] Downloading ...';
  169.   Form1.sStatusBar1.Update;
  170. end;
  171.  
  172. procedure TForm1.IdHTTP2WorkBegin(ASender: TObject; AWorkMode: TWorkMode;
  173.   AWorkCountMax: Int64);
  174. begin
  175.   sProgressBar2.Max := AWorkCountMax;
  176.   sStatusBar1.Panels[0].Text := '[+] Starting download ...';
  177.   Form1.sStatusBar1.Update;
  178. end;
  179.  
  180. procedure TForm1.IdHTTP2WorkEnd(ASender: TObject; AWorkMode: TWorkMode);
  181. var
  182.   dir: string;
  183.   search: TSearchRec;
  184.   cantidad: Integer;
  185. begin
  186.   sProgressBar2.Position := 0;
  187.  
  188.   sListBox5.Clear;
  189.  
  190.   dir := ExtractFilePath(Application.ExeName) + '/downloads';
  191.  
  192.   cantidad := FindFirst(ExtractFilePath(Application.ExeName)
  193.       + '/downloads/' + '*.mp3', faAnyFile, search);
  194.  
  195.   while cantidad = 0 do
  196.   begin
  197.     if FileExists(dir + '/' + search.name) then
  198.     begin
  199.       sListBox5.Items.Add(search.name);
  200.     end;
  201.     cantidad := FindNext(search);
  202.   end;
  203.   FindClose(search);
  204.  
  205. end;
  206.  
  207. procedure TForm1.L1Click(Sender: TObject);
  208. var
  209.   dir: string;
  210.   search: TSearchRec;
  211.   cantidad: Integer;
  212.  
  213. begin
  214.  
  215.   SelectDirectory('Select a folder', '', dir);
  216.  
  217.   sListBox1.Clear;
  218.  
  219.   sEdit1.Text := dir;
  220.   cantidad := FindFirst(dir + '/' + '*.mp3', faAnyFile, search);
  221.  
  222.   while cantidad = 0 do
  223.   begin
  224.     if FileExists(dir + '/' + search.name) then
  225.     begin
  226.       sListBox1.Items.Add(search.name);
  227.     end;
  228.     cantidad := FindNext(search);
  229.   end;
  230.   FindClose(search);
  231.  
  232. end;
  233.  
  234. procedure TForm1.R1Click(Sender: TObject);
  235. begin
  236.   sEdit1.Text := '';
  237.   sProgressBar1.Max := 0;
  238.   sListBox1.Clear;
  239. end;
  240.  
  241. procedure TForm1.sButton1Click(Sender: TObject);
  242. var
  243.   cancion: string;
  244.   code: string;
  245.   nombre: string;
  246.   datos: string;
  247.   link: string;
  248.   i: Integer;
  249. begin
  250.  
  251.   sListBox2.Clear;
  252.   sListBox3.Clear;
  253.   sListBox4.Clear;
  254.   sListView1.Clear;
  255.  
  256.   cancion := sEdit2.Text;
  257.   cancion := StringReplace(cancion, ' ', '-', [rfReplaceAll, rfIgnoreCase]);
  258.  
  259.   sStatusBar1.Panels[0].Text := '[+] Searching ... ';
  260.   sStatusBar1.Update;
  261.  
  262.   code := IdHTTP1.Get('http://mp3skull.com/mp3/' + cancion + '.html');
  263.  
  264.   PerlRegEx1.Regex := '<div style="font-size:15px;"><b>(.*)<\/b><\/div>';
  265.   PerlRegEx1.Subject := code;
  266.  
  267.   while PerlRegEx1.MatchAgain do
  268.   // if PerlRegEx1.Match then
  269.   begin
  270.     nombre := PerlRegEx1.SubExpressions[1];
  271.     sListBox2.Items.Add(nombre);
  272.   end;
  273.  
  274.   PerlRegEx1.Regex := '<!-- info mp3 here -->\s+(.*?)<\/div>';
  275.   PerlRegEx1.Subject := code;
  276.  
  277.   while PerlRegEx1.MatchAgain do
  278.   // if PerlRegEx1.Match then
  279.   begin
  280.     datos := PerlRegEx1.SubExpressions[1];
  281.     datos := StringReplace(datos, '<br \/>', ' ', [rfReplaceAll, rfIgnoreCase]);
  282.     datos := StringReplace(datos, '<br />', ' ', [rfReplaceAll, rfIgnoreCase]);
  283.     sListBox3.Items.Add(datos);
  284.   end;
  285.  
  286.   PerlRegEx1.Regex := '<a href=\"(.*)\.mp3\"';
  287.   PerlRegEx1.Subject := code;
  288.  
  289.   while PerlRegEx1.MatchAgain do
  290.   // if PerlRegEx1.Match then
  291.   begin
  292.     link := PerlRegEx1.SubExpressions[1] + '.mp3';
  293.     sListBox4.Items.Add(link);
  294.   end;
  295.  
  296.   for i := 0 to sListBox2.Count - 1 do
  297.   begin
  298.     // ShowMessage(IntToStr(i));
  299.     with sListView1.Items.Add do
  300.     begin
  301.       Caption := sListBox2.Items[i];
  302.       SubItems.Add(sListBox3.Items[i]);
  303.     end;
  304.   end;
  305.  
  306.   sStatusBar1.Panels[0].Text := '[+] Finished ';
  307.   sStatusBar1.Update;
  308.  
  309. end;
  310.  
  311. procedure TForm1.sListBox1DblClick(Sender: TObject);
  312. begin
  313.  
  314.   sProgressBar1.Max := 0;
  315.  
  316.   MediaPlayer1.Close;
  317.   MediaPlayer1.FileName := sEdit1.Text + '/' + sListBox1.Items.Strings
  318.     [sListBox1.ItemIndex];
  319.   MediaPlayer1.Open;
  320.  
  321.   sProgressBar1.Max := MediaPlayer1.Length;
  322. end;
  323.  
  324. procedure TForm1.sListBox5DblClick(Sender: TObject);
  325. begin
  326.  
  327.   MediaPlayer2.Close;
  328.   MediaPlayer2.FileName := ExtractFilePath(Application.ExeName)
  329.     + '/downloads' + '/' + sListBox5.Items.Strings[sListBox5.ItemIndex];
  330.   MediaPlayer2.Open;
  331.  
  332.   sProgressBar3.Max := MediaPlayer2.Length;
  333.  
  334. end;
  335.  
  336. procedure TForm1.sListView1DblClick(Sender: TObject);
  337. var
  338.   FileName: string;
  339.   nombrefinal: string;
  340.   archivobajado: TFileStream;
  341.   url: string;
  342.  
  343. begin
  344.  
  345.   url := sListBox4.Items[sListView1.Selected.Index];
  346.  
  347.   nombrefinal := getfilename(url);
  348.  
  349.   archivobajado := TFileStream.Create(ExtractFilePath(Application.ExeName)
  350.       + '/downloads' + '/' + nombrefinal, fmCreate);
  351.  
  352.   try
  353.  
  354.     begin
  355.       DeleteFile(nombrefinal);
  356.       IdHTTP2.Get(url, archivobajado);
  357.       sStatusBar1.Panels[0].Text := '[+] File Dowloaded';
  358.       Form1.sStatusBar1.Update;
  359.       archivobajado.Free;
  360.     end;
  361.   except
  362.     sStatusBar1.Panels[0].Text := '[-] Failed download';
  363.     Form1.sStatusBar1.Update;
  364.     archivobajado.Free;
  365.     Abort;
  366.   end;
  367.  
  368. end;
  369.  
  370. procedure TForm1.Timer1Timer(Sender: TObject);
  371. begin
  372.   if sProgressBar1.Max <> 0 then
  373.   begin
  374.     sProgressBar1.Position := MediaPlayer1.Position;
  375.   end;
  376. end;
  377.  
  378. procedure TForm1.Timer2Timer(Sender: TObject);
  379. begin
  380.   if sProgressBar3.Max <> 0 then
  381.   begin
  382.     sProgressBar3.Position := MediaPlayer2.Position;
  383.   end;
  384.  
  385. end;
  386.  
  387. end.
  388.  
  389. // The End ?
  390.  

Si lo quieren bajar lo pueden hacer de aca.
118  Programación / Java / Generar Jar con librerias incluidas en: 26 Febrero 2014, 21:57 pm
Bueno , hice este videotutorial porque queria tener un solo archivo jar en vez de tener las clasicas dependencias en la carpeta lib , este problema lo resolvi gracias a este link.

El video :



El manual en si :

Para empezar tenemos que modificar el archivo build.xml del programa al que quieren hacerle esto , en mi caso voy a buscar en el directorio de mi proyecto llamado "locateip_grafico" que es un programa que hice hace poco , la ruta en mi caso es esta : C:\Documents and Settings\Doddy\Mis documentos\NetBeansProjects\locateip_grafico
Una vez encontrado el archivo build.xml lo abrimos y le agregamos esto despues de las tres primeras lineas de texto , con texto me refiero a despues de los comentarios que estan con "<!--" , el codigo a agregar es este :

Código:
<target name="-post-jar">
<jar jarfile="dist/finished.jar">
<zipfileset src="${dist.jar}" excludes="META-INF/*" />
<zipfileset src="dist/lib/appframework-1.0.3.jar" excludes="META-INF/*" />
<zipfileset src="dist/lib/swing-worker-1.1.jar" excludes="META-INF/*" />
<manifest>
<attribute name="Main-Class" value="locateip_grafico.Locateip_graficoApp"/>
</manifest>
</jar>
</target>

En la parte de "jar jarfile=" deben agregar el nombre que tendra el archivo unico con extension jar , algo a tener en cuenta es que el nombre que usen debe ser diferente al programa en si porque si no va haber errores.

Las librerias que usan deben estar como en las siguientes lineas :

Código:
<zipfileset src="dist/lib/appframework-1.0.3.jar" excludes="META-INF/*" />
<zipfileset src="dist/lib/swing-worker-1.1.jar" excludes="META-INF/*" />

Como ven en mi caso uso las librerias "appframework-1.0.3.jar" y "swing-worker-1.1.jar"

Lo ultimo y mas importante es modificar la siguiente linea "<attribute name=Main-Class" con el nombre que tienen como Main-Class , en el proyecto para saber cual es solo tienen que ir las propiedades del proyecto en NetBeans y ver en la parte de "Run".

Una vez modicado el archivo solo tenemos que volver a compilar el proyecto en NetBeans y contemplar el jar solo xD.

Eso seria todo.
119  Programación / Java / Como convertir un jar a exe usando IExpress en: 25 Febrero 2014, 21:57 pm
Hoy les traigo un video de como convertir un archivo jar a exe usando IExpress.

El video :



El manual en si :

Código:
-> Execute "iexpress"
-> Create new Self Extraction Directive file
-> Extract files and run an installation command
-> Package title : Your title
-> No prompt
-> Do not display a license
-> Packaged files : Java Files
-> Install Program to Launch -> Install program -> java -jar <file>
-> Show window -> Hidden
-> Finished Message -> No message
-> Package Name and Options -> Enter exe name
			    -> Select "Hide File Extracting Progress Animation from User"
-> Configure restart -> No restart
-> Save Self Extraction Directive -> Dont save
-> Finished
120  Programación / Programación General / [Delphi] PirateBay Manager 0.8 en: 14 Febrero 2014, 19:10 pm
Un simple programa en Delphi para buscar torrents en PirateBay.

Una imagen :



El codigo :

Código
  1. // PirateBay Manager 0.8
  2. // (C) Doddy Hackman 2014
  3.  
  4. unit pirate;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, StdCtrls, PerlRegEx, IdBaseComponent, IdComponent, IdTCPConnection,
  11.   IdTCPClient, IdHTTP, ComCtrls, sListView, sGroupBox, sListBox, ShellApi,
  12.   sSkinManager, acPNG, ExtCtrls, sStatusBar, sEdit, sButton;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     IdHTTP1: TIdHTTP;
  17.     PerlRegEx1: TPerlRegEx;
  18.     sGroupBox1: TsGroupBox;
  19.     sListView1: TsListView;
  20.     sListBox1: TsListBox;
  21.     sListBox2: TsListBox;
  22.     sListBox3: TsListBox;
  23.     PerlRegEx2: TPerlRegEx;
  24.     sSkinManager1: TsSkinManager;
  25.     Image1: TImage;
  26.     sGroupBox2: TsGroupBox;
  27.     sEdit1: TsEdit;
  28.     sStatusBar1: TsStatusBar;
  29.     sButton1: TsButton;
  30.     procedure sListView1DblClick(Sender: TObject);
  31.     procedure sButton1Click(Sender: TObject);
  32.     procedure FormCreate(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  38.  
  39. var
  40.   Form1: TForm1;
  41.  
  42. implementation
  43.  
  44. {$R *.dfm}
  45.  
  46. procedure TForm1.FormCreate(Sender: TObject);
  47. begin
  48.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  49.   sSkinManager1.SkinName := 'tv-b';
  50.   sSkinManager1.Active := True;
  51. end;
  52.  
  53. procedure TForm1.sButton1Click(Sender: TObject);
  54. var
  55.   busqueda: string;
  56.   code: string;
  57.   nombre: string;
  58.   link_torrent: string;
  59.   limpiando_data: string;
  60.   data: string;
  61.   seeders: string;
  62.   leechers: string;
  63.   i: integer;
  64.  
  65. begin
  66.  
  67.   sListBox1.Clear;
  68.   sListBox2.Clear;
  69.   sListBox3.Clear;
  70.   sListView1.Clear;
  71.  
  72.   busqueda := sEdit1.Text;
  73.   busqueda := StringReplace(busqueda, ' ', '%20', [rfReplaceAll, rfIgnoreCase]);
  74.  
  75.   sStatusBar1.Panels[0].Text := '[+] Searching ...';
  76.   sStatusBar1.Update;
  77.  
  78.   code := IdHTTP1.Get('http://thepiratebay.se/search/' + busqueda + '/0/99/0');
  79.  
  80.   sStatusBar1.Panels[0].Text := '[+] Finished';
  81.   sStatusBar1.Update;
  82.  
  83.   PerlRegEx1.Regex :=
  84.     '(.*?)class="detLink" title="Details for (.*?)">(.*?)<a href="magnet(.*?)" title="Download this torrent using magnet"(.*?)<font class="detDesc">(.*?)<\/font>(.*?)<td align="right">(.*?)<\/td>(.*?)<td align="right">(.*?)<\/td>(.*?)';
  85.   PerlRegEx1.Subject := code;
  86.  
  87.   while PerlRegEx1.MatchAgain do
  88.   // if PerlRegEx1.Match then
  89.   begin
  90.     nombre := PerlRegEx1.SubExpressions[2];
  91.     link_torrent := 'magnet' + PerlRegEx1.SubExpressions[4];
  92.     limpiando_data := PerlRegEx1.SubExpressions[6];
  93.     seeders := PerlRegEx1.SubExpressions[8];
  94.     leechers := PerlRegEx1.SubExpressions[10];
  95.  
  96.     PerlRegEx2.Regex := '(.*), ULed by <';
  97.     PerlRegEx2.Subject := limpiando_data;
  98.  
  99.     if PerlRegEx2.Match then
  100.     begin
  101.       limpiando_data := PerlRegEx2.SubExpressions[1];
  102.       data := StringReplace(limpiando_data, '&nbsp;', '', [rfReplaceAll,
  103.         rfIgnoreCase]);
  104.       data := data + ', Seeders ' + seeders + ', Leechers ' + leechers;
  105.  
  106.     end;
  107.  
  108.     sListBox1.Items.Add(nombre);
  109.     sListBox2.Items.Add(data);
  110.     sListBox3.Items.Add(link_torrent);
  111.  
  112.   end;
  113.  
  114.   for i := 0 to sListBox1.Count - 1 do
  115.   begin
  116.     // ShowMessage(IntToStr(i));
  117.     with sListView1.Items.Add do
  118.     begin
  119.       Caption := sListBox1.Items[i];
  120.       SubItems.Add(sListBox2.Items[i]);
  121.     end;
  122.   end;
  123. end;
  124.  
  125. procedure TForm1.sListView1DblClick(Sender: TObject);
  126. begin
  127.   // ShowMessage(sListBox3.Items[sListView1.Selected.Index]);
  128.   ShellExecute(0, nil, PChar(sListBox3.Items[sListView1.Selected.Index]), nil,
  129.     nil, SW_SHOWNORMAL);
  130. end;
  131.  
  132. end.
  133.  
  134. // The End ?
  135.  

Si lo quieren bajar lo pueden hacer de aca.
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 ... 43
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines