破解DVD格式，就是著名的DECSS (转)

最新推荐文章于 2024-08-12 08:51:49 发布

csd3176

最新推荐文章于 2024-08-12 08:51:49 发布

阅读量596

点赞数

文章标签： c# c/c++

破解DVD格式，就是著名的DECSS (转)[@more@]

#!/usr/bin/perl

# DeCSS v 0.06 -- a utility for stripping Cascading Style Sheet (CSS)
# information from an HTML page

# This software is distributed under the Artistic License, which should have
# come with this file. Please distribute this software far and wide.
# The original version can always be found on the World Wide web at:
#
# http://www.pigdog.org/decss/

# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

use Getopt::Std;
use strict; # Choosy software use's strict!

my($USAGE) = <DeCSS 0.06: a utility to strip Cascading Style Sheets (CSS) tags
from HTML documents

USAGE: DeCSS [-h] [-i input file] [-o output file]

options:
-h print this help message
-i input file input file to strip (default: standard input)
-o output file place to put the output (default: standard output)

END_OF_USAGE

my(%options);
local(*IN, *OUT);

getopts("hi:o:", %options);

if (exists $options{h}) {
print $USAGE;
exit(0);
}

if (exists $options{i}) {
open(IN, "ie "Can't open $options{i}: $!n";
} else {
open(IN, "}

if (exists $options{o}) {
open(OUT, ">$options{o}") or die "Can't open $options{o}: $!n";
} else {
open(OUT, ">&STDOUT") or die "Can't open STDOUT: $!n";
}

decssify(*IN, *OUT);

close(IN);
close(OUT);

sub decssify {
local(*IN, *OUT) = @_;

# Yeah, like -you- never slurp in entire files at a time.

select(IN); undef $/;

my($content) = ;

$content =~ s%%%mg; # Strip stylesheet links
$content =~ s%%%mg; # Strip

print OUT $content;
}

__END__

=head1 NAME

DeCSS - A utility to strip Cascading Style Sheet (CSS) information from a Web page.

=head1 SYNOPSIS

DeCSS -i my_file.html -o my_file_no_css.html

=head1 DESCRIPTION

DeCSS is a utility program to strip Cascading Style Sheet (CSS)
information from a Web page. For a given input HTML file, it removes
the following type of HTML code:

=over 4

=item EstyleE tags

=item ElinkE tags that are for CSS stylesheets

=item C attributes

=item C

=item C attributes

=back

That's all it does. It has no relationship whatsoever to encryption,
copy protection, movies, software freedom, oppressive industry
cartels, Web site witch hunts, or any other bad things that could get
you in trouble. Please feel free to redistribute it as much as possible,
preferably on your Web site.

=head1 AUTHOR

Mister Bad <Mailto:mr.bad@pigdog.org" rel="nofollow">mr.bad@pigdog.org>

=head1 SEE ALSO

=over 4

=item W3 Cascading Style Sheets (CSS) site

http://www.w3.org/Style/CSS/

=back

=head1 VERSION HISTORY

=over 4

=item 0.06

Repackaged software, including mirroring utilities and a FAQ.

=item 0.05

Initial version.

=back

=cut

# Local Variables: #
# mode: perl #
# End: #

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-990202/，如需转载，请注明出处，否则将追究法律责任。

上一篇： delphi里播放flash (转)

下一篇：使用Windows 95虚拟设备驱动程序(VxD) (转)

请登录后发表评论登录

全部评论

<%=items[i].createtime%>

<%=items[i].content%>

<%if(items[i].items.items.length) { %>

<%for(var j=0;j

<%=items[i].items.items[j].createtime%> 回复

<%=items[i].items.items[j].username%> 回复 <%=items[i].items.items[j].tousername%>： <%=items[i].items.items[j].content%>

<%}%> <%if(items[i].items.total > 5) { %>

还有<%=items[i].items.total-5%>条评论 ) data-count=1 data-flag=true>点击查看

<%}%>

<%}%> <%}%>

worldblog

博文量
6241
访问量

2395969