Fritz!Load…

… Forum für Software-Entwickler, Web-Designer und Benutzer.

Du bist nicht angemeldet.

Ankündigung

Liebe Fritz!Load-Nutzer,
wie man am Datum des letzten Beitrags erkennt, wird dieses Forum seit langem nicht mehr benutzt. Zwar entstehen keine zusätzliche Kosten, um dieses Forum zu halten, nichtsdestotrotz macht es keinen Sinn ein totes Forum im Internet zu präsentieren. Aus diesem Grund werden wir demnächst dieses Forum schließen. Falls sich dennoch ein paar hartgesottene Mitglieder finden, die dieses Forum immer noch am Leben halten wollen, sollen sich bitte im Forum „Allgemeine Diskussion“ melden.
(19.12.2023)

Hinweis: Falls sich die Forum-Adresse ändern sollte, so gehe bitte auf die Fritz!Load-FAQ-Seite in Sourceforge.net, um die aktuelle Forum-Adresse zu erfahren oder aktualisiere deine Fritz!Load-Version auf den neuesten Stand und nutze den Link „Forum“ unter „Allgemein“ in der Registerkarte „Hilfe“ direkt in Fritz!Load.

#1 am 24. Apr. 2014 um 10:50 Uhr

genuk
Entwickler
Registriert: am 30. Sep. 2013
Beiträge: 34

Neuer Hoster: fcore.eu / filecore.co.nz

Ganz frisch:

1. die Datei : fcore_eu.sh

#!/bin/ash
# Copyright (c) 2014 genuK/genuk@gmx.net
# Fritzload hosterplugin for http://fcore.eu

DEBUG_GET=1

###########################################
#    ev. Kandidat fuer die captcha libs   #
###########################################
solvePlaintextCaptcha() {
        local span loesung
        span=$(grep ";background:#ccc;text-align" $f|\
                sed -e 's/<div[^>]*>//g' -e 's/\(^.*\)<\/div>/\1/g' \
                -e 's/<\/span><span /\n/g' -e 's/<span //' -e 's/<\/span>//')
        loesung=$(echo "$span"|sed 's/.*-left:\([0-9]*\)px[^>]*>\(.*\)/\1 \2/g'|\
                sort -g |sed -e 's/[0-9]* //' -e 's/&#48;/0/' -e 's/&#49;/1/' \
                -e 's/&#50;/2/' -e 's/&#51;/3/' -e 's/&#52;/4/' -e 's/&#53;/5/' \
                -e 's/&#54;/6/' -e 's/&#55;/7/' -e 's/&#56;/8/' -e 's/&#57;/9/')
        loesung=$(echo "$loesung"| tr -d '\n')
        echo $loesung
}

fcore_eu_onlineStatus() {
        local url=$1
        local checklink="http://filecore.co.nz/?op=checkfiles"
        local checkdata="op=checkfiles&process=Check+URLs&list="$url
        GET "$checklink" $f "--data $checkdata --cookie $c -cookie-jar $c" "GET-CHECKURL"

        if grep -q -i '<td style="color:red;">Not found!</td>' $f; then
                errmsg "=== Link: $param nicht gefunden. Link ungueltig ==="; return 1
        elif grep -q -i "<td style=\"color:red;\">Filename don't match!</td>" $f; then
                errmsg "=== Link: $param - Filename don't match!. Link ungueltig ==="; return 1
        elif grep -q -i '<td style="color:green;">Found</td>' $f; then
                print "=== Link: $param gefunden. Link gueltig ==="; return 0
        else
                errmsg "=== Link Check! Something doesn't work! Please report! ==="; return 1
        fi
}

