----------------unstash.pl begin ------------------------
use strict;
die "Usage: $0\n" if $#ARGV != 0;
my $file=$ARGV[0];
open(F,$file) || die "Can't open $file: $!";
my $stash;
read F,$stash,1024;
my @unstash=map { $_^0xf5 } unpack("C*",$stash);
foreach my $c (@unstash) {
last if $c eq 0;
printf "%c",$c;
}
printf "\n";
---------------------unstash.pl end-----------------
perl unstash.pl key.sth
where key.sth is the stash file.
I explained it and created a Java version of this (Java is always available. Perl not)
http://strelitzia.net/wp/blog/2009/03/08/unstash-in-java/
use strict;
die "Usage: $0
my $file=$ARGV[0];
open(F,$file) || die "Can't open $file: $!";
my $stash;
read F,$stash,1024;
my @unstash=map { $_^0xf5 } unpack("C*",$stash);
foreach my $c (@unstash) {
last if $c eq 0;
printf "%c",$c;
}
printf "\n";
---------------------unstash.pl end-----------------
perl unstash.pl key.sth
where key.sth is the stash file.
I explained it and created a Java version of this (Java is always available. Perl not)
http://strelitzia.net/wp/blog/2009/03/08/unstash-in-java/
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.