#!/usr/bin/perl
use strict;
my @templates = <DATA>;
sub gen {
my $num = @_[0];
my $num = ord $num;
my $phrase = @templates[rand @templates];
$phrase =~ s/NUM/$num/;
$phrase =~ s/\n//;
chomp($phrase);
return $phrase;
}
print "Decrypt?\n(y/n)";
my $mode = <STDIN>;
chomp($mode);
system("clear");
if ($mode eq "n") {
$/ = undef;
my $input = <>;
my @chars = split("", $input);
my $foo;
my @names = ("Buisness Professional","Decision Maker","Sir/Mam","Lucky
+ Individual");
my $name = @names[rand @names];
print "Dear " . $name . ",\n\n";
foreach $foo(@chars) {
print gen($foo);
}
}
if ($mode eq "y") {
$/ = undef;
my $input = <>;
my @nums = ($input =~ /(\d*)/g);
my @chars = map(chr, @nums);
my $foo;
foreach $foo(@chars) {
print "$foo";
}
}
__DATA__
EARN YOUR HIGHSCHOOL DIPLOMA IN NUM HOURS OR LESS IN YOUR SPARE TIME!!
+!!!!!!!!
We have helped individuals around the world in NUM countries live the
+lives they have always dreamed of!!!!!!!
Lose NUM pounds just by SLEEPING!!!!!!!!
Make NUM dollars an hour as an affilliate of a rapid growth marketing
+firm!!!
This electronic message conforms with senate bill NUM Section A.
Lose weight the quick and easy way, CALL FOR A FREE NUM day sample.
REAL RESULTS IN NUM DAYS!!!!!!!!
TO ORDER CALL YOUR OPERATOR AND ASK FOR EXTENSION NUM!!! OPERATORS STA
+NDING BY!!!!!!!!!!
you can become rich inside NUM DAYS!!!!!!!!!!!
Jim Jones tried our product and his only problem now is where to park
+his NUM cars!!!
success is yours is NUM days or less!!!!!!!!
CALL NOW AND GET A FREE GIFT WORTH OVER NUM DOLLARS!!!!!
GENERATE CASH FLOW AND ONLY WORK NUM HOURS EACH YEAR!!!!!!
YOU HAVE BEEN CHOSEN OUT OF NUM LUCKY PEOPLE TO RECIEVE THIS SPECIAL O
+FFER!!!!
comes in NUM delectable flavors!!!
Order in the next NUM days AND YOU MAY WIN A FREE CAR!!!!!!!
Have you ever noticed people love convenience? CAPITALIZE ON THIS LIKE
+ OUR NUM HAPPY affiliates!!!
NEED TO GET OUT OF DEBT? WOULD NUM DOLLARS HELP? OF COURSE IT WOULD!!!
+!
THIS IS NOT SPAM! THIS IS A LEGAL WAY TO MAKE NUM DOLLARS AN HOUR DOIN
+G EASY WORK!!!!!!!!!!!!!
We are licensed to operate in NUM countries. (not garunteed).
Linda Corgetto raves "Your product let me lose NUM pounds and make tho
+usands of dollars!!!!"
FOWARD THIS MESSAGE TO NUM PEOPLE OR DEATH AND ETERNAL MISFORTUNE WILL
+ HAUNT YOUR IMMORTAL SOUL!!!!!!
|