Senin, 18 Juni 2018

Storeurl.pl

#!/usr/bin/perl
# FATHAYU

$|=1;
while (<>) {
@X = split;
        $x = $X[0] . " ";
# ==========================================================================
# YOUTUBE
# ==========================================================================
if ($X[1] =~ m/^http\:\/\/.*(youtube|google).*videoplayback.*/){
@itag = m/[&?](itag=[0-9]*)/;
@CPN = m/[&?]cpn\=([a-zA-Z0-9\-\_]*)/;
        @IDS = m/[&?]id\=([a-zA-Z0-9\-\_]*)/;
        $id = &GetID($CPN[0], $IDS[0]);
        @range = m/[&?](range=[^\&\s]*)/;
        print $x . "http://fathayu/" . $id . "&@itag@range\n";
#} elsif ($X[1] =~ m/(youtube|google).*videoplayback\?/ ){
# @itag = m/[&?](itag=[0-9]*)/;
#        @id = m/[&?](id=[^\&]*)/;
#        @redirect = m/[&?](redirect_counter=[^\&]*)/;
#        print $x . "http://fathayu/";
# ==========================================================================
# DAILYMOTION
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/proxy-\d*\.sg1\.dailymotion\.com\/(.*)\/(.*)\/video\/\d*\/\d*\/.*/) {
print $x . "http://fathayu/" . $1 . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/proxy-\d*\.dailymotion\.com\/(.*)\/(.*)\/video\/\d*\/\d*\/.*/) {
print $x . "http://fathayu/" . $1 . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/vid2\.ak\.dmcdn\.net\/(.*)\/(.*)\/video\/\d*\/\d*\/.*/) {
print $x . "http://fathayu/" . $1 . $2 . "\n";
# ==========================================================================
# VIMEO
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/av\.vimeo\.com\/\d*\/\d*\/(.*)\?/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/pdl\.vimeocdn\.com\/\d*\/\d*\/(.*)\?/) {
print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
# GAME ONLINE
# ==========================================================================
#Chagu chagu
} elsif ($X[1] =~ m/^http:\/\/update2\.netmarble\.co\.id\/Chagu\/REAL_Server_Patch\/(.*)\?/) {
  print $x . "http://fathayu/" . $1 . "\n";
#Tales Hero Update
} elsif ($X[1] =~ m/^http:\/\/patch\.gemscool\.com\/th\/patch\/.*\/(.*.pkg)/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/patch\.gemscool\.com\/th\/patch\/.*\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
#Dragonnest
} elsif ($X[1] =~ m/^http:\/\/patch\.gemscool\.com\/dragonnest\/live\/\d*\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
#Fifa-Online
} elsif ($X[1] =~ m/^http:\/\/202\.158\.252\.194\/(.*.(erl|exe|des|daf|))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Modoo-Marble
} elsif ($X[1] =~ m/^http:\/\/update1\.netmarble\.co\.id\/modoo\/patch\/ModooMarble\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
#Atlantic Pacth
} elsif ($X[1] =~ m/^http:\/\/.*\.atlantica\.gemscool\.com\/(.*.(exe|dll|cab|dat|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Freestyle
} elsif ($X[1] =~ m/^http:\/\/file\.fs\.gemscool\.com\/JCE\/(.*.(exe|dll|cab|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#GrandChase Pacth
} elsif ($X[1] =~ m/^http:\/\/122\.102\.49\.202\/cp\/(.*.(exe|dll|cab|dat|zip|kom|stg|xt))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Warrock Pacth
} elsif ($X[1] =~ m/^http:\/\/122\.102\.49\.175\/(.*.(exe|dll|cab|dat|zip|nzp|lst))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Xshot online
} elsif ($X[1] =~ m/^http:\/\/.*\.winnerinter\.co\.id\/(.*.zip)/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/patchverxshot\.winnerinter\.co\.id\/new_autopatch\/(.*.exe)/) {
print $x . "http://fathayu/" . $1 . "\n";
#DriftCity Pacth
} elsif ($X[1] =~ m/^http:\/\/202\.78\.197\.88\/(.*.(exe|dll|cab|dat|zip|bin|part))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Ayodance Pacth
} elsif ($X[1] =~ m/^http:\/\/122\.102\.49\.132\/(.*.(exe|dll|cab|dat|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Grand Fantasia Online
} elsif ($X[1] =~ m/^http:\/\/patch\.gfo\.web\.id\/ELF\/(.*.(exe|dll|cab|lst|bz2|dat|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Rom Pacth
} elsif ($X[1] =~ m/^http:\/\/rom-patch\.romonline\.web\.id\/patch\/(.*.(exe|dll|cab|dat|zip|pkg))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Sealindo Pacth
} elsif ($X[1] =~ m/^http:\/\/.*\.sealindo\.com\/patch\/(.*.(htm|ini|exe|dll|cab|dat|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Idol-street Patch
} elsif ($X[1] =~ m/^http:\/\/202\.93\.17\.199\/(.*.(exe|dll|cab|dat|zip|pkg|pck))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Rohan Patch
} elsif ($X[1] =~ m/^http:\/\/patch\.rohan\.web\.id\/idpatch\/bitmaps\/interface4\/.*\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
#Perfectworld Patch
} elsif ($X[1] =~ m/^http:\/\/.*\.patch3\.perfectworld\.web\/.id\/(.*.(exe|dll|cab|dat|zip|lst|pkg|pck))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Luna Patch
} elsif ($X[1] =~ m/^http:\/\/patch3\.luna\.web\.id\/(.*.(exe|dll|cab|dat|zip|lst|pkg|pck))/) {
print $x . "http://fathayu/" . $1 . "\n";
#3kingdoms Patch
} elsif ($X[1] =~ m/^http:\/\/.*\.3kingdom\.net\/(.*.(exe|dll|cab|dat|zip|lst|pkg|pck))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Emil chronicle online Patch
} elsif ($X[1] =~ m/^http:\/\/.*\.patch\.econline\.web\/id\/eco\/patch\/(.*.(exe|dll|cab|dat|zip|lst|pkg|pck))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Xen online Patch  gogame
} elsif ($X[1] =~ m/^http:\/\/download\.gogame\.co\.id\/dnc\/(.*.(xz|dll|cab|dat|zip|lst|pkg))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Cabal Online Patch
} elsif ($X[1] =~ m/^http:\/\/.*\.cabalonline\.co\.id\/(.*.(cab|zip|exe|rar|dat))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Fly for fun Flyff
} elsif ($X[1] =~ m/^http:\/\/202\.59\.255\.20\.Neurospace\.ResClient\/(.*.(gz|dll|cab|dat|zip|exe|))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Micro Volts Indonesia
} elsif ($X[1] =~ m/^http:\/\/.*\.microvolts\.web\.id\/(.*.(cab|zip|exe|rar))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Cross file
} elsif ($X[1] =~ m/^http:\/\/patch\.crossfire\.web\.id\/download\/.*\/(.*.(exe|rar|cab|dat|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Avalon
} elsif ($X[1] =~ m/^http:\/\/.*\.lytogame\.com\/(.*.(RTP|apf|zip|nzp|txt|dat|exe|vpu))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Dragonica
} elsif ($X[1] =~ m/^http:\/\/202\.158\.252\.67:6345\/(.*.(dat|exe|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#sc qeon
} elsif ($X[1] =~ m/^http:\/\/patch\.sc\.qeon\.co\/.id\/.*\/(.*.(exe|dll|cab|dat|zip))/) {
print $x . "http://fathayu/" . $1 . "\n";
#GameCoId
} elsif ($X[1] =~ m/^http:\/\/.*\.agame\.com\/(.*.(swf|dcr))/) {
print $x . "http://fathayu/" . $1 . "\n";
#Divine Soul
} elsif ($X[1] =~ m/^http:\/\/.*\.outspark\.com\/divinesouls\/(.*.(exe|rtp|dll|dfp))/) {
print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
# METRO TV
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/cdn\.metrotvnews\.com\/videos\/\d{4}\/\d{2}\/\d{2}\/\d*\/(.*.mp4)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   YIMG
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*yimg.com)\/\/(.*)\/([^\/\?\&]*\/[^\/\?\&]*\.[^\/\?\&]{3,4})(\?.*)?$/) {
        print $x . "http://fathayu/" . $3 . "\n";
# ==========================================================================
#   YIMG DOUBLE
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*?)\.yimg\.com\/(.*?)\.yimg\.com\/(.*?)\?(.*)/) {
        print $x . "http://fathayu/" . $3 . "\n";
# ==========================================================================
# YTIMG
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/i[1-4]\.ytimg\.com(.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
# ==========================================================================
#   PORN Movies
# ==========================================================================
} elsif (($X[1] =~ /maxporn/) && (m/^http:\/\/([^\/]*?)\/(.*?)\/([^\/]*?)(\?.*)?$/)) {
        print $x . "http://fathayu/" . $1 . "/" . $3 . "\n";
} elsif (($X[1] =~ /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://fathayu/" . $4 . $6 . "\n";
} elsif (($u =~ /tube8|redtube|hardcore-teen|pornhub|tubegalore|xvideos|hostedtube|pornotube|redtubefiles/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?(\.[a-z]*)?)\.([a-z]*[0-9]?\.[^\/]{3}\/[a-z]*)(.*?)((\/[a-z]*)?(\/[^\/]*){4}\.[^\/\?]{3,4})(\?.*)?$/)) {
        print $x . "http://fathayu/" . $4 . $6 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.xvideos\.com\/.*\/([\w\d\-\.\%]*\.(3gp|mpg|flv|mp4))\?.*/){
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/porn\.im\.\w*\.\d*\.x\.xvideos\.com\/videos\/flv\/([a-z]|[0-9])\/([a-z]|[0-9])\/([a-z]|[0-9])\/(.*.flv)\?/){
        print $x . "http://fathayu/" . $4 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\d]+\.[\d]+\.[\d]+\.[\d]+\/.*\/xh.*\/([\w\d\-\.\%]*\.flv)/){
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\d]+\.[\d]+\.[\d]+\.[\d]+.*\/([\w\d\-\.\%]*\.flv)\?start=0/){
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.youjizz\.com.*\/([\w\d\-\.\%]*\.(mp4|flv|3gp))\?.*/){
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\w\d\-\.\%]*\.keezmovies[\w\d\-\.\%]*\.com.*\/([\w\d\-\.\%]*\.(mp4|flv|3gp|mpg|wmv))\?.*/){
        print $x . "http://fathayu/" . $1 . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\w\d\-\.\%]*\.tube8[\w\d\-\.\%]*\.com.*\/([\w\d\-\.\%]*\.(mp4|flv|3gp|mpg|wmv))\?.*/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\w\d\-\.\%]*\.youporn[\w\d\-\.\%]*\.com.*\/([\w\d\-\.\%]*\.(mp4|flv|3gp|mpg|wmv))\?.*/){
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\w\d\-\.\%]*\.spankwire[\w\d\-\.\%]*\.com.*\/([\w\d\-\.\%]*\.(mp4|flv|3gp|mpg|wmv))\?.*/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\w\d\-\.\%]*\.pornhub[\w\d\-\.\%]*\.com.*\/([[\w\d\-\.\%]*\.(mp4|flv|3gp|mpg|wmv))\?.*/){
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   4shared
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/dc\d*\.4shared\.com\/download\/.*\/(.*)\?/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[a-z]{2}\d{3}\.4shared\.com\/img\/(.*)\/(.*)\/dlink__2Fdownload_2F(.*)_3Ftsid_3D(.*)-[0-9]+-\w+_(.*)_3D1000_26sbsr_3D\w+\/preview.mp3/) {
        print $x . "http://fathayu/" . $2 . "\n";
# ==========================================================================
#   Game FB
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/cityvillefb[0-3]?(.static.zgncdn.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
} elsif ($X[1] =~ m/^http:\/\/playerstatics[1-9]?(.poker.static.zynga.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
} elsif ($X[1] =~ m/^http:\/\/zynga[1-9]?-a(.akamaihd.net.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
} elsif ($X[1] =~ m/^http:\/\/s[1-9]?(.ninja.game321.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
# ==========================================================================
# GOOGLE
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/redirector\.gvt1\.com\/edgedl\/chrome\/win\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.gvt1\.com\/edgedl\/chrome\/win\/(.*)\?/) {
print $x . "http://fathayu/" . $1 . "\n";

} elsif ($X[1] =~ m/^http:\/\/.*\.c\.pack\.google\.com\/edgedl\/chrome\/win\/(.*)\?/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*\.google\.com)\/(edgedl\/[^\?\&\=]*\.[a-z]{3,4})(\?.*)?$/) {
        print $x . "http://fathayu/" . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(cbk|mt|khm|mlt|tbn)[0-9]?(.google\.co(m|\.uk|\.id).*)/) {
        print $x . "http://fathayu/" . $1 . $2 . "\n";
} elsif (($X[1] =~ /(khm|khms|cbk|cbks|mt|mw|mlt|mts)[0-9]\.(google|googleapis)\.co(m|\.uk|\.id)/) && (m/^http:\/\/([^\/]*?)\/(.*)/)) {
        print $x . "http://fathayu/" . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(kh|mt|khm|cbk|t)[0-9]?(.google\.co(m|\.id).*)/) {
        print $x . "http://fathayu/" . $1  . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(khm|mt)[0-9]?(.google.com.*)/) {
        print $x . "http://fathayu/" . $1  . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.[a-z][0-9]\.(tiles\.virtualearth\.net)\/(.*\&n=z)/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/imgv2-[0-9](\.scribdassets\.com.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/([a-z])[0-9]?(\.gstatic\.com.*|\.wikimapia\.org.*)/) {
        print $x . "http://fathayu/" . $1  . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/([a-z])[\d]{1,2}?(.gstatic\.com.*|\.wikimapia\.org.*)/) {
        print $x . "http://fathayu/" . $1 . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/t[1-9]?(.gstatic.com.*)/) {
        print $x . "http://fathayu/" . $1  .  "\n";
} elsif ($X[1] =~ m/^http\:\/\/.*(pack.google.com.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";

} elsif ($X[1] =~ m/^http:\/\/cache\.pack\.google\.com\/crx\/blobs\/.*\/(.*)\?/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.c\.pack\.google\.com\/crx\/blobs\/.*\/(.*)\?\?/) {
        print $x . "http://fathayu/" . $1 . "\n";

} elsif ($X[1] =~ m/^http:\/\/video.google.com\/ThumbnailServer.*/) {
        @id = m/[&?](contentid=[\w\d\-\.\%]*)/;
        @itag = m/[&?](itag=[\w\d\-\.\%]*)/;
        @set = m/[&?](offsetms=[^\&\s]*)/;
        print $x . "http://fathayu/";
} elsif ($X[1] =~ m/^http:\/\/video.google.com\/ThumbnailServer.*/) {
        @id = m/[&?](contentid=[a-zA-Z0-9\-\_\.\%]*)/;
        @itag = m/[&?](itag=[a-zA-Z0-9\-\_\.\%]*)/;
        @set = m/[&?](offsetms=[^\&\s]*)/;
        print $x . "http://fathayu/";
} elsif ($X[1] =~ m/^http:\/\/lh[3-6]?(.googleusercontent.com.*)/) {
        print $x . "http://fathayu/" . $1  .  "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.c\.pack\.google\.com\/edgedl\/drive\/(.*)\/gsync.msi\?/) {
        print $x . "http://fathayu/" . $1  .  "\n";
# ==========================================================================
#   Ubuntu Update
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(ubuntu\/[a-zA-Z].*\/os\/.*)/) {
        print $x . "http://fathayu/" . $2 . "\n";
# ==========================================================================
#   photobucket
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/i[1-9]{3}(.photobucket.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
} elsif ($X[1] =~ m/^http:\/\/i[1-9]{4}(.photobucket.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
# ==========================================================================
#   Game Garenanow
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/dl\.garenanow.com\/hon\/patcher\/(.*\.(exe|zip))\?/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/cdn\.id\.garenanow\.com\/games\/fo3id\/patcher\/(.*.exe)\?/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/garena\.edge\.cdn\.starhub\.com\/garenaid\/fo3id\/patcher\/(.*.exe)\?/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Steam Dota2
# ==========================================================================
} elsif ($X[1] =~ m/^http\:\/\/valve[0-9]*\.cs\.steampowered\.com\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   acl store_rewrite_list url_regex -i \.edgesuite\.net/(.*)
# ==========================================================================
} elsif ($X[1] =~ m/^http\:\/\/[a-z0-9]*\.hsar\.steampowered\.com\.edgesuite\.net\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Firefox Checked
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/.*?firefox\/releases\/(.*?)\/(firefox.*(mar|exe)?$)/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "\n";
# ==========================================================================
#   Mozilla Update Partial
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(firefox\/releases)\/(.*?[a-z]{3})$/) {
        print $x . "http://fathayu/" . $2 . "/" . $3  . "\n";
} elsif ($X[1] =~ m/^http:\/\/download\.cdn\.mozilla\.net\/pub\/firefox\/releases\/.*\/update\/win32\/en-US\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Mozilla update
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(firefox\/releases\/.*)/) {
        print $x . "http://fathayu/" . $2 . "\n";
# ==========================================================================
#   Windows Update
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/i[1-9]{3}(.windowsupdate.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
} elsif ($X[1] =~ m/^http:\/\/au\.download\.windowsupdate\.com\/msdownload\/update\/software\/.*\/\d*\/\d*\/(.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
} elsif ($X[1] =~ m/^http:\/\/download\.windowsupdate\.com\/.*\/msdownload\/update\/software\/defu\/\d{4}\/\d{2}\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Blogpost Checked
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/[0-9]?.bp.blogspot\.com\/(.*)\/s.*?\/(.*(jpg|png|gif)?$)/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/[1-4]\.bp\.(blogspot\.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
# ==========================================================================
#   ggpht.com
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/lh[0-9]?.ggpht.com\/(.*?)\/(.*?)\/(.*?)\/(.*)\/(.*)?$/) {
        print $x . "http://fathayu/"  . $1 . "/" .  $2 . "/" . $4 .  "/" .  $5 . "\n";
# ==========================================================================
#   twimg.com
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/a[0-5]?(.twimg.com.*)/) {
        print $x . "http://fathayu/" . $1  .  "\n";
# ==========================================================================
#   AVAST
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/download[0-9]{3}.(avast.com.*)/) {
        print $x . "http://fathayu/" . $1  .  "\n";
# ==========================================================================
#   KAV
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/dnl-[0-9]{2}.(geo.kaspersky.com.*)/) {
        print $x . "http://fathayu/" . $1  .  "\n";
# ==========================================================================
#   AVG
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/update.avg.com/) {
        print $x . "http://fathayu/" . $1  .  "\n";
# ==========================================================================
#   Aplikasi Android
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*\.android\.clients\.google\.com)\/(market\/[^\?\&\=]*)(\?.*)?$/) {
        print $x . "http://fathayu/" . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.c\.android\.clients\.google\.com\/market\/GetBinary\/([a-zA-Z0-9\-\_\.\%]*)\/([0-9]*)\/.*/){
        print $x . "http://fathayu/" . $1 . "/" . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.c\.android\.clients\.google\.com\/market\/GetBinary\/([a-zA-Z0-9\-\_\.\%]*)\/([0-9]*)\?.*/){
        print $x . "http://fathayu/" . $1 . "/" . $2 . "\n";
# ==========================================================================
#   APPS APPLE
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/[a-zA-Z0-9\-\_\.\%]*phobos\.apple\.com\/.*\/([a-zA-Z0-9\-\_\.\%]*\.ipa)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Sourceforge mirror download
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*\.dl\.sourceforge\.net)\/(.*)/) {
        print $x . "http://fathayu/" . $2 . "\n";
# ==========================================================================
#   Speedtest
# ==========================================================================
} elsif ($X[1] =~ m/^http\:\/\/.*\/speedtest\/([a-zA-Z0-9\-\_\.\%]*\.(jpg|txt|png|swf))\?.*/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http\:\/\/.*\/speedtest\/(.*\.(jpg|txt)).*/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Mediafire
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/199\.91\.15\d\.\d*\/\w{12}\/(\w*)\/(.*)/) {
        print $x . "http://fathayu/" . $1 ."/" . $2 . "\n";
} elsif ($X[1] =~ m/^http:\/\/199\.91\.15\d\.\d*\/(.*)\/(\w*)\/(.*)/) {
        print $x . "http://fathayu/" . $2 . "/" . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/205\.196\.12\d\.\d*\/(.*)\/(\w*)\/(.*)/) {
        print $x . "http://fathayu/" . $2 . "/" . $3 . "\n";
# ==========================================================================
#   IPV4
# ==========================================================================
} elsif (($X[1] =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/) && (m/^http:\/\/([^\/]*?)\/(thumbs|flv|key=|content).*?\/([^\/\?\&]*\.[\w\d]{3})\??.*$/)) {
        print $x . "http://fathayu/" . $3 . "\n";
} elsif (($X[1] =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/) && (m/^http:\/\/([^\/]*?)\/remote_control.php.*?(file=.*)/)) {
        print $x . "http://fathayu/" . $2 . "\n";
} elsif (($X[1] =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/) && (m/^http:\/\/([^\/]*?)\/(.*\/[a-z]*\/thumbs.*)/)) {
        print $x . "http://fathayu/" . $2 . "\n";
} elsif (($X[1] =~ /([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/) && (m/^http:\/\/([^\/]*?)\/(.*\/t\/([^\?\&\=]*\.[a-z]{3}))$/)) {
        print $x . "http://fathayu/" . $2 . "\n";
# ==========================================================================
#   ziddu
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(www\.ziddu\.com.*\.[^\/]{3,4})\/(.*?)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Fileserve
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/fs\w*\.fileserve\.com\/file\/(\w*)\/[\w-]*\.\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "./" . $2 . "\n";
# ==========================================================================
#   Filesonic
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/s[0-9]*\.filesonic\.com\/download\/([0-9]*)\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   Rapidshare
# ==========================================================================
} elsif (($X[1] =~ /rapidshare/) && (m/^http:\/\/(([A-Za-z]+[0-9-.]+)*?)([a-z]*\.[^\/]{3}\/[a-z]*\/[0-9]*)\/(.*?)\/([^\/\?\&]{4,})$/)) {
        print $x . "http://fathayu/" . $3 . "/" . $5 . "\n";
# ==========================================================================
#   Tusfiles
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/.*\.tusfiles\.net\/d\/(.*)\/.*/) {
print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   NINITE
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/get\.geo\.opera\.com\/pub\/opera\/desktop\/.*\/win\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/download\.oracle\.com\/otn-pub\/java\/jdk\/.*\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/download\.cdn\.mozilla\.net\/pub\/firefox\/releases\/.*\/update\/.*\/.*\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(softlayer|heanet)\.dl\.sourceforge\.net\/project\/(winscp|infrarecorder)\/(WinSCP|InfraRecorder)\/.*\/(.*)/) {
print $x . "http://fathayu/" . $4 . "\n";
} elsif ($X[1] =~ m/^http:\/\/download\.tuxfamily\.org\/notepadplus\/.*\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/fpdownload\.macromedia\.com\/get\/shockwave\/default\/\w\/.*\/latest\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*\.c\.pack\.google\.com\/edgedl\/chrome\/win\/.*\/(.*)\?/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/cdn02\.foxitsoftware\.com\/pub\/foxit\/reader\/desktop\/win\/.*\/.*\/en_us\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
} elsif ($X[1] =~ m/^http:\/\/download\.skype\.com\/msi\/(.*)/) {
print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   ORACLE
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/javadl\.oracle\.com\/webapps\/download\/GetFile\/.*\/windows-i586\/(.*)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   General purpose for cdn servers. add above your specific servers.
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/([0-9.]*?)\/\/(.*?)\.(.*)\?(.*?)/) {
        print $x . "http://fathayu/" . $2 . "." . $3 . "\n";
# ==========================================================================
#   YIMG WITH &sig=
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*?)\.yimg\.com\/(.*)/) {
        @y = ($1,$2);
        $y[0] =~ s/[a-z]+[0-9]+/cdn/;
        $y[1] =~ s/&sig=.*//;
        print $x . "http://fathayu/" . $y[0] . ".yimg.com/" . $y[1] . "\n";
# ==========================================================================
#   Generic http://variable.domain.com/path/filename."ex" "ext" or "exte" with or withour "? or %"
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*)(\.[^\.\-]*?\..*?)\/(.*)\.([^\/\?\&]{2,4})((\?|\%).*)?$/) {
        @y = ($1,$2,$3,$4);
        $y[0] =~ s/(([a-zA-A]+[0-9]+(-[a-zA-Z])?$)|(.*cdn.*)|(.*cache.*))/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
} elsif ($X[1] =~ 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|kkcdn|fck)[-\w]*)|([a-zA-Z]+-?[0-9]+(-[a-zA-Z]*)?)|([0-9]{1,2})/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)(\.[^\.\-]*?\..*?)\/([^\?\&\=]*)\??.*$/) {
        @y = ($1,$2,$3);
        $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn|kkcdn|fck)[-\w]*)|([a-zA-Z]+-?[0-9]+(-[a-zA-Z]*)?)|([0-9]{1,2})/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "\n";
} elsif ($X[1] =~ m/^http:\/\/[\w\d\-\_\.\%\/]*.*\/([\w\d\-\_\.]+\.(flv|mp3|mp4|3gp|wmv))\?.*cdn\_hash.*/){
        print $x . "http://fathayu/" . $1 . "\n";
} elsif (($X[1] =~ /maxporn/) && (m/^http:\/\/([^\/]*?)\/(.*?)\/([^\/]*?)(\?.*)?$/)) {
        print $x . "http://fathayu/" . $1 . "/" . $3 . "\n";
} elsif (($X[1] =~ /fucktube/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?[^\/]*\/[^\/]*)\/(.*)\/([^\/]*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
        @y = ($1,$2,$4,$5,$6);
        $y[0] =~ s/(([a-zA-Z]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "/" . $y[3] . "." . $y[4] . "\n";
} elsif (($X[1] =~ /media[0-9]{1,5}\.youjizz/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?\.[^\/]*)\/(.*)\/([^\/\?\&]*)\.([^\/\?\&]{3,4})(\?.*?)$/)) {
        @y = ($1,$2,$4,$5);
        $y[0] =~ s/(([a-zA-Z]+[0-9]+(-[a-zA-Z])?$)|([^\.]*cdn[^\.]*)|([^\.]*cache[^\.]*))/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
# ==========================================================================
#   Filehippo
# ==========================================================================
} elsif (($X[1] =~ /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://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
} elsif (($X[1] =~ /filehippo/) && (m/^http:\/\/(.*?)(\.[^\/]*?)\/(.*?)\/([^\?\&\=]*)\.([\w\d]{2,4})\??.*$/)) {
        @y = ($1,$2,$4,$5);
        $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d]*)|([a-zA-Z]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
} elsif ($X[1] =~ m/^http:\/\/.*filehippo\.com\/.*\/([\d\w\%\.\_\-]+\.(exe|zip|cab|msi|mru|mri|bz2|gzip|tgz|rar|pdf))/){
        $y=$1;
        for ($y) {
        s/%20//g;
        }
        print $x . "http://fathayu//" . $y . "\n";
} elsif ($X[1] =~ m/^http:\/\/\w*\d*\.filehippo\.com\/\d*\/.*\/(.*.exe)/){
        print $x . "http://fathayu/" . $1 . "\n";
} elsif (($X[1] =~ /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://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
} elsif (m/^http:\/\/(.*?)\.(jp(e?g|e|2)|gif|png|tiff?|bmp|ico|flv|wmv|3gp|mp(4|3)|exe|msi|pak|MD5|zip|on2|mar|swf|js|css).*?/) {
        @y = ($1,$2);
        $y[0] =~ s/((cache|cdn)[-\d]*)|([a-zA-A]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
        print $x . "http://fathayu/" . $y[0] . "." . $y[1] . "\n";
} elsif (($X[1] =~ /mediafire/) && (m/^http:\/\/(.*?)\.(.*?)\/(.*?)\/(.*)\.([a-z0-9]{3,4})(\?.*)?/)) {
        @y = ($1,$2,$4,$5);
        $y[0] =~ s/[a-z0-9]{2,5}/cdn./;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
} elsif ($X[1] =~ m/^http:\/\/kixeye[0-3]?(.cdn.kixeye.com.*)/) {
        print $x . "http://fathayu/" . $1  . "\n";
# ==========================================================================
#   domain/path/.*/filename."ex", "ext" or "exte"
# ==========================================================================
} elsif (($X[1] =~ /sharebeast/) && (m/^http:\/\/(.*?)(\.[^\.\-]*?[^\/]*\/[^\/]*)\/(.*?)\/([^\?\&\=]*)\.([\w\d]{2,4})\??.*$/)) {
        @y = ($1,$2,$4,$5);
        $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d]*)|([a-zA-Z]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
# ==========================================================================
#   indowebster
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*?)(\.jkt\.3d\.x\.indowebster.com)\/(.*?)\/([^\/\?\&]*)\.([^\/\?\&]{2,4})(\?.*?)$/) {
        @y = ($1,$2,$4,$5);
        $y[0] =~ s/([a-z][0-9][a-z]dlod[\d]{3})|((cache|cdn)[-\d]*)|([a-zA-Z]+-?[0-9]+(-[a-zA-Z]*)?)/cdn/;
        print $x . "http://fathayu/" . $y[0] . $y[1] . "/" . $y[2] . "." . $y[3] . "\n";
# ==========================================================================
#   DAP
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/download\.speedbit\.com\/(.*.exe)/) {
        print $x . "http://fathayu/" . $1 . "\n";
# ==========================================================================
#   specific extention
# ==========================================================================
} elsif ($X[1] =~ 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|x-flv|xml|ttf)(.*)/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\.(mp2|mp3|mid|midi|mp[234]|wav|ram|ra|rm|au|3gp|m4r|m4a)\?/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\.(mpg|mpeg|mp4|m4v|mov|avi|asf|wmv|wma|dat|flv|swf)\?/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\.(jpeg|jpg|jpe|jp2|gif|tiff?|pcx|png|bmp|pic|ico)\?/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\.(chm|dll|doc|docx|xls|xlsx|ppt|pptx|pps|ppsx|mdb|mdbx)\?/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\.(txt|conf|cfm|psd|wmf|emf|vsd|pdf|rtf|odt)\?/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\.(class|jar|exe|gz|bz|bz2|tar|tgz|zip|gzip|arj|ace|bin|cab|msi|rar)\?/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\.(htm|html|mhtml|css|js)\?/) {
        print $x . "http://fathayu/" . $1 . "/" . $2 . "." . $3 . "\n";
# ==========================================================================
#   all that ends with ;
# ==========================================================================
} elsif ($X[1] =~ m/^http:\/\/(.*?)\/(.*?)\;(.*)/) {
        print $x . "http://fathayu/" . $1 . "/" . $2  . "\n";
} else {
        print $x . $X[1] . "\n";
}
}

sub GetID
{
$id = "";
use File::ReadBackwards;
my $lim = 200 ;
my $ref_log = File::ReadBackwards->new('/var/log/squid/referer.log');
while (defined($line = $ref_log->readline))
{
if ($line =~ m/.*youtube.*\/watch\?.*v=([a-zA-Z0-9\-\_]*).*\s.*id=$IDS[0].*/){
$id = $1;
last;
}
if ($line =~ m/.*youtube.*\/.*cpn=$CPN[0].*[&](video_id|docid|v)=([a-zA-Z0-9\-\_]*).*/){
$id = $2;
last;
}
if ($line =~ m/.*youtube.*\/.*[&?](video_id|docid|v)=([a-zA-Z0-9\-\_]*).*cpn=$CPN[0].*/){
$id = $2;
last;
}
last if --$lim <= 0;
}
if ($id eq ""){
$id = $IDS[0];
}
$ref_log->close();
return $id;
}

di
Label:

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)

Load Balanced + Proxy External

Basic configuration : /ip address add address=192.168.1.10/24 broadcast=192.168.1.255 comment="" disabled=no interface=ether1-...