SVN: toys/rsget.pl/Link: CryptIt RaidRush

[sparky]

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}} );