Announcement

Collapse
No announcement yet.

Perl RBL script wanted

Collapse
X
  •  
  • Filter
  • Time
  • Show
Clear All
new posts

  • [DNSBL Related] Perl RBL script wanted

    Hei

    Jeg har problemer med spam, masse spam!

    Vil derfor bruke de mange gode RBL (black list) som finnes med mine "gamle" Perl script og html.

    Kan noen hjelpe ved å foreslå et RBL-script for Perl (Linux Apache server), gjerne et script med log og multi-RBL lookup.

    Takk :-)

  • #2
    Sv: Perl RBL script wanted

    Originally posted by Oregistrerad2006 View Post
    Hei

    Jeg har problemer med spam, masse spam!

    Vil derfor bruke de mange gode RBL (black list) som finnes med mine "gamle" Perl script og html.

    Kan noen hjelpe ved å foreslå et RBL-script for Perl (Linux Apache server), gjerne et script med log og multi-RBL lookup.

    Takk :-)

    En provisorisk multilösning bifogad.


    Ett exempel på hur det kan användas mot webben:

    Code:
    #!/usr/bin/perl
    
    require "rbl.pl";
    
    print "Content-type: text/html\n\n";
    
    print $ENV{REMOTE_ADDR} . "<br>\n";
    
    if (isrbl($ENV{REMOTE_ADDR}))
    {
        print "Blacklisted<br>\n";
    }
    else
    {
        print "Not blacklisted<br>\n";
    }
    Rutinen anropas med hjälp av isrbl(ip); och returnerar värdet 1 om ipadressen är svartlistad. Jag måste dock påpeka att den här rutinen inte kontrollerar hur adressen är svartlistad. opm.tornevall.org returnerar tex olika värden beroende på vad det är för proxy:




    Exempel:

    Om proxyn scannats och svarar men fått en timeout under testet så returneras 127.0.0.9

    Om proxyn scannats, svarar, men get en annan ipadress vid testresultatet så returneras 127.0.0.35


    Om man räknar ut bitvärdena på ett värde kan du alltså begränsa spärrarna till de adresser som verkligen är "färska" så att du inte stänger av halva världen om en RBL skulle returnera adresser som är uppåt väggarna. Man bör också tänka på att olika RBL'er har olika bitvärden och "outputs".
    Attached Files
    -

    Comment


    • #3
      Sv: Perl RBL script wanted

      Hei TMM

      Tusen takk for all hjelp, script, eksempler og fyldig beskrivelse.

      Jeg skal nå legge scriptet inn på en del av de script jeg bruker på mitt nettsted, for å unngå spambots, proxy-brukere, etc

      Jeg fant et godt php-script som gjorde omtrent alt jeg ønsket; PHPrbl - men dessverre er det kun til php-sider.

      Dyp respekt og takk for innsatsen, til deg fra meg, TMM :-)

      Comment


      • #4
        Sv: Perl RBL script wanted

        Det är bara kul att vara till hjälp.

        Eventuellt har jag lite fulkod för att räkna ut bitmaskningar för perl också någonstans, om du är intresserad och vill begränsa antalet träffar.
        -

        Comment


        • #5
          Sv: Perl RBL script wanted

          Originally posted by TMM View Post
          Det är bara kul att vara till hjälp.

          Eventuellt har jag lite fulkod för att räkna ut bitmaskningar för perl också någonstans, om du är intresserad och vill begränsa antalet träffar.
          Det er pent gjort av deg :-)

          Ja, takk gjerne - som du skriver: det begrenser jo antallet (er i første omgang ute etter å blokkere spambots, proxy, abusers, etc fra web og scripts).

          Er du god til php/Perl?
          Vet du hvor mye som skal til for å omdanne et php-script som PHPrbl til Perl?
          PHPrbl har både log og mulighet for block (oppslag fra lokal liste først sparer noe litt tid i forhold til rbl-oppslag).

          Takk igjen TMM

          Comment


          • #6
            Sv: Perl RBL script wanted

            Originally posted by Oregistrerad2006 View Post
            Det er pent gjort av deg :-)

            Ja, takk gjerne - som du skriver: det begrenser jo antallet (er i første omgang ute etter å blokkere spambots, proxy, abusers, etc fra web og scripts).

            Er du god til php/Perl?

            Jag började programmera perl en gång i tiden men gick över till php någon gång i julas för att jag var tvungen att jobba med det, och efter att jag upptäckt hur mycket enklare, snabbare och smidigare det fungerade, så stannade jag kvar där. Jag har nog en blandning av båda språken


            Originally posted by Oregistrerad2006 View Post
            Vet du hvor mye som skal til for å omdanne et php-script som PHPrbl til Perl?
            PHPrbl har både log og mulighet for block (oppslag fra lokal liste først sparer noe litt tid i forhold til rbl-oppslag).

            Takk igjen TMM
            PHPrbl gör visst två saker - blockerar proxys och texter som innehåller exempelvis "viagra". Det gör alltså i princip en sak till utöver exemplen jag bifogade. Det behöver inte ta så jättelång tid att bygga faktiskt, eftersom det inte är något stort script det handlar om. Ett admininterface och lite felmeddelanden verkar vara det som återstår av det jag redan gjort.

            Den tidskrävande delen bör alltså ligga i uppbyggnaden av interfacet och delar av en databashanterare (DBD/DBI), resten kommer att skötas automatiskt.

            Det som verkar saknas i phprbl, är sökningen på regular expressions. Om någon exempelvis skulle få för sig att skriva "v1agr4" istället för "viagra", så kommer man att kunna passera filtret. En annan nackdel som verkar finnas är att om en ipadress matchas som proxy, så kommer den att förbli blockerad om man inte rensar adresserna manuellt och givetvis kollar den bara om den returnerade adressen är 127.0.0.x. Antagligen kan man göra en del förändringar och förbättringar även i originalkoden


            Bitmask-räknaren jag bifogat är, på grund av bristande perlkunskaper, inte fullt så avancerat som det borde vara, rent matematiskt. Det returnerar de värden som är markerade som påslagna. Exemplet är inte riktigt anpassat för att köras mot web utan mer för debugging.


            Code:
            #!/usr/bin/perl
            
            require "bitval.pl";
            
            ## Exempel, rbl returnerar 127.0.0.35
            $value = 35;
            
            @bits = bitval($value);
            
            # Remove the first one...
            foreach $bit (@bits)
            {
                if ($bit == 1) {print "Scanned\n";}
                if ($bit == 2) {print "Working\n";}
                if ($bit == 4) {print "Blitzed\n";}
                if ($bit == 8) {print "Timeout\n";}
                if ($bit == 16) {print "Failure\n";}
                if ($bit == 32) {print "Elite\n";}
                if ($bit == 64) {print "Abuse\n";}
                if ($bit == 128) {print "Anonymous\n";}
            }
            Det är nästan så jag blir lite sugen på det här projektet
            Attached Files
            -

            Comment


            • #7
              Sv: Perl RBL script wanted

              Hei TMM

              Takker igjen for fantastisk hjelp :-)

              Ja, med alle de scripts snipets du allerede har presentert, er ikke stykket langt igjen til et komplett script.

              Basis er rbl oppslag, ekstra er lokal "cach" og direkte blokkering til htaccess. Blokkering av spesielle ord er ekstra luksus, men vil nok kunne være til hjelp for mange gamle script (gjestebøker, kontakt, mm).

              Dessverre er jeg ikke god nok til php eller Perl, men som en følge av spam og abuse har jeg vært nødt til å lære mer og mer (hvilket jo er positivt, selv om det er tidkrevende).

              Det er nok mange webmasters som har behov for et slikt rbl script til sine html sider, eventuellt et som kunne kjøres på alle websider via SSI og som skrev negative besøkende direkte til htaccess for en periode.

              Ja, det er absolutt et spennende prosjekt :-)

              Ha en fin aften TMM

              Comment


              • #8
                Sv: Perl RBL script wanted

                Jag ska absolut ta och börja titta på det här så fort jag har lite mer tid över. Iden att släppa en bra RBL med stöd för både PHP och perl är absolut inte dumt, så håll utkik. Själva lösningen är ju nästan färdig.
                -

                Comment


                • #9
                  Sv: Perl RBL script wanted

                  Originally posted by TMM View Post
                  Jag ska absolut ta och börja titta på det här så fort jag har lite mer tid över. Iden att släppa en bra RBL med stöd för både PHP och perl är absolut inte dumt, så håll utkik. Själva lösningen är ju nästan färdig.
                  SUPERT

                  Følger denne tråd med argusøjne og venter i spenning.

                  Jeg bidrar gjerne med beta-testing, innspill og annet du ser behov for.

                  Takk TMM

                  Comment


                  • #10
                    Sv: Perl RBL script wanted

                    Hej TMM

                    Hvordan går det, har du hatt noe fremgang med scriptet eller er det ikke blitt nok ekstra tid til å arbeide på det?

                    Du får gi beskjed om jeg kan hjelpe med noe (eventuelt at vi ber om hjelp fra andre).

                    Ha en riktig god weekend TMM

                    Comment


                    • #11
                      Sv: Perl RBL script wanted

                      Jag har tyvärr haft lite att göra men det ska förhoppningsvis vara på G snart
                      -

                      Comment


                      • #12
                        Sv: Perl RBL script wanted

                        Hei TMM

                        Det viktigste først ;-) Så ta all den tid du behøver.

                        Ha en fin uke


                        PS:
                        Finnes det en felles BL-sone som inkluderer OPM og RELAKKS på Tornevall, eller må man benytte to oppslag?

                        Comment


                        • #13
                          Sv: Perl RBL script wanted

                          God morgen TMM

                          Noen progresjon angående prosjektet ?

                          Comment


                          • #14
                            Sv: Perl RBL script wanted

                            TMM

                            Her var det da blitt pyntet til jul

                            Går ut fra at den travle juletiden gjør at du ikke har tid til script, ønsker deg derfor GOD JUL allerede nå


                            PS:
                            Jeg eksperimenterer også litt på egen hånd, kan du foreslå noen RBL-sites som er god for oppslag fra forum og lignende (altså som har med lister med proxies, form injections, spamsites, guestbook spammers, etc)? Tack

                            Comment


                            • #15
                              Sv: Perl RBL script wanted

                              Godt nytt år :-)

                              Comment

                              Sorry, you are not authorized to view this page
                              Working...
                              X