Sponsored Content
Top Forums Programming To Perl or not to Perl, that is the question... ;o) Post 303037702 by Neo on Friday 9th of August 2019 08:12:06 PM
Old 08-09-2019
As a side note, when I was the lead guy during the once famous "Langley Cyber Attack", where my work in an epic "email reply spam battle" happened over two decades ago, long before spam filters became of age, we wrote all our email anti-spam filters and detection algorithms in PERL.

Edit: For anyone interested in the early days of "cyberwar" in the 1998/1997 timeframe:

E-Mail Bombs and Countermeasures: Cyber Attacks on Availability and Brand Integrity
April 1998IEEE Network 12(2):10 - 17
DOI: 10.1109/65.681925


Code:
https://www.researchgate.net/publication/3282628_E-Mail_Bombs_and_Countermeasures_Cyber_Attacks_on_Availability_and_Brand_Integrity


That PERL code "way back when" was "very crude" by todays standards, but it was very effective and fast. PERL was the best tool for that job "way back when". I was a huge PERL advocate back then, and would write all scripts in PERL, even when PERL was not needed. I loved PERL so much back then that I tried to get everyone to learn it and use it.

Sometimes old guys like me forget that the younger generations may not have had the chance to develop code in PERL and other "out of favor" programming languages these days. But when I read this discussion it brings back wonderful memories of some of the best "tech days" of my life, defending the US Air Force against hackers with PERL scripts in real-time.

wisecracker, I say "go for it" if you or anyone reading this has the time or interest to learn PERL. I would love to see a lot of people posting PERL problems here. Perhaps that would jog even more great memories from decades ago from the deep trenches of cyber warfare battles when the web was but an infant.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

PERL Question

Can anyone tell me if the copy command in PERL has the same functionality as in KSH shell in UNIX or does it actually move the file ?? $cp_stat=system("cp $ENV{OLAMEBSDIR}/data/olam.ddabal$type $ENV{OLAMDIR}/balance/data/olam.ddabal$type.$HeaderDate"); (1 Reply)
Discussion started by: frank
1 Replies

2. Shell Programming and Scripting

PERL question

Could someone tell me what is wrong with these PERL statements it is always setting the $status2 to the number inside of the brackets......why???????? if (/^Status:/) { $stat = $Fld; print "\$stat is $stat\n"; } the above is where i'm searching for a string... (1 Reply)
Discussion started by: frank
1 Replies

3. Shell Programming and Scripting

Question about Perl

Where can i find solid information about programming in Perl? Thank you in advance!!!:) (5 Replies)
Discussion started by: SolidSnake
5 Replies

4. Shell Programming and Scripting

Perl: tk question

When i run my perl/tk script, a perl window pops up behind the GUI window,, can this be hidden???? Also, can the Icon be changed, the Tk icon in every window??? (1 Reply)
Discussion started by: perleo
1 Replies

5. Shell Programming and Scripting

perl question

If I use 2 system commands in a script, will one finish before the next one starts? or will it start the first and the second at the same time? i.e. system("ps | grep rminer"); system("ls -al | grep 431"); (1 Reply)
Discussion started by: BG_JrAdmin
1 Replies

6. Shell Programming and Scripting

Perl Question

Hi everyone I am not even a novice at Perl scripting .. but had to edit one the other day. The only way I can get it to run is by prefixing 'perl' before running it - ie # perl scriptname I am running AIX. Any ideas why i have to do that ? Thanks! (2 Replies)
Discussion started by: serm
2 Replies

7. Shell Programming and Scripting

PERL I/O question

Playing with an until loop as follows: my $input; until ($input eq "quit") { print "Please enter something:"; $input = <STDIN>; chomp $input; if ($input eq "dog") { print "cat" ; } else { print "Please re-enter"; } } Something simple like this... I want to prompt the user to... (3 Replies)
Discussion started by: yesokay
3 Replies

8. Shell Programming and Scripting

Perl question!

Hi All, I am new to perl and just want to read the text file and write back it into another file with some modification. Here is my requirement: input file: USB_OTG_PATH top.usb_top.otg_top USB_HSIC_PATH top.usb_top.hsic_top .. (All starts with USB_) ... START_PATH USB_OTG_PATH.interrupt... (2 Replies)
Discussion started by: surisingh
2 Replies

9. Shell Programming and Scripting

Perl question

