Perfil del miembro Doddy

Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 22

Programación / Programación General / [Delphi] MD5 Cracker 0.1

en: 20 Mayo 2013, 03:58

Un simple programa para crackear un hash MD5 hecho en Delphi.

Una imagen :

El codigo :

Código

// MD5 Cracker 0.1
// Coded By Doddy H
// Based on the services :
// http://md5.hashcracking.com/
// http://md5.rednoize.com
// http://md52.altervista.org
 
unit md5;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, StdCtrls, sButton, sEdit, sGroupBox, jpeg, ExtCtrls,
  ComCtrls, sStatusBar, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, PerlRegEx;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    Image1: TImage;
    sGroupBox1: TsGroupBox;
    sEdit1: TsEdit;
    sGroupBox2: TsGroupBox;
    sEdit2: TsEdit;
    sGroupBox3: TsGroupBox;
    sStatusBar1: TsStatusBar;
    Crack: TsButton;
    sButton1: TsButton;
    sButton2: TsButton;
    sButton3: TsButton;
    IdHTTP1: TIdHTTP;
    PerlRegEx1: TPerlRegEx;
    procedure sButton2Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure CrackClick(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.CrackClick(Sender: TObject);
var
  rta: string;
 
begin
 
  sStatusBar1.Panels[0].text := '[+] Searching in md5.hashcracking.com ...';
  Form1.sStatusBar1.Update;
 
  rta := IdHTTP1.Get
    ('http://md5.hashcracking.com/search.php?md5=' + sEdit1.text);
 
  PerlRegEx1.Regex := 'Cleartext of (.*) is (.*)';
  PerlRegEx1.Subject := rta;
  if PerlRegEx1.Match then
  begin
    sEdit2.text := PerlRegEx1.SubExpressions[2];
    sStatusBar1.Panels[0].text := '[+] Done';
    Form1.sStatusBar1.Update;
  end
  else
  begin
 
    sStatusBar1.Panels[0].text := '[+] Searching in md5.rednoize.com ...';
    Form1.sStatusBar1.Update;
 
    rta := IdHTTP1.Get('http://md5.rednoize.com/?q=' + sEdit1.text);
 
    PerlRegEx1.Regex := '<div id=\"result\" >(.*)<\/div>';
    PerlRegEx1.Subject := rta;
    if PerlRegEx1.Match then
 
    begin
 
      if not(Length(PerlRegEx1.SubExpressions[1]) = 32) then
      begin
        sEdit2.text := PerlRegEx1.SubExpressions[1];
        sStatusBar1.Panels[0].text := '[+] Done';
        Form1.sStatusBar1.Update;
      end
      else
 
      begin
 
        sStatusBar1.Panels[0].text :=
          '[+] Searching in md52.altervista.org ...';
        Form1.sStatusBar1.Update;
 
        rta := IdHTTP1.Get
          ('http://md52.altervista.org/index.php?md5=' + sEdit1.text);
 
        PerlRegEx1.Regex :=
          '<br>Password: <font color=\"Red\">(.*)<\/font><\/b>';
        PerlRegEx1.Subject := rta;
 
        if PerlRegEx1.Match then
        begin
          sEdit2.text := PerlRegEx1.SubExpressions[1];
          sStatusBar1.Panels[0].text := '[+] Done';
          Form1.sStatusBar1.Update;
 
        end
        else
        begin
          sEdit2.text := '';
          sStatusBar1.Panels[0].text := '[-] Not Found';
          Form1.sStatusBar1.Update;
        end;
      end;
 
    end;
  end;
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  sSkinManager1.SkinName := 'neonnight';
  sSkinManager1.Active := True;
end;
 
procedure TForm1.sButton1Click(Sender: TObject);
begin
  sEdit2.SelectAll;
  sEdit2.CopyToClipboard;
end;
 
procedure TForm1.sButton2Click(Sender: TObject);
begin
  ShowMessage('Contact to lepuke[at]hotmail[com]');
end;
 
procedure TForm1.sButton3Click(Sender: TObject);
begin
  Form1.Close();
end;
 
end.
 
// The End ?

Si quieren bajar el programa lo pueden hacer de aca.

2	Programación / Scripting / Re: [Perl] VirusTotal Scanner 0.1	en: 17 Mayo 2013, 18:43
Cita de: Shell Root en 17 Mayo 2013, 06:44 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#.

3	Programación / Scripting / Re: [Perl] VirusTotal Scanner 0.1	en: 16 Mayo 2013, 22:23
Cita de: Danyfirex en 16 Mayo 2013, 21:49 Gracias muy bueno el código. PD: no escanea un archivo. Retorna el reporte de un archivo ya escaneado. saludos si , me exprese mal.

Programación / Scripting / [Perl] VirusTotal Scanner 0.1

en: 16 Mayo 2013, 19:21

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

#!usr/bin/perl
#VirusTotal Scanner 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/JSON.ppd
#ppm install http://trouchelle.com/ppm/Digest-MD5-File.ppd
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
#ppm install http://trouchelle.com/ppm/Color-Output.ppd
 
use JSON;
use Digest::MD5::File qw(file_md5_hex);
use LWP::UserAgent;
use Color::Output;
Color::Output::Init;
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
my $api_key = "yourapi"
  ;    #Your API Key
 
head();
 
unless ( $ARGV[0] ) {
    printear( "[+] Sintax : $0 <file to scan>", "text", "11", "5" );
 
    copyright();
    exit(1);
}
else {
 
    unless ( -f $ARGV[0] ) {
        printear( "\n[-] File Not Found\n", "text", "5", "5" );
        copyright();
    }
 
    my $md5 = file_md5_hex( $ARGV[0] );
 
    printear( "\n[+] Checking ...\n", "text", "7", "5" );
 
    my $code = tomar(
        "https://www.virustotal.com/vtapi/v2/file/report",
        { "resource" => $md5, "apikey" => $api_key }
    );
 
    if ( $code =~ /"response_code": 0/ ) {
        printear( "\n[+] Not Found\n", "text", "7", "5" );
        exit(1);
    }
 
    my $dividir = decode_json $code;
 
    printear( "[+] Getting data ...\n", "text", "7", "5" );
 
    printear( "[+] Scan ID : " . $dividir->{scan_id},     "text", "13", "5" );
    printear( "[+] Scan Date : " . $dividir->{scan_date}, "text", "13", "5" );
    printear( "[+] Permalink : " . $dividir->{permalink}, "text", "13", "5" );
    printear(
        "[+] Virus Founds : " . $dividir->{positives} . "/" . $dividir->{total},
        "text", "13", "5"
    );
 
    printear( "\n[+] Getting list ...\n", "text", "7", "5" );
 
    my %abrir = %{ $dividir->{scans} };
 
    for my $antivirus ( keys %abrir ) {
 
        if ( $abrir{$antivirus}{"result"} eq "" ) {
            printear( "[+] " . $antivirus . " : Clean", "text", "11", "5" );
        }
        else {
            printear(
                "[+] " . $antivirus . " : " . $abrir{$antivirus}{"result"},
                "text", "5", "5" );
        }
    }
 
    printear( "\n[+] Finished\n", "text", "7", "5" );
    copyright();
 
}
 
sub head {
    printear( "\n-- == VirusTotal Scanner 0.1 == --\n", "text", "13", "5" );
}
 
sub copyright {
    printear( "\n[+] Written By Doddy H", "text", "13", "5" );
    exit(1);
}
 
sub printear {
    if ( $_[1] eq "text" ) {
        cprint( "\x03" . $_[2] . $_[0] . "\x030\n" );
    }
    elsif ( $_[1] eq "stdin" ) {
        if ( $_[3] ne "" ) {
            cprint( "\x03" . $_[2] . $_[0] . "\x030" . "\x03" . $_[3] );
            my $op = <stdin>;
            chomp $op;
            cprint("\x030");
            return $op;
        }
    }
    else {
        print "error\n";
    }
}
 
sub tomar {
    my ( $web, $var ) = @_;
    return $nave->post( $web, [ %{$var} ] )->content;
}
 
#The End ?

Programación / Scripting / [Perl] Imageshack Uploader 0.1

en: 14 Mayo 2013, 20:11

Un simple script para subir imagenes a Imageshack.

El codigo :

Código

#!usr/bin/perl
#Imageshack Uploader 0.1
#Coded By Doddy H
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
head();
 
unless ( $ARGV[0] ) {
    print "\n[+] Sintax : $0 <image>\n";
}
else {
 
    my $your_key = "YOURKEY";    #Your API Key
 
    print "\n[+] Uploading ...\n";
 
    my $code = $nave->post(
        "https://post.imageshack.us/upload_api.php",
        Content_Type => "form-data",
        Content      => [
            key        => $your_key,
            fileupload => [ $ARGV[0] ],
            format     => "json"
        ]
    )->content;
 
    if ( $code =~ /"image_link":"(.*?)"/ ) {
        print "\n[+] Link : " . $1 . "\n";
    }
    else {
        print "\n[-] Error\n";
    }
}
 
copyright();
 
sub head {
    print "\n-- == Imageshack Uploader 0.1 == --\n";
}
 
sub copyright {
    print "\n[+] Written By Doddy H\n";
}
 
#The End ?

Programación / Scripting / [Perl] AnonFiles Uploader

en: 14 Mayo 2013, 00:13

Traduccion a Perl del programa hecho por $DoC llamado AnonFiles Uploader hecho para subir archivos a la pagina AnonFiles.

Código

#!usr/bin/perl
#AnonFiles Uploader
#Original author: $ DoC
#Translations made by Doddy H
#
#ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
#
 
use LWP::UserAgent;
 
my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);
 
unless ( $ARGV[0] ) {
    print "\n[+] Sintax : $0 <file>\n";
}
else {
 
    print "\n[+] Uploading ...\n";
 
    my $code = $nave->post(
        "https://anonfiles.com/api?plain",
        Content_Type => "form-data",
        Content      => [ file => [ $ARGV[0] ] ]
    )->content;
 
    if ( $code =~ /https:\/\/anonfiles\.com\/file\// ) {
        print "\n[+] Link : " . $code . "\n";
    }
    else {
        print "\n[-] Error\n";
    }
 
}
 
#The End ?

Programación / Programación General / [Delphi] DH Player 0.1

en: 13 Mayo 2013, 23:40

Un simple reproductor de musica que hice basado en este articulo.

Una imagen :

El codigo :

Código

// DH Player 0.1
// Coded By Doddy H
// Based on this article : http://delphi.about.com/od/multimedia/l/aa112800a.htm
 
unit mp3player;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, sListBox, sSkinManager, MPlayer, sGroupBox, jpeg,
  ExtCtrls, ComCtrls, acProgressBar, Buttons, FileCtrl, sEdit;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sGroupBox1: TsGroupBox;
    sListBox1: TsListBox;
    sGroupBox2: TsGroupBox;
    MediaPlayer1: TMediaPlayer;
    Image1: TImage;
    sGroupBox3: TsGroupBox;
    sProgressBar1: TsProgressBar;
    PopupMenu1: TPopupMenu;
    L1: TMenuItem;
    R1: TMenuItem;
    A1: TMenuItem;
    E1: TMenuItem;
    Directory: TsGroupBox;
    sEdit1: TsEdit;
    Timer1: TTimer;
    procedure A1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure sListBox1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.A1Click(Sender: TObject);
begin
  ShowMessage('Contact to lepuke[at]hotmail[com]');
end;
 
procedure TForm1.E1Click(Sender: TObject);
begin
  Form1.Close();
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  sProgressBar1.Max := 0;
  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  sSkinManager1.SkinName := 'fm';
  sSkinManager1.Active := True;
end;
 
procedure TForm1.L1Click(Sender: TObject);
var
  dir: string;
  search: TSearchRec;
  cantidad: Integer;
 
begin
 
  SelectDirectory('Select a folder', '', dir);
 
  sListBox1.Clear;
 
  sEdit1.Text := dir;
  cantidad := FindFirst(dir + '/' + '*.*', faAnyFile, search);
 
  while cantidad = 0 do
  begin
    if FileExists(dir + '/' + search.name) then
    begin
      sListBox1.Items.Add(search.name);
    end;
    cantidad := FindNext(search);
  end;
  FindClose(search);
 
end;
 
procedure TForm1.R1Click(Sender: TObject);
begin
  sEdit1.Text := '';
  sProgressBar1.Max := 0;
  sListBox1.Clear;
end;
 
procedure TForm1.sListBox1DblClick(Sender: TObject);
begin
 
  sProgressBar1.Max := 0;
 
  MediaPlayer1.Close;
  MediaPlayer1.FileName := sEdit1.Text + '/' + sListBox1.Items.Strings
    [sListBox1.ItemIndex];
  MediaPlayer1.Open;
 
  sProgressBar1.Max := MediaPlayer1.Length;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if sProgressBar1.Max <> 0 then
    sProgressBar1.Position := MediaPlayer1.Position;
end;
 
end.
 
// The End ?

Si lo quieren bajar lo pueden hacer de aca

8	Programación / Programación General / Re: [Delphi] LocateIP 0.1	en: 12 Mayo 2013, 15:13
no creo que sea dificil superarme. parece que a softpedia le intereso este programa porque lo publicaron aca.

Programación / Programación General / [Delphi] GetWhois 0.1

en: 5 Mayo 2013, 18:33

Siempre habia querido hacer un programa para hacer un whois en delphi pero en ese entonces no conocia delphi lo suficiente como para poder hacerlo , hoy me tome unos 10 min libres y logre hacer uno , para hacerlo instale indy y escribi unas pocas lineas para hacerlo.

Una imagen :

El codigo (muy corto xD)

Código

// GetWhois 0.1
// Coded By Doddy H in the year 2013
 
unit whois;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sMemo, sButton, sEdit, sLabel, sGroupBox, sSkinManager,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdWhois, ComCtrls,
  sStatusBar, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sGroupBox1: TsGroupBox;
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sButton1: TsButton;
    sGroupBox2: TsGroupBox;
    sMemo1: TsMemo;
    IdWhois1: TIdWhois;
    sStatusBar1: TsStatusBar;
    Image1: TImage;
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  sSkinManager1.SkinName := 'garnet';
  sSkinManager1.Active := True;
end;
 
procedure TForm1.sButton1Click(Sender: TObject);
begin
 
  if sEdit1.text = '' then
  begin
    ShowMessage('Write the domain');
  end
  else
  begin
    sStatusBar1.Panels[0].text := '[+] Searching ...';
    Form1.sStatusBar1.Update;
 
    sMemo1.Clear;
    sMemo1.Lines.text := IdWhois1.whois(sEdit1.text);
 
    sStatusBar1.Panels[0].text := '';
    Form1.sStatusBar1.Update;
  end;
end;
 
end.
 
// The End ?

Si lo quieren bajar lo pueden hacer de aca.

10	Programación / Programación General / Re: [Delphi] LocateIP 0.1	en: 3 Mayo 2013, 19:07
no le eh intentado con el API , pero usar indy me parece facil.

Programación / Programación General / [Delphi] LocateIP 0.1

en: 25 Abril 2013, 22:46

Traduccion a Delphi de este programa para localizar una IP.

Una imagen :

El codigo :

Código

// LocateIP 0.1
// Coded By Doddy H in the year 2013
// Based on the services :
// To get IP -- http://whatismyipaddress.com/
// To locate IP -- http://www.melissadata.com/
// To get DNS -- http://www.ip-adress.com/
 
unit locateip;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, jpeg, ExtCtrls, StdCtrls, sLabel, sGroupBox, sButton,
  sEdit, sListBox, ComCtrls, sStatusBar, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, PerlRegEx, IdMultipartFormData;
 
type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    Image1: TImage;
    sGroupBox1: TsGroupBox;
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sButton1: TsButton;
    sGroupBox2: TsGroupBox;
    sLabel2: TsLabel;
    sEdit2: TsEdit;
    sLabel3: TsLabel;
    sEdit3: TsEdit;
    sLabel4: TsLabel;
    sEdit4: TsEdit;
    sGroupBox3: TsGroupBox;
    sListBox1: TsListBox;
    PerlRegEx1: TPerlRegEx;
    IdHTTP1: TIdHTTP;
    sStatusBar1: TsStatusBar;
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  sSkinManager1.SkinDirectory := ExtractFilePath(Application.ExeName) + 'Data';
  sSkinManager1.SkinName := 'matrix';
  sSkinManager1.Active := True;
end;
 
procedure TForm1.sButton1Click(Sender: TObject);
var
  rta: string;
  z: integer;
  par: TIdMultiPartFormDataStream;
