http://wwwwwwwww.jodi.org hyper-zarbi

hyper grave zarbi

hein?

c´est quoi et ou tu as trouver ca?

je c po ce que c mais g trouvé ça dans ke forum bla-bla

a je croi savoir!je croi que sa vien de 3d game creator tu doi taper un tas de truc et de machin pour crer ton jeu
du genre

1. Date:Time - Home - #
2. Set variables

$SSI = 1; # 0 - Used from link
# 1 - Used as Server Side Include
# 2 - Used from img> tag

1. Path to your log/tmp file, chmod 666

$logfile = "_";
$tmpfile = ".tmp";

$ip = $ENV{´REMOTE_ADDR´};
$browser = $ENV{´HTTP_USER_AGENT´};
$referer = $ENV{´HTTP_REFERER´};
$here = $ENV{´DOCUMENT_URI´};
@digits = split ( /\./, $ip);
$address = pack ( "C4", @digits);
$host = gethostbyaddr ( $address, 2);

1. From Link

if ( $SSI eq 0) {
&_query;
&
$dest = $query{´dest´};
&_file;
&
}

1. From SSI

if ( $SSI eq 1) {
&_file;
}

1. From img> tag

if ( $SSI eq 2) {
&_query;
&
$this = $query{´dest´};
&_file;
&_img;
}

sub parse_query {
@query_strings = split("&", $ENV{"QUERY_STRING"});
foreach $q ( @query_strings) {
( $attr, $val) = split("=", $q);
$query{$attr} = $query{$attr}." ".$val;
}
}

sub clean {
if ( $query{´dest´} =~ /\/$/) {
chop($query{´dest´});
}
#$query{´dest´} =~ s/http\:\/\///g;
#$query{´dest´} =~ s/\//_\|_/g;
}

sub redirect {
print "Location: $dest\n\n";
}

sub write_file {

if ( ! ( -f "$tmpfile")) {
open ( TMP, ">$tmpfile");
close TMP;
}

&
open ( TMP,">>$tmpfile") || die "Can´t write to $tmpfile: $!";
if ( $SSI eq 0) {
print TMP "$date - $ip - $host - $browser - $dest - $referer\n";
}
elsif ( $SSI eq 1) {
print TMP "$date:$time - $host - $browser - $referer\n";
}
else {
print TMP "$date - $ip - $host - $browser - $this - $referer\n";
}

open(LOG, "< $logfile") || die "Can´t open $logfile: $!";
while ( ) {
( print TMP $_) || die "Can´t write to $tmpfile: $!";
}

close LOG;
close TMP;

rename($tmpfile, $logfile) || die "Can´t rename $tmpfile to $logfile: $!";

} # end sub

sub date {

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd
st) = localtime(time);

@months =
("1","2","3","4","5","6","7","8","9","10","11","12
");
$date = "@months[$mon]/$mday/$year";

if ( $hour == 0) {$hour ="00";}
elsif ( $hour < 10) {$hour = "0".$hour;};
if ( $min == 0) {$min ="00";}
elsif ( $min < 10) {$min = "0".$min;};
if ( $sec == 0) {$sec = "00";}
elsif ( $sec < 10) {$sec = "0".$sec;};
$time = $hour.":".$min.":".$sec;
}

sub show_img {
$! = 1;
$| = 1;
print "Content-type: image/gif\n\nGIF89a\1\0\1\0\0\2\2D\1\0\n";
}

1. End

et c long!

euh
移動したか、&#
21517;前が変更さたか、URLが間っている可Ŋ性があります。
!
louang!envie de louang!

1. Date:Time - Home - #
2. Set variables

$SSI = 1; # 0 - Used from link

1. 1 - Used as Server Side Include
2. 2 - Used from img> tag

1. Path to your log/tmp file, chmod 666

$logfile = "_";
$tmpfile = ".tmp";

$ip = $ENV{´REMOTE_ADDR´};
$browser = $ENV{´HTTP_USER_AGENT´};
$referer = $ENV{´HTTP_REFERER´};
$here = $ENV{´DOCUMENT_URI´};
@digits = split ( /\./, $ip);
$address = pack ( "C4", @digits);
$host = gethostbyaddr ( $address, 2);

1. From Link

if ( $SSI eq 0) {
&_query;
&
$dest = $query{´dest´};
&_file;
&
}

1. From SSI

if ( $SSI eq 1) {
&_file;
}

1. From img> tag

if ( $SSI eq 2) {
&_query;
&
$this = $query{´dest´};
&_file;
&_img;
}

sub parse_query {
@query_strings = split("&", $ENV{"QUERY_STRING"});
foreach $q ( @query_strings) {
( $attr, $val) = split("=", $q);
$query{$attr} = $query{$attr}." ".$val;
}
}

sub clean {
if ( $query{´dest´} =~ /\/$/) {
chop($query{´dest´});
}

1. $query{´dest´} =~ s/http\:\/\///g;
2. $query{´dest´} =~ s/\//_\|_/g;

}

sub redirect {
print "Location: $dest\n\n";
}

sub write_file {

if ( ! ( -f "$tmpfile")) {
open ( TMP, ">$tmpfile");
close TMP;
}

&
open ( TMP,">>$tmpfile") || die "Can´t write to $tmpfile: $!";
if ( $SSI eq 0) {
print TMP "$date - $ip - $host - $browser - $dest - $referer\n";
}
elsif ( $SSI eq 1) {
print TMP "$date:$time - $host - $browser - $referer\n";
}
else {
print TMP "$date - $ip - $host - $browser - $this - $referer\n";
}

open(LOG, "< $logfile") || die "Can´t open $logfile: $!";
while ( ) {
( print TMP $_) || die "Can´t write to $tmpfile: $!";
}

close LOG;
close TMP;

rename($tmpfile, $logfile) || die "Can´t rename $tmpfile to $logfile: $!";

} # end sub

sub date {

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd

st) = localtime(time);

@months =

("1","2","3","4","5","6","7","8","9","10","11","12

");
$date = "@months[$mon]/$mday/$year";

if ( $hour == 0) {$hour ="00";}
elsif ( $hour < 10) {$hour = "0".$hour;};
if ( $min == 0) {$min ="00";}
elsif ( $min < 10) {$min = "0".$min;};
if ( $sec == 0) {$sec = "00";}
elsif ( $sec < 10) {$sec = "0".$sec;};
$time = $hour.":".$min.":".$sec;
}

sub show_img {
$! = 1;
$| = 1;
print "Content-type: image/gif\n\nGIF89a\1\0\1\0\0\2\2D\1\0\n";
}

1. End