b4ck.net script

[BlackCode]

penso che alcuni di voi conosceranno b4ck.net, il servizio di cracking per hash md5...

e immagino che conoscerete anche il premio a disposzione di chi inserisce più parole nel database...

beh questa mattina mi sono messo li a leggere il sorgente html di b4ck per codare uno script in perl che inserisca la parola data nel database... sono arrivato al risultato di inserire una parola come un utente normale NON loggato.. quindi non aggiunge un punto al mio utente, anche se effettuo il login..

ecco lo script:
se vi becco che lo avete copiato vi owno ...

#!D:/Perl/bin/perl.exe -w
#
#C0ded by BlackCode
#
#
use LWP::UserAgent;
use IO::Socket;
use strict;
use HTTP::Request::Common "POST";
use HTTP::Response;
require LWP::UserAgent;


my $user=$ARGV[0];
my $pass=$ARGV[1];
my $parola=$ARGV[2];

#l'host al quale effettuare una richiesta post
my $h = "http://b4ck.net/passhash/insertyour.php?login=1";

#------------------------login
my $ua = LWP::UserAgent->new;
my $response = $ua->request(POST $h, [
username => $user,
password => $pass,
]);
#---------------------- print($response->content); per l'output

#---------------------- secondo host al quale effettuare la richiesta post per inserire una parola
my $h2 = "http://b4ck.net/passhash/insertyour.php?";

#-------------------------richiesta post
my $ua2 = LWP::UserAgent->new;
my $response2 = $ua->request(POST $h, [
plain => $parola,
]);
#------------------------- print($response2->content); per l'output

l'ho commentato per la facile interpetrazione... consiglio l'editor "Engin Site Perl editor"...

Grazie a chiunque possa dare spiegazione a quello che accade!!

 

[Larika]

Utilità della cosa?

 

[Chuzz]

il premio a disposzione di chi inserisce più parole nel database...

cmq controlla gli headers per risolvere quel problema...

 

[BlackCode]

Utilità della cosa?

l'utilità c'era quando se uppavi un file te lo metteva in coda.. e cmq anche se adesso c'è il client è una beta assurda che si impalla dopo 10 secondi ^^

invece l'inserimento di una parola è immediato...e se facessi uno script che inserisce un elenco di parole tramite quello immediato?

salterei la fila xD ...

 

[Larika]

Non capivo l'utilità, beh se ti fa saltare una fila, che è il sogno degli italiani quando vanno alle poste o dal dottore, va bene. Ottimo direi, bravo

 

[BlackCode]

grazie ^^

cmq devo settare dei cookie quindi?

 

[BlackCode]

uff ho modificato in questo modo, ma non funziona lostesso.. questa volta è come se non inserissi nessuna parola!:

#!D:/Perl/bin/perl.exe -w
#
#C0ded by BlackCode
#
#
use LWP::UserAgent;
use IO::Socket;
use strict;
use HTTP::Request::Common "POST";
use HTTP::Response;
require LWP::UserAgent;


my $user=$ARGV[0];
my $pass=$ARGV[1];
my $parola=$ARGV[2];

#l'host al quale effettuare una richiesta post
my $h = "http://b4ck.net/passhash/insertyour.php?login=1";

#------------------------login
my $ua = LWP::UserAgent->new;
my $response = $ua->request(POST $h, [
username => $user,
password => $pass,
]);
#---------------------- print($response->content); per l'output

#---------------------- secondo host al quale effettuare la richiesta post per inserire una parola
my $h2 = "http://b4ck.net/passhash/insertyour.php?";

#-------------------------richiesta post

my $response2 = $ua->post($h2,
"Set-Cookie" => "PHPSESSID=CensuratoSsid",
plain => $parola,
);
#-------------------------
print($response2->content); #per l'output