begin
 
  if sEdit1.text = '' then
  begin
    ShowMessage('Write the target');
  end
  else
  begin
    sStatusBar1.Panels[0].text := '[+] Getting IP ...';
    Form1.sStatusBar1.Update;
 
    par := TIdMultiPartFormDataStream.Create;
    par.AddFormField('DOMAINNAME', sEdit1.text);
 
    rta := IdHTTP1.Post('http://whatismyipaddress.com/hostname-ip', par);
 
    PerlRegEx1.Regex := 'Lookup IP Address: <a href=(.*)>(.*)<\/a>';
    PerlRegEx1.Subject := rta;
 
    if PerlRegEx1.Match then
    begin
      sEdit1.text := PerlRegEx1.SubExpressions[2];
 
      // Locating ...
 
      sStatusBar1.Panels[0].text := '[+] Locating ...';
      Form1.sStatusBar1.Update;
 
      rta := IdHTTP1.Get(
        'http://www.melissadata.com/lookups/iplocation.asp?ipaddress=' +
          sEdit1.text);
 
      PerlRegEx1.Regex := 'City<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
      PerlRegEx1.Subject := rta;
 
      if PerlRegEx1.Match then
      begin
        sEdit2.text := PerlRegEx1.SubExpressions[2];
      end
      else
      begin
        sEdit2.text := 'Not Found';
      end;
 
      PerlRegEx1.Regex := 'Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
      PerlRegEx1.Subject := rta;
 
      if PerlRegEx1.Match then
      begin
        sEdit3.text := PerlRegEx1.SubExpressions[2];
      end
      else
      begin
        sEdit3.text := 'Not Found';
      end;
 
      PerlRegEx1.Regex :=
        'State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>';
      PerlRegEx1.Subject := rta;
 
      if PerlRegEx1.Match then
      begin
        sEdit4.text := PerlRegEx1.SubExpressions[2];
      end
      else
      begin
        sEdit4.text := 'Not Found';
      end;
 
      //
 
      // Get DNS
 
      sStatusBar1.Panels[0].text := '[+] Getting DNS ...';
      Form1.sStatusBar1.Update;
 
      sListBox1.Items.Clear;
 
      rta := IdHTTP1.Get('http://www.ip-adress.com/reverse_ip/' + sEdit1.text);
 
      PerlRegEx1.Regex := 'whois\/(.*?)\">Whois';
      PerlRegEx1.Subject := rta;
 
      while PerlRegEx1.MatchAgain do
      begin
        for z := 1 to PerlRegEx1.SubExpressionCount do
          sListBox1.Items.Add(PerlRegEx1.SubExpressions[z]);
      end;
 
      //
 
    end
    else
    begin
      sStatusBar1.Panels[0].text := '[-] Error';
      Form1.sStatusBar1.Update;
    end;
 
    sStatusBar1.Panels[0].text := '';
    Form1.sStatusBar1.Update;
 
  end;
end;
 
end.
 
// The End ?

Si lo quieren bajar lo pueden hacer de aca.

12	Programación / Java / Re: [Java] Diccionario Online 0.1	en: 8 Abril 2013, 17:42
tenes toda la razon EleKtro H@cker , parece que $Edu$ ya tiene un problema personal conmigo xDD.

13	Programación / Java / Re: [Java] Diccionario Online 0.1	en: 8 Abril 2013, 01:19
Cita de: $Edu$ en 8 Abril 2013, 01:04 Podrias crear una aplicacion para localizar todos tus codigos posteados aca en el foro y guardarlos en documentos de texto o como tu quieras. Seguramente los tienes ya guardados, pero tener un programa que lleves en tu pendrive que te cargue solo el titulo de cada codigo que tienes aqui, o que tengas para escribir el codigo a buscar y te lo encuentre, estaria bueno, por lo menos para ti xD ajaja , tremendo troll , pero no te preocupes los codigos que importan estan en esta cuenta de Pastebin y en esta de Sourceforge.

14	Programación / Java / Re: [Java] Diccionario Online 0.1	en: 8 Abril 2013, 00:23
Cita de: $Edu$ en 1 Abril 2013, 14:45 Yo lo veo mas como SPAM de sus propios codigos xD Lo unico que hace es publicar codigos que hace en los lenguajes que sabe. El mismo programa en 4 o 5 lenguajes distintos jajaja. Es como si fuera un bot que le han encargado hacer codigos jajajaja. tampoco es spam , en realidad no puedo evitar programar en cualquiera de los lenguajes que conozco , mas bien es una adiccion xDD. Cita de: NoBullshit en 2 Abril 2013, 02:28 Eso no es un diccionario: eso es la suerte que has tenido que las palabras estén distribuidas bien. Yo no estaría tan orgulloso, eso lo puedes hacer hasta con batch. este programa lo hice para empezar y entender un poco java.

15	Programación / Scripting / [Perl] Project DH Joiner 0.5	en: 31 Marzo 2013, 23:53
Un simple Joiner hecho en Perl. Una imagen del generador : Pueden bajar el programa desde aca.

Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 ... 22