Author: sparky
Date: Sun Oct 4 16:05:37 2009
New Revision: 10678
Modified:
toys/rsget.pl/Link/CryptIt
toys/rsget.pl/Link/RaidRush
Log:
- simplified
Modified: toys/rsget.pl/Link/CryptIt
==============================================================================
--- toys/rsget.pl/Link/CryptIt (original)
+++ toys/rsget.pl/Link/CryptIt Sun Oct 4 16:05:37 2009
@@ -9,18 +9,18 @@
use MIME::Base64;
# from jdownloader
- my $key = join "", map chr, (
+ my $key = pack "C*", (
0x73, 0x6f, 0x35, 0x73, 0x78, 0x4e, 0x73, 0x50,
0x4b, 0x66, 0x4e, 0x53, 0x44, 0x44, 0x5a, 0x48,
0x61, 0x79, 0x72, 0x33, 0x32, 0x35, 0x32, 0x30 );
- my $post_header = join "", map chr, (
+ my $post_header = pack "C*", (
0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x00, 0x11,
0x63, 0x72, 0x79, 0x70, 0x74, 0x69, 0x74, 0x32,
0x2e, 0x67, 0x65, 0x74, 0x46, 0x69, 0x6c, 0x65,
0x73, 0x00, 0x02, 0x2f, 0x31, 0x00, 0x00, 0x00,
0x11, 0x0a, 0x00, 0x00, 0x00, 0x02, 0x02, 0x00,
0x06);
- my $post_separator = join "", map chr, ( 0x02, 0x00 );
+ my $post_separator = pack "C*", ( 0x02, 0x00 );
use Crypt::Rijndael;
my $cipher = new Crypt::Rijndael $key;
Modified: toys/rsget.pl/Link/RaidRush
==============================================================================
--- toys/rsget.pl/Link/RaidRush (original)
+++ toys/rsget.pl/Link/RaidRush Sun Oct 4 16:05:37 2009
@@ -3,27 +3,25 @@
name: RaidRush
short: save.raidrush.ws
uri: qr{save\.raidrush\.ws/}
-status: OK 2009-08-25
+status: OK 2009-10-04
start:
GET( $-{_uri} );
- $-{referer} = $-{_referer};
my @list;
push @list, "/404.php.php?id=$1&key=$2"
while s/onclick="get\('(.*?)','FREE','(.*?)'\)//;
+
ERROR("no links") unless @list;
+
$-{list} = \...@list;
$-{outlist} = [];
+stage_get_link:
GET( shift @{$-{list}} );
-stage_next_uri:
push @{$-{outlist}}, "http://"; . $_;
- if ( @{$-{list}} ) {
- $-{_referer} = $-{referer};
- GET_NEXT( stage_next_uri, shift @{$-{list}} );
- }
+ GOTO stage_get_link if @{$-{list}};
LINK( @{$-{outlist}} );
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
