Author: sparky
Date: Fri Oct 23 20:20:58 2009
New Revision: 10838
Modified:
toys/rsget.pl/Get/SharingMatrix
Log:
- use click
- added very simple and ineffective captcha processor (unsolved: 298, fail: 22,
ok: 4), will think about something better
Modified: toys/rsget.pl/Get/SharingMatrix
==============================================================================
--- toys/rsget.pl/Get/SharingMatrix (original)
+++ toys/rsget.pl/Get/SharingMatrix Fri Oct 23 20:20:58 2009
@@ -4,11 +4,10 @@
short: SM
uri: qr{sharingmatrix\.com/}
cookie: sm
-status: OK 2009-09-17
+status: OK 2009-10-23
start:
GET( $-{_uri} );
- $-{page} = $-{_referer};
ERROR( "file not found" ) if m#File has been deleted#;
@@ -29,8 +28,7 @@
! m#case 'free':.*?sUrl2 = '(.*?)' \+ link_id;#s;
my $link = $1 . $-{link_id};
- GET( $link );
- $-{_referer} = $-{page};
+ CLICK( $link, keep_referer => 1 );
! m#link_name = '(.*?)';#;
$-{link_name} = $1;
@@ -40,37 +38,62 @@
! m#sid='(.*?)';#;
$-{sid} = $1;
- ! m#<img alt=.*? id='cryptogram' src='(.*?)'>#;
- my $img = $1;
+ ! m#onclick="javascript:document\.images\.cryptogram\.src='(.*?)'#;
+ $-{img_base} = $1;
- GET( $img );
- $-{_referer} = $-{page};
-
- CAPTCHA( "image/jpeg" );
-
- GET( '/ajax_scripts/verifier.php', post => "?$-{sid}&code=$_" );
- $-{_referer} = $-{page};
-
- RESTART( 0, "invalid captcha" ) unless /^\s*1\s*$/s;
+stage_captcha:
+ $-{img} = $-{img_base} . (int rand 1000) . 1;
+ GET( $-{img}, keep_referer => 1 );
+
+ CAPTCHA(
+ qr/[a-z]{5}/,
+ process => \&sm_decaptcha,
+ );
+
+ GOTO stage_captcha unless defined $_;
+
+ GET( '/ajax_scripts/verifier.php', post => "?$-{sid}&code=$_",
keep_referer => 1 );
+
+ if ( /^\s*1\s*$/s ) {
+ CAPTCHA_RESULT( "OK" );
+ } else {
+ CAPTCHA_RESULT( "FAIL" );
+ GOTO stage_captcha;
+ }
- GET( '/ajax_scripts/dl.php' );
- $-{_referer} = $-{page};
+ GET( '/ajax_scripts/dl.php', keep_referer => 1 );
s/\s+//sg;
$-{dl_id} = $_;
- GET( '/ajax_scripts/update_dl.php?id=' . $-{dl_id} );
- $-{_referer} = $-{page};
+ GET( '/ajax_scripts/update_dl.php?id=' . $-{dl_id}, keep_referer => 1 );
- GET(
"/ajax_scripts/_get.php?link_id=$-{link_id}&link_name=$-{link_name}&dl_id=$-{dl_id}&password="
);
- $-{_referer} = $-{page};
+ GET(
"/ajax_scripts/_get.php?link_id=$-{link_id}&link_name=$-{link_name}&dl_id=$-{dl_id}&password=",
+ keep_referer => 1 );
s/^{//; s/}$//;
my %js = map { /^(.*?)\s*:\s*"(.*?)"/ } split /\s*,\s*/, $_;
- DOWNLOAD( "$js{serv}/download/$js{hash}/$-{dl_id}/" );
+ CLICK_DOWNLOAD( "$js{serv}/download/$js{hash}/$-{dl_id}/" );
# most likely multi-download
RESTART( 0, "download error" ) if /Download Error/;
+perl:
+
+sub sm_color_select
+{
+ my @s = sort { $a <=> $b } @_;
+ return $s[0];
+}
+
+sub sm_decaptcha
+{
+ my $img = shift;
+
+ $img->color_filter( \&sm_color_select );
+ $img->luma_emphasize( 50, 150 );
+ return $img->ocr();
+}
+
# vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
