Author: sparky
Date: Sat Mar 13 22:26:02 2010
New Revision: 11272
Modified:
toys/rsget.pl/Get/MediaFire
Log:
- FIXED ! There still is one more glitch, but it isn't a big problem.
Modified: toys/rsget.pl/Get/MediaFire
==============================================================================
--- toys/rsget.pl/Get/MediaFire (original)
+++ toys/rsget.pl/Get/MediaFire Sat Mar 13 22:26:02 2010
@@ -12,10 +12,7 @@
uri: qr{mediafire\.com/(file/|\?)[a-z0-9]+}
cookie: mf
slots: max
-status: BROKEN 2010-03-11
-
-# BROKEN Note: A lot of work must be done to retrieve download link.
-# I hope using SpiderMonkey or other JS engine won't be necessary.
+status: OK 2010-03-13
unify:
return "http://www.mediafire.com/?$1"; if
@@ -26,27 +23,63 @@
stage_init:
if ( $-{_referer} =~ /error\.php/ ) {
- ERROR( "file not found" ) if /Invalid File/;
+ ERROR( "file not found" ) if /Invalid or Deleted File/;
ERROR( "some error" );
}
! m{<div class="download_file_title".*> (.+?)
<div.*>\(($STDSIZE)\)</div> </div>}o;
INFO( name => $1, asize => $2 );
- ! /cu\('(.*?)','(.*?)','(.*?)'\);/;
- GET( "/dynamic/download.php?qk=$1&pk=$2&r=$3", keep_referer => 1 );
+ my %func = m/function
(\S+)\(qk,pk,r\)\{.*?io=document\.getElementById\('([0-9a-f]+)'\)/g;
+
+ ! m/(\S+=unescape.*?eval|eval\(".*?"\))/;
+ ! $_ = jseval( $1 );
+
+ ! /^(\S+)\('(.*?)','(.*?)','(.*?)'\)$/;
+ $-{func_id} = $func{ $1 };
+
+ GET( "/dynamic/download.php?qk=$2&pk=$3&r=$4", keep_referer => 1 );
! /^\s*(var.*var.*var.*)\s*function/m;
my $vars = $1;
my %vars = map { /var (.*?)='(.*?)'/ } split /;/, $vars;
- ! m{href=\\"http://"\s*\+\s*(.*?)\s*\+'"};
- my $order = $1;
+ my @esc = m/(\S+=unescape.*?eval|eval\(".*?"\))/g;
+ ! scalar @esc;
+ foreach my $e ( @esc ) {
+ $_ = jseval( $e );
+ if ( /getElementById\('([0-9a-f]+)'\)/ ) {
+ last if $-{func_id} eq $1;
+ }
+ }
+
+ ! m{href=\\"http://"\s*\+\s*(.*?)\s*\+'(.*?)">};
+ my $order = $1; my $name = $2;
my $code = join "", map { /'(.*)'/ ? $1 : $vars{ $_ } } split
/\s*\+\s*/, $order;
- my $uri = "http://"; . $code;
+ my $uri = "http://"; . $code . $name;
DOWNLOAD( $uri );
GOTO stage_init;
+perl:
+
+sub jseval
+{
+ local $_ = shift;
+ while ( /eval/ ) {
+ if (
m/=unescape\('(.*?)'\);.*?fromCharCode\(\S+?\.charCodeAt\(\S+?\)\^([0-9\^]+)\)\);eval/
) {
+ my $c = chr eval $2;
+ my $u = uri_unescape( $1 );
+ $_ = $u ^ ($c x length $u);
+ } elsif ( m/eval\("(.*?)"\)/ ) {
+ $_ = $1;
+ $_ =~ s/\\'/'/g;
+ } else {
+ last;
+ }
+ }
+ return $_;
+}
+
# vim: filetype=perl:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
