Frage

Edit:

Also auf der genannten Seite erscheint nichts weiter wie ein Bild, dieses Bild ist aus diesem Code hier zusammengesetzt:

$error_loop=0;$browser_out=0;if($EN V{REQUEST_METHOD}eqGETandnot$ENV{QUERY_STRING }){$ENV{OUT_TITLE}=Tipsaenkompis!;@msg=(DATA) ;@msg
=ParseText(@msg);BrowserOut(@msg);exit(0);}CheckRe f;ParseForm;if(@missing_valuesor@bad_emailsor@only _digitsor@only_words){Error(ev
ilvalues)}foreach$key(keys%FORM){if($key =~/^_send_email/){@lines=ReadFile(EmailTemplate,$FORM{$k ey});@lines=ParseText(@lines);Send
Mail(@lines);}elsif($key=~/^_out_file/){@lines=ReadFile(LogFile,$FORM{$key});@ lines=ParseText(@lines);LogFile(LogFileTemplate,@l in
es);}elsif($key=~/^_browser_out/and$browser_out2){$browser_out++;@lines= ReadFile(BrowserTemplate,$FORM{$key});@l ines=ParseText(@li
nes);BrowserOut(@lines);}elsif($key=~/^_redirect/and$browser_out2){$browser_out++;printLo cation:$FORM{$key}\n\n;}}unles s($browser_
out){@msg=(DATA);$ENV{OUT_TITLE}=Dittmeddelan deharskickats!;$ENV{OUT_MSG}=Ettmailharskicka tstilldinkompisf�ratttipsaomfilmrecensio
nen.brbrahref=\$FORM{url}\$FOR M{film}/abrahref=\http://www.lhasa.nu/~klue/bio/\Filmsidan/a;@msg=ParseText(@msg);BrowserOut(@msg);}
exit(0);subBrowserOut{print$content_type@_&#0 92;n}subCheckRef{my($valid_referer,@terms);if ((@Referers)and($ENV{HTTP_REFERER})){foreach& #036;
referer(@Referers){if($ENV{HTTP_REFERER}=~m|h ttp.*?://$referer|i){$valid_referer++;last;}}}els e{$valid_referer++;}unless($valid_re
ferer){@terms=split(/\//,$ENV{HTTP_REFERER});Error(Ogiltigavsauml;nda rsida,Dukaninteskickameddelandenfr�n$ENV{HTTP _REFERER}.);}}su
bError{++$error_loop;my$title=shift@_;my $msg=shift@_;my@error;if($titleeqevilval ues){my$val;if(@missing_values){$msg=qq| pFouml;lja
ndefauml;ltmaring;stefyllasi:/p\nol\n|;foreach$val(@missing_value s){$msg.=li$val\n}$msg.=/ol\n;}if(@bad_emails){$msg.=qq|pFouml;l j
andefauml;ltmaring;steinneharing;llaemail-adresser:/p\nol\n|;foreach$val(@bad_emails){& #036;msg.=li$val\n}$msg.=/ol\n;}if(@only_digits)
{$msg.=qq|pFouml;ljandefauml;ltfaring;rbarain neharing;llanummer:/p\nol\n|;foreach$val(@only_digits){ $msg.=li$val\n}$msg.=/ol\n;}if
(@only_words){$msg.=qq|pFouml;ljandefauml;ltf aring;rbarainneharing;llabokstauml;verochnummer:/p\nol\n|;foreach$val(@only_words){& #036;m
sg.=li$val\n}$msg.=/ol\n;}$title=Felaktigavauml;rden;$m sg.=qq|pVargodgaring;tillbakaochrauml;ttafelen./p\n|;}if($FORM{_error_url})
{printLocation:$FORM{_error_url}\n\ n}elsif($FORM{_error_path}and$error_loop 2){$ENV{OUT_TITLE}=$title;$ENV{OUT_ MSG}=$msg;@error=Rea
dFile(ErrorTemplate,$FORM{_error_path});@erro r=ParseText(@error);BrowserOut(@error);}else{@erro r=(DATA);$ENV{OUT_TITLE}=$title;$EN
V{OUT_MSG}=$msg;@error=ParseText(@error);Brow serOut(@error);}exit(0);}subLogFile{my$msg=sh ift@_;my$file=shift@_;$file=~s#\.&# 092;./##g;
$file=$base_path.$file;open(FILE,&# 036;file)orError(FileAccessError,Anerroroccurredwh entryingtoappendtothe$msg($file):$! );flock(FILE,2)
orError(FileLockError,Anerroroccuredwhenlockingthe $msg($file):$!.);printFILE@_;close( FILE)orError(FileCloseError,Anerroroccurredwh
enclosethe$msg($file):$!.);}subRead File{my$msg=shift@_;my$file=shift@_;&#03 6;file=~s#\.\./##g;$file=$base_path.$file;open(FIL E,$file)or
Error(FileAccessError,Anerroroccurredwhenopeningth e$msg($file):$!.);my@lines=(FILE);c lose(FILE)orError(FileCloseError,Anerroroccur
redwhenclosethe$msg($file):$!.);ret urn@lines;}subParseForm{my($key,$prefs,& #036;buffer);if($ENV{REQUEST_METHOD}eqGET){@p airs=split(//,$
ENV{QUERY_STRING})}elsif($ENV{REQUEST_METHOD} eqPOST){read(STDIN,$buffer,$ENV{CONTENT_ LENGTH});@pairs=split(//,$buffer)}else{Error(
BadorUnknownRequestMethod,Theformsrequestmethodmus tbeeitherPOSTorGET.PleasecheckyourHTML.)}foreach&# 036;pair(@pairs){local($name,$value
)=split(/=/,$pair);$name=~tr/+//;$name=~s/%([a-fA-F0-9][a-fA-F0-9])/pack(C,hex($1))/eg;$value=~tr/+//;$value=~s/%([a-fA-F0-9][a-fA
-F0-9])/pack(C,hex($1))/eg;$value=~s/!--(.)*?--//mg;$FORM{$name}=$value;if($nam e=~/_/and$name!~/^_/){($prefs,$key)=split/_/,$name,
2;if($prefs=~/r/iandnot$value){push@missing_values,$key} if($prefs=~/e/iand$valueand(($value=~/(@.*@)|(\.\.)|(@\.)|(\.@)|(^&# 092;.)/)or(
$value!~/^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/))){push@bad_emails,$key}if($prefs=~/d/iand$valueand$value=~
/\D/){push@only_digits,$key}if($prefs=~/w/iand$valueand$value=~/\W/){push@only_words,$key}if($prefs=~/s/iand$value){$value=~s/^(\s
)*//;$value=~s/(\s)*$//;$FORM{$name}=$value;}}}}subParseTe xt{my($line,$key,$value,$sub); foreach$line(@_){while(($key=$value )=each%
FORM){$line=~s/\[$key\]/$value/ig}while(($key=$value)=each%ENV){$l ine=~s/\[\%$key\]/$value/ig}$line=~s/\[[^](.)*?[^]\]//g;}foreach
$line(@_){while($line=~/\[((.)*?)\]/){$sub=$1;$sub=~s/[^\d\+\*\/\-%\.x]//g;$sub=eval$sub;$line=~s/\[(.)*?\]/$sub/}}return@_;}s
ubSendMail{open(MAIL,|$mail_cmd)orError(Maile rOpenError,Anerroroccurredwhentryingtoopenthemaile r($mail_cmd):$!.);printMAIL@_;close
(MAIL)orError(MailSendError,Anerroroccurredwhensen dingtheemail:$?.Pleasechecktheemailsheaders.) ;}__END__htmlheadtitle[%OUT_TITLE]/
titlemetahttp-equiv=Content-Typecontent=text/html;charset=iso-8859-1/headbodybgcolor=#FFFFFFbackground=../pics/bg.giftext=#000000l
ink=#6666FFvlink=#6699FFalink=#CCCCCCtablewidth=43 0border=0cellspacing=0cellpadding=0trtdimgsrc=../pics/streckadlinjev.gifwidth=43
0height=1/td/trtrtdimgsrc=../pics/10x10t.gifwidth=10height=10/td/trtrtdfontface=verdana,arialfontsize=3b[%OUT_TITLE]/b/fontpfontsi
ze=2[%OUT_MSG]/font/p/font/td/trtrtdimgsrc=../pics/10x10t.gifwidth=10height=10/td/trtrtdimgsrc=../pics/streckadlinjev.gifwidth=430
height=1/td/trtrtdimgsrc=../pics/10x10t.gifwidth=10height=10/td/tr/table/body/html$error_loop=0;$browser_out=0;if(&#03 6;ENV{REQUEST_MET
HOD}eqGETandnot$ENV{QUERY_STRING}){$ENV{ OUT_TITLE}=Tipsaenkompis!;@msg=(DATA);@msg=ParseTe xt(@msg);BrowserOut(@msg);exit(0);}Check
Ref;ParseForm;if(@missing_valuesor@bad_emailsor@on ly_digitsor@only_words){Error(evilvalues)}foreach& #036;key(keys%FORM){if($key=~/^_sen
d_email/){@lines=ReadFile(EmailTemplate,$FORM{$k ey});@lines=ParseText(@lines);SendMail(@lines);}el sif($key=~/^_out_file/){@lines=R
eadFile(LogFile,$FORM{$key});@lines=Pars eText(@lines);LogFile(LogFileTemplate,@lines);}els if($key=~/^_browser_out/and$browser_out2
){$browser_out++;@lines=ReadFile(BrowserTempl ate,$FORM{$key});@lines=ParseText(@lines );BrowserOut(@lines);}elsif($key=~/^_redirect
/and$browser_out2){$browser_out++;printLo cation:$FORM{$key}\n\n;}}unles s($browser_out){@msg=(DATA);$ENV{OUT_TIT LE}=Dittmeddelandeh
arskickats!;$ENV{OUT_MSG}=Ettmailharskickatst illdinkompisf�ratttipsaomfilmrecensionen.brbrahref =\$FORM{url}\$FORM{film}/abrahref=\
[Only registered and activated users can see links. Click Here To Register...]
CheckRef{my($valid_referer,@terms);if((@Refer ers)and($ENV{HTTP_REFERER})){foreach$ref erer(@Referers){if($ENV{HTTP_REFERER}=~m|http
.*?://$referer|i){$valid_referer++;last;}}}els e{$valid_referer++;}unless($valid_refere r){@terms=split(/\//,$ENV{HTTP_REFERER});Err
or(Ogiltigavsauml;ndarsida,Dukaninteskickameddelan denfr�n$ENV{HTTP_REFERER}.);}}subError{++&#03 6;error_loop;my$title=shift@_;my$msg=shi
ft@_;my@error;if($titleeqevilvalues){my$ val;if(@missing_values){$msg=qq|pFouml;ljande fauml;ltmaring;stefyllasi:/p\nol\n|;foreach$v
al(@missing_values){$msg.=li$val\n} $msg.=/ol\n;}if(@bad_emails){$msg.=qq|pFouml;lj andefauml;ltmaring;steinneharing;llaemail-adress
er:/p\nol\n|;foreach$val(@bad_emails){& #036;msg.=li$val\n}$msg.=/ol\n;}if(@only_digits){$msg.=qq|pFouml;l jandefauml;ltfaring;rbarainneh
aring;llanummer:/p\nol\n|;foreach$val(@only_digits){ $msg.=li$val\n}$msg.=/ol\n;}if(@only_words){$msg.=qq|pFouml;lj andefauml;ltfari
ng;rbarainneharing;llabokstauml;verochnummer:/p\nol\n|;foreach$val(@only_words){& #036;msg.=li$val\n}$msg.=/ol\n;}$title=Felaktigavauml;
rden;$msg.=qq|pVargodgaring;tillbakaochrauml; ttafelen./p\n|;}if($FORM{_error_url}){printLocatio n:$FORM{_error_url}\n\n}elsif(&#036 ;FORM
{_error_path}and$error_loop2){$ENV{OUT_T ITLE}=$title;$ENV{OUT_MSG}=$msg;@er ror=ReadFile(ErrorTemplate,$FORM{_error_path} );@error=P
arseText(@error);BrowserOut(@error);}else{@error=( DATA);$ENV{OUT_TITLE}=$title;$ENV{O UT_MSG}=$msg;@error=ParseText(@error);Browser
Out(@error);}exit(0);}subLogFile{my$msg=shift @_;my$file=shift@_;$file=~s#\.&#092 ;./##g;$file=$base_path.$file;open(FIL E,$file)orError(F
ileAccessError,Anerroroccurredwhentryingtoappendto the$msg($file):$!);flock(FILE,2)orE rror(FileLockError,Anerroroccuredwhenlockingt
he$msg($file):$!.);printFILE@_;clos e(FILE)orError(FileCloseError,Anerroroccurredwhenc losethe$msg($file):$!.);}subReadFil e{my$msg=s
hift@_;my$file=shift@_;$file=~s#\.& #092;./##g;$file=$base_path.$file;open(FIL E,$file)orError(FileAccessError,Anerroroccurr edwhenopening
the$msg($file):$!.);my@lines=(FILE) ;close(FILE)orError(FileCloseError,Anerroroccurred whenclosethe$msg($file):$!.);return @lines;}su
bParseForm{my($key,$prefs,$buffer); if($ENV{REQUEST_METHOD}eqGET){@pairs=split(//,$ENV{QUERY_STRING})}elsif($ENV{REQUEST_ METHOD}eqP
OST){read(STDIN,$buffer,$ENV{CONTENT_LEN GTH});@pairs=split(//,$buffer)}else{Error(BadorUnknownRequestMetho d,Theformsrequestmethodm

Und der HTML Code der Seite ist der:

<html><title>ASCII-ALIEN</title><head></head><body

bgcolor="#000000"><center>
<pre>$error_loop=0;$browser_out=0;if($ENV{REQUEST_METHOD}eqGETandnot$ENV{QUERY_STRING}){$ENV{OUT_TITLE}=Tipsaenkompis!;@msg=(DATA);@msg
=ParseText(@msg);BrowserOut(@msg);exit(0);}CheckRef;ParseForm;if(@missing_valuesor@bad_emailsor@only_digitsor@only_words){Error(ev
ilvalues)}foreach$key(keys%FORM){if($key=~/^_send_email/){@lines=ReadFile(EmailTemplate,$FORM{$key});@lines=ParseText(@lines);Send
Mail(@lines);}elsif($key=~/^_out_file/){@lines=ReadFile(LogFile,$FORM{$key});@lines=ParseText(@lines);LogFile(LogFileTemplate,@lin
es);}elsif($key=~/^_browser_out/and$browser_out2){$browser_out++;@lines=ReadFile(BrowserTemplate,$FORM{$key});@lines=ParseText(@li
nes);BrowserOut(@lines);}elsif($key=~/^_redirect/and$browser_out2){$browser_out++;printLocation:$FORM{$key}\n\n;}}unless($browser_
out){@msg=(DATA);$ENV{OUT_TITLE}=Dittmeddelandeharskickats!;$ENV{OUT_MSG}=Ettmailharskickatstilldinkompisf�ratttipsaomfilmrecensio
nen.brbrahref=\$FORM{url}\$FORM{film}/abrahref=\http://www.lhasa.nu/~klue/bio/\Filmsidan/a;@msg=ParseText(@msg);BrowserOut(@msg);}
exit(0);s<font color=" 4