SVN: toys/rsget.pl/Link: . AnonymTo CryptedBiz LinkHider ProtectLinks RaidRush

[sparky]

Author: sparky
Date: Thu Aug 27 15:30:32 2009
New Revision: 10496

Added:
   toys/rsget.pl/Link/
   toys/rsget.pl/Link/AnonymTo
   toys/rsget.pl/Link/CryptedBiz
   toys/rsget.pl/Link/LinkHider
   toys/rsget.pl/Link/ProtectLinks
   toys/rsget.pl/Link/RaidRush
Log:
- link resolvers from rsget.pl plus: crypted.biz, anonym.to, linkhider.com


Added: toys/rsget.pl/Link/AnonymTo
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/AnonymTo	Thu Aug 27 15:30:32 2009
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+name: AnonymTo
+short: anonym.to
+uri: qr{anonym\.to/}
+status: OK 2009-08-25
+
+start:
+	$_ = $-{_uri};
+	s{^http://anonym.to/\?}{};
+	LINK( $_ );
+
+# vim:ts=4:sw=4

Added: toys/rsget.pl/Link/CryptedBiz
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/CryptedBiz	Thu Aug 27 15:30:32 2009
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+name: CryptedBiz
+short: crypted.biz
+uri: qr{crypted\.biz/}
+status: OK 2009-08-27
+
+pre:
+	use MIME::Base64;
+
+start:
+	GET( $-{_uri} );
+	$-{referer} = $-{_referer};
+
+	my @list;
+	push @list, $1
+		while s/className='inner_link\d+';window\.open\('(.*?)'\)">//;
+	ERROR("no links") unless @list;
+	$-{list} = \@list;
+	$-{outlist} = [];
+
+	GET( shift @{$-{list}} );
+stage_next_uri:
+	m{var versch = '(.*?)';};
+	$_ = decode_base64( $1 );
+	m{ src="(.*?)">};
+	push @{$-{outlist}}, $1;
+
+	if ( @{$-{list}} ) {
+		$-{_referer} = $-{referer};
+		GET_NEXT( stage_next_uri, shift @{$-{list}} );
+	}
+
+	LINK( @{$-{outlist}} );
+
+# vim:ts=4:sw=4

Added: toys/rsget.pl/Link/LinkHider
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/LinkHider	Thu Aug 27 15:30:32 2009
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+name: LinkHider
+short: linkhider.com
+uri: qr{linkhider\.com/}
+status: OK 2009-08-25
+
+start:
+	GET( $-{_uri} );
+	
+	! m{<META HTTP-EQUIV="refresh" CONTENT="\d+;url='(.*?)'">};
+
+	LINK( $1 );
+
+# vim:ts=4:sw=4

Added: toys/rsget.pl/Link/ProtectLinks
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/ProtectLinks	Thu Aug 27 15:30:32 2009
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+name: ProtectLinks
+short: protectlinks.com
+uri: qr{protectlinks\.com/}
+status: OK 2009-08-25
+
+start:
+	$_ = $-{_uri};
+	
+	ERROR( "unsupported uri" )
+		unless m#^(.*?com/)(redirect\.php\?id=)?(\d+)#;
+	
+	$-{_referer} = $1 . $3;
+
+	GET( $1 . "redirect.php?id=" . $3 );
+
+	ERROR( "Can't find link" )
+		unless m#<iframe name="pagetext".*? src="(.*?)">#;
+
+	LINK( $1 );
+
+# vim:ts=4:sw=4

Added: toys/rsget.pl/Link/RaidRush
==============================================================================
--- (empty file)
+++ toys/rsget.pl/Link/RaidRush	Thu Aug 27 15:30:32 2009
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+name: RaidRush
+short: save.raidrush.ws
+uri: qr{save\.raidrush\.ws/}
+status: OK 2009-08-25
+
+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} = [];
+
+	GET( shift @{$-{list}} );
+stage_next_uri:
+	push @{$-{outlist}}, "http://" . $_;
+
+	if ( @{$-{list}} ) {
+		$-{_referer} = $-{referer};
+		GET_NEXT( stage_next_uri, shift @{$-{list}} );
+	}
+
+	LINK( @{$-{outlist}} );
+
+# vim:ts=4:sw=4