Follow us on...
Follow us on G+ Follow us on Twitter Follow us on Facebook Watch us on YouTube
Register
Page 1 of 119 1231151101 ... LastLast
Results 1 to 15 of 1773
  1. #1
    Status
    Offline
    ucok_karnadi's Avatar
    ..:: Masih Bodoh ::..
    Join Date
    Jan 2009
    Location
    PATI - JAWA TENGAH
    Posts
    1,178
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0

    Thumbs up New Storeurl Untuk Youtube file range

    mohon maaf kalau repost berikut baris per baris dari storeurl yg telah di edit agar youtube tidak error. sudah di test dibeberapa tempat

    Code:
    #!/usr/bin/perl
    # $Rev$
    # by chudy_fernandez@yahoo.com
    # rev by ucok_karnadi@yahoo.com
    # Youtube updates at http://wiki.squid-cache.org/ConfigExamples/DynamicContent/YouTube/Discussion
    
    ...............................BUKA DI GOOGLE CODE TULISAN MERAH DIBAWAH..........................

    untuk perubahan storeurl lihat ke

    jangan lupa set permision dan modenya

    Code:
    cd /etc/squid
    wget http://tempat-sampah.googlecode.com/svn/storeurl.pl
    chmod +x /etc/squid/storeurl.pl
    chown proxy:proxy /etc/squid/storeurl.pl


    soreurl editan saya berada di

    mohon maaf karena saya masih copas kepunyaan cudi hanya edit sedikit

    terimakasih


    bagi yg ingin memberikan donasi silahka ke rekening berikut

    Mandiri Cabang Tanjung Enim
    1120006810050 a.n Syaifudin
    BCA KCP Pati 0981413082 a.n Sri Indrayati
    0202811986 a.n Sri Indrayati. BNI Cab. PATI


    silahkan tambahin code berikut di squid confignya

    Code:
    acl range url_regex -i .*youtube\.com\/videoplayback.*range\=.*$
    http_access deny range
    penampakan youtube dengan 1 file tanpa dipecah

    Last edited by ucok_karnadi; 09-04-2013 at 12:16. Reason: perbaikan alamat storeurl agar dapat di update
    ___________________________________________


  2. The Following 132 Users Say Thank You to ucok_karnadi For This Useful Post:

    + Show/Hide list of the thanked


  3. #2
    Status
    Offline
    xeonx's Avatar
    Baru Gabung
    Join Date
    Sep 2009
    Posts
    18
    Reviews
    Read 0 Reviews
    Downloads
    1
    Uploads
    0
    Feedback Score
    0
    laek des yo... (Y)

  4. #3
    Status
    Offline
    sangkala nandong's Avatar
    Newbie
    Join Date
    Apr 2011
    Location
    Makassar
    Posts
    51
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    mantaf... thanks bang Ucok
    Last edited by sangkala nandong; 08-02-2012 at 19:53.

  5. #4
    Status
    Offline
    budi setyadi's Avatar
    Calon Member
    Join Date
    Aug 2009
    Posts
    94
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    Izin download dan tes mas makasih ya

  6. #5
    Status
    Offline
    arthalita01's Avatar
    Newbie
    Join Date
    Oct 2010
    Posts
    46
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    hadir disini Click here to enlarge

  7. #6
    Status
    Offline
    anthonie's Avatar
    Baru Gabung
    Join Date
    Oct 2011
    Posts
    2
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    asekkkkk.......hajar Om...Click here to enlarge

  8. #7
    Status
    Offline
    ichalssy's Avatar
    Baru Gabung
    Join Date
    Oct 2010
    Posts
    12
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    best Credit to bang Ucok Karnadi, makasih bang.

  9. The Following User Says Thank You to ichalssy For This Useful Post:


  10. #8
    Status
    Offline
    gas_ye's Avatar
    Member
    Join Date
    Nov 2010
    Location
    Bogor
    Posts
    108
    Reviews
    Read 0 Reviews
    Downloads
    5
    Uploads
    0
    Feedback Score
    0
    yang datang dari master patut di coba nih..terima ksh bank ucokClick here to enlarge

  11. #9
    Status
    Offline
    cqutel's Avatar
    Baru Gabung
    Join Date
    Feb 2010
    Posts
    18
    Reviews
    Read 0 Reviews
    Downloads
    1
    Uploads
    0
    Feedback Score
    0
    Click here to enlarge Originally Posted by ucok_karnadi Click here to enlarge
    mohon maaf kalau repost berikut baris per baris dari storeurl yg telah di edit agar youtube tidak error. sudah di test dibeberapa tempat

    Code:
    #!/usr/bin/perl
    # $Rev$
    # by chudy_fernandez@yahoo.com
    # rev by ucok_karnadi@yahoo.com
    # rev date 02/04/2012
    # visit my facebook account http://www.facebook.com/stressss
    
    $|=1;
    while (<>) {
        @X = split;
    #       $X[1] =~ s/&sig=.*//;
            $x = $X[0] . " ";
            $_ = $X[1];
            $u = $X[1];
    
                            #photos-X.ak.fbcdn.net where X a-z
    if (m/^http:\/\/photos-[a-z]?(.ak.fbcdn.net.*)/) {
            print $x . "http://photos" . $1  . "\n";
    
    			# photo
    } elsif (m/^http:\/\/photos-ash[1-5]?(.fbcdn.net.*)/) {
            print $x . "http://ash.photos" . $1  . "\n";
    	
                           #photos.ak.fbcdn.net where X i(0-9)
                            #a5.sphotos.ak.fbcdn.ne
    } elsif (m/^http:\/\/[a-z][0-9]?.(sphotos.ak.fbcdn.net.*)/) {
            print $x . "http://cdn.photos" . $1  . "\n";
    
    			#BLOGSPOT
    } elsif (m/^http:\/\/[1-4].bp.(blogspot.com.*)/) {
            print $x . "http://blog-cdn." . $1  . "\n";
    
                             #AVAST
    } elsif (m/^http:\/\/download[0-9]{3}.(avast.com.*)/) {
              print $x . "http://avast-cdn." . $1  .  "\n";
    
                             #KAV
    } elsif (m/^http:\/\/dnl-[0-9]{2}.(geo.kaspersky.com.*)/) {
              print $x . "http://kav-cdn." . $1  .  "\n";
    
                             #AVG
    } elsif (m/^http:\/\/update.avg.com/) {
              print $x . "http://avg-cdn." . $1  .  "\n";
    
                            #maps.google.com
    } elsif (m/^http:\/\/(cbk|mt|khm|mlt|tbn)[0-9]?(.google\.co(m|\.uk|\.id).*)/) {
            print $x . "http://" . $1  . $2 . "\n";
    
                            #gstatic and/or wikimapia
    } elsif (m/^http:\/\/([a-z])[0-9]?(\.gstatic\.com.*|\.wikimapia\.org.*)/) {
            print $x . "http://" . $1  . $2 . "\n";
    
                            #maps.google.com
    } elsif (m/^http:\/\/(khm|mt)[0-9]?(.google.com.*)/) {
            print $x . "http://" . $1  . $2 . "\n";
            
    		#ini untuk cache partial
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(range=[0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";
    
    		# compatibility for old cached get_video?video_id
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(videoplayback\?id=.*?|video_id=.*?)\&(.*?)/) {
            $z = $2; $z =~ s/video_id=/get_video?video_id=/;
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
            
                            # youtube All itag (semua resolusi)
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(itag=[0-9]*).*?\&(id=[a-zA-Z0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . "&" . $3 . "\n";
    
                            # youtube All itag (semua resolusi) posisi kebalikan
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(itag=[0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $3 . "&" . $2 . "\n";
    
    			#Google
    } elsif (m/^http:\/\/www\.google-analytics\.com\/__utm\.gif\?.*/) {
            print $x . "http://www.google-analytics.com/__utm.gif\n";
    
                            #Cache High Latency Ads
    } elsif (m/^http:\/\/([a-z0-9.]*)(\.doubleclick\.net|\.quantserve\.com|\.googlesyndication\.com|yieldmanager|cpxinteractive)(.*)/) {
            $y = $3;$z = $2;
            for ($y) {
            s/pixel;.*/pixel/;
            s/activity;.*/activity/;
            s/(imgad[^&]*).*/\1/;
            s/;ord=[?0-9]*//;
            s/;×tamp=[0-9]*//;
            s/[&?]correlator=[0-9]*//;
            s/&cookie=[^&]*//;
            s/&ga_hid=[^&]*//;
            s/&ga_vid=[^&]*//;
            s/&ga_sid=[^&]*//;
            # s/&prev_slotnames=[^&]*//
            # s/&u_his=[^&]*//;
            s/&dt=[^&]*//;
            s/&dtd=[^&]*//;
            s/&lmt=[^&]*//;
            s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&ref=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&cookie=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/[;&?]ord=[?0-9]*//;
            s/[;&]mpvid=[^&;]*//;
            s/&xpc=[^&]*//;
            # yieldmanager
            s/\?clickTag=[^&]*//;
            s/&u=[^&]*//;
            s/&slotname=[^&]*//;
            s/&page_slots=[^&]*//;
            }
            print $x . "http://" . $1 . $2 . $y . "\n";
    
                            #cache high latency ads
    } elsif (m/^http:\/\/(.*?)\/(ads)\?(.*?)/) {
            print $x . "http://" . $1 . "/" . $2  . "\n";
    
    } elsif (m/^http:\/\/(www\.ziddu\.com.*\.[^\/]{3,4})\/(.*?)/) {
            print $x . "http://" . $1 . "\n";
    
                            #cdn, varialble 1st path
    } elsif (($u =~ /filehippo/) && (m/^http:\/\/(.*?)\.(.*?)\/(.*?)\/(.*)\.([a-z0-9]{3,4})(\?.*)?/)) {
            @y = ($1,$2,$4,$5);
            $y[0] =~ s/[a-z0-9]{2,5}/cdn./;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            #rapidshare
    } elsif (($u =~ /rapidshare/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?)([a-z]*\.[^\/]{3}\/[a-z]*\/[0-9]*)\/(.*?)\/([^\/\?\&]{4,})$/)) {
            print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";
    
    } elsif (($u =~ /maxporn/) && (m/^http:\/\/([^\/]*?)\/(.*?)\/([^\/]*?)(\?.*)?$/)) {
            print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";
            
                            #domain/path/.*/path/filename
    } elsif (($u =~ /fucktube/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?[^\/]*\/[^\/]*)\/(.*)\/([^\/]*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
            @y = ($1,$2,$4,$5,$6);
            $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";
    
                            #like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
    } 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})(\?.*)?$/)) {
            print $x . "http://cdn." . $4 . $6 . "\n";
    
                            #for yimg.com video
    } elsif (m/^http:\/\/(.*yimg.com)\/\/(.*)\/([^\/\?\&]*\/[^\/\?\&]*\.[^\/\?\&]{3,4})(\?.*)?$/) {
            print $x . "http://cdn.yimg.com//" . $3 . "\n";
            
                            #for yimg.com doubled
    } elsif (m/^http:\/\/(.*?)\.yimg\.com\/(.*?)\.yimg\.com\/(.*?)\?(.*)/) {
            print $x . "http://cdn.yimg.com/"  . $3 . "\n";
    
                            #for yimg.com with &sig=
    } elsif (m/^http:\/\/([^\.]*)\.yimg\.com\/(.*)/) {
            @y = ($1,$2);
            $y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
            $y[1] =~ s/&sig=.*//;
            print $x . "http://" . $y[0] . ".yimg.com/"  . $y[1] . "\n";
                            
                            #youjizz. We use only domain and filename
    } elsif (($u =~ /media[0-9]{1,5}\.youjizz/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?\.[^\/]*)\/(.*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
            @y = ($1,$2,$4,$5);
            $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            #general purpose for cdn servers. add above your specific servers.
    } elsif (m/^http:\/\/([0-9.]*?)\/\/(.*?)\.(.*)\?(.*?)/) {
            print $x . "http://squid-cdn-url//" . $2  . "." . $3 . "\n";
    
                            # spicific extention
    # } elsif (m/^http:\/\/(.*?)\.(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|swf).*?/) {
            # @y = ($1,$2);
            # $y[0] =~ s/((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
            # print $x . "http://" . $y[0] . "." . $y[1] . "\n";
    
                            #generic http://variable.domain.com/path/filename."ex", "ext" or "exte"
                            #http://cdn1-28.projectplaylist.com
                            #http://s1sdlod041.bcst.cdn.s1s.yimg.com
    } elsif (m/^http:\/\/(.*?)(\.[^\.\-]*?\..*?)\/([^\?\&\=]*)\.([\w\d]{2,4})\??.*$/) {
            @y = ($1,$2,$3,$4);
            $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
            print $x . "storeurl://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            # all that ends with ;
    } elsif (m/^http:\/\/(.*?)\/(.*?)\;(.*)/) {
            print $x . "http://" . $1 . "/" . $2  . "\n";
    
    } else {
            print $x . $_ . "\n";
    }
    }
    storeurl asli dari link berikut

    sedangkan soreurl editan saya berada di

    mohon maaf karena saya masih copas kepunyaan cudi hanya edit sedikit

    terimakasih

    di coba om udin.... Click here to enlarge cqutel_cute

  12. #10
    Status
    Offline
    Mas no's Avatar
    Newbie
    Join Date
    Sep 2010
    Posts
    24
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    Makasih om,,,,

    Ijin nyoba om,,,,, Click here to enlarge

  13. #11
    Status
    Offline
    zoky's Avatar
    Calon Member
    Join Date
    Jun 2010
    Posts
    79
    Reviews
    Read 0 Reviews
    Downloads
    2
    Uploads
    0
    Feedback Score
    0
    Click here to enlarge Originally Posted by ucok_karnadi Click here to enlarge
    mohon maaf kalau repost berikut baris per baris dari storeurl yg telah di edit agar youtube tidak error. sudah di test dibeberapa tempat

    Code:
    #!/usr/bin/perl
    # $Rev$
    # by chudy_fernandez@yahoo.com
    # rev by ucok_karnadi@yahoo.com
    # rev date 02/04/2012
    # visit my facebook account http://www.facebook.com/stressss
    
    $|=1;
    while (<>) {
        @X = split;
    #       $X[1] =~ s/&sig=.*//;
            $x = $X[0] . " ";
            $_ = $X[1];
            $u = $X[1];
    
                            #photos-X.ak.fbcdn.net where X a-z
    if (m/^http:\/\/photos-[a-z]?(.ak.fbcdn.net.*)/) {
            print $x . "http://photos" . $1  . "\n";
    
    			# photo
    } elsif (m/^http:\/\/photos-ash[1-5]?(.fbcdn.net.*)/) {
            print $x . "http://ash.photos" . $1  . "\n";
    	
                           #photos.ak.fbcdn.net where X i(0-9)
                            #a5.sphotos.ak.fbcdn.ne
    } elsif (m/^http:\/\/[a-z][0-9]?.(sphotos.ak.fbcdn.net.*)/) {
            print $x . "http://cdn.photos" . $1  . "\n";
    
    			#BLOGSPOT
    } elsif (m/^http:\/\/[1-4].bp.(blogspot.com.*)/) {
            print $x . "http://blog-cdn." . $1  . "\n";
    
                             #AVAST
    } elsif (m/^http:\/\/download[0-9]{3}.(avast.com.*)/) {
              print $x . "http://avast-cdn." . $1  .  "\n";
    
                             #KAV
    } elsif (m/^http:\/\/dnl-[0-9]{2}.(geo.kaspersky.com.*)/) {
              print $x . "http://kav-cdn." . $1  .  "\n";
    
                             #AVG
    } elsif (m/^http:\/\/update.avg.com/) {
              print $x . "http://avg-cdn." . $1  .  "\n";
    
                            #maps.google.com
    } elsif (m/^http:\/\/(cbk|mt|khm|mlt|tbn)[0-9]?(.google\.co(m|\.uk|\.id).*)/) {
            print $x . "http://" . $1  . $2 . "\n";
    
                            #gstatic and/or wikimapia
    } elsif (m/^http:\/\/([a-z])[0-9]?(\.gstatic\.com.*|\.wikimapia\.org.*)/) {
            print $x . "http://" . $1  . $2 . "\n";
    
                            #maps.google.com
    } elsif (m/^http:\/\/(khm|mt)[0-9]?(.google.com.*)/) {
            print $x . "http://" . $1  . $2 . "\n";
            
    		#ini untuk cache partial
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(range=[0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";
    
    		# compatibility for old cached get_video?video_id
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(videoplayback\?id=.*?|video_id=.*?)\&(.*?)/) {
            $z = $2; $z =~ s/video_id=/get_video?video_id=/;
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
            
                            # youtube All itag (semua resolusi)
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(itag=[0-9]*).*?\&(id=[a-zA-Z0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . "&" . $3 . "\n";
    
                            # youtube All itag (semua resolusi) posisi kebalikan
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(itag=[0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $3 . "&" . $2 . "\n";
    
    			#Google
    } elsif (m/^http:\/\/www\.google-analytics\.com\/__utm\.gif\?.*/) {
            print $x . "http://www.google-analytics.com/__utm.gif\n";
    
                            #Cache High Latency Ads
    } elsif (m/^http:\/\/([a-z0-9.]*)(\.doubleclick\.net|\.quantserve\.com|\.googlesyndication\.com|yieldmanager|cpxinteractive)(.*)/) {
            $y = $3;$z = $2;
            for ($y) {
            s/pixel;.*/pixel/;
            s/activity;.*/activity/;
            s/(imgad[^&]*).*/\1/;
            s/;ord=[?0-9]*//;
            s/;×tamp=[0-9]*//;
            s/[&?]correlator=[0-9]*//;
            s/&cookie=[^&]*//;
            s/&ga_hid=[^&]*//;
            s/&ga_vid=[^&]*//;
            s/&ga_sid=[^&]*//;
            # s/&prev_slotnames=[^&]*//
            # s/&u_his=[^&]*//;
            s/&dt=[^&]*//;
            s/&dtd=[^&]*//;
            s/&lmt=[^&]*//;
            s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&ref=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&cookie=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/[;&?]ord=[?0-9]*//;
            s/[;&]mpvid=[^&;]*//;
            s/&xpc=[^&]*//;
            # yieldmanager
            s/\?clickTag=[^&]*//;
            s/&u=[^&]*//;
            s/&slotname=[^&]*//;
            s/&page_slots=[^&]*//;
            }
            print $x . "http://" . $1 . $2 . $y . "\n";
    
                            #cache high latency ads
    } elsif (m/^http:\/\/(.*?)\/(ads)\?(.*?)/) {
            print $x . "http://" . $1 . "/" . $2  . "\n";
    
    } elsif (m/^http:\/\/(www\.ziddu\.com.*\.[^\/]{3,4})\/(.*?)/) {
            print $x . "http://" . $1 . "\n";
    
                            #cdn, varialble 1st path
    } elsif (($u =~ /filehippo/) && (m/^http:\/\/(.*?)\.(.*?)\/(.*?)\/(.*)\.([a-z0-9]{3,4})(\?.*)?/)) {
            @y = ($1,$2,$4,$5);
            $y[0] =~ s/[a-z0-9]{2,5}/cdn./;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            #rapidshare
    } elsif (($u =~ /rapidshare/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?)([a-z]*\.[^\/]{3}\/[a-z]*\/[0-9]*)\/(.*?)\/([^\/\?\&]{4,})$/)) {
            print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";
    
    } elsif (($u =~ /maxporn/) && (m/^http:\/\/([^\/]*?)\/(.*?)\/([^\/]*?)(\?.*)?$/)) {
            print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";
            
                            #domain/path/.*/path/filename
    } elsif (($u =~ /fucktube/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?[^\/]*\/[^\/]*)\/(.*)\/([^\/]*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
            @y = ($1,$2,$4,$5,$6);
            $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";
    
                            #like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
    } 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})(\?.*)?$/)) {
            print $x . "http://cdn." . $4 . $6 . "\n";
    
                            #for yimg.com video
    } elsif (m/^http:\/\/(.*yimg.com)\/\/(.*)\/([^\/\?\&]*\/[^\/\?\&]*\.[^\/\?\&]{3,4})(\?.*)?$/) {
            print $x . "http://cdn.yimg.com//" . $3 . "\n";
            
                            #for yimg.com doubled
    } elsif (m/^http:\/\/(.*?)\.yimg\.com\/(.*?)\.yimg\.com\/(.*?)\?(.*)/) {
            print $x . "http://cdn.yimg.com/"  . $3 . "\n";
    
                            #for yimg.com with &sig=
    } elsif (m/^http:\/\/([^\.]*)\.yimg\.com\/(.*)/) {
            @y = ($1,$2);
            $y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
            $y[1] =~ s/&sig=.*//;
            print $x . "http://" . $y[0] . ".yimg.com/"  . $y[1] . "\n";
                            
                            #youjizz. We use only domain and filename
    } elsif (($u =~ /media[0-9]{1,5}\.youjizz/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?\.[^\/]*)\/(.*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
            @y = ($1,$2,$4,$5);
            $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            #general purpose for cdn servers. add above your specific servers.
    } elsif (m/^http:\/\/([0-9.]*?)\/\/(.*?)\.(.*)\?(.*?)/) {
            print $x . "http://squid-cdn-url//" . $2  . "." . $3 . "\n";
    
                            # spicific extention
    # } elsif (m/^http:\/\/(.*?)\.(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|swf).*?/) {
            # @y = ($1,$2);
            # $y[0] =~ s/((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
            # print $x . "http://" . $y[0] . "." . $y[1] . "\n";
    
                            #generic http://variable.domain.com/path/filename."ex", "ext" or "exte"
                            #http://cdn1-28.projectplaylist.com
                            #http://s1sdlod041.bcst.cdn.s1s.yimg.com
    } elsif (m/^http:\/\/(.*?)(\.[^\.\-]*?\..*?)\/([^\?\&\=]*)\.([\w\d]{2,4})\??.*$/) {
            @y = ($1,$2,$3,$4);
            $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
            print $x . "storeurl://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            # all that ends with ;
    } elsif (m/^http:\/\/(.*?)\/(.*?)\;(.*)/) {
            print $x . "http://" . $1 . "/" . $2  . "\n";
    
    } else {
            print $x . $_ . "\n";
    }
    }
    storeurl asli dari link berikut

    sedangkan soreurl editan saya berada di

    mohon maaf karena saya masih copas kepunyaan cudi hanya edit sedikit

    terimakasih
    mantafff....Click here to enlarge

  14. #12
    Status
    Offline
    ucok_karnadi's Avatar
    ..:: Masih Bodoh ::..
    Join Date
    Jan 2009
    Location
    PATI - JAWA TENGAH
    Posts
    1,178
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    yg sudah ujicoba patut kasih komentar agar yg lain tau bahwa itu error atau tidak, jangan sekedar pakai lalu diam, sedangkan ada teman yg lain masih error sehingga membuat yg bersangkutan berasumsi bahwa scriptnya memang error
    ___________________________________________


  15. #13
    Status
    Offline
    tukang kuli's Avatar
    Newbie
    Join Date
    Sep 2011
    Posts
    25
    Reviews
    Read 0 Reviews
    Downloads
    0
    Uploads
    0
    Feedback Score
    0
    Click here to enlarge Originally Posted by ucok_karnadi Click here to enlarge
    mohon maaf kalau repost berikut baris per baris dari storeurl yg telah di edit agar youtube tidak error. sudah di test dibeberapa tempat

    Code:
    #!/usr/bin/perl
    # $Rev$
    # by chudy_fernandez@yahoo.com
    # rev by ucok_karnadi@yahoo.com
    # rev date 02/04/2012
    # visit my facebook account http://www.facebook.com/stressss
    
    $|=1;
    while (<>) {
        @X = split;
    #       $X[1] =~ s/&sig=.*//;
            $x = $X[0] . " ";
            $_ = $X[1];
            $u = $X[1];
    
                            #photos-X.ak.fbcdn.net where X a-z
    if (m/^http:\/\/photos-[a-z]?(.ak.fbcdn.net.*)/) {
            print $x . "http://photos" . $1  . "\n";
    
    			# photo
    } elsif (m/^http:\/\/photos-ash[1-5]?(.fbcdn.net.*)/) {
            print $x . "http://ash.photos" . $1  . "\n";
    	
                           #photos.ak.fbcdn.net where X i(0-9)
                            #a5.sphotos.ak.fbcdn.ne
    } elsif (m/^http:\/\/[a-z][0-9]?.(sphotos.ak.fbcdn.net.*)/) {
            print $x . "http://cdn.photos" . $1  . "\n";
    
    			#BLOGSPOT
    } elsif (m/^http:\/\/[1-4].bp.(blogspot.com.*)/) {
            print $x . "http://blog-cdn." . $1  . "\n";
    
                             #AVAST
    } elsif (m/^http:\/\/download[0-9]{3}.(avast.com.*)/) {
              print $x . "http://avast-cdn." . $1  .  "\n";
    
                             #KAV
    } elsif (m/^http:\/\/dnl-[0-9]{2}.(geo.kaspersky.com.*)/) {
              print $x . "http://kav-cdn." . $1  .  "\n";
    
                             #AVG
    } elsif (m/^http:\/\/update.avg.com/) {
              print $x . "http://avg-cdn." . $1  .  "\n";
    
                            #maps.google.com
    } elsif (m/^http:\/\/(cbk|mt|khm|mlt|tbn)[0-9]?(.google\.co(m|\.uk|\.id).*)/) {
            print $x . "http://" . $1  . $2 . "\n";
    
                            #gstatic and/or wikimapia
    } elsif (m/^http:\/\/([a-z])[0-9]?(\.gstatic\.com.*|\.wikimapia\.org.*)/) {
            print $x . "http://" . $1  . $2 . "\n";
    
                            #maps.google.com
    } elsif (m/^http:\/\/(khm|mt)[0-9]?(.google.com.*)/) {
            print $x . "http://" . $1  . $2 . "\n";
            
    		#ini untuk cache partial
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(range=[0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . $3 . "\n";
    
    		# compatibility for old cached get_video?video_id
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(videoplayback\?id=.*?|video_id=.*?)\&(.*?)/) {
            $z = $2; $z =~ s/video_id=/get_video?video_id=/;
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $z . "\n";
            
                            # youtube All itag (semua resolusi)
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(itag=[0-9]*).*?\&(id=[a-zA-Z0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $2 . "&" . $3 . "\n";
    
                            # youtube All itag (semua resolusi) posisi kebalikan
    } elsif (m/^http:\/\/([0-9.]{4}|.*\.youtube\.com|.*\.googlevideo\.com|.*\.video\.google\.com).*?(id=[a-zA-Z0-9]*).*?\&(itag=[0-9]*).*/) {
            print $x . "http://video-srv.youtube.com.SQUIDINTERNAL/" . $3 . "&" . $2 . "\n";
    
    			#Google
    } elsif (m/^http:\/\/www\.google-analytics\.com\/__utm\.gif\?.*/) {
            print $x . "http://www.google-analytics.com/__utm.gif\n";
    
                            #Cache High Latency Ads
    } elsif (m/^http:\/\/([a-z0-9.]*)(\.doubleclick\.net|\.quantserve\.com|\.googlesyndication\.com|yieldmanager|cpxinteractive)(.*)/) {
            $y = $3;$z = $2;
            for ($y) {
            s/pixel;.*/pixel/;
            s/activity;.*/activity/;
            s/(imgad[^&]*).*/\1/;
            s/;ord=[?0-9]*//;
            s/;×tamp=[0-9]*//;
            s/[&?]correlator=[0-9]*//;
            s/&cookie=[^&]*//;
            s/&ga_hid=[^&]*//;
            s/&ga_vid=[^&]*//;
            s/&ga_sid=[^&]*//;
            # s/&prev_slotnames=[^&]*//
            # s/&u_his=[^&]*//;
            s/&dt=[^&]*//;
            s/&dtd=[^&]*//;
            s/&lmt=[^&]*//;
            s/(&alternate_ad_url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&url=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&ref=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/(&cookie=http%3A%2F%2F[^(%2F)]*)[^&]*/\1/;
            s/[;&?]ord=[?0-9]*//;
            s/[;&]mpvid=[^&;]*//;
            s/&xpc=[^&]*//;
            # yieldmanager
            s/\?clickTag=[^&]*//;
            s/&u=[^&]*//;
            s/&slotname=[^&]*//;
            s/&page_slots=[^&]*//;
            }
            print $x . "http://" . $1 . $2 . $y . "\n";
    
                            #cache high latency ads
    } elsif (m/^http:\/\/(.*?)\/(ads)\?(.*?)/) {
            print $x . "http://" . $1 . "/" . $2  . "\n";
    
    } elsif (m/^http:\/\/(www\.ziddu\.com.*\.[^\/]{3,4})\/(.*?)/) {
            print $x . "http://" . $1 . "\n";
    
                            #cdn, varialble 1st path
    } elsif (($u =~ /filehippo/) && (m/^http:\/\/(.*?)\.(.*?)\/(.*?)\/(.*)\.([a-z0-9]{3,4})(\?.*)?/)) {
            @y = ($1,$2,$4,$5);
            $y[0] =~ s/[a-z0-9]{2,5}/cdn./;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            #rapidshare
    } elsif (($u =~ /rapidshare/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?)([a-z]*\.[^\/]{3}\/[a-z]*\/[0-9]*)\/(.*?)\/([^\/\?\&]{4,})$/)) {
            print $x . "http://cdn." . $3 . "/SQUIDINTERNAL/" . $5 . "\n";
    
    } elsif (($u =~ /maxporn/) && (m/^http:\/\/([^\/]*?)\/(.*?)\/([^\/]*?)(\?.*)?$/)) {
            print $x . "http://" . $1 . "/SQUIDINTERNAL/" . $3 . "\n";
            
                            #domain/path/.*/path/filename
    } elsif (($u =~ /fucktube/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?[^\/]*\/[^\/]*)\/(.*)\/([^\/]*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
            @y = ($1,$2,$4,$5,$6);
            $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";
    
                            #like porn hub variables url and center part of the path, filename etention 3 or 4 with or without ? at the end
    } 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})(\?.*)?$/)) {
            print $x . "http://cdn." . $4 . $6 . "\n";
    
                            #for yimg.com video
    } elsif (m/^http:\/\/(.*yimg.com)\/\/(.*)\/([^\/\?\&]*\/[^\/\?\&]*\.[^\/\?\&]{3,4})(\?.*)?$/) {
            print $x . "http://cdn.yimg.com//" . $3 . "\n";
            
                            #for yimg.com doubled
    } elsif (m/^http:\/\/(.*?)\.yimg\.com\/(.*?)\.yimg\.com\/(.*?)\?(.*)/) {
            print $x . "http://cdn.yimg.com/"  . $3 . "\n";
    
                            #for yimg.com with &sig=
    } elsif (m/^http:\/\/([^\.]*)\.yimg\.com\/(.*)/) {
            @y = ($1,$2);
            $y[0] =~ s/[a-z]+([0-9]+)?/cdn/;
            $y[1] =~ s/&sig=.*//;
            print $x . "http://" . $y[0] . ".yimg.com/"  . $y[1] . "\n";
                            
                            #youjizz. We use only domain and filename
    } elsif (($u =~ /media[0-9]{1,5}\.youjizz/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?\.[^\/]*)\/(.*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
            @y = ($1,$2,$4,$5);
            $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
            print $x . "http://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            #general purpose for cdn servers. add above your specific servers.
    } elsif (m/^http:\/\/([0-9.]*?)\/\/(.*?)\.(.*)\?(.*?)/) {
            print $x . "http://squid-cdn-url//" . $2  . "." . $3 . "\n";
    
                            # spicific extention
    # } elsif (m/^http:\/\/(.*?)\.(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|zip|on2|mar|swf).*?/) {
            # @y = ($1,$2);
            # $y[0] =~ s/((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
            # print $x . "http://" . $y[0] . "." . $y[1] . "\n";
    
                            #generic http://variable.domain.com/path/filename."ex", "ext" or "exte"
                            #http://cdn1-28.projectplaylist.com
                            #http://s1sdlod041.bcst.cdn.s1s.yimg.com
    } elsif (m/^http:\/\/(.*?)(\.[^\.\-]*?\..*?)\/([^\?\&\=]*)\.([\w\d]{2,4})\??.*$/) {
            @y = ($1,$2,$3,$4);
            $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
            print $x . "storeurl://" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
    
                            # all that ends with ;
    } elsif (m/^http:\/\/(.*?)\/(.*?)\;(.*)/) {
            print $x . "http://" . $1 . "/" . $2  . "\n";
    
    } else {
            print $x . $_ . "\n";
    }
    }
    storeurl asli dari link berikut

    sedangkan soreurl editan saya berada di

    mohon maaf karena saya masih copas kepunyaan cudi hanya edit sedikit

    terimakasih
    sudah beberapa putar video youtube hasilnya lancar pa' cik...
    thanks sangat...

  16. #14
    Status
    Offline
    fithendriyanto's Avatar
    Baru Gabung
    Join Date
    May 2008
    Posts
    8
    Reviews
    Read 0 Reviews
    Downloads
    2
    Uploads
    0
    Feedback Score
    0
    wah mantap nih, dicoba dulu ahhhhh.......

    makasih om kalo ada error nanti di kasih tau lagi

  17. #15
    Status
    Offline
    cqutel's Avatar
    Baru Gabung
    Join Date
    Feb 2010
    Posts
    18
    Reviews
    Read 0 Reviews
    Downloads
    1
    Uploads
    0
    Feedback Score
    0
    huaaaahaaa... di aku malahan jadi ora iso ngecache... hhee... erorrisme euy... storeurlnya.. mungkin ada yang salah kali yah... punyaku... hhee... lagi nyoba neh... di ambil dikit aja...

 

 
Page 1 of 119 1231151101 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 4 users browsing this thread. (0 members and 4 guests)

Similar Threads

  1. Replies: 26
    Last Post: 30-03-2013, 12:11
  2. [ASK] Layer 7 untuk proxy khusus youtube
    By fadhli in forum General Networking
    Replies: 11
    Last Post: 17-01-2013, 22:45
  3. [ASK] Layer 7 untuk proxy khusus youtube
    By fadhli in forum General Networking
    Replies: 6
    Last Post: 27-03-2012, 22:35
  4. Replies: 175
    Last Post: 16-07-2010, 14:38

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •