SHARE
TWEET

storeurl.pl_januari_2013

n4yla Mar 16th, 2013 6,646 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. # store rewrite originally writen by chudy_fernandez@yahoo.com
  3. # modified to satisfy common and dynamic content.
  4. #
  5. $|=1;
  6. while (<>) {
  7.     @X = split;
  8. #       $X[1] =~ s/&sig=.*//;
  9.         $x = $X[0] . " ";
  10.         $_ = $X[1];
  11.         $u = $X[1];
  12.  
  13.  
  14. if ($X[1] =~ /(youtube|google).*videoplayback\?/){
  15.         @itag = m/[&?](itag=[0-9]*)/;
  16.         @id = m/[&?](id=[^\&]*)/;
  17.         @range = m/[&?](range=[^\&\s]*)/;
  18.         @begin = m/[&?](begin=[^\&\s]*)/;
  19.         @redirect = m/[&?](redirect_counter=[^\&]*)/;
  20.         print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/@itag&@id&@range@begin@redirect\n";
  21.  
  22.                         #speedtest
  23. }elsif (m/^http:\/\/(.*)\/speedtest\/(.*\.(jpg|txt))\?(.*)/) {
  24.         print $x . "http://www.speedtest.net.SQUIDINTERNAL/speedtest/" . $2 . "\n";
  25.  
  26.                                                 #mediafire
  27. }elsif (m/^http:\/\/199\.91\.15\d\.\d*\/\w{12}\/(\w*)\/(.*)/) {
  28.         print $x . "http://www.mediafire.com.SQUIDINTERNAL/" . $1 ."/" . $2 . "\n";
  29.  
  30.                                                 #fileserve
  31. }elsif (m/^http:\/\/fs\w*\.fileserve\.com\/file\/(\w*)\/[\w-]*\.\/(.*)/) {
  32.         print $x . "http://www.fileserve.com.SQUIDINTERNAL/" . $1 . "./" . $2 . "\n";
  33.  
  34.                                                 #filesonic
  35. }elsif (m/^http:\/\/s[0-9]*\.filesonic\.com\/download\/([0-9]*)\/(.*)/) {
  36.         print $x . "http://www.filesonic.com.SQUIDINTERNAL/" . $1 . "\n";
  37.  
  38.                                                 #4shared
  39. }elsif (m/^http:\/\/[a-zA-Z]{2}\d*\.4shared\.com(:8080|)\/download\/(.*)\/(.*\..*)\?.*/) {
  40.         print $x . "http://www.4shared.com.SQUIDINTERNAL/download/$2\/$3\n";
  41.                
  42.                                                 #4shared preview
  43. }elsif (m/^http:\/\/[a-zA-Z]{2}\d*\.4shared\.com(:8080|)\/img\/(\d*)\/\w*\/dlink__2Fdownload_2F(\w*)_3Ftsid_3D[\w-]*\/preview\.mp3\?sId=\w*/) {
  44.         print $x . "http://www.4shared.com.SQUIDINTERNAL/$2\n";
  45.  
  46.                                                 #photos-X.ak.fbcdn.net where X a-z
  47. }elsif (m/^http:\/\/photos-[a-z](\.ak\.fbcdn\.net)(\/.*\/)(.*\.jpg)/) {
  48.         print $x . "http://photos" . $1 . "/" . $2 . $3  . "\n";
  49.  
  50.                                                 #YX.sphotos.ak.fbcdn.net where X 1-9, Y a-z
  51. } elsif (m/^http:\/\/[a-z][0-9]\.sphotos\.ak\.fbcdn\.net\/(.*)\/(.*)/) {
  52.         print $x . "http://photos.ak.fbcdn.net/" . $1  ."/". $2 . "\n";
  53.  
  54.                         #maps.google.com
  55. } elsif (m/^http:\/\/(cbk|mt|khm|mlt|tbn)[0-9]?(.google\.co(m|\.uk|\.id).*)/) {
  56.         print $x . "http://" . $1  . $2 . "\n";
  57.        
  58.                         # compatibility for old cached get_video?video_id
  59. } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(videoplayback\?id=.*?|video_id=.*?)\&(.*?)/) {
  60.         $z = $2; $z =~ s/video_id=/get_video?video_id=/;
  61.         print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
  62.  
  63. } elsif (m/^http:\/\/www\.google-analytics\.com\/__utm\.gif\?.*/) {
  64.         print $x . "http://www.google-analytics.com/__utm.gif\n";
  65.  
  66.                         #Cache High Latency Ads
  67. } elsif (m/^http:\/\/([a-z0-9.]*)(\.doubleclick\.net|\.quantserve\.com|\.googlesyndication\.com|yieldmanager|cpxinteractive)(.*)/) {
  68.         $y = $3;$z = $2;
  69.         for ($y) {
  70.         s/pixel;.*/pixel/;
  71.         s/activity;.*/activity/;
  72.         s/(imgad[^&]*).*/\1/;
  73.         s/;ord=[?0-9]*//;
  74.         s/;&timestamp=[0-9]*//;
  75.         s/[&?]correlator=[0-9]*//;
  76.         s/&cookie=[^&]*//;
  77.         s/&ga_hid=[^&]*//;
  78.         s/&ga_vid=[^&]*//;
  79.         s/&ga_sid=[^&]*//;
  80.         # s/&prev_slotnames=[^&]*//
  81.         # s/&u_his=[^&]*//;
  82.         s/&dt=[^&]*//;
  83.         s/&dtd=[^&]*//;
  84.         s/&lmt=[^&]*//;
  85.         s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
  86.         s/(&url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
  87.         s/(&ref=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
  88.         s/(&cookie=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
  89.         s/[;&?]ord=[?0-9]*//;
  90.         s/[;&]mpvid=[^&;]*//;
  91.         s/&xpc=[^&]*//;
  92.         # yieldmanager
  93.         s/\?clickTag=[^&]*//;
  94.         s/&u=[^&]*//;
  95.         s/&slotname=[^&]*//;
  96.         s/&page_slots=[^&]*//;
  97.         }
  98.         print $x . "http://" . $1 . $2 . $y . "\n";
  99.  
  100.                         #cache high latency ads
  101. } elsif (m/^http:\/\/(.*?)\/(ads)\?(.*?)/) {
  102.         print $x . "http://" . $1 . "/" . $2  . "\n";
  103.  
  104.                         # spicific servers starts here....
  105. } elsif (m/^http:\/\/(www\.ziddu\.com.*\.[^\/]{3,4})\/(.*?)/) {
  106.         print $x . "http://" . $1 . "\n";
  107.  
  108.                         #cdn, varialble 1st path
  109. } elsif (($u =~ /filehippo/) && (m/^http:\/\/(.*?)\.(.*?)\/(.*?)\/(.*)\.([a-z0-9]{3,4})(\?.*)?/)) {
  110.         @y = ($1,$2,$4,$5);
  111.         $y[0] =~ s/[a-z0-9]{2,5}/cdn./;
  112.         print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
  113.  
  114.                         #rapidshare
  115. } elsif (($u =~ /rapidshare/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?)([a-z]*\.[^\/]{3}\/[a-z]*\/[0-9]*)\/(.*?)\/([^\/\?\&]{4,})$/)) {
  116.         print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";
  117.  
  118. } elsif (($u =~ /maxporn/) && (m/^http:\/\/([^\/]*?)\/(.*?)\/([^\/]*?)(\?.*)?$/)) {
  119.         print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";
  120.  
  121.                         #like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
  122. } elsif (($u =~ /tube8|pornhub|xvideos/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?(\.[a-z]*)?)\.([a-z]*[0-9]?\.[^\/]{3}\/[a-z]*)(.*?)((\/[a-z]*)?(\/[^\/]*){4}\.[^\/\?]{3,4})(\?.*)?$/)) {
  123.         print $x . "http://cdn." . $4 . $6 . "\n";
  124.                         #...spicific servers end here.
  125.  
  126.                         #photos-X.ak.fbcdn.net where X a-z
  127. } elsif (m/^http:\/\/photos-[a-z].ak.fbcdn.net\/(.*)/) {
  128.         print $x . "http://photos.ak.fbcdn.net/" . $1  . "\n";
  129.  
  130.                         #for yimg.com video
  131. } elsif (m/^http:\/\/(.*yimg.com)\/\/(.*)\/([^\/\?\&]*\/[^\/\?\&]*\.[^\/\?\&]{3,4})(\?.*)?$/) {
  132.         print $x . "http://cdn.yimg.com//" . $3 . "\n";
  133.  
  134.                         #for yimg.com doubled
  135. } elsif (m/^http:\/\/(.*?)\.yimg\.com\/(.*?)\.yimg\.com\/(.*?)\?(.*)/) {
  136.         print $x . "http://cdn.yimg.com/"  . $3 . "\n";
  137.  
  138.                         #for yimg.com with &sig=
  139. } elsif (m/^http:\/\/(.*?)\.yimg\.com\/(.*)/) {
  140.         @y = ($1,$2);
  141.         $y[0] =~ s/[a-z]+[0-9]+/cdn/;
  142.         $y[1] =~ s/&sig=.*//;
  143.         print $x . "http://" . $y[0] . ".yimg.com/"  . $y[1] . "\n";
  144.  
  145.                         #youjizz. We use only domain and filename
  146. } elsif (($u =~ /media[0-9]{2,5}\.youjizz/) && (m/^http:\/\/(.*)(\.[^\.\-]*?\..*?)\/(.*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})((\?|\%).*)?$/)) {
  147.         @y = ($1,$2,$4,$5);
  148.         $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|(.*cdn.*)|(.*cache.*))/cdn/;
  149.         print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
  150.  
  151.                         #general purpose for cdn servers. add above your specific servers.
  152. } elsif (m/^http:\/\/([0-9.]*?)\/\/(.*?)\.(.*)\?(.*?)/) {
  153.         print $x . "http://squid-cdn-url//" . $2  . "." . $3 . "\n";
  154.  
  155.                         #generic http://variable.domain.com/path/filename."ex" "ext" or "exte" with or withour "? or %"
  156. } elsif (m/^http:\/\/(.*)(\.[^\.\-]*?\..*?)\/(.*)\.([^\/\?\&]{2,4})((\?|\%).*)?$/) {
  157.         @y = ($1,$2,$3,$4);
  158.         $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|(.*cdn.*)|(.*cache.*))/cdn/;
  159.         print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
  160.  
  161.                         # generic http://variable.domain.com/...
  162. } elsif (m/^http:\/\/(([A-Za-z]+[0-9-]+)*?|.*cdn.*|.*cache.*)\.(.*?)\.(.*?)\/(.*)$/) {
  163.         print $x . "http://cdn." . $3 . "." . $4 . "/" . $5 .  "\n";
  164.  
  165.                         # spicific extention that ends with ?
  166. } elsif (m/^http:\/\/(.*?)\/(.*?)\.(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|rar|cab|amf|swf)(.*)/) {
  167.         print $x . "http://" . $1 . "/" . $2  . "." . $3 . "\n";
  168.  
  169.                         # all that ends with ;
  170. } elsif (m/^http:\/\/(.*?)\/(.*?)\;(.*)/) {
  171.         print $x . "http://" . $1 . "/" . $2  . "\n";
  172.  
  173. } else {
  174.         print $x . $_ . "sucks\n";
  175. }
  176. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top