fcore_eu() {
        local filename filesize data download_link
        local f=$tmp/response.htm c=$tmp/dl.cookie.txt

        # check if link has the minimum length
        # if the link is too long will be catched by fcore_eu_onlineStatus
        if ! echo $param | grep -E "([a-z0-9]{12})" ; then
                errmsg "Link $param is too short! Please check your link!"
                return 1
        fi

        # check online availability
        if ! fcore_eu_onlineStatus "$param";then
                errmsg "URL-Adresse: Offline ($param)"
                return 1
        fi

        while [ $try -lt $retries ]; do
                try=$(($try+1))

                # get the url from downloadlist and load the answer in $f
                GET "$param" $f "--cookie $c --cookie-jar $c" "GET1"

                # check http status code
                if [ "$H_CODE" = 404 ] && grep -qiE "<h3>File Not found</h3>" $f ;then
                        errmsg "SERVER-FEHLER: Link nicht gefunden!; HTTP-Statuscode: $H_CODE"
                        errmsg "Link Adresse falsch?"
                        return 1
                elif grep -qi "No such file\|File Not Found\|The file was removed by\|Reason for deletion" $f; then
                        errmsg "File not found"
                        return 1
                elif grep -qi "This server is in maintenance mode" $f; then
                        errmsg "This server is in maintenance mode"
                        break
                elif grep -qiE "You have reached the download[-\ ]limit" $f; then
                        print "=== Download limit erreicht. Versuche reconnect. ==="
                        { needReconnect; continue; }
                fi

                # extract the form with name="F1"
                extractForm $f "name=\"F1\"" || extractForm $f "name='F1'" || continue

                # extract the form parameters values
                data="$(formParams 'op;id;rand;method_free;down_direct;down_script' $f 0)"

                # captcha processing
                local code
                if grep -q ";background:#ccc;text-align" $f.form ; then
                        print "=== Detected captcha method \"Plaintext Captcha\" ==="
                        code=$(solvePlaintextCaptcha $f)
                        print "=== extracted Plaintext Captcha code is: $code ==="
                        data=$data"&code="$code
                elif grep '/captchas/' $f.form ; then
                        print "=== Detected captcha method \"Standard captcha\" ==="
                        # extract the captcha link
                        local capurl="$(grep '/captchas/' $f.form | sed -e 's/.*\"\(.*[^\"]\)\".*/\1/g')"
                        print "=== Extracted capurl is: $capurl"

                        # get the captcha image
                        local capfile=$tmp/dl.captcha.jpg
                        curl -s --cookie $c "$capurl" -o $capfile
                        set_captcha_solution "$capurl" || continue
                        rm -rf $capfile
                        data=$data"&code="$CAPTCHA_STRING
                elif is_captcha $f; then
                        if grep -q "api.recaptcha.net\|google.com/recaptcha/api/" $f.form ; then
                                print "=== Detected captcha method \"Re Captcha\" ==="
                        elif grep -q "solvemedia.com/papi/" $f.form ; then
                                print "=== Detected captcha method \"Solve Media\" ==="
                        elif grep -q "id=\"capcode\" name= \"capcode\"" $f.form ; then
                                print "=== Detected captcha method \"Key Captcha\" ==="
                        fi
                        captcha_service_active || return
                        captcha_solution $f || continue
                        print "=== Returned CAPTCHA_RESPOND is: $CAPTCHA_RESPOND ==="
                        data=$data"&"$CAPTCHA_RESPOND
                else
                        captcha_type_unknown
                        return
                fi

                print "=== Form-Data with Captcha-Code is: $data ==="
                # submit the form-data and load the answer in $f
                GET "http://filecore.co.nz/download.html" $f "--data $data --cookie $c --cookie-jar $c" "GET2"

                if grep -q -i '<div class="err">Wrong captcha' $f; then
                        print "'Wrong captcha' was found on the second page"
                        captcha_wrong
                        continue
                elif grep -q -i '<div class="err">Expired download session' $f; then
                        print "Expired download session"
                        continue
                elif grep -q  -i "images/dl.png" $f; then
                        print "Download Link Button gefunden auf die 2. Seite"
                        captcha_correct
                else
                        errmsg "Something goes wrong. Plugin needs update? Please report!"
                        return 1
                fi

                download_link="$(grep 'images/dl.png' $f | sed -e 's/.*[^"]"\(http.*[^"]\)">.*/\1/g')"
                if [ -z "$download_link" ]; then
                        # write the log if "$download_link" not found
                        errmsg "FAILED: Could not resolve download URL"
                        return 1
                fi
                print "=== Extracted download_link is: $download_link ==="

                filename="$(echo $download_link| sed -e 's@.*/\(.*\)@\1@')"
                if [ -z "$filename" ]; then
                        # write the log if "$filename" not found
                        errmsg "FAILED: Could not resolve filename"
                        return 1
                fi
                print "=== Extracted filename is: $filename ==="

                notalreadyLoaded "$targetdir/$filename" || return
                if download "$download_link" "$filename" "-b $c -c $c"; then
                        succes=1
                        break
                fi
        done
}

2. die Datei : filecore_co_nz.sh

#!/bin/ash
# Copyright (c) 2014 genuK/genuk@gmx.net
# Fritzload hosterplugin for http://filecore.co.nz

. $pdir/lib/hoster/fcore_eu.sh

filecore_co_nz() {
        fcore_eu "$param"
        return $?
}

Testlinks via PM.

Abwesend

#2 am 24. Apr. 2014 um 11:05 Uhr

rolex0815
Entwickler
Registriert: am 29. Jun. 2012
Beiträge: 558

Antw.: Neuer Hoster: fcore.eu / filecore.co.nz

Eingecheckt.

Abwesend

Fußzeile des Forums

Angetrieben von FluxBB