Hi All, I am new to Perl and got a real stupid question. We are trying to install the Date:Calc package for some calculations with dates.The security guys mentioned they won't install it as root in /usr/bin/perl but have asked us to install it in any directory and use it from there. Here's the... (2 Replies)
Discussion started by: nua7
2 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies
PERL-NOCEM(8)						    InterNetNews Documentation						     PERL-NOCEM(8)

NAME
perl-nocem - A NoCeM-on-spool implementation for INN 2.x SYNOPSIS
perl-nocem DESCRIPTION
NoCeM, which is pronounced No See 'Em, is a protocol enabling authenticated third-parties to issue notices which can be used to cancel unwanted articles (like spam and articles in moderated newsgroups which were not approved by their moderators). It can also be used by readers as a third-party killfile. It is intended to eventually replace the protocol for third-party cancel messages. perl-nocem processes third-party, PGP-signed article cancellation notices. It is possible not to honour all NoCeM notices but only those which are sent by people whom you trust (that is to say if you trust the PGP key they use to sign their NoCeM notices). Indeed, it is up to you to decide whether you wish to honour their notices, depending on the criteria they use. Processing NoCeM notices is easy to set up: 1. Import the keys of the NoCeM issuers you trust in order to check the authenticity of their notices. You can do: gpg --no-default-keyring --primary-keyring <pathetc>/pgp/ncmring.gpg --import <key-file> where <pathetc> is the value of the pathetc parameter set in inn.conf and <key-file> the file containing the key(s) to import. The keyring must be located in <pathetc>/pgp/ncmring.gpg; you only have to create the directory <pathetc>/pgp before using gpg (it will automatically generate the ncmring.gpg file). For old PGP-generated keys, you may have to use --allow-non-selfsigned-uid if they are not properly self-signed, but anyone creating a key really should self-sign the key. Current PGP implementations do this automatically. The keys of NoCeM issuers can be found in the web site of The NoCeM Registry: <http://www.xs4all.nl/~rosalind/nocemreg/nocemreg.html>. You can even download there a unique file which contains all the keys. 2. Create a nocem.ctl config file in pathetc indicating the NoCeM issuers and notices you want to follow. This permission file contains lines like: bleachbot@httrack.com:spam,site pgpmoose@killfile.org:pgpmoose-forged-moderation This will remove all articles for which the issuer (first part of the line, before the colon ":") has issued NoCeM notices corresponding to the criteria specified after the colon. You will also find information about that on the web site of The NoCeM Registry. 3. Add to the newsfeeds file an entry like this one in order to feed perl-nocem the NoCeM notices posted to alt.nocem.misc and news.lists.filters: nocem! :!*,alt.nocem.misc,news.lists.filters :Tc,Wf,Ap:<pathbin>/perl-nocem with the correct path to perl-nocem, located in <pathbin>. Then, reload the newsfeeds file ("ctlinnd reload newsfeeds 'NoCeM channel feed'"). Note that you should at least carry news.lists.filters on your news server (or other newsgroups where NoCeM notices are sent) if you wish to process them. 4. Everything should now work. However, do not hesitate to manually test perl-nocem with a NoCeM notice, using: grephistory '<Message-ID>' | perl-nocem Indeed, perl-nocem expects tokens on its standard input, and grephistory can easily give it the token of a known article, thanks to its Message-ID. When you have verified that everything works, you can eventually turn off regular spam cancels, if you want, not processing any longer cancels containing "cyberspam" in the Path: header (see the refusecybercancels parameter in inn.conf). FILES
pathbin/perl-nocem The Perl script itself used to process NoCeM notices. pathetc/nocem.ctl The configuration file which specifies the NoCeM notices to be processed. pathetc/pgp/ncmring.gpg The keyring which contains the public keys of trusted NoCeM issuers. BUGS
The Subject: header is not checked for the @@NCM string and there is no check for the presence of the References: header. The Newsgroups: pseudo header is not checked, but this can be done in local_want_cancel_id(). The Hierarchies: header is ignored. HISTORY
Copyright 2000 by Miquel van Smoorenburg <miquels@cistron.nl>. Copyright 2001 by Marco d'Itri <md@linux.it>. $Id: perl-nocem.in 8539 2009-06-28 10:01:24Z iulius $ SEE ALSO
gpgv(1), grephistory(1), inn.conf(5), newsfeeds(5), pgp(1). INN 2.5.2 2009-08-16 PERL-NOCEM(8)
All times are GMT -4. The time now is 11:30 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy