[perl] md5 check

Andare in basso

[perl] md5 check

Messaggio Da Ospite il Ven Ott 23, 2009 2:33 pm

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.

Ospite
Ospite


Tornare in alto Andare in basso

Re: [perl] md5 check

Messaggio Da Slack il Ven Ott 23, 2009 5:19 pm

Script molto semplice ed utile, ottimo lavoro Wink
avatar
Slack

Messaggi : 248
Data d'iscrizione : 14.09.09
Località : /home/slack

Visualizza il profilo dell'utente http://linux.forumattivo.eu

Tornare in alto Andare in basso

Tornare in alto


 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum