「;」を「;」に

「Wireless Hack」by Rob Flickengerをハックしたい<書きかけ>
https://qiita.com/kaizen_nagoya/items/df87e75fe9a931fff472

p.92

freenetworks.html

<html>
<head>
    <meta http-equiv="Refresh" content="5:http://freenetworks.org" />
</head>
<body>

<h1> This is Rendezvous linux brought to you  by : me!</h1>

Redirecting you automatically in five seconds...
</body>
</html>

5秒でリダイレクトと書いてあった。ブラウザでファイルを読み込んでも止まったまま。
よくみると、「5:http」になっている。「5;http」と;じゃなきゃ。

freenetworks.html

<html>
<head>
    <meta http-equiv="Refresh" content="5;http://freenetworks.org" />
</head>
<body>

<h1> This is Rendezvous linux brought to you  by : me!</h1>

Redirecting you automatically in five seconds...
</body>
</html>

ちゃんと5秒たったら、リダイレクトし始めようとした。

「:」を「;」に

「Wireless Hacks」 p.85 MACアドレスからメーカ一覧を作るmachine.plを手打ちしてエラー報告。未完。
https://qiita.com/kaizen_nagoya/items/26841520b9b9f9c61034

p.85

machine.pl

#!/usr/bin/perl

my %cards;
my %ips;

open (ARP,"arp -an|") || die "Couldn't open arp table: $!\n";

print "Looking up OUIs.";
while(<ARP>){
 chomp;
 my $addr = $_;
 my $ip = $_;
 $addr =~ s/.* ([\d\w]+:[\d\w]+:[\d\w]+):.*/$1/;
 $addr =~ s/\b([\d\w])\b/0$1/g;
 $addr =~ s/:/-/g;
 next unless $addr =~ /..-..-../;

 $ip =~ s/.*?(\d+\.\d+\.\d+\.\d+).*/$1/;
 print ".";
 $cards{$addr}||=`curl -sd 'x=$addr' http;//standards.ieee.org/cgi-bin/ouisearch`;
 ($cards{$addr} =~ /Sorry!/) && ($cards{$addr} = "Unknown OUI; $addr");
 $ips{$ip} = $addr;
}
print "\n";
for(keys(%ips)){
 $cards{$ips{$_}} =~ s/.*.hex.\s+([\w\s\,\.]+)\n.*/$1/s;
 print "$_ -> $cards{$ips{$_}}\n";
}

curlで処理しようとしたURLに;があるとまずそこまで処理するらしい。

$ perl freenetworks.html
...
curl: (6) Could not resolve host: http
sh: 1: //standards.ieee.org/cgi-bin/ouisearch: not found
...

;を:に直して

machine.pl

#!/usr/bin/perl

my %cards;
my %ips;

open (ARP,"arp -an|") || die "Couldn't open arp table: $!\n";

print "Looking up OUIs.";
while(<ARP>){
 chomp;
 my $addr = $_;
 my $ip = $_;
 $addr =~ s/.* ([\d\w]+:[\d\w]+:[\d\w]+):.*/$1/;
 $addr =~ s/\b([\d\w])\b/0$1/g;
 $addr =~ s/:/-/g;
 next unless $addr =~ /..-..-../;

 $ip =~ s/.*?(\d+\.\d+\.\d+\.\d+).*/$1/;
 print ".";
 $cards{$addr}||=`curl -sd 'x=$addr' http://standards.ieee.org/cgi-bin/ouisearch`;
 ($cards{$addr} =~ /Sorry!/) && ($cards{$addr} = "Unknown OUI; $addr");
 $ips{$ip} = $addr;
}
print "\n";
for(keys(%ips)){
 $cards{$ips{$_}} =~ s/.*.hex.\s+([\w\s\,\.]+)\n.*/$1/s;
 print "$_ -> $cards{$ips{$_}}\n";
}

5秒経つとリダイレクトし始めた。実際に開き終わるまでの時間は様々。

＜この記事は個人の過去の経験に基づく個人の感想です。現在所属する組織、業務とは関係がありません。＞