Frage

Sieben · 05/13/2006, 11:38

Huhu,

ist diese Seite hier in irgendeiner Weise gefährlich ?

Oder einfach nur Computer absturz ? =)

Sieben · 05/13/2006, 13:54

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\(&#092

]//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=\

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

_-Ghost-_ · 05/13/2006, 14:51

nope... nicht wirklich, erfreue dich am ascii bild

das was du siehst ist einfach nur code geschnipsel....

und wenn dein pc von sowas absturzt, dann wuerde ich mir doch mal gedanken machen... obs an dir oder der hardware liegt

Sieben · 05/13/2006, 15:13

öhm jo ist nicht gefährlich, aber öffne

mal im IE und warte etwa 1 min. Dann geht nix mehr ^^

_-Ghost-_ · 05/13/2006, 15:18

Quote:

Originally posted by Sieben@May 13 2006, 15:13
öhm jo ist nicht gefährlich, aber öffne mal im IE und warte etwa 1 min. Dann geht nix mehr ^^

O_o also bei mir ist das fenster jetzt 4 minuten auf und es läuft alles wies soll ;P

Sieben · 05/13/2006, 15:36

Hummm sehr seltsam, bei mir ist alles abgestürzt.

mr255 · 05/13/2006, 15:52

also bei mir passiert auch nix