#!/usr/bin/perl # # wanted-is-SCRIPT # # (c) 2002-2008 CREEQ # use strict; use vars qw/$form %form @form $a $b @did $count @pre @last @names @month $name $wantdir $link $index $begin/; @did = ("DISTRIBUTE CHILD PORNOGRAPHY", "MURDER", "KIDNAPPING", "ASSAULTING FEDERAL AGENTS", "BANK ROBBERY", "UNLAWFUL FLIGHT TO AVOID PROSECUTION", "CONSPIRACY TO IMPORT COCAINE AND MARIJUANA", "MURDER OF U.S. NATIONALS OUTSIDE THE UNITED STATES", "ATTACK ON A FEDERAL FACILITY RESULTING IN DEATH", "AGGRAVATED SEXUAL ABUSE WITH CHILDREN", "DRUG CONSPIRACY", "NARCOTICS DISTRIBUTION", "MONEY LAUNDERING", "ESCAPE"); @pre = ("Horst", "Klaus", "Werner", "Herbert", "Manfred", "Fred", "Fritz", "Usama", "Detlef", "Dieter", "Peer", "Eberhardt", "Fridolin", "Günther", "Klaus-Dieter", "Karl-Heinz", "Heinz-Steffen", "Markus-Maria", "Klaus-Gustav", "Peter", "Norbert"); @last = ("Müller", "Bin Laden", "Schmidt", "Nüscher", "Brown", "Abdullah", "Mugniyah", "Msalam", "Tse-tung"); @month = ("January", "Febuary", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"); $wantdir = '/usr/lib/cgi-bin/wanted'; @form = split("&", $ENV{QUERY_STRING}); foreach $form (@form) { ($a,$b) = split("=", $form); $form{$a} = $b; } @names = split('\+', $form{is}); for ($a=0;$a<=$#names;$a++) { $names[$a] = $names[$a]; } $count = 0; foreach $name (@names) { for ($a = 0; $a <= length($name); $a++) { $count += ord(substr($name, $a, 1)); } } $link = `cat "$wantdir/$form{is}"`; if (!$link) { $index = `wget -q -O - www.uglypeople.com`; $begin = index($index, 'Add this picture to your Myspace profile'); $link = substr($index, index($index, "img src=", $begin)+8, index($index, " border=", $begin)-index($index, "img src=", $begin)-9); system("echo '$link' > $wantdir/$form{is}"); } print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "FBI Crime Alert -"; foreach (@names) { print (" " . $_); } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "

\"Wanted

\n"; print "

" . $did[$count %($#did+1)] . "
\n"; print "

"; foreach (@names) { print (" " . $_); } print "
\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; #print "\"This\"This
Ugly People Pictures!\n"; print "
\n"; print "Photograph taken in 2002

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "Aliases:\n"; if (not defined @names[1]) { print @pre[$count %($#pre+1)] . " " . @names[0]; } else { print @pre[$count %($#pre+1)] . " " . @names[$#names] . ", "; print @names[0] . " " . @last[$count %($#last+1)]; } print "

\n"; print "

DESCRIPTION

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "Date of Birth Used: \n"; print @month[$count %12] . " " . $count %30 .", 198" . $count %5 . "\n"; print "Hair:\n"; print "Blonde
\n"; print "Place of Birth:\n"; print "Unknown\n"; print "Eyes:\n"; print "Brown
\n"; print "Height:\n"; print "5'5"\n"; print "Sex:\n"; print "Male
\n"; print "Weight:\n"; print 120 + ($count %30) . " pounds\n"; print "Race:\n"; print "White
\n"; print "Occupation:\n"; print "Unknown\n"; print "Nationality:\n"; print "German
\n"; print "Scars and Marks:\n"; print "None known
\n"; print "Remarks:\n"; print "None

\n"; print "

SHOULD BE CONSIDERED ARMED AND DANGEROUS

\n"; print "

IF YOU HAVE ANY INFORMATION CONCERNING THIS PERSON, PLEASE CONTACT YOUR LOCAL FBI OFFICE OR THE NEAREST AMERICAN EMBASSY OR CONSULATE.

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\"Louis
\n"; print "DIRECTOR
\n"; print "FEDERAL BUREAU OF INVESTIGATION
\n"; print "UNITED STATES DEPARTMENT OF JUSTICE
\n"; print "WASHINGTON, D.C. 20535
\n"; print "TELEPHONE: (202) 324-3000 
\n"; print "

\n"; print "

[ Chicago Field Office ] [ Crime Alerts ] [ FBI Home Page ] [ FBI Field Offices ]
\n"; print "\n"; print "\n"; sub error { print $_[0] . "\n"; print "\n"; print "\n"; exit; }