[perl] md5 check

Codice:

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;

my$ins= $ARGV[0] || die "\nusage: perl md5.pl <text or hash>\n\n";
my$find = LWP::UserAgent->new;
my$var = $find->request(GET 'http://md5.rednoize.com/?p&s=md5&q='.$ins);
my$char = $var->content;
print "\n$char\n\n";



l'utilità?.......non aprire il browser ogni volta che bisogna crackare un hash md5 o se ne vuole creare uno, lo fa lo script appogginadosi al database di md5.rednoize :-O

ovviamente si può modificare per utilizzare altri database.

Script molto semplice ed utile, ottimo lavoro