Gaui.is: iceDNS

iceDNS

Skrifað af Gaui þann 17. ágúst 2007 - 18:04

4 athugasemdir skrifaðar - toppur / botn

Fjöldi lestra: 2104

Eddi kom með sniðuga Perl scriptu sem athugaði hvort IP tölur væru íslenskar (tilheyrðu íslensku IP-neti) eða ekki, og ákvað ég að skrifa svoleiðis í PHP. Virkilega einföld en áhrifarík leið.

Sýnidæmi

1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | <form action="" method="get"> <b>IP tala:</b> </b><input type="text" name="ip" value="" /> <input type="submit" name="x" value="Athuga" /> </form> <?php # Gerum ekki neitt nema GET-breytan ip innihaldi eitthvað if( $_GET['ip'] != '' ) { # Prentum út horizontal rule (línu) til að aðskilja formið frá niðurstöðum echo '<hr />'; # Skerum IP töluna niður eftir punktunum og snúum henni við $arr_ip = array_reverse( explode( '.', $_GET['ip'] ) ); # Athugum hvort iptala.iceland.rix.is skili 127.1.0.1 if( gethostbyname( implode( '.', $arr_ip ) . '.iceland.rix.is' ) == '127.1.0.1' ) # Ef svo er, er IP-talan íslensk echo $_GET['ip'] . ' er .is IP-tala!'; else # Ef ekki, er IP talan ekki íslensk echo $_GET['ip'] . ' er ekki .is IP-tala!'; } ?>

17. ágúst 2007 - 18:17
#1 - eddi
http://www.linuxzealot.net/

hehe, snilld.
ég fæ að nota þetta við tækifæri hjá þér og takk fyrir plöggið á móti

30. ágúst 2007 - 22:12
#2 - hsb
http://www.group.is

Þið eruð meiru rugludallarnir :)

Að nota system() er algjört nei Eddi, skammastín. Átt að vita það núna að þú getur alltaf fundið pakka sem gera allt sem þú vilt / þarft.

Lausn 1

#!/usr/bin/perl -w



use Net::IP;

use Socket;

use Net::hostent;



my $ip = new Net::IP($ARGV[0]) || die "IPtala röng";

$ip->reverse_ip() =~ /^(.*)\.in/;



my $rix = $1 . ".iceland.rix.is";



$hent = gethost($rix) || die "Gat ekki náð í host upplýsingar";



for my $addr ( @{$hent->addr_list} ) {

        my $result = ( inet_ntoa($addr) eq "127.1.0.1" ) ? "Íslensk" : "Útlensk";

        print "$ARGV[0] er $result IP-tala skv. uppflettingu í RIX\n";

}

En það að nota alltaf hostname er gay og ekki mannsæmandi. Á að setja upp fínt textaskjal sem maður flettir síðan uppí. Hraðvirkt og clean.

Lausn 2

#!/usr/bin/perl -w



use strict;

use File::stat;

use LWP::Simple;

use Net::IP::CMatch;



our $rixfile = "rix.txt";

my $seconds = 60*60*24*60; #Ætlum að eiga tveggja mánaða gamalt eintak af rix.txt



#Athugum hvort við ættum að uppfæra RIX-skránna

my $status = stat($rixfile) || &get_rix();

if( ( time() - $seconds ) > $status->mtime ) {

        &get_rix();

}



open(RIX, $rixfile);

my @data = ;

close(RIX);



if( match_ip($ARGV[0], @data) ) {

        print "IP-tala er íslensk\n";

}

else {

        print "IP-tala er amk ekki íslensk, gæti þessvegna verði vitlaust skrifuð :P\n";

}



sub get_rix() {

        my $content = get("http://www.rix.is/is-net.txt");

        die "Gat ekki náð í rix.txt" unless defined $content;



        open(FUT, ">$rixfile");

        print FUT $content;

        close( FUT );

}

(Og hvernig þetta kemur út á gaui.is hef ég ekki hugmynd.. læt slóðir fylgja á þessar 2 scriptur ef þetta kemur hræðilega út)

http://hsb.group.is/sort/brix.txt
http://hsb.group.is/sort/rix.txt

1. desember 2007 - 19:26
#3 - Gaui
http://www.gaui.is

En sá heiður, TheVikingBay eru að nota þennan kóða.

10. júní 2008 - 22:30
#4 - eddi
http://www.eddinn.net/

sælir,
ég henti saman minimal nmap frontend til eþss að gera algengustu scans þegar maður er á flakkinu og kemst ekki í vél með nmap á.
sjá hér: http://www.eddinn.net/2008/06/09/nmap-frontend/