🚀 go-pugleaf

test:

> use strict;
> use Digest::SHA1;
> 
> our (%hdr, $modify_headers);
> my $lasttime = 0;
> my $serial = 0;
> 
> sub filter_post {
>     # Hash the NNTP-Posting-Host header
>     my $ctx = Digest::SHA1->new;
>     $ctx->add($hdr{'NNTP-Posting-Host'});
>     $ctx->add("Would you like some salt with that?");
>     $hdr{'NNTP-Posting-Host'} = $ctx->hexdigest;
>     undef $hdr{'X-Trace'};
> 
>     # Hash the NNTP-Posting-Date header
>     my $cctx = Digest::SHA1->new;
>     $cctx->add($hdr{'NNTP-Posting-Date'});
>     $cctx->add("Would you like some salt with that?");
>     $hdr{'NNTP-Posting-Date'} = $cctx->hexdigest;
> 
>     my $rval = "";
> 
> 
>         if ($hdr{'Path'} =~ /unwanted/) {
>          $rval = "You are not allowed to post";
>          }
>       elsif ($hdr{'Message-ID'} =~ /unwanted/) {
>       $rval = "Non puoi farlo";
>       } 
>       elsif ($hdr{'Newsgroups'} =~ /./) {
> 
> #       # Disallow crossposting to avoid unforeseen abuses
> #       if ($hdr{"Newsgroups"} ne "test") {
> #           $rval = "No crossposting between test and other groups";
> #       }
> #       else {
>         
>          $modify_headers = 1;
>            $hdr{'X-Trace'} = "";
>          $hdr{'X-Newsreader'} = "Null Reader";
>            $hdr{'X-MSMail-Priority'} = "";
>            $hdr{'X-Priority'} = "";
>            $hdr{'X-Mailer'} = "None Mailer";
>          $hdr{'X-MimeOLE'} = "";
>          $hdr{'Sender'} = "";
>          $hdr{'X-Sender'} = "";
>          $rval = "";
>       } elsif ($hdr{"Newsgroups"} =~ /^anon/) {
>            $modify_headers = 1;
>            # Give everyone the same From: header.
> 
>            # Hide the originating host.
>            $hdr{'X-Trace'} = "";
>            $hdr{'Organization'} = "";
>            $hdr{'User-Agent'} = "anon v.666";
>            $hdr{'Reply-To'} = "";
>            $hdr{'X-Newsreader'} = "Null Reader";
>            $hdr{'X-MSMail-Priority'} = "";
>            $hdr{'X-Priority'} = "";
>            $hdr{'X-Mailer'} = "None Mailer";
>            $hdr{'X-MimeOLE'} = "";
> 
> 
>            # Clobber the Message-ID
>            my $thistime = time();
>            if ($thistime != $lasttime) {
>                $serial = 1;
>            }
>            else {
>                $serial++;
>            }
>            $lasttime = $thistime;
>            $hdr{'Message-ID'} = "<$thistime.$$.$serial\@localhost>";
>       } $rval;
> }
> 

Gli header X-Mailer e X-Newsreader non possono rimanere vuoti e ho aggiunto
sha1 come hash , sostituendo md5 , mentre ho aggiunto la crittografia su
NNTP-Post-Header , che secondo me va bene se nnon si sappia quando ...

Gab
-- 
8D7912A0 B26A 9F72 E8A0 0FEB 4607  A2E6 3262 11A9 8D79 12A0
Noauth Usenet News & mail2news  http://www.gabrix.ath.cx/