perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 19
Click for quality!




12.02.2012 / 03:47

Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home


PERLscripts


PHPscripts


JAVAscripts


Hilfreiches


Links2www


Newscenter


Community


Interna




Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitragpasswortgeschütztes Archiv entpacken
Seitenanfang
Hallo,

kann mir jemand sagen, wie man ein passwortgeschütztes Archiv entpacken kann?

Archive::Zip und andere scheinen keine Passwort-Angabe zu unterstützen...

Greetz Sven

Datum: 16.01.2006-09:56

Beitragre: passwortgeschütztes Archiv entpacken
Seitenanfang
sieht so aus als hättest Du recht :(

Datum: 16.01.2006-13:04

Beitragre: passwortgeschütztes Archiv entpacken
Seitenanfang
aber kann das denn sein? es muss doch module geben mit denen man das machen kann, oder nicht?

Datum: 16.01.2006-13:18

Beitragre: passwortgeschütztes Archiv entpacken
Seitenanfang
klar kann das sein. Die Archive::Zip::FAQ sagt auch sowas wie "...gibt es noch nicht, muss jemand machen,... Du?"

musst wohl mit system() arbeiten.

Gruss,
svenXY

Datum: 16.01.2006-14:07

Beitragre: passwortgeschütztes Archiv entpacken
Seitenanfang
hmm ok... dann muss ich mir mal die shell-kommandos von winrar anschauen... und dann ein modul draus machen....

melde mich wenn es geklappt hat...

Datum: 16.01.2006-14:57

Beitragre: passwortgeschütztes Archiv entpacken
Seitenanfang
hab mir jetzt was gebastelt mit der unrar.exe
Diese gibt es unter rarlabs.com

hier der code:

#!/c:/Perl/bin/perl.exe

use strict;

my @pws = qw/geheim geheim2/;

my $c;
for($c = 0; $c < scalar(@pws); $c++){
my $pw = $pws[$c];
my $res = system('c:\unrar e -p'.'"'.$pw.'" c:\archiv.rar');
#print "\n".$res;
last if $res ne "768"; # kein fehler
}

print "\nfertig";

Datum: 16.01.2006-18:55

-






-
-