ip tracker [code]

[rog]

e assim

sempre tem varios jeitos para conseguir o ip de um visitante com um codigo php

eu simplifiquei ao maximo para deixar a deteçao assim

Code Select Expand

<?php 
################################################################
# iptracker on the fly (rog)
################################################################
# var declaration
#
$message = "vic ip &#58; ";
$filename = "log_ip&#46;ip";
$date = date("d/m/Y H&#58;i&#58;s");
#
################################################################
# if the environnement var HTTP_X_FORWARDED_FOR or HTTP_VIA 
# then the client ip is HTTP_X_FORWARDED_FOR
#
if(isset($_SERVER['HTTP_X_FORWARDED_FOR'&#93;) || isset($_SERVER['HTTP_VIA'&#93;))
    {
$display = $message&#46;$_SERVER['HTTP_X_FORWARDED_FOR'&#93;&#46;"\n";
}    
# if HTTP_CLIENT_IP is set then the client ip is HTTP_CLIENT_IP
elseif(isset($_SERVER['HTTP_CLIENT_IP'&#93;))
{
 $display = $message&#46;$_SERVER['HTTP_CLIENT_IP'&#93;&#46;"\n";
}
# else the client ip is REMOTE_ADDR
else
{
$display = $message&#46;$_SERVER['REMOTE_ADDR'&#93;&#46;"\n";
}
################################################################
# addicting the ip in a file
#
$file_pointer = fopen("&#46;/$filename","a+");
fwrite($file_pointer,$date&#46;" ' "&#46;$display);
fclose($file_pointer);
#
chmod("&#46;/$filename",0777);
################################################################
?>
vous melhorar ele quando eu terminar meu projeto nat2nat

rog

[Anonymous]

legal rog,

fiz um bem simplesao q manda o ip por e-mail

Code Select Expand

<?
$ip = getenv("REMOTE_ADDR");
echo "<br>";
echo "Ip: $ip<br><br><br>";
echo "<font color=red size=10><a href=\"site/portal.php\">Clique aki</a></font>";

$nome = " ";
$mail = " ";
$assunto = "ip!";
$message = "$nome, o IP da vitima é : $ip";
$remetente="H4C <thiago_h4c@hotmail.com";

$headers = "Content-Type: text/html; charset=iso-8859-1\n";
$headers.="From: $remetente\n";

    mail("$mail","$assunto","$message","$headers");

echo "<br /><br /><br /><br /><br /><br />Codado by H4C";
?>

soh q vai como lixon eletronico

[rog]

lol

lixo eletronico tem varios motivos possiveis

a primeira modif seria
remetente = "h4c@dominio_onde_esta_hospedado";
depois disso o header de um mail e um pouco mais extensa do que remetente e content-type

aqui uma funçao minha mas o lixo tambem pode vir de um black list do ip do host

talvez tem a possibilidade na caixa do hotmail de definir o mail como autorizado

Code Select Expand

function advanced_mail($to){
########################################################
# var generating
global $config;
global $conf;
$array_priority=array(5=>"Lowest",4=>"Low",3=>"Normal",2=>"High",1=>"Highest");
$limite="_parties_".md5(uniqid (rand()));
##############
$subject = $conf["mail"]["subject"]["0"];
if($conf["mail"]["subject"]["1"] == $conf["mail"]["mail_regexp"]){$subject.=  " $to ";}
$subject.=  " ".$conf["mail"]["subject"]["2"];
##############
# $message = eregi($conf["mail"]["mail_regexp"],$msg);
#
if(stristr($conf['message'],$conf["mail"]["mail_regexp"]))
{
$message = eregi_replace($conf["mail"]["mail_regexp"],$to,$conf['message']);
}
else
{
$message = $conf['message'];
}
#
########################################################
# mail mime
$mail_mime="Date: ".date("l j F Y, G:i")." \r\n";
$mail_mime.="Return-Path: ".$conf["mail"]["reply"]." \r\n";
$mail_mime.="MIME-Version: 1.0 \r\n";
$mail_mime.="Content-Type: multipart/alternative; \r\n";
$mail_mime.=" boundary=\"----=$limite\"\n";
########################################################
# mail headears
$mail_headers.="X-Priority: ".$conf["mail"]["priority"]." \r\n";
$mail_headers.="X-MSMail-Priority: ".$array_priority[$conf["mail"]["priority"]]." \r\n";
$mail_headers.="X-Mailer: ".$conf["mail"]["x_mailer"]." \r\n";
$mail_headers.="X-MimeOLE: ".$conf["mail"]["x_mime_ole"]." \r\n";
$mail_headers.="Reply-to: ".$conf["mail"]["reply"]." \r\n";
$mail_headers.="From: ".$conf["mail"]["from"]." \r\n";
########################################################
# mail message on txt format
$texte="This is a multi-part message in MIME format.\n\n";
$texte.="------=$limite\n";
$texte.="Content-Type: text/plain; charset=\"iso-8859-1\"\r\n";
$texte.="Content-Transfer-Encoding: 8bit\n\n";
$texte.=strip_tags(eregi_replace("<br>","\n",$message))."\r\n"; 
$texte.="\n\n";
########################################################
# mail message on html format
$html="This is a multi-part message in MIME format.\n\n";
$html.="------=$limite\n";
$html.="Content-Type: text/html; charset=\"iso-8859-1\"\r\n";
$html.="Content-Transfer-Encoding: 8bit\n\n";
$html.=$message."\r\n"; 
$html.="\n\n";
########################################################
# sending the email
if(mail($to,$subject,$texte.$html,$mail_mime.$mail_headers))
   {
   return TRUE;
   }
   else
   {
   return FALSE;
   }
}
######################################################################################
rog

[Reeves]

mto bom kras
mto bom

vo da uma olhada.

[bloodrain]

soh uma coisinha que quase ng lembra
ao programar php caras lembrem de usar aspas simples qndo o uso de aspasduplas nao for necessario

[rog]

lol

depois as pessoas acho que eu implica facil

@bloodrain

ao programar php caras lembrem de usar aspas simples qndo o uso de aspasduplas nao for necessario

a aspa simple ou dupla e obrigatoria para passar uma string em parametro

a diferença e que aspa simpla desativa qualquer interpretaçao nessa string

entao no meu ponto de vista so se usa simpla aspa quando se quer que a string seja pega como um offset

' seu ip : $ip'  ==> vai interpretar $ip como $ip
"seu ip : $ip" ==> vai interpretar $ip como o valor conteudo em $ip

'1° linha \n 2° linha'  ==> vai interpretar \n como a string \n
"1° linha \n 2° linha"  ==> vai interpretar \n como um salto de linha

entao para me e o contrario, se usa simpla aspa quando precisa desativar a interpretaçao

rog

ps : nao sou hemer paiva e o meu intuito aqui nao e de dar aulas de graça
 

[Anonymous]

eita ! =D

ficou 10 !!


olha

http://lucaslol.no-ip.org:8090/index2.php

http://lucaslol.no-ip.org:8090/log_ip.txt

[Be.Cool]

Legal rog, eu tava procurando um script desse!
vou implementa-lo aqui depois!
=]


fui.