#!/usr/bin/perl

open(PASS,">>mdp.txt");
$pass = 16411;
for ($i=14; $i<30; $i++) {
open(ECRIRE,">$i.rar.xml");

$curr = int($pass*1.8);
print ECRIRE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<rarcrack>
  <abc>0123456789</abc>
  <current>$curr</current>
  <good_password/>
</rarcrack>";

print "Archive n°$i";
close(ECRIRE);

open(CMD, "rarcrack --type rar $i.rar |") or die "...";
while($line = <CMD>){
    if ($line =~ /^GOOD: password cracked: '(\d+)'$/){
        $pass = $1;
        print PASS "$pass\n";
        }

}


print `unrar e -p$pass $i.rar`;


}close(PASS);