Et bien, le mieux est d'utiliser une regex, une substituion pour être précis :
$result =~ s/.*-\s+(.*?)<br>.*/$1/;
Quelques conseils, en vrac : pour comparer une chaîne de caractèrez à quelque chose, il faut utiliser ne et pas !=.
Je te conseille d'utiliser les pragmas strict et warnings. le premier oblige à délcarer toutes les variables à l'avance et le second active les messages d'erreurs.
Enfin, quand tu utilises la fonction get, n'oublie pas de vérifier si tout s'est bien passé comme suit :
$result=get($url) or die "get n'a pas pu recuperer le code de la page";
Voici ton code source, corrigé et modifié :
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
|
#! /usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
print q(
++++++++++++++++++++++++++++++++++++
=> Md5 Hash comparateur <=
by killua
++++++++++++++++++++++++++++++++++++
);
my $host="http://ice.breaker.free.fr";
print"Entre ton hash:";
chomp (my $hash = <STDIN>);
if($hash ne "")
{
print"\n[+]Recuperation en cours...\n";sleep(1);
my $url=$host."/md5.php?hash=".$hash;
my $result=get($url);
$result =~ s/.*-\s+(.*?)<br>.*/$1/;
print "\n\n$result";
}
else
{
die "Aucun hash entrer.\n";
} |
Si tu ne comprend pas quelque chose, demande le moi
Partager