use Win32::API;
my $unzip = new Win32::API(‘UNZIP32’, ‘UnZip’, [N, P, P, N], I);
my $buff = "\x00" x 256;
my $fname ="test2.zip";
my $time = time;

#my @chr = (‘あ’,’い’,’う’,’え’,’お’,’か’,’き’,’く’,’け’,’こ’,’さ’,’し’,’す’,’せ’,’そ’,’た’,’ち’,’つ’,’て’,’と’,’な’,’に’,’ぬ’,’ね’,’の’,’は’,’ひ’,’ふ’,’へ’,’ほ’,’ま’,’み’,’む’,’め’,’も’,’や’,’ゆ’,’よ’,’ら’,’り’,’る’,’れ’,’ろ’,’わ’,’を’,’ん’,’ご’);
my @chr = (‘a’..’z’,’0′..’9′);

my $k=0;
my @keta = ();
my $ttl=0;
my $ret=0;
my $x;
my $a;
while(1){
    #繰り上がり計算
    #桁数分ループ
    for($x=0;$x<=$k;$x++){
        if($keta[$x] > $#chr){
            $keta[$x] = 0;
            if($k == $x){
                $k++;
            }else{
                $keta[$x+1]++;
            }
        }
    }
    #各桁結合
    $a = ”;
    for($x=$k;$x>=0;$x–){
        $a .= $chr[$keta[$x]];
    }
    unless($ttl % 10000){
        print "$a [$k][$ttl]\n";
    }
#    sleep(1);
    $ret = $unzip->Call(\x00, "-x –i -P$a $fname", $buff, length($buff));
    if($ret==0){
        print "$a $ttl complete $buff\n";
        print time – $time." sec\n";
        exit(0);
    }
    $keta[0]++;
    $ttl++;
}