SVN: toys/rsget.pl/Get/RapidShareDE

[sparky]

Author: sparky
Date: Thu Oct 22 21:50:12 2009
New Revision: 10826

Modified:
   toys/rsget.pl/Get/RapidShareDE
Log:
- added captcha processor, use new tools; checked


Modified: toys/rsget.pl/Get/RapidShareDE
==============================================================================
--- toys/rsget.pl/Get/RapidShareDE      (original)
+++ toys/rsget.pl/Get/RapidShareDE      Thu Oct 22 21:50:12 2009
@@ -3,7 +3,7 @@
 name: RapidShareDE
 short: RS.de
 uri: qr{rapidshare\.de/}
-status: OK 2009-10-13
+status: OK 2009-10-22
 
 start:
        GET( $-{_uri} );
@@ -13,7 +13,7 @@
 
        ! $-{form} = $self->form( match => { action => 
qr{^http://rapidshare\.de$} } );
        $-{form}->set( "dl.start" => "Free" );
-       GET( $-{form}->post() );
+       CLICK( $-{form}->post() );
 
        ! m{<p><p>You have requested the file <b>(.*?)</b> 
\(($STDSIZE)\)\.</p>};
        INFO( name => $1, asize => $2 );
@@ -35,7 +35,13 @@
 
        GET( $-{img}, keep_referer => 1 );
 
-       CAPTCHA( "image/png" );
+       CAPTCHA(
+               qr/[A-Z0-9]{3}/,
+               process => \&rsde_decaptcha
+       );
+
+       RESTART( -1, "captcha unsolved" )
+               unless defined $_;
 
        $-{dlform}->set( captcha => $_ );
 
@@ -43,7 +49,27 @@
 
        DOWNLOAD( $-{dlform}->post() );
 
-       RESTART( -1, "invalid captcha" )
-               if /Access-code wrong/;
+       if ( /Access-code wrong/ ) {
+               CAPTCHA_RESULT( "FAIL" );
+               RESTART( -1, "invalid captcha" );
+       }
+
+perl:
+
+sub rsde_color_select
+{
+       my @s = sort { $a <=> $b } @_;
+       return $s[0];
+}
+
+sub rsde_decaptcha
+{
+       my $img = shift;
+
+       $img->color_filter( \&rsde_color_select );
+       $img->luma_emphasize( 100, 200 );
+       return $img->ocr();
+}
+
 
 # vim:ts=4:sw=4